[Home] [Help]
633: copies => l_no_of_copies);
634: l_p35_id := fnd_request.submit_request(application => 'PAY',
635: program => 'PAYRPP35',
636: argument1 => p_payroll_action_id);
637: hr_utility.trace('The p35 request ID is '||to_char(l_p35_id));
638: --
639: p_p35_req_id := to_char(l_p35_id);
640: --
641: -- this commit ensures that reconciliation report does run even when
681: copies => l_no_of_copies);
682: l_mar_id := fnd_request.submit_request(application => 'PAY',
683: program => 'PAYYEMAR',
684: argument1 => p_payroll_action_id);
685: hr_utility.trace('The mar request ID is '||to_char(l_mar_id));
686: --
687: --
688: -- Assign Out Params
689: --
806: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
807: /* Reset the record index to start at the third parameter */
808: ELSIF p_no = 3 THEN
809: /* Sub-header */
810: -- hr_utility.trace('record index is '||to_char(g_record_index));
811: pay_mag_tape.internal_prm_values(1) := 7;
812: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
813: ELSIF p_no = 4 THEN
814: /* Permit total */
811: pay_mag_tape.internal_prm_values(1) := 7;
812: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
813: ELSIF p_no = 4 THEN
814: /* Permit total */
815: -- hr_utility.trace('record index is '||to_char(g_record_index));
816: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
817: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
818: ELSIF p_no = 5 THEN
819: /* End of record */
816: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
817: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
818: ELSIF p_no = 5 THEN
819: /* End of record */
820: -- hr_utility.trace('record index is '||to_char(g_record_index));
821: pay_mag_tape.internal_prm_values(1) := 12;
822: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
823: ELSIF p_no = 6 THEN
824: /* Dummy record */
917: l_result VARCHAR2(1);
918: -- 4011263: l_econ_required VARCHAR2(1) := '0';
919: BEGIN
920: -- Now start validating the record type 1
921: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
922: -- Initialise the record type 1 parameters
923: hr_utility.trace('Writing record type 1');
924: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
925: p14_edi_init(1);
919: BEGIN
920: -- Now start validating the record type 1
921: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
922: -- Initialise the record type 1 parameters
923: hr_utility.trace('Writing record type 1');
924: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
925: p14_edi_init(1);
926: ELSE
927: mag_tape_init(1);
926: ELSE
927: mag_tape_init(1);
928: END IF;
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
927: mag_tape_init(1);
928: END IF;
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
928: END IF;
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
929: -- Pass the record fields as paramteres to the mag tape process
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
930: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
931: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
932: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
933: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
934: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
935: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
943: -- 4011263: hr_utility.trace('econ: '||g_econ);
936: hr_utility.trace('permit: '||g_new_permit_no);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
943: -- 4011263: hr_utility.trace('econ: '||g_econ);
944: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
937: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
943: -- 4011263: hr_utility.trace('econ: '||g_econ);
944: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
945: mag_tape_interface('EOY_MODE',g_eoy_mode);
938: hr_utility.trace('tax refno: '||g_tax_ref_no);
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
943: -- 4011263: hr_utility.trace('econ: '||g_econ);
944: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
945: mag_tape_interface('EOY_MODE',g_eoy_mode);
946: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,' '));
939: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
943: -- 4011263: hr_utility.trace('econ: '||g_econ);
944: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
945: mag_tape_interface('EOY_MODE',g_eoy_mode);
946: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,' '));
947: --
940: hr_utility.trace('tax yr: '||g_tax_year);
941: hr_utility.trace('emp name: '||g_employers_name);
942: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
943: -- 4011263: hr_utility.trace('econ: '||g_econ);
944: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
945: mag_tape_interface('EOY_MODE',g_eoy_mode);
946: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,' '));
947: --
948: /* Field must be three numeric characters */
953: EXCEPTION
954: WHEN VALUE_ERROR THEN
955: -- Any non-numeric characters will raise an exception
956: g_tax_district_ref := ' ';
957: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
958: END;
959: mag_tape_interface('TAX_DISTRICT_REF' ,NVL(g_tax_district_ref,' '));
960: mag_tape_interface('TAX_REF_NO',nvl(g_tax_ref_no,' '));
961: --
1014: END create_record_type1;
1015: --
1016: PROCEDURE create_sub_header IS
1017: BEGIN
1018: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',500);
1019: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1020: -- EDI process does not need sub header therefore call dummy formula to skip this step
1021: p14_edi_init(7);
1022: ELSE
1019: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1020: -- EDI process does not need sub header therefore call dummy formula to skip this step
1021: p14_edi_init(7);
1022: ELSE
1023: hr_utility.trace('Writing record type 2 subheader');
1024: mag_tape_init(3);
1025: mag_tape_interface('EOY_MODE',g_eoy_mode);
1026: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
1027: END IF;
1024: mag_tape_init(3);
1025: mag_tape_interface('EOY_MODE',g_eoy_mode);
1026: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
1027: END IF;
1028: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',510);
1029: END;
1030: --
1031: PROCEDURE create_record_type3 IS
1032: --
1036: l_tot_refund VARCHAR2(1) :=NULL; -- Set to 'R' if tax refund
1037: --l_total_nic_rebate NUMBER(11) := 0; --P35/P14 EOY 2003/2004
1038: --
1039: BEGIN
1040: hr_utility.trace('Writing record type 3');
1041: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1042: p14_edi_init(5);
1043: ELSE
1044: mag_tape_init(4);
1046: mag_tape_interface('EOY_MODE',g_eoy_mode);
1047: mag_tape_interface('PERMIT_NO',g_permit_no); -- For inclusion in Error Messages
1048: mag_tape_interface('TOTAL_CONTRIBUTIONS',NVL(g_tot_contribs,0));
1049: g_tot_contribs := 0;
1050: hr_utility.trace('The tot tax is '||to_char(g_tot_tax));
1051: mag_tape_interface('TOTAL_TAX',NVL(ABS(g_tot_tax),0));
1052: IF SIGN(g_tot_tax) = -1 THEN
1053: -- The tax is a refund so set the refund status
1054: l_tot_refund := 'R';
1054: l_tot_refund := 'R';
1055: ELSE
1056: l_tot_refund := ' ';
1057: END IF;
1058: hr_utility.trace('The tot refund is '||l_tot_refund||'.');
1059: mag_tape_interface('TOTAL_TAX_REFUND',l_tot_refund);
1060: g_tot_tax := 0;
1061: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
1062: -- Now add to the total record 2 count
1060: g_tot_tax := 0;
1061: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
1062: -- Now add to the total record 2 count
1063: g_tot_rec2 := g_tot_rec2 + NVL(g_tot_rec2_per,0);
1064: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));
1065: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));
1066: g_tot_rec2_per := 0;
1067: mag_tape_interface('TOTAL_SSP',NVL(g_tot_ssp_rec,0));
1068: -- Copy across new values to the variables
1061: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
1062: -- Now add to the total record 2 count
1063: g_tot_rec2 := g_tot_rec2 + NVL(g_tot_rec2_per,0);
1064: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));
1065: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));
1066: g_tot_rec2_per := 0;
1067: mag_tape_interface('TOTAL_SSP',NVL(g_tot_ssp_rec,0));
1068: -- Copy across new values to the variables
1069: -- g_tot_ssp_rec := g_ssp_recovery;
1107: /* This is for the extra NI details for an employee */
1108: mag_tape_init(2);
1109: mag_tape_interface('EOY_MODE',g_eoy_mode);
1110: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1111: hr_utility.trace('The employee is '||g_employee_number);
1112: --
1113: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',530);
1114: --
1115: -- Note all name validation performed in formula.
1109: mag_tape_interface('EOY_MODE',g_eoy_mode);
1110: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1111: hr_utility.trace('The employee is '||g_employee_number);
1112: --
1113: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',530);
1114: --
1115: -- Note all name validation performed in formula.
1116: --
1117: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1149: mag_tape_interface('SPP','0'); --P35/P14 EOY 2003/2004
1150: mag_tape_interface('SAP','0'); --P35/P14 EOY 2003/2004
1151: -- 4011263: mag_tape_interface('GROSS_PAY','0');
1152: mag_tape_interface('TAX_PAID','0');
1153: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',560);
1154: mag_tape_interface('TAX_REFUND',' ');
1155: mag_tape_interface('PREVIOUS_TAXABLE_PAY','0');
1156: --
1157: mag_tape_interface('PREVIOUS_TAX_PAID','0');
1163: END IF;
1164: EXCEPTION
1165: WHEN value_error THEN
1166: g_termination_date := ' ';
1167: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',570);
1168: END;
1169: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
1170: /* Start 4011263
1171: mag_tape_interface('SUPERANNUATION','0');
1183: /* 4011263
1184: mag_tape_interface('PENSIONER_INDICATOR',' ');
1185: mag_tape_interface('DIRECTOR_INDICATOR',' ');
1186: 4011263 */
1187: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1188: --
1189: --
1190: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1191: hr_utility.trace('End is '||to_char(l_no_nis));
1186: 4011263 */
1187: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1188: --
1189: --
1190: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1191: hr_utility.trace('End is '||to_char(l_no_nis));
1192: l_param_index := 2;
1193: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
1194: hr_utility.trace('Index is now '||to_char(l_index));
1187: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1188: --
1189: --
1190: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1191: hr_utility.trace('End is '||to_char(l_no_nis));
1192: l_param_index := 2;
1193: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
1194: hr_utility.trace('Index is now '||to_char(l_index));
1195: mag_tape_interface('SCON'||TO_CHAR(l_param_index),scon_tab(l_index));
1190: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1191: hr_utility.trace('End is '||to_char(l_no_nis));
1192: l_param_index := 2;
1193: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
1194: hr_utility.trace('Index is now '||to_char(l_index));
1195: mag_tape_interface('SCON'||TO_CHAR(l_param_index),scon_tab(l_index));
1196: mag_tape_interface('NI_CATEGORY_CODE'||
1197: TO_CHAR(l_param_index),category_tab(l_index));
1198: mag_tape_interface('TOTAL_CONTRIBUTIONS'||TO_CHAR(l_param_index)
1207: ni_able_uel_tab(l_index));
1208: -- l_ers_rebate := l_ers_rebate + employers_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1209: -- l_ees_rebate := l_ees_rebate + employees_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1210: l_param_index := l_param_index + 1;
1211: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',590);
1212: END LOOP;
1213: p_mag_form_clear(l_param_index);
1214: -- mag_tape_interface('NI_ERS_REBATE',l_ers_rebate); --P35/P14 EOY 2003/2004
1215: -- mag_tape_interface('NIEES_REBATE',l_ees_rebate); --P35/P14 EOY 2003/2004
1220: --
1221: -- Running count of all employee records
1222: --
1223: g_tot_rec2_per := g_tot_rec2_per + 1;
1224: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',595);
1225: END;
1226: -----------------------------------------------------------------------------
1227: -- PROCEDURE: get_parameters
1228: -- DESCRIPTION: This procedure obtains all parameter values passed into this
1275: -- Default the EOY Mode to 'P'
1276: p_eoy_mode := 'P';
1277: --
1278: BEGIN
1279: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',400);
1280: -- This loop is used to obtain all parameter values. The prerequisite to
1281: -- this functioning correctly is that rows are populated in the
1282: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1283: -- table is not found, the loop exits by means of an exception.
1282: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1283: -- table is not found, the loop exits by means of an exception.
1284: -- Also note that if a corresponding value is missing, the loop will exit.
1285: LOOP
1286: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1287: l_count := l_count + 1;
1288: hr_utility.trace(to_char(l_count));
1289: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1290: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1284: -- Also note that if a corresponding value is missing, the loop will exit.
1285: LOOP
1286: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1287: l_count := l_count + 1;
1288: hr_utility.trace(to_char(l_count));
1289: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1290: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1285: LOOP
1286: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1287: l_count := l_count + 1;
1288: hr_utility.trace(to_char(l_count));
1289: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1290: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1286: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1287: l_count := l_count + 1;
1288: hr_utility.trace(to_char(l_count));
1289: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1290: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1291: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1292: THEN
1293: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1294: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1313: EXCEPTION
1314: WHEN no_data_found THEN
1315: -- Use this exception to exit loop as no. of plsql tab items
1316: -- is not known beforehand. All values should be assigned.
1317: hr_utility.trace('No data Found from plsql table loop');
1318: NULL;
1319: WHEN value_error THEN
1320: hr_utility.trace(to_char(l_count));
1321: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1316: -- is not known beforehand. All values should be assigned.
1317: hr_utility.trace('No data Found from plsql table loop');
1318: NULL;
1319: WHEN value_error THEN
1320: hr_utility.trace(to_char(l_count));
1321: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1322: END;
1323: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1324: p_payroll_action_id := to_number(l_payroll_action_id);
1317: hr_utility.trace('No data Found from plsql table loop');
1318: NULL;
1319: WHEN value_error THEN
1320: hr_utility.trace(to_char(l_count));
1321: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1322: END;
1323: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1324: p_payroll_action_id := to_number(l_payroll_action_id);
1325: --
1319: WHEN value_error THEN
1320: hr_utility.trace(to_char(l_count));
1321: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1322: END;
1323: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1324: p_payroll_action_id := to_number(l_payroll_action_id);
1325: --
1326: -- Obtain EOY Mode from the Payroll Action ID.
1327: --
1327: --
1328: OPEN get_action_eoy_mode(p_payroll_action_id);
1329: FETCH get_action_eoy_mode INTO p_eoy_mode;
1330: IF get_action_eoy_mode%notfound THEN
1331: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',419);
1332: RAISE no_data_found; -- means no payroll action exists.
1333: END IF;
1334: CLOSE get_action_eoy_mode;
1335: --
1332: RAISE no_data_found; -- means no payroll action exists.
1333: END IF;
1334: CLOSE get_action_eoy_mode;
1335: --
1336: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',420);
1337: --
1338: -- Added for nocopy
1339: EXCEPTION
1340: WHEN OTHERS THEN
1398: l_mar_req_id VARCHAR2(81) := '-1'; -- Chars, as passed into formula.
1399: l_p35_req_id VARCHAR2(81) := '-1';
1400: --
1401: BEGIN
1402: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',0);
1403: --
1404: -- Start checking for record type 1
1405: --
1406: IF fetch_new_header THEN
1403: --
1404: -- Start checking for record type 1
1405: --
1406: IF fetch_new_header THEN
1407: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',10);
1408: -- A Record type 1 is required
1409: IF NOT (header_cur%ISOPEN) THEN
1410: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',20);
1411: -- Get all necessary parameters. The payroll action ID
1406: IF fetch_new_header THEN
1407: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',10);
1408: -- A Record type 1 is required
1409: IF NOT (header_cur%ISOPEN) THEN
1410: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',20);
1411: -- Get all necessary parameters. The payroll action ID
1412: -- is validated.
1413: get_parameters(g_permit_no
1414: ,g_eoy_mode
1418: ,g_unique_test_id -- 4011263
1419: ,g_return_type -- 4011263
1420: -- ,g_urgent_marker 4011263
1421: ,g_payroll_action_id);
1422: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
1423: hr_utility.trace('The payroll action ID is '||g_payroll_action_id||'@');
1424: --
1425: g_old_tax_dist_ref := g_tax_dist_ref;
1426: g_old_tax_ref_no := g_tax_ref_no;
1419: ,g_return_type -- 4011263
1420: -- ,g_urgent_marker 4011263
1421: ,g_payroll_action_id);
1422: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
1423: hr_utility.trace('The payroll action ID is '||g_payroll_action_id||'@');
1424: --
1425: g_old_tax_dist_ref := g_tax_dist_ref;
1426: g_old_tax_ref_no := g_tax_ref_no;
1427: --
1427: --
1428: OPEN get_start_end_year(g_payroll_action_id);
1429: FETCH get_start_end_year INTO g_start_year, g_end_year;
1430: CLOSE get_start_end_year;
1431: hr_utility.trace('After get_start_end_year, g_start_year='||
1432: fnd_Date.date_to_displaydate(g_start_year));
1433: hr_utility.trace('g_end_year='||
1434: fnd_Date.date_to_displaydate(g_end_year));
1435: --
1429: FETCH get_start_end_year INTO g_start_year, g_end_year;
1430: CLOSE get_start_end_year;
1431: hr_utility.trace('After get_start_end_year, g_start_year='||
1432: fnd_Date.date_to_displaydate(g_start_year));
1433: hr_utility.trace('g_end_year='||
1434: fnd_Date.date_to_displaydate(g_end_year));
1435: --
1436: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',25);
1437: --
1432: fnd_Date.date_to_displaydate(g_start_year));
1433: hr_utility.trace('g_end_year='||
1434: fnd_Date.date_to_displaydate(g_end_year));
1435: --
1436: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',25);
1437: --
1438: -- Check to see if the Payroll Action just retrieved has any
1439: -- errors. If not, check whether any assignment actions within the payroll
1440: -- action have errored. 1st error msg takes precedence.
1455: -- the DBI call in MAG_RECORD7.
1456: --
1457: l_errored := TRUE;
1458: end if;
1459: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',27);
1460: --
1461: -- First time in so clear the error type counts
1462: --
1463: pay_mag_tape.internal_prm_values(3) := 0;
1467: END IF;
1468: IF NOT(permit_change) THEN
1469: -- Get record from EOY table as next record
1470: -- for record type 1 required
1471: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1472: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1473: hr_utility.trace('1 The global Permit is '||g_permit_no);
1474: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1475: --
1468: IF NOT(permit_change) THEN
1469: -- Get record from EOY table as next record
1470: -- for record type 1 required
1471: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1472: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1473: hr_utility.trace('1 The global Permit is '||g_permit_no);
1474: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1475: --
1476: IF l_errored THEN
1469: -- Get record from EOY table as next record
1470: -- for record type 1 required
1471: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1472: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1473: hr_utility.trace('1 The global Permit is '||g_permit_no);
1474: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1475: --
1476: IF l_errored THEN
1477: -- Either the Payroll Action or an Assignment Action has Errored.
1470: -- for record type 1 required
1471: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1472: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1473: hr_utility.trace('1 The global Permit is '||g_permit_no);
1474: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1475: --
1476: IF l_errored THEN
1477: -- Either the Payroll Action or an Assignment Action has Errored.
1478: hr_utility.trace('Errored Payroll Action: '||g_payroll_action_id);
1474: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1475: --
1476: IF l_errored THEN
1477: -- Either the Payroll Action or an Assignment Action has Errored.
1478: hr_utility.trace('Errored Payroll Action: '||g_payroll_action_id);
1479: -- Call formula to error payroll.
1480: mag_tape_init(7);
1481: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1482: hr_utility.trace('after mag tape interface calls');
1478: hr_utility.trace('Errored Payroll Action: '||g_payroll_action_id);
1479: -- Call formula to error payroll.
1480: mag_tape_init(7);
1481: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1482: hr_utility.trace('after mag tape interface calls');
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
1485: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1486: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1483: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1484: pay_mag_tape.internal_cxt_values(1) := '2';
1485: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1486: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1487: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1488: ELSE
1489: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1490: -- No errors so fetch header info.
1491: FETCH header_cur INTO g_new_permit_no
1485: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1486: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1487: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1488: ELSE
1489: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1490: -- No errors so fetch header info.
1491: FETCH header_cur INTO g_new_permit_no
1492: ,g_new_payroll_id
1493: ,g_tax_district_ref
1516: End 4011263 */
1517: --
1518: IF header_cur%NOTFOUND THEN
1519: -- No more records found so end of run
1520: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',30);
1521: IF g_tot_rec2_per > 0 THEN
1522: -- If at least one record has been found then create
1523: -- a permit total
1524: create_record_type3;
1540: OR g_new_permit_no <> NVL(g_permit_no,g_new_permit_no)) THEN
1541: --
1542: -- The permit has changed so construct the record type 3
1543: --
1544: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1545: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1546: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1547: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1548: create_record_type3;
1541: --
1542: -- The permit has changed so construct the record type 3
1543: --
1544: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1545: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1546: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1547: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1548: create_record_type3;
1549: -- Save required values in globals
1542: -- The permit has changed so construct the record type 3
1543: --
1544: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1545: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1546: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1547: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1548: create_record_type3;
1549: -- Save required values in globals
1550: g_old_tax_dist_ref := g_tax_district_ref;
1543: --
1544: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1545: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1546: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1547: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1548: create_record_type3;
1549: -- Save required values in globals
1550: g_old_tax_dist_ref := g_tax_district_ref;
1551: g_old_tax_ref_no := g_tax_ref_no;
1554: permit_change := TRUE;
1555: -- Close the type 2 cursor so it will be re-opened with
1556: -- the new parameters
1557: CLOSE emps_cur;
1558: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',40);
1559: ELSE
1560: -- No permit change so add new smp and smp values to totals
1561: /* Start 4011263
1562: g_tot_ssp_rec := g_tot_ssp_rec + g_ssp_recovery;
1566: g_tot_spp_comp := g_tot_spp_comp + g_spp_compensation;--P35/P14 EOY 2003/2004
1567: g_tot_sap_rec := g_tot_sap_rec + g_sap_recovery; --P35/P14 EOY 2003/2004
1568: g_tot_sap_comp := g_tot_sap_comp + g_sap_compensation;--P35/P14 EOY 2003/2004
1569: End 4011263 */
1570: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1571: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1572: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1573: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1574: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1567: g_tot_sap_rec := g_tot_sap_rec + g_sap_recovery; --P35/P14 EOY 2003/2004
1568: g_tot_sap_comp := g_tot_sap_comp + g_sap_compensation;--P35/P14 EOY 2003/2004
1569: End 4011263 */
1570: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1571: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1572: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1573: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1574: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1575: -- The payroll_id has changed in permit_no
1568: g_tot_sap_comp := g_tot_sap_comp + g_sap_compensation;--P35/P14 EOY 2003/2004
1569: End 4011263 */
1570: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1571: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1572: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1573: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1574: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1575: -- The payroll_id has changed in permit_no
1576: g_payroll_id := g_new_payroll_id;
1569: End 4011263 */
1570: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1571: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1572: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1573: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1574: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1575: -- The payroll_id has changed in permit_no
1576: g_payroll_id := g_new_payroll_id;
1577: -- Write the sub_header and then get the employee details
1591: edi_process_emp_header := FALSE;
1592: edi_process_ni_details := FALSE;
1593: edi_process_emp_trailer := FALSE;
1594: END IF;
1595: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1596: ELSE
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1593: edi_process_emp_trailer := FALSE;
1594: END IF;
1595: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1596: ELSE
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1600: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1601: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1594: END IF;
1595: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1596: ELSE
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1600: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1601: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1602: -- Save required values in globals
1595: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1596: ELSE
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1600: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1601: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1602: -- Save required values in globals
1603: g_old_tax_dist_ref := g_tax_district_ref;
1596: ELSE
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1600: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1601: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1602: -- Save required values in globals
1603: g_old_tax_dist_ref := g_tax_district_ref;
1604: g_old_tax_ref_no := g_tax_ref_no;
1597: hr_utility.trace('No payroll or permit change ');
1598: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1599: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1600: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1601: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1602: -- Save required values in globals
1603: g_old_tax_dist_ref := g_tax_district_ref;
1604: g_old_tax_ref_no := g_tax_ref_no;
1605: g_permit_no := g_new_permit_no;
1606: g_payroll_id := g_new_payroll_id;
1607: create_record_type1;
1608: fetch_new_header := FALSE;
1609: sub_header := TRUE;
1610: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',50);
1611: END IF;
1612: END IF;
1613: END IF; -- End of Errored payroll check.
1614: ELSE
1627: -- g_tot_spp_comp := g_spp_compensation; --P35/P14 EOY 2003/2004
1628: -- g_tot_sap_comp := g_sap_compensation; --P35/P14 EOY 2003/2004
1629: /* End 4011263 */
1630:
1631: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',60);
1632: END IF;
1633: --
1634: -- Check if sub-header required
1635: --
1634: -- Check if sub-header required
1635: --
1636: ELSIF sub_header THEN
1637: create_sub_header;
1638: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',70);
1639: sub_header := FALSE;
1640: IF g_eoy_mode IN ( 'F - P14 EDI', 'P - P14 EDI') THEN
1641: process_emps := FALSE;
1642: edi_process_emp_header := TRUE;
1654: --
1655: ELSIF process_dummy THEN
1656: -- A special record type 2
1657: -- More than 4 more NI categories exist for the employee
1658: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',700);
1659: IF g_ni_total - g_last_ni > 4 THEN
1660: p_create_dummy(g_last_ni,4);
1661: g_last_ni := g_last_ni + 4;
1662: ELSE
1672: -- Check for processing record type 2
1673: --
1674: ELSIF process_emps THEN
1675: -- Record type 2 required
1676: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1677: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1673: --
1674: ELSIF process_emps THEN
1675: -- Record type 2 required
1676: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1677: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1681: IF NOT (emps_cur%ISOPEN) THEN
1674: ELSIF process_emps THEN
1675: -- Record type 2 required
1676: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1677: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1681: IF NOT (emps_cur%ISOPEN) THEN
1682: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1675: -- Record type 2 required
1676: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1677: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1681: IF NOT (emps_cur%ISOPEN) THEN
1682: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1683: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1676: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1677: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1681: IF NOT (emps_cur%ISOPEN) THEN
1682: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1683: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1684: END IF;
1678: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1679: hr_utility.trace('The emp permit_no is '||g_permit_no);
1680: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1681: IF NOT (emps_cur%ISOPEN) THEN
1682: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1683: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1684: END IF;
1685: FETCH emps_cur INTO g_employee_number
1686: ,g_assignment_action_id
1734: --
1735: -- End of record type 2
1736: --
1737: -- Set escape from this section
1738: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',130);
1739: /* Each call of this package must return 1 record even */
1740: /* if its only a dummy formula call to do so */
1741: mag_tape_init(6);
1742: fetch_new_header:= TRUE;
1779: ni_able_auel_tab(l_index) := emp_values_rec.ni_able_auel; --- EOY 07/08
1780: employers_rebate_tab(l_index) := emp_values_rec.employers_rebate;
1781: employees_rebate_tab(l_index) := emp_values_rec.employees_rebate;
1782: --
1783: hr_utility.trace('looping for asg action: '||to_char(g_assignment_action_id));
1784: if (emp_values_rec.cat_code) = 'P' then
1785: null; -- 4752018: NIC Holiday will not be reported on P14 anymore
1786: else
1787: g_tot_contribs := g_tot_contribs + emp_values_rec.tot_cont;
1787: g_tot_contribs := g_tot_contribs + emp_values_rec.tot_cont;
1788: end if; -- IF NI CODE = 'P'
1789: l_index := l_index + 1;
1790: END LOOP;
1791: hr_utility.trace('Fetched emp_values, now get NI for all CAT codes');
1792: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
1793: /* Keep the total number of NI category codes for the employee */
1794: /* If > 5 then raise warning in the mag tape log file */
1795: g_ni_total := l_index - 1;
1788: end if; -- IF NI CODE = 'P'
1789: l_index := l_index + 1;
1790: END LOOP;
1791: hr_utility.trace('Fetched emp_values, now get NI for all CAT codes');
1792: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
1793: /* Keep the total number of NI category codes for the employee */
1794: /* If > 5 then raise warning in the mag tape log file */
1795: g_ni_total := l_index - 1;
1796: IF l_index < 5 THEN
1807: ni_able_auel_tab(l_plsql_index) := 0; ---EOY 07/08
1808: employers_rebate_tab(l_plsql_index) := 0;
1809: employees_rebate_tab(l_plsql_index) := 0;
1810: END LOOP;
1811: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',150);
1812: END IF;
1813: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
1814: /* Create a type 2 record */
1815: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
1809: employees_rebate_tab(l_plsql_index) := 0;
1810: END LOOP;
1811: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',150);
1812: END IF;
1813: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
1814: /* Create a type 2 record */
1815: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
1816: -- g_previous_tax_paid + nvl(g_superannuation_paid,0) + g_widows_and_orphans +
1817: -- g_student_loans + g_taxable_pay ,0) > 0 THEN
1815: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
1816: -- g_previous_tax_paid + nvl(g_superannuation_paid,0) + g_widows_and_orphans +
1817: -- g_student_loans + g_taxable_pay ,0) > 0 THEN
1818: /* Set up the no of parameters and the formula professor */
1819: hr_utility.trace('Writing record type 2');
1820: mag_tape_init(2);
1821: /* Now create a record type 2 */
1822: mag_tape_interface('EOY_MODE',g_eoy_mode);
1823: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1820: mag_tape_init(2);
1821: /* Now create a record type 2 */
1822: mag_tape_interface('EOY_MODE',g_eoy_mode);
1823: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1824: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',250);
1825: --
1826: -- Note name validation performed in formula.
1827: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1828: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
1825: --
1826: -- Note name validation performed in formula.
1827: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1828: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
1829: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',275);
1830: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
1831: mag_tape_interface('DATE_OF_BIRTH',g_date_of_birth);
1832: mag_tape_interface('GENDER',g_sex);
1833: /* 4011263
1871: mag_tape_interface('SAP',g_sap); --P35/P14 EOY 2003/2004
1872: -- 4011263: mag_tape_interface('GROSS_PAY',g_gross_pay);
1873: mag_tape_interface('TAX_PAID',ABS(g_tax_paid));
1874: g_tot_tax := g_tot_tax + g_tax_paid;
1875: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',280);
1876: --
1877: -- Tax Refund must be 'R' or blank. Formula validates this.
1878: --
1879: mag_tape_interface('TAX_REFUND',nvl(g_tax_refund,' '));
1890: END IF;
1891: EXCEPTION
1892: WHEN value_error THEN
1893: g_termination_date := ' ';
1894: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',300);
1895: END;
1896: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
1897: /* 4011263: Remove superannuation from EOY
1898: --added nvl for bug fix 3614251
1919: /* 4011263
1920: mag_tape_interface('PENSIONER_INDICATOR', nvl(g_pension_indicator,' '));
1921: mag_tape_interface('DIRECTOR_INDICATOR', nvl(g_director_indicator,' '));
1922: 4011263 */
1923: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',350);
1924: --
1925: -- Now send up to 3 of the remaining contribution records to mag tape
1926: -- If they do not exist they have been defaulted
1927: --
1940: mag_tape_interface('NI_ABLE_UEL'||
1941: TO_CHAR(l_index), ni_able_uel_tab(l_index));
1942: -- l_ers_rebate := l_ers_rebate + employers_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1943: -- l_ees_rebate := l_ees_rebate + employees_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1944: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',360);
1945: END LOOP;
1946: --mag_tape_interface('NI_ERS_REBATE', l_ers_rebate); --P35/P14 EOY 2003/2004
1947: --mag_tape_interface('NIEES_REBATE', l_ees_rebate); --P35/P14 EOY 2003/2004
1948: mag_tape_interface('ASSIGNMENT_MESSAGE', l_asg_message);
1954: --
1955: g_tot_rec2_per := g_tot_rec2_per + 1;
1956: -- Now check the number of NI categories found for this employee
1957: IF g_ni_total > 4 THEN
1958: hr_utility.trace('The employee is '||g_employee_number);
1959: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',365);
1960: -- More than four so set flags for creation of dummy record
1961: process_emps := FALSE;
1962: process_dummy := TRUE;
1955: g_tot_rec2_per := g_tot_rec2_per + 1;
1956: -- Now check the number of NI categories found for this employee
1957: IF g_ni_total > 4 THEN
1958: hr_utility.trace('The employee is '||g_employee_number);
1959: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',365);
1960: -- More than four so set flags for creation of dummy record
1961: process_emps := FALSE;
1962: process_dummy := TRUE;
1963: -- Index in PL/SQL tables set to the last record selected
1962: process_dummy := TRUE;
1963: -- Index in PL/SQL tables set to the last record selected
1964: g_last_ni := 4;
1965: END IF;
1966: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',370);
1967: --
1968: END IF; /* End of create type 2 record */
1969: --
1970: -- If EOY mode is P14 EDI then write employee header and NI Details and employee
1970: -- If EOY mode is P14 EDI then write employee header and NI Details and employee
1971: -- trailer records instead of above Mag Tape type 2 record.
1972: ELSIF edi_process_emp_header THEN
1973: -- Need to process employee header record for EDI Process
1974: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1975: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1976: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1971: -- trailer records instead of above Mag Tape type 2 record.
1972: ELSIF edi_process_emp_header THEN
1973: -- Need to process employee header record for EDI Process
1974: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1975: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1976: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1979: --
1972: ELSIF edi_process_emp_header THEN
1973: -- Need to process employee header record for EDI Process
1974: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1975: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1976: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1979: --
1980: IF NOT (emps_cur%ISOPEN) THEN
1973: -- Need to process employee header record for EDI Process
1974: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1975: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1976: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1979: --
1980: IF NOT (emps_cur%ISOPEN) THEN
1981: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1974: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1975: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1976: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1979: --
1980: IF NOT (emps_cur%ISOPEN) THEN
1981: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1982: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1977: hr_utility.trace('The emp permit_no is '||g_permit_no);
1978: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1979: --
1980: IF NOT (emps_cur%ISOPEN) THEN
1981: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1982: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1983: END IF;
1984: --
1985: FETCH emps_cur INTO g_employee_number
2030: --
2031: IF emps_cur%NOTFOUND THEN
2032: -- End of employee details for EDI process
2033: -- Set escape from this section
2034: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',130);
2035: -- Each call of this package must return 1 record even
2036: -- if its only a dummy formula call to do so
2037: mag_tape_init(6);
2038: fetch_new_header:= TRUE;
2043: -- Update grand totals
2044: g_tot_tax := g_tot_tax + g_tax_paid;
2045: g_tot_student_ln := g_tot_student_ln + g_student_loans;
2046: -- Set up the no of parameters and the formula professor
2047: hr_utility.trace('Writing employee header');
2048: p14_edi_init(2);
2049: -- Now create employee header
2050: mag_tape_interface('EOY_MODE',g_eoy_mode);
2051: mag_tape_interface('EMPLOYEE_COUNT', nvl(g_tot_rec2_per,0));
2049: -- Now create employee header
2050: mag_tape_interface('EOY_MODE',g_eoy_mode);
2051: mag_tape_interface('EMPLOYEE_COUNT', nvl(g_tot_rec2_per,0));
2052: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
2053: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',250);
2054: --
2055: -- Note name validation performed in formula.
2056: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2057: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2056: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2057: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2058: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
2059: --4011263: mag_tape_interface('TITLE',NVL(g_title,' '));
2060: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',275);
2061: mag_tape_interface('GENDER',g_sex);
2062: /* 4011263
2063: -- Order Address lines to push nulls to end, using g_full_address as
2064: -- a temporary variable.
2084: 4011263 */
2085: mag_tape_interface('ASSIGNMENT_MESSAGE', nvl(l_asg_message, ' '));
2086: mag_tape_interface('FULL_NAME',NVL(g_full_name,' '));
2087: --
2088: hr_utility.trace('Employee Number='||g_employee_number);
2089: hr_utility.trace('full name='||g_first_name||' '||g_last_name);
2090: -- Fetch values for NI Details record
2091: g_edi_ni_cat_count := 0;
2092: g_edi_emp_ers_rebate := 0;
2085: mag_tape_interface('ASSIGNMENT_MESSAGE', nvl(l_asg_message, ' '));
2086: mag_tape_interface('FULL_NAME',NVL(g_full_name,' '));
2087: --
2088: hr_utility.trace('Employee Number='||g_employee_number);
2089: hr_utility.trace('full name='||g_first_name||' '||g_last_name);
2090: -- Fetch values for NI Details record
2091: g_edi_ni_cat_count := 0;
2092: g_edi_emp_ers_rebate := 0;
2093: g_edi_emp_ees_rebate := 0;
2103: g_emp_tot_ee_contrib := 0;
2104: g_emp_tot_ee_er_contrib := 0;
2105: --
2106: IF g_ni_multi_asg_flag = 'Y' THEN
2107: hr_utility.trace('Before get_rollup_ni_cat cursor.');
2108: OPEN get_rollup_ni_cat(g_assignment_action_id);
2109: FETCH get_rollup_ni_cat INTO g_rollup_scon, g_rollup_ni_cat;
2110: IF get_rollup_ni_cat%NOTFOUND THEN
2111: g_rollup_ni_cat := ' ';
2111: g_rollup_ni_cat := ' ';
2112: g_rollup_scon := ' ';
2113: END IF;
2114: CLOSE get_rollup_ni_cat;
2115: hr_utility.trace('After get_rollup_ni_cat cursor, g_rollup_ni_cat='||g_rollup_ni_cat);
2116: --
2117: hr_utility.trace('Before get_lel_rollup_ni_cat cursor.');
2118: OPEN get_lel_rollup_ni_cat(g_assignment_action_id);
2119: FETCH get_lel_rollup_ni_cat INTO g_rollup_lel_ni_cat;
2113: END IF;
2114: CLOSE get_rollup_ni_cat;
2115: hr_utility.trace('After get_rollup_ni_cat cursor, g_rollup_ni_cat='||g_rollup_ni_cat);
2116: --
2117: hr_utility.trace('Before get_lel_rollup_ni_cat cursor.');
2118: OPEN get_lel_rollup_ni_cat(g_assignment_action_id);
2119: FETCH get_lel_rollup_ni_cat INTO g_rollup_lel_ni_cat;
2120: IF get_lel_rollup_ni_cat%NOTFOUND THEN
2121: g_rollup_lel_ni_cat := ' ';
2120: IF get_lel_rollup_ni_cat%NOTFOUND THEN
2121: g_rollup_lel_ni_cat := ' ';
2122: END IF;
2123: CLOSE get_lel_rollup_ni_cat;
2124: hr_utility.trace('After get_lel_rollup_ni_cat cursor, g_rollup_lel_ni_cat='||g_rollup_lel_ni_cat);
2125: --
2126: hr_utility.trace('Before get_only_lel_total cursor.');
2127: OPEN get_only_lel_total(g_assignment_action_id);
2128: FETCH get_only_lel_total INTO g_total_rollup_lel;
2122: END IF;
2123: CLOSE get_lel_rollup_ni_cat;
2124: hr_utility.trace('After get_lel_rollup_ni_cat cursor, g_rollup_lel_ni_cat='||g_rollup_lel_ni_cat);
2125: --
2126: hr_utility.trace('Before get_only_lel_total cursor.');
2127: OPEN get_only_lel_total(g_assignment_action_id);
2128: FETCH get_only_lel_total INTO g_total_rollup_lel;
2129: CLOSE get_only_lel_total;
2130: hr_utility.trace('After get_only_lel_total cursor, g_total_rollup_lel='||g_total_rollup_lel);
2126: hr_utility.trace('Before get_only_lel_total cursor.');
2127: OPEN get_only_lel_total(g_assignment_action_id);
2128: FETCH get_only_lel_total INTO g_total_rollup_lel;
2129: CLOSE get_only_lel_total;
2130: hr_utility.trace('After get_only_lel_total cursor, g_total_rollup_lel='||g_total_rollup_lel);
2131: END IF;
2132: --
2133: hr_utility.trace('Looping through emp_values cursor.');
2134: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2129: CLOSE get_only_lel_total;
2130: hr_utility.trace('After get_only_lel_total cursor, g_total_rollup_lel='||g_total_rollup_lel);
2131: END IF;
2132: --
2133: hr_utility.trace('Looping through emp_values cursor.');
2134: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2135: LOOP
2136: hr_utility.trace('SCON='||emp_values_rec.scon);
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2132: --
2133: hr_utility.trace('Looping through emp_values cursor.');
2134: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2135: LOOP
2136: hr_utility.trace('SCON='||emp_values_rec.scon);
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2133: hr_utility.trace('Looping through emp_values cursor.');
2134: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2135: LOOP
2136: hr_utility.trace('SCON='||emp_values_rec.scon);
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2134: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2135: LOOP
2136: hr_utility.trace('SCON='||emp_values_rec.scon);
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2142: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2135: LOOP
2136: hr_utility.trace('SCON='||emp_values_rec.scon);
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2142: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2143: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2136: hr_utility.trace('SCON='||emp_values_rec.scon);
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2142: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2143: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2144: scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon;
2137: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2142: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2143: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2144: scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon;
2145: category_tab(g_edi_ni_cat_count) := emp_values_rec.cat_code;
2138: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2142: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2143: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2144: scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon;
2145: category_tab(g_edi_ni_cat_count) := emp_values_rec.cat_code;
2146: total_contrib_tab(g_edi_ni_cat_count) := emp_values_rec.tot_cont;
2139: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2140: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2141: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2142: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2143: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2144: scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon;
2145: category_tab(g_edi_ni_cat_count) := emp_values_rec.cat_code;
2146: total_contrib_tab(g_edi_ni_cat_count) := emp_values_rec.tot_cont;
2147: employees_contrib_tab(g_edi_ni_cat_count) := emp_values_rec.emps_cont;
2151: ni_able_auel_tab(g_edi_ni_cat_count) := emp_values_rec.ni_able_auel; ---EOY 07/08
2152: employers_rebate_tab(g_edi_ni_cat_count) := emp_values_rec.employers_rebate;
2153: employees_rebate_tab(g_edi_ni_cat_count) := emp_values_rec.employees_rebate;
2154: --
2155: hr_utility.trace('looping for asg action: '||to_char(g_assignment_action_id));
2156: if (emp_values_rec.cat_code) = 'P' then
2157: null; -- 4752018: NIC Holiday will not be reported on P14 anymore
2158: else
2159: g_tot_contribs := g_tot_contribs + emp_values_rec.tot_cont;
2172: g_emp_tot_ee_contrib := g_emp_tot_ee_contrib
2173: + emp_values_rec.emps_cont;
2174: g_emp_tot_ee_er_contrib := g_emp_tot_ee_er_contrib
2175: + emp_values_rec.tot_cont;
2176: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2177: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2178: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2179: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2180: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2173: + emp_values_rec.emps_cont;
2174: g_emp_tot_ee_er_contrib := g_emp_tot_ee_er_contrib
2175: + emp_values_rec.tot_cont;
2176: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2177: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2178: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2179: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2180: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2181: END IF;
2174: g_emp_tot_ee_er_contrib := g_emp_tot_ee_er_contrib
2175: + emp_values_rec.tot_cont;
2176: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2177: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2178: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2179: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2180: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2181: END IF;
2182: -- Check whther ni figures need to roll into another cat
2175: + emp_values_rec.tot_cont;
2176: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2177: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2178: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2179: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2180: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2181: END IF;
2182: -- Check whther ni figures need to roll into another cat
2183: --EOY 07/08 Begin
2176: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2177: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2178: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2179: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2180: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2181: END IF;
2182: -- Check whther ni figures need to roll into another cat
2183: --EOY 07/08 Begin
2184: /*IF emp_values_rec.ni_able_lel = 0 AND
2191: emp_values_rec.ni_able_auel <> 0 AND
2192: emp_values_rec.tot_cont <> 0 AND
2193: emp_values_rec.cat_code in ('A', 'B', 'D', 'E', 'F', 'G', 'J', 'L', 'S') THEN
2194: --EOY 07/08 End --
2195: hr_utility.trace('Update rollup figures.');
2196: --
2197: g_rollup_tot_contrib := g_rollup_tot_contrib
2198: + emp_values_rec.tot_cont;
2199: g_rollup_emp_contrib := g_rollup_emp_contrib
2198: + emp_values_rec.tot_cont;
2199: g_rollup_emp_contrib := g_rollup_emp_contrib
2200: + emp_values_rec.emps_cont;
2201: --
2202: hr_utility.trace('Rollup TOT_CONT='||g_rollup_tot_contrib);
2203: hr_utility.trace('Rollup EMP_CONT='||g_rollup_emp_contrib);
2204: END IF;
2205: --
2206: -- Check whether this is the NI cat to rollup contrib figures into
2199: g_rollup_emp_contrib := g_rollup_emp_contrib
2200: + emp_values_rec.emps_cont;
2201: --
2202: hr_utility.trace('Rollup TOT_CONT='||g_rollup_tot_contrib);
2203: hr_utility.trace('Rollup EMP_CONT='||g_rollup_emp_contrib);
2204: END IF;
2205: --
2206: -- Check whether this is the NI cat to rollup contrib figures into
2207: IF emp_values_rec.cat_code = g_rollup_ni_cat
2206: -- Check whether this is the NI cat to rollup contrib figures into
2207: IF emp_values_rec.cat_code = g_rollup_ni_cat
2208: AND emp_values_rec.scon = g_rollup_scon THEN
2209: --
2210: hr_utility.trace('TOT_CONT Before rollup='||total_contrib_tab(g_edi_ni_cat_count));
2211: hr_utility.trace('EMP_CONT BEfore rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2212: hr_utility.trace('Roll in figures from other NI Cats.');
2213: total_contrib_tab(g_edi_ni_cat_count) :=
2214: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2207: IF emp_values_rec.cat_code = g_rollup_ni_cat
2208: AND emp_values_rec.scon = g_rollup_scon THEN
2209: --
2210: hr_utility.trace('TOT_CONT Before rollup='||total_contrib_tab(g_edi_ni_cat_count));
2211: hr_utility.trace('EMP_CONT BEfore rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2212: hr_utility.trace('Roll in figures from other NI Cats.');
2213: total_contrib_tab(g_edi_ni_cat_count) :=
2214: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2215: employees_contrib_tab(g_edi_ni_cat_count) :=
2208: AND emp_values_rec.scon = g_rollup_scon THEN
2209: --
2210: hr_utility.trace('TOT_CONT Before rollup='||total_contrib_tab(g_edi_ni_cat_count));
2211: hr_utility.trace('EMP_CONT BEfore rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2212: hr_utility.trace('Roll in figures from other NI Cats.');
2213: total_contrib_tab(g_edi_ni_cat_count) :=
2214: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2215: employees_contrib_tab(g_edi_ni_cat_count) :=
2216: employees_contrib_tab(g_edi_ni_cat_count) + g_rollup_emp_contrib;
2214: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2215: employees_contrib_tab(g_edi_ni_cat_count) :=
2216: employees_contrib_tab(g_edi_ni_cat_count) + g_rollup_emp_contrib;
2217: --
2218: hr_utility.trace('TOT_CONT After rollup='||total_contrib_tab(g_edi_ni_cat_count));
2219: hr_utility.trace('EMP_CONT After rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2220: END IF;
2221: -- Check whether this is the NI Cat to rollup lel into
2222: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2215: employees_contrib_tab(g_edi_ni_cat_count) :=
2216: employees_contrib_tab(g_edi_ni_cat_count) + g_rollup_emp_contrib;
2217: --
2218: hr_utility.trace('TOT_CONT After rollup='||total_contrib_tab(g_edi_ni_cat_count));
2219: hr_utility.trace('EMP_CONT After rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2220: END IF;
2221: -- Check whether this is the NI Cat to rollup lel into
2222: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2223: AND g_total_rollup_lel > 0 THEN
2221: -- Check whether this is the NI Cat to rollup lel into
2222: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2223: AND g_total_rollup_lel > 0 THEN
2224: --
2225: hr_utility.trace('LEL before rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2226: hr_utility.trace('Roll in LEL from other NI Cats.');
2227: ni_able_lel_tab(g_edi_ni_cat_count) :=
2228: ni_able_lel_tab(g_edi_ni_cat_count) + g_total_rollup_lel;
2229: hr_utility.trace('LEL after rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2222: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2223: AND g_total_rollup_lel > 0 THEN
2224: --
2225: hr_utility.trace('LEL before rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2226: hr_utility.trace('Roll in LEL from other NI Cats.');
2227: ni_able_lel_tab(g_edi_ni_cat_count) :=
2228: ni_able_lel_tab(g_edi_ni_cat_count) + g_total_rollup_lel;
2229: hr_utility.trace('LEL after rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2230: END IF;
2225: hr_utility.trace('LEL before rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2226: hr_utility.trace('Roll in LEL from other NI Cats.');
2227: ni_able_lel_tab(g_edi_ni_cat_count) :=
2228: ni_able_lel_tab(g_edi_ni_cat_count) + g_total_rollup_lel;
2229: hr_utility.trace('LEL after rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2230: END IF;
2231: --
2232: END IF; -- g_ni_multi_asg_flag = 'Y'
2233: -- Inreament category count for the employee
2347: l_type2_errors := to_number(pay_mag_tape.internal_prm_values(4));
2348: l_type1_errors := to_number(pay_mag_tape.internal_prm_values(3));
2349: l_char_errors := to_number(pay_mag_tape.internal_prm_values(5));
2350: l_loc_per := to_number(g_tot_rec2)/200; -- Half percent.
2351: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
2352: --
2353: -- Check for type 1 and type 2 errors. Similar to MAG_RECORD5 checks.
2354: --
2355: if l_type1_errors > 0 -- Type 1 errors
2360: or (g_eoy_mode in ('F','F - P14 EDI') and l_char_errors > 0) -- Full Mode with
2361: -- Illegal chars.
2362: then
2363: -- error raised, do not submit reports.
2364: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',602);
2365: NULL;
2366: else
2367: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',605);
2368: -- No errors, so submit the reports.
2363: -- error raised, do not submit reports.
2364: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',602);
2365: NULL;
2366: else
2367: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',605);
2368: -- No errors, so submit the reports.
2369: submit_reports(p_payroll_action_id => g_payroll_action_id,
2370: p_eoy_mode => g_eoy_mode,
2371: p_mar_req_id => l_mar_req_id);
2373: --
2374: -- Write footer to the output report
2375: l_dummy_number := pay_gb_eoy_archive.write_output_footer;
2376: --
2377: hr_utility.trace('P35 Req ID: '||l_p35_req_id);
2378: hr_utility.trace('Writing record type 4');
2379: --
2380: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
2381: p14_edi_init(6);
2374: -- Write footer to the output report
2375: l_dummy_number := pay_gb_eoy_archive.write_output_footer;
2376: --
2377: hr_utility.trace('P35 Req ID: '||l_p35_req_id);
2378: hr_utility.trace('Writing record type 4');
2379: --
2380: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
2381: p14_edi_init(6);
2382: ELSE
2385: mag_tape_interface('EOY_MODE',g_eoy_mode);
2386: mag_tape_interface('TOTAL_RECORDS',g_tot_rec2);
2387: mag_tape_interface('P35_REQUEST_ID',l_p35_req_id);
2388: mag_tape_interface('MAR_REQUEST_ID',l_mar_req_id);
2389: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
2390: IF g_eoy_mode NOT in ('F - P14 EDI', 'P - P14 EDI') THEN
2391: mag_tape_interface('END_OF_DATA','END OF DATA');
2392: END IF;
2393: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
2389: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
2390: IF g_eoy_mode NOT in ('F - P14 EDI', 'P - P14 EDI') THEN
2391: mag_tape_interface('END_OF_DATA','END OF DATA');
2392: END IF;
2393: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
2394: IF header_cur%ISOPEN THEN
2395: CLOSE header_cur;
2396: END IF;
2397: IF emps_cur%ISOPEN THEN
2397: IF emps_cur%ISOPEN THEN
2398: CLOSE emps_cur;
2399: END IF;
2400: END IF;
2401: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',999);
2402: END;
2403: --
2404: --------------------------------------------------------------------------
2405: -- Function: validate_input
2440: p_input_value_temp varchar2(35) ;
2441: --
2442: BEGIN
2443: --
2444: hr_utility.trace('Entering pay_gb_eoy_magetape.validate_input');
2445: hr_utility.trace('p_validate_mode='||p_validate_mode);
2446: hr_utility.trace('p_input_value='||p_input_value);
2447: --
2448: if p_validate_mode = 'FULL_EDI' then
2441: --
2442: BEGIN
2443: --
2444: hr_utility.trace('Entering pay_gb_eoy_magetape.validate_input');
2445: hr_utility.trace('p_validate_mode='||p_validate_mode);
2446: hr_utility.trace('p_input_value='||p_input_value);
2447: --
2448: if p_validate_mode = 'FULL_EDI' then
2449: -- ensure characters exist in the EDI character set
2442: BEGIN
2443: --
2444: hr_utility.trace('Entering pay_gb_eoy_magetape.validate_input');
2445: hr_utility.trace('p_validate_mode='||p_validate_mode);
2446: hr_utility.trace('p_input_value='||p_input_value);
2447: --
2448: if p_validate_mode = 'FULL_EDI' then
2449: -- ensure characters exist in the EDI character set
2450: l_translated_value :=
2452: l_invalid_char||l_char_chk||l_number_chk||l_extended_edi,
2453: l_invalid_char);
2454: --
2455: if l_translated_value is not null then
2456: hr_utility.trace('Invalid chars found: '||l_translated_value);
2457: l_valid := 1; -- Not valid
2458: else
2459: l_valid := 0; -- Valid
2460: end if;
2467: l_invalid_char||l_char_chk||l_number_chk||l_extended_edi||'''',
2468: l_invalid_char);
2469: --
2470: if l_translated_value is not null then
2471: hr_utility.trace('Invalid chars found: '||l_translated_value);
2472: l_valid := 1; -- Not valid
2473: else
2474: l_valid := 0; -- Valid
2475: end if;
2482: l_invalid_char||l_number_chk,
2483: l_invalid_char);
2484: --
2485: if l_translated_value is not null then
2486: hr_utility.trace('Invalid chars found: '||l_translated_value);
2487: l_valid := 1; -- Not valid
2488: else
2489: l_valid := 0; -- Valid
2490: end if;
2502: l_invalid_char||l_number_chk||'.',
2503: l_invalid_char);
2504: --
2505: if l_translated_value is not null then
2506: hr_utility.trace('Invalid chars found: '||l_translated_value);
2507: l_valid := 1; -- Not valid
2508: else
2509: l_valid := 0; -- Valid
2510: end if;
2515: l_translated_value := translate(p_input_value,
2516: l_invalid_char||l_char_chk,
2517: l_invalid_char);
2518: if l_translated_value is not null then
2519: hr_utility.trace('Invalid chars found: '||l_translated_value);
2520: l_valid := 1;
2521: else
2522: l_valid := 0;
2523: end if;
2531: l_invalid_char||l_alpha_numeric,
2532: l_invalid_char);
2533: --
2534: if l_translated_value is not null then
2535: hr_utility.trace('Invalid chars found: '||l_translated_value);
2536: l_valid := 1; -- Not valid
2537: else
2538: l_valid := 0; -- Valid
2539: end if;
2546: l_invalid_char||l_mix_chars||l_number_chk,
2547: l_invalid_char);
2548: --
2549: if l_translated_value is not null then
2550: hr_utility.trace('Invalid chars found: '||l_translated_value);
2551: l_valid := 1; -- Not valid
2552: else
2553: l_valid := 0; -- Valid
2554: end if;
2611: if not substr(p_input_value,1,1) between 'A' and 'Z' then
2612: --
2613: -- First char invalid
2614: --
2615: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2616: l_valid := 1;
2617: else
2618: l_translated_value :=
2619: translate(p_input_value,l_invalid_char||l_all_name_chars,
2618: l_translated_value :=
2619: translate(p_input_value,l_invalid_char||l_all_name_chars,
2620: l_invalid_char);
2621: if l_translated_value is not null then
2622: hr_utility.trace('Invalid chars found: '||l_translated_value);
2623: l_valid := 1;
2624: --
2625: -- Now check for Illegal chars
2626: --
2628: translate(p_input_value,
2629: l_invalid_char||l_all_allowed_chars,
2630: l_invalid_char);
2631: if l_translated_value is not null then
2632: hr_utility.trace('Illegal chars found: '||l_translated_value);
2633: l_valid := 2;
2634: end if;
2635: else
2636: l_valid := 0;
2649: l_translated_value :=
2650: translate(p_input_value,l_invalid_char||l_all_allowed_chars,
2651: l_invalid_char);
2652: if l_translated_value is not null then
2653: hr_utility.trace('Invalid chars found: '||l_translated_value);
2654: l_valid := 1;
2655: else
2656: l_valid := 0;
2657: end if;
2663: if not substr(p_input_value,1,1) between 'A' and 'Z' then
2664: --
2665: -- First char invalid
2666: --
2667: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2668: l_valid := 2;
2669: else
2670: -- ensure characters exist in the EDI character set
2671: -- Surname can additionally contain apostrophe
2673: translate(p_input_value,l_invalid_char||l_char_chk||l_number_chk||l_extended_edi||'''',
2674: l_invalid_char);
2675:
2676: if l_translated_value is not null then
2677: hr_utility.trace('Invalid chars found: '||l_translated_value);
2678: l_valid := 1; -- Not valid
2679: else
2680: l_valid := 0; -- Valid
2681: end if;
2685: l_translated_value := translate(p_input_value,
2686: l_invalid_char||l_mix_chars||l_number_chk||l_paye_ref_chars,
2687: l_invalid_char);
2688: if l_translated_value is not null then
2689: hr_utility.trace('Invalid chars found: '||l_translated_value);
2690: l_valid := 1; -- Not valid
2691: else
2692: l_valid := 0; -- Valid
2693: end if;
2698: l_invalid_char||l_mix_chars||l_number_chk||l_p14_extended_edi,
2699: l_invalid_char);
2700: --
2701: if l_translated_value is not null then
2702: hr_utility.trace('Invalid chars found: '||l_translated_value);
2703: l_valid := 1; -- Not valid
2704: else
2705: l_valid := 0; -- Valid
2706: end if;
2713: or substr(p_input_value,1,1) between 'a' and 'z') then
2714: --
2715: -- First char invalid
2716: --
2717: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2718: l_valid := 2;
2719: else
2720: -- ensure characters exist in the EDI character set
2721: -- Surname can additionally contain apostrophe
2724: l_invalid_char||l_mix_chars||l_number_chk||l_p14_edi_surname,
2725: l_invalid_char);
2726:
2727: if l_translated_value is not null then
2728: hr_utility.trace('Invalid chars found: '||l_translated_value);
2729: l_valid := 1; -- Not valid
2730: else
2731: l_valid := 0; -- Valid
2732: end if;
2740: or substr(p_input_value,1,1) between 'a' and 'z') then
2741: --
2742: -- First char invalid
2743: --
2744: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2745: l_valid := 2;
2746: else
2747: -- ensure characters exist in the EDI character set
2748: -- Surname can additionally contain apostrophe
2751: l_invalid_char||l_mix_chars||l_p14_edi_forename,
2752: l_invalid_char);
2753:
2754: if l_translated_value is not null then
2755: hr_utility.trace('Invalid chars found: '||l_translated_value);
2756: l_valid := 1; -- Not valid
2757: else
2758: l_valid := 0; -- Valid
2759: end if;
2768: or substr(p_input_value,1,1) between '0' and '9') then
2769: --
2770: -- First char invalid
2771: --
2772: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2773: l_valid := 2;
2774: else
2775: -- ensure characters exist in the EDI character set
2776: -- Surname can additionally contain apostrophe
2779: l_invalid_char||l_mix_chars||l_number_chk||l_p14_extended_edi,
2780: l_invalid_char);
2781:
2782: if l_translated_value is not null then
2783: hr_utility.trace('Invalid chars found: '||l_translated_value);
2784: l_valid := 1; -- Not valid
2785: else
2786: l_valid := 0; -- Valid
2787: end if;
2795: l_invalid_char||l_char_chk||l_number_chk||l_p11d_edi||'''',
2796: l_invalid_char);
2797: --
2798: if l_translated_value is not null then
2799: hr_utility.trace('Invalid chars found: '||l_translated_value);
2800: l_valid := 1; -- Not valid
2801: else
2802: l_valid := 0; -- Valid
2803: end if;
2808: not substr(p_input_value,1,1) between 'a' and 'z' ) then
2809: --
2810: -- First char invalid
2811: --
2812: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2813: l_valid := 2;
2814: else
2815: l_translated_value :=
2816: translate(p_input_value,
2817: l_invalid_char||l_mix_chars||l_p45_46_first_name_chk2,
2818: l_invalid_char);
2819:
2820: if l_translated_value is not null then
2821: hr_utility.trace('Invalid chars found: '||l_translated_value);
2822: l_valid := 1; -- Not valid
2823: else
2824: l_valid := 0; -- Valid
2825: end if;
2830: not substr(p_input_value,1,1) between 'a' and 'z' ) then
2831: --
2832: -- First char invalid
2833: --
2834: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2835: l_valid := 2;
2836: else
2837: l_translated_value :=
2838: translate(p_input_value,
2839: l_invalid_char||l_mix_chars||l_p45_46_title_chk,
2840: l_invalid_char);
2841:
2842: if l_translated_value is not null then
2843: hr_utility.trace('Invalid chars found: '||l_translated_value);
2844: l_valid := 1; -- Not valid
2845: else
2846: l_valid := 0; -- Valid
2847: end if;
2855: l_invalid_char||l_mix_chars||l_number_chk||l_p45_46_postcode_chk,
2856: l_invalid_char);
2857: --
2858: if l_translated_value is not null then
2859: hr_utility.trace('Invalid chars found: '||l_translated_value);
2860: l_valid := 1; -- Not valid
2861: else
2862: l_valid := 0; -- Valid
2863: end if;
2867: not substr(p_input_value,1,1) between 'a' and 'z' ) then
2868: --
2869: -- First char invalid
2870: --
2871: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2872: l_valid := 2;
2873: else
2874: l_translated_value :=
2875: translate(p_input_value,
2876: l_invalid_char||l_mix_chars||l_extra_name_chk,
2877: l_invalid_char);
2878:
2879: if l_translated_value is not null then
2880: hr_utility.trace('Invalid chars found: '||l_translated_value);
2881: l_valid := 1; -- Not valid
2882: else
2883: l_valid := 0; -- Valid
2884: end if;
2888: else
2889: --
2890: -- Invalid validate mode used.
2891: --
2892: hr_utility.trace('Invalid validate mode used: '||p_validate_mode);
2893: --
2894: end if;
2895: --
2896: return l_valid;
2910: RETURN VARCHAR2 IS
2911: l_return_value VARCHAR2(250) := NULL;
2912: BEGIN
2913: --
2914: -- hr_utility.trace_on(null, 'RMEOYVTC');
2915: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
2916: hr_utility.trace('p_tax_code = '|| p_tax_code);
2917: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
2918: hr_utility.trace('p_assignment_id = '||p_assignment_id);
2911: l_return_value VARCHAR2(250) := NULL;
2912: BEGIN
2913: --
2914: -- hr_utility.trace_on(null, 'RMEOYVTC');
2915: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
2916: hr_utility.trace('p_tax_code = '|| p_tax_code);
2917: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
2918: hr_utility.trace('p_assignment_id = '||p_assignment_id);
2919: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
2912: BEGIN
2913: --
2914: -- hr_utility.trace_on(null, 'RMEOYVTC');
2915: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
2916: hr_utility.trace('p_tax_code = '|| p_tax_code);
2917: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
2918: hr_utility.trace('p_assignment_id = '||p_assignment_id);
2919: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
2920: p_effective_date => p_effective_date,
2913: --
2914: -- hr_utility.trace_on(null, 'RMEOYVTC');
2915: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
2916: hr_utility.trace('p_tax_code = '|| p_tax_code);
2917: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
2918: hr_utility.trace('p_assignment_id = '||p_assignment_id);
2919: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
2920: p_effective_date => p_effective_date,
2921: p_assignment_id => p_assignment_id);
2914: -- hr_utility.trace_on(null, 'RMEOYVTC');
2915: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
2916: hr_utility.trace('p_tax_code = '|| p_tax_code);
2917: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
2918: hr_utility.trace('p_assignment_id = '||p_assignment_id);
2919: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
2920: p_effective_date => p_effective_date,
2921: p_assignment_id => p_assignment_id);
2922: --
2919: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
2920: p_effective_date => p_effective_date,
2921: p_assignment_id => p_assignment_id);
2922: --
2923: hr_utility.trace('validate_tax_code: l_return_value='||l_return_value);
2924: IF l_return_value IS NULL THEN
2925: l_return_value := ' ';
2926: END IF;
2927: --
2924: IF l_return_value IS NULL THEN
2925: l_return_value := ' ';
2926: END IF;
2927: --
2928: -- hr_utility.trace_off;
2929: RETURN l_return_value;
2930: END validate_tax_code;
2931:
2932: /********** added validate_tax_code_yrfil .... Abhgangu******/
2953: l_return_value := validate_tax_code(p_tax_code => p_tax_code,
2954: p_effective_date => p_effective_date,
2955: p_assignment_id => l_assignment_id);
2956: --
2957: hr_utility.trace('validate_tax_code: l_return_value='||l_return_value);
2958: return l_return_value;
2959: END validate_tax_code_yrfil;
2960:
2961: