[Home] [Help]
698: copies => l_no_of_copies);
699: l_p35_id := fnd_request.submit_request(application => 'PAY',
700: program => 'PAYRPP35',
701: argument1 => p_payroll_action_id);
702: hr_utility.trace('The p35 request ID is '||to_char(l_p35_id));
703: --
704: p_p35_req_id := to_char(l_p35_id);
705: --
706: -- this commit ensures that reconciliation report does run even when
746: copies => l_no_of_copies);
747: l_mar_id := fnd_request.submit_request(application => 'PAY',
748: program => 'PAYYEMAR',
749: argument1 => p_payroll_action_id);
750: hr_utility.trace('The mar request ID is '||to_char(l_mar_id));
751: --
752: --
753: -- Assign Out Params
754: --
968: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
969: /* Reset the record index to start at the third parameter */
970: ELSIF p_no = 3 THEN
971: /* Sub-header */
972: -- hr_utility.trace('record index is '||to_char(g_record_index));
973: pay_mag_tape.internal_prm_values(1) := 7;
974: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
975: ELSIF p_no = 4 THEN
976: /* Permit total */
973: pay_mag_tape.internal_prm_values(1) := 7;
974: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
975: ELSIF p_no = 4 THEN
976: /* Permit total */
977: -- hr_utility.trace('record index is '||to_char(g_record_index));
978: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
979: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
980: ELSIF p_no = 5 THEN
981: /* End of record */
978: pay_mag_tape.internal_prm_values(1) := 21; -- Incremented as P35/P14 EOY 2003/2004
979: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
980: ELSIF p_no = 5 THEN
981: /* End of record */
982: -- hr_utility.trace('record index is '||to_char(g_record_index));
983: pay_mag_tape.internal_prm_values(1) := 12;
984: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
985: ELSIF p_no = 6 THEN
986: /* Dummy record */
1104: l_tax_dist_ref NUMBER :=0; --Bug Fix 9414865
1105: -- 4011263: l_econ_required VARCHAR2(1) := '0';
1106: BEGIN
1107: -- Now start validating the record type 1
1108: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
1109: -- Initialise the record type 1 parameters
1110: hr_utility.trace('Writing record type 1');
1111: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1112: p14_edi_init(1);
1106: BEGIN
1107: -- Now start validating the record type 1
1108: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
1109: -- Initialise the record type 1 parameters
1110: hr_utility.trace('Writing record type 1');
1111: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1112: p14_edi_init(1);
1113: ELSE
1114: mag_tape_init(1);
1113: ELSE
1114: mag_tape_init(1);
1115: END IF;
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1114: mag_tape_init(1);
1115: END IF;
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1115: END IF;
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1116: -- Pass the record fields as paramteres to the mag tape process
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1117: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1118: hr_utility.trace('no params: '||pay_mag_tape.internal_prm_values(1));
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1119: hr_utility.trace('formula id: '||pay_mag_tape.internal_prm_values(2));
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1120: hr_utility.trace('type1 errors: '||pay_mag_tape.internal_prm_values(3));
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1121: hr_utility.trace('type2 errors: '||pay_mag_tape.internal_prm_values(4));
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1122: hr_utility.trace('char errors: '||pay_mag_tape.internal_prm_values(5));
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1130: -- 4011263: hr_utility.trace('econ: '||g_econ);
1123: hr_utility.trace('permit: '||g_new_permit_no);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1130: -- 4011263: hr_utility.trace('econ: '||g_econ);
1131: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
1124: hr_utility.trace('tax distr ref: '||g_tax_district_ref);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1130: -- 4011263: hr_utility.trace('econ: '||g_econ);
1131: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
1132: mag_tape_interface('EOY_MODE',g_eoy_mode);
1125: hr_utility.trace('tax refno: '||g_tax_ref_no);
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1130: -- 4011263: hr_utility.trace('econ: '||g_econ);
1131: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
1132: mag_tape_interface('EOY_MODE',g_eoy_mode);
1133: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,' '));
1126: -- 4011263: hr_utility.trace('tax dist name: '||g_tax_district_name);
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1130: -- 4011263: hr_utility.trace('econ: '||g_econ);
1131: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
1132: mag_tape_interface('EOY_MODE',g_eoy_mode);
1133: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,' '));
1134: --
1127: hr_utility.trace('tax yr: '||g_tax_year);
1128: hr_utility.trace('emp name: '||g_employers_name);
1129: -- 4752018: hr_utility.trace('emp add: '||g_employers_address);
1130: -- 4011263: hr_utility.trace('econ: '||g_econ);
1131: -- 4011263: hr_utility.trace('econ reqd: '||l_econ_required);
1132: mag_tape_interface('EOY_MODE',g_eoy_mode);
1133: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,' '));
1134: --
1135: /* Field must be three numeric characters */
1142: EXCEPTION
1143: WHEN VALUE_ERROR THEN
1144: -- Any non-numeric characters will raise an exception
1145: g_tax_district_ref := ' ';
1146: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
1147: END;
1148: mag_tape_interface('TAX_DISTRICT_REF' ,NVL(g_tax_district_ref,' '));
1149: mag_tape_interface('TAX_REF_NO',nvl(g_tax_ref_no,' '));
1150: --
1206: END create_record_type1;
1207: --
1208: PROCEDURE create_sub_header IS
1209: BEGIN
1210: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',500);
1211: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1212: -- EDI process does not need sub header therefore call dummy formula to skip this step
1213: p14_edi_init(7);
1214: ELSE
1211: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1212: -- EDI process does not need sub header therefore call dummy formula to skip this step
1213: p14_edi_init(7);
1214: ELSE
1215: hr_utility.trace('Writing record type 2 subheader');
1216: mag_tape_init(3);
1217: mag_tape_interface('EOY_MODE',g_eoy_mode);
1218: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
1219: END IF;
1216: mag_tape_init(3);
1217: mag_tape_interface('EOY_MODE',g_eoy_mode);
1218: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
1219: END IF;
1220: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',510);
1221: END;
1222: --
1223: PROCEDURE create_record_type3 IS
1224: --
1228: l_tot_refund VARCHAR2(1) :=NULL; -- Set to 'R' if tax refund
1229: --l_total_nic_rebate NUMBER(11) := 0; --P35/P14 EOY 2003/2004
1230: --
1231: BEGIN
1232: hr_utility.trace('Writing record type 3');
1233: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
1234: p14_edi_init(5);
1235: ELSE
1236: mag_tape_init(4);
1238: mag_tape_interface('EOY_MODE',g_eoy_mode);
1239: mag_tape_interface('PERMIT_NO',g_permit_no); -- For inclusion in Error Messages
1240: mag_tape_interface('TOTAL_CONTRIBUTIONS',NVL(g_tot_contribs,0));
1241: g_tot_contribs := 0;
1242: hr_utility.trace('The tot tax is '||to_char(g_tot_tax));
1243: mag_tape_interface('TOTAL_TAX',NVL(ABS(g_tot_tax),0));
1244: IF SIGN(g_tot_tax) = -1 THEN
1245: -- The tax is a refund so set the refund status
1246: l_tot_refund := 'R';
1246: l_tot_refund := 'R';
1247: ELSE
1248: l_tot_refund := ' ';
1249: END IF;
1250: hr_utility.trace('The tot refund is '||l_tot_refund||'.');
1251: mag_tape_interface('TOTAL_TAX_REFUND',l_tot_refund);
1252: g_tot_tax := 0;
1253: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
1254: -- Now add to the total record 2 count
1252: g_tot_tax := 0;
1253: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
1254: -- Now add to the total record 2 count
1255: g_tot_rec2 := g_tot_rec2 + NVL(g_tot_rec2_per,0);
1256: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));
1257: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));
1258: g_tot_rec2_per := 0;
1259: mag_tape_interface('TOTAL_SSP',NVL(g_tot_ssp_rec,0));
1260: -- Copy across new values to the variables
1253: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
1254: -- Now add to the total record 2 count
1255: g_tot_rec2 := g_tot_rec2 + NVL(g_tot_rec2_per,0);
1256: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));
1257: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));
1258: g_tot_rec2_per := 0;
1259: mag_tape_interface('TOTAL_SSP',NVL(g_tot_ssp_rec,0));
1260: -- Copy across new values to the variables
1261: -- g_tot_ssp_rec := g_ssp_recovery;
1304: /* This is for the extra NI details for an employee */
1305: mag_tape_init(2);
1306: mag_tape_interface('EOY_MODE',g_eoy_mode);
1307: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1308: hr_utility.trace('The employee is '||g_employee_number);
1309: --
1310: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',530);
1311: --
1312: -- Note all name validation performed in formula.
1306: mag_tape_interface('EOY_MODE',g_eoy_mode);
1307: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1308: hr_utility.trace('The employee is '||g_employee_number);
1309: --
1310: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',530);
1311: --
1312: -- Note all name validation performed in formula.
1313: --
1314: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
1346: mag_tape_interface('SPP','0'); --P35/P14 EOY 2003/2004
1347: mag_tape_interface('SAP','0'); --P35/P14 EOY 2003/2004
1348: -- 4011263: mag_tape_interface('GROSS_PAY','0');
1349: mag_tape_interface('TAX_PAID','0');
1350: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',560);
1351: mag_tape_interface('TAX_REFUND',' ');
1352: mag_tape_interface('PREVIOUS_TAXABLE_PAY','0');
1353: --
1354: mag_tape_interface('PREVIOUS_TAX_PAID','0');
1360: END IF;
1361: EXCEPTION
1362: WHEN value_error THEN
1363: g_termination_date := ' ';
1364: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',570);
1365: END;
1366: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
1367: /* Start 4011263
1368: mag_tape_interface('SUPERANNUATION','0');
1380: /* 4011263
1381: mag_tape_interface('PENSIONER_INDICATOR',' ');
1382: mag_tape_interface('DIRECTOR_INDICATOR',' ');
1383: 4011263 */
1384: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1385: --
1386: --
1387: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1388: hr_utility.trace('End is '||to_char(l_no_nis));
1383: 4011263 */
1384: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1385: --
1386: --
1387: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1388: hr_utility.trace('End is '||to_char(l_no_nis));
1389: l_param_index := 2;
1390: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
1391: hr_utility.trace('Index is now '||to_char(l_index));
1384: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',580);
1385: --
1386: --
1387: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1388: hr_utility.trace('End is '||to_char(l_no_nis));
1389: l_param_index := 2;
1390: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
1391: hr_utility.trace('Index is now '||to_char(l_index));
1392: --mag_tape_interface('SCON'||TO_CHAR(l_param_index),scon_tab(l_index)); --EOY 2012/2013
1387: hr_utility.trace('Start is '||to_char(l_tab_index+2));
1388: hr_utility.trace('End is '||to_char(l_no_nis));
1389: l_param_index := 2;
1390: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
1391: hr_utility.trace('Index is now '||to_char(l_index));
1392: --mag_tape_interface('SCON'||TO_CHAR(l_param_index),scon_tab(l_index)); --EOY 2012/2013
1393: mag_tape_interface('NI_CATEGORY_CODE'||
1394: TO_CHAR(l_param_index),category_tab(l_index));
1395: mag_tape_interface('TOTAL_CONTRIBUTIONS'||TO_CHAR(l_param_index)
1404: ni_able_uel_tab(l_index));
1405: -- l_ers_rebate := l_ers_rebate + employers_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1406: -- l_ees_rebate := l_ees_rebate + employees_rebate_tab(l_index); --P35/P14 EOY 2003/2004
1407: l_param_index := l_param_index + 1;
1408: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',590);
1409: END LOOP;
1410: p_mag_form_clear(l_param_index);
1411: -- mag_tape_interface('NI_ERS_REBATE',l_ers_rebate); --P35/P14 EOY 2003/2004
1412: -- mag_tape_interface('NIEES_REBATE',l_ees_rebate); --P35/P14 EOY 2003/2004
1417: --
1418: -- Running count of all employee records
1419: --
1420: g_tot_rec2_per := g_tot_rec2_per + 1;
1421: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',595);
1422: END;
1423: -----------------------------------------------------------------------------
1424: -- PROCEDURE: get_parameters
1425: -- DESCRIPTION: This procedure obtains all parameter values passed into this
1472: -- Default the EOY Mode to 'P'
1473: p_eoy_mode := 'P';
1474: --
1475: BEGIN
1476: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',400);
1477: -- This loop is used to obtain all parameter values. The prerequisite to
1478: -- this functioning correctly is that rows are populated in the
1479: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1480: -- table is not found, the loop exits by means of an exception.
1479: -- pay_mag_tape tables from position 1 onwards. When a row in the names
1480: -- table is not found, the loop exits by means of an exception.
1481: -- Also note that if a corresponding value is missing, the loop will exit.
1482: LOOP
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1481: -- Also note that if a corresponding value is missing, the loop will exit.
1482: LOOP
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1482: LOOP
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1483: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',405);
1484: l_count := l_count + 1;
1485: hr_utility.trace(to_char(l_count));
1486: hr_utility.trace('Name: '||pay_mag_tape.internal_prm_names(l_count));
1487: hr_utility.trace('Value: '||pay_mag_tape.internal_prm_values(l_count));
1488: IF pay_mag_tape.internal_prm_names(l_count) = 'TRANSFER_PAYROLL_ACTION_ID'
1489: THEN
1490: l_payroll_action_id := pay_mag_tape.internal_prm_values(l_count);
1491: -- elsif pay_mag_tape.internal_prm_names(l_count) = 'PERMIT' then
1510: EXCEPTION
1511: WHEN no_data_found THEN
1512: -- Use this exception to exit loop as no. of plsql tab items
1513: -- is not known beforehand. All values should be assigned.
1514: hr_utility.trace('No data Found from plsql table loop');
1515: NULL;
1516: WHEN value_error THEN
1517: hr_utility.trace(to_char(l_count));
1518: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1513: -- is not known beforehand. All values should be assigned.
1514: hr_utility.trace('No data Found from plsql table loop');
1515: NULL;
1516: WHEN value_error THEN
1517: hr_utility.trace(to_char(l_count));
1518: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1519: END;
1520: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1521: p_payroll_action_id := to_number(l_payroll_action_id);
1514: hr_utility.trace('No data Found from plsql table loop');
1515: NULL;
1516: WHEN value_error THEN
1517: hr_utility.trace(to_char(l_count));
1518: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1519: END;
1520: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1521: p_payroll_action_id := to_number(l_payroll_action_id);
1522: --
1516: WHEN value_error THEN
1517: hr_utility.trace(to_char(l_count));
1518: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',413);
1519: END;
1520: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',415);
1521: p_payroll_action_id := to_number(l_payroll_action_id);
1522: --
1523: -- Obtain EOY Mode from the Payroll Action ID.
1524: --
1524: --
1525: OPEN get_action_eoy_mode(p_payroll_action_id);
1526: FETCH get_action_eoy_mode INTO p_eoy_mode;
1527: IF get_action_eoy_mode%notfound THEN
1528: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',419);
1529: RAISE no_data_found; -- means no payroll action exists.
1530: END IF;
1531: CLOSE get_action_eoy_mode;
1532: --
1529: RAISE no_data_found; -- means no payroll action exists.
1530: END IF;
1531: CLOSE get_action_eoy_mode;
1532: --
1533: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',420);
1534: --
1535: -- Added for nocopy
1536: EXCEPTION
1537: WHEN OTHERS THEN
1595: l_mar_req_id VARCHAR2(81) := '-1'; -- Chars, as passed into formula.
1596: l_p35_req_id VARCHAR2(81) := '-1';
1597: --
1598: BEGIN
1599: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',0);
1600: --
1601: -- Start checking for record type 1
1602: --
1603:
1607: fetch C_NI_NEW_TAX_YEAR into l_ni_tax_year;
1608: close C_NI_NEW_TAX_YEAR;
1609:
1610: IF fetch_new_header THEN
1611: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',10);
1612: -- A Record type 1 is required
1613: IF NOT (header_cur%ISOPEN) THEN
1614: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',20);
1615: -- Get all necessary parameters. The payroll action ID
1610: IF fetch_new_header THEN
1611: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',10);
1612: -- A Record type 1 is required
1613: IF NOT (header_cur%ISOPEN) THEN
1614: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',20);
1615: -- Get all necessary parameters. The payroll action ID
1616: -- is validated.
1617: get_parameters(g_permit_no
1618: ,g_eoy_mode
1622: ,g_unique_test_id -- 4011263
1623: ,g_return_type -- 4011263
1624: -- ,g_urgent_marker 4011263
1625: ,g_payroll_action_id);
1626: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
1627: hr_utility.trace('The payroll action ID is '||g_payroll_action_id||'@');
1628: --
1629: g_old_tax_dist_ref := g_tax_dist_ref;
1630: g_old_tax_ref_no := g_tax_ref_no;
1623: ,g_return_type -- 4011263
1624: -- ,g_urgent_marker 4011263
1625: ,g_payroll_action_id);
1626: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
1627: hr_utility.trace('The payroll action ID is '||g_payroll_action_id||'@');
1628: --
1629: g_old_tax_dist_ref := g_tax_dist_ref;
1630: g_old_tax_ref_no := g_tax_ref_no;
1631: --
1631: --
1632: OPEN get_start_end_year(g_payroll_action_id);
1633: FETCH get_start_end_year INTO g_start_year, g_end_year;
1634: CLOSE get_start_end_year;
1635: hr_utility.trace('After get_start_end_year, g_start_year='||
1636: fnd_Date.date_to_displaydate(g_start_year));
1637: hr_utility.trace('g_end_year='||
1638: fnd_Date.date_to_displaydate(g_end_year));
1639: --
1633: FETCH get_start_end_year INTO g_start_year, g_end_year;
1634: CLOSE get_start_end_year;
1635: hr_utility.trace('After get_start_end_year, g_start_year='||
1636: fnd_Date.date_to_displaydate(g_start_year));
1637: hr_utility.trace('g_end_year='||
1638: fnd_Date.date_to_displaydate(g_end_year));
1639: --
1640: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',25);
1641: --
1636: fnd_Date.date_to_displaydate(g_start_year));
1637: hr_utility.trace('g_end_year='||
1638: fnd_Date.date_to_displaydate(g_end_year));
1639: --
1640: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',25);
1641: --
1642: -- Check to see if the Payroll Action just retrieved has any
1643: -- errors. If not, check whether any assignment actions within the payroll
1644: -- action have errored. 1st error msg takes precedence.
1659: -- the DBI call in MAG_RECORD7.
1660: --
1661: l_errored := TRUE;
1662: end if;
1663: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',27);
1664: --
1665: -- First time in so clear the error type counts
1666: --
1667: pay_mag_tape.internal_prm_values(3) := 0;
1671: END IF;
1672: IF NOT(permit_change) THEN
1673: -- Get record from EOY table as next record
1674: -- for record type 1 required
1675: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1676: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1677: hr_utility.trace('1 The global Permit is '||g_permit_no);
1678: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1679: --
1672: IF NOT(permit_change) THEN
1673: -- Get record from EOY table as next record
1674: -- for record type 1 required
1675: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1676: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1677: hr_utility.trace('1 The global Permit is '||g_permit_no);
1678: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1679: --
1680: IF l_errored THEN
1673: -- Get record from EOY table as next record
1674: -- for record type 1 required
1675: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1676: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1677: hr_utility.trace('1 The global Permit is '||g_permit_no);
1678: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1679: --
1680: IF l_errored THEN
1681: -- Either the Payroll Action or an Assignment Action has Errored.
1674: -- for record type 1 required
1675: hr_utility.trace('1 The global tax dist is '||g_old_tax_dist_ref);
1676: hr_utility.trace('1 The global tax ref is '||g_old_tax_ref_no);
1677: hr_utility.trace('1 The global Permit is '||g_permit_no);
1678: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1679: --
1680: IF l_errored THEN
1681: -- Either the Payroll Action or an Assignment Action has Errored.
1682: hr_utility.trace('Errored Payroll Action: '||g_payroll_action_id);
1678: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
1679: --
1680: IF l_errored THEN
1681: -- Either the Payroll Action or an Assignment Action has Errored.
1682: hr_utility.trace('Errored Payroll Action: '||g_payroll_action_id);
1683: -- Call formula to error payroll.
1684: mag_tape_init(7);
1685: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1686: hr_utility.trace('after mag tape interface calls');
1682: hr_utility.trace('Errored Payroll Action: '||g_payroll_action_id);
1683: -- Call formula to error payroll.
1684: mag_tape_init(7);
1685: mag_tape_interface('L_PAYROLL_ACTION_ID',to_char(g_payroll_action_id));
1686: hr_utility.trace('after mag tape interface calls');
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1687: pay_mag_tape.internal_cxt_names(1) := 'NUMBER_OF_CONTEXT';
1688: pay_mag_tape.internal_cxt_values(1) := '2';
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1692: ELSE
1693: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1694: -- No errors so fetch header info.
1695: FETCH header_cur INTO g_new_permit_no
1689: pay_mag_tape.internal_cxt_names(2) := 'PAYROLL_ACTION_ID';
1690: pay_mag_tape.internal_cxt_values(2) := to_char(g_payroll_action_id);
1691: hr_utility.trace('after cxt calls: '||pay_mag_tape.internal_cxt_values(2));
1692: ELSE
1693: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',28);
1694: -- No errors so fetch header info.
1695: FETCH header_cur INTO g_new_permit_no
1696: ,g_new_payroll_id
1697: ,g_tax_district_ref
1720: End 4011263 */
1721: --
1722: IF header_cur%NOTFOUND THEN
1723: -- No more records found so end of run
1724: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',30);
1725: IF g_tot_rec2_per > 0 THEN
1726: -- If at least one record has been found then create
1727: -- a permit total
1728: create_record_type3;
1744: OR g_new_permit_no <> NVL(g_permit_no,g_new_permit_no)) THEN
1745: --
1746: -- The permit has changed so construct the record type 3
1747: --
1748: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1749: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1750: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1751: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1752: create_record_type3;
1745: --
1746: -- The permit has changed so construct the record type 3
1747: --
1748: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1749: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1750: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1751: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1752: create_record_type3;
1753: -- Save required values in globals
1746: -- The permit has changed so construct the record type 3
1747: --
1748: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1749: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1750: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1751: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1752: create_record_type3;
1753: -- Save required values in globals
1754: g_old_tax_dist_ref := g_tax_district_ref;
1747: --
1748: hr_utility.trace('2 Fetched tax dist is '||g_tax_district_ref);
1749: hr_utility.trace('2 Fetched tax ref is '||g_tax_ref_no);
1750: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
1751: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
1752: create_record_type3;
1753: -- Save required values in globals
1754: g_old_tax_dist_ref := g_tax_district_ref;
1755: g_old_tax_ref_no := g_tax_ref_no;
1758: permit_change := TRUE;
1759: -- Close the type 2 cursor so it will be re-opened with
1760: -- the new parameters
1761: CLOSE emps_cur;
1762: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',40);
1763: ELSE
1764: -- No permit change so add new smp and smp values to totals
1765: /* Start 4011263
1766: g_tot_ssp_rec := g_tot_ssp_rec + g_ssp_recovery;
1770: g_tot_spp_comp := g_tot_spp_comp + g_spp_compensation;--P35/P14 EOY 2003/2004
1771: g_tot_sap_rec := g_tot_sap_rec + g_sap_recovery; --P35/P14 EOY 2003/2004
1772: g_tot_sap_comp := g_tot_sap_comp + g_sap_compensation;--P35/P14 EOY 2003/2004
1773: End 4011263 */
1774: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1775: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1776: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1777: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1778: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1771: g_tot_sap_rec := g_tot_sap_rec + g_sap_recovery; --P35/P14 EOY 2003/2004
1772: g_tot_sap_comp := g_tot_sap_comp + g_sap_compensation;--P35/P14 EOY 2003/2004
1773: End 4011263 */
1774: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1775: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1776: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1777: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1778: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1779: -- The payroll_id has changed in permit_no
1772: g_tot_sap_comp := g_tot_sap_comp + g_sap_compensation;--P35/P14 EOY 2003/2004
1773: End 4011263 */
1774: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1775: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1776: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1777: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1778: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1779: -- The payroll_id has changed in permit_no
1780: g_payroll_id := g_new_payroll_id;
1773: End 4011263 */
1774: hr_utility.trace('3 Fetched tax dist is '||g_tax_district_ref);
1775: hr_utility.trace('3 Fetched tax ref is '||g_tax_ref_no);
1776: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
1777: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
1778: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
1779: -- The payroll_id has changed in permit_no
1780: g_payroll_id := g_new_payroll_id;
1781: -- Write the sub_header and then get the employee details
1795: edi_process_emp_header := FALSE;
1796: edi_process_ni_details := FALSE;
1797: edi_process_emp_trailer := FALSE;
1798: END IF;
1799: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1800: ELSE
1801: hr_utility.trace('No payroll or permit change ');
1802: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1803: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1797: edi_process_emp_trailer := FALSE;
1798: END IF;
1799: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1800: ELSE
1801: hr_utility.trace('No payroll or permit change ');
1802: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1803: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1804: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1805: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1798: END IF;
1799: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1800: ELSE
1801: hr_utility.trace('No payroll or permit change ');
1802: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1803: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1804: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1805: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1806: -- Save required values in globals
1799: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',45);
1800: ELSE
1801: hr_utility.trace('No payroll or permit change ');
1802: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1803: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1804: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1805: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1806: -- Save required values in globals
1807: g_old_tax_dist_ref := g_tax_district_ref;
1800: ELSE
1801: hr_utility.trace('No payroll or permit change ');
1802: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1803: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1804: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1805: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1806: -- Save required values in globals
1807: g_old_tax_dist_ref := g_tax_district_ref;
1808: g_old_tax_ref_no := g_tax_ref_no;
1801: hr_utility.trace('No payroll or permit change ');
1802: hr_utility.trace('4 Fetched tax dist is '||g_tax_district_ref);
1803: hr_utility.trace('4 Fetched tax ref is '||g_tax_ref_no);
1804: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
1805: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
1806: -- Save required values in globals
1807: g_old_tax_dist_ref := g_tax_district_ref;
1808: g_old_tax_ref_no := g_tax_ref_no;
1809: g_permit_no := g_new_permit_no;
1810: g_payroll_id := g_new_payroll_id;
1811: create_record_type1;
1812: fetch_new_header := FALSE;
1813: sub_header := TRUE;
1814: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',50);
1815: END IF;
1816: END IF;
1817: END IF; -- End of Errored payroll check.
1818: ELSE
1832: -- g_tot_spp_comp := g_spp_compensation; --P35/P14 EOY 2003/2004
1833: -- g_tot_sap_comp := g_sap_compensation; --P35/P14 EOY 2003/2004
1834: /* End 4011263 */
1835:
1836: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',60);
1837: END IF;
1838: --
1839: -- Check if sub-header required
1840: --
1839: -- Check if sub-header required
1840: --
1841: ELSIF sub_header THEN
1842: create_sub_header;
1843: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',70);
1844: sub_header := FALSE;
1845: IF g_eoy_mode IN ( 'F - P14 EDI', 'P - P14 EDI') THEN
1846: process_emps := FALSE;
1847: edi_process_emp_header := TRUE;
1859: --
1860: ELSIF process_dummy THEN
1861: -- A special record type 2
1862: -- More than 4 more NI categories exist for the employee
1863: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',700);
1864: IF g_ni_total - g_last_ni > 4 THEN
1865: p_create_dummy(g_last_ni,4);
1866: g_last_ni := g_last_ni + 4;
1867: ELSE
1877: -- Check for processing record type 2
1878: --
1879: ELSIF process_emps THEN
1880: -- Record type 2 required
1881: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1882: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1883: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1884: hr_utility.trace('The emp permit_no is '||g_permit_no);
1885: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1878: --
1879: ELSIF process_emps THEN
1880: -- Record type 2 required
1881: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1882: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1883: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1884: hr_utility.trace('The emp permit_no is '||g_permit_no);
1885: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1886: IF NOT (emps_cur%ISOPEN) THEN
1879: ELSIF process_emps THEN
1880: -- Record type 2 required
1881: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1882: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1883: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1884: hr_utility.trace('The emp permit_no is '||g_permit_no);
1885: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1886: IF NOT (emps_cur%ISOPEN) THEN
1887: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1880: -- Record type 2 required
1881: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1882: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1883: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1884: hr_utility.trace('The emp permit_no is '||g_permit_no);
1885: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1886: IF NOT (emps_cur%ISOPEN) THEN
1887: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1888: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1881: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
1882: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
1883: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1884: hr_utility.trace('The emp permit_no is '||g_permit_no);
1885: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1886: IF NOT (emps_cur%ISOPEN) THEN
1887: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1888: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1889: END IF;
1883: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
1884: hr_utility.trace('The emp permit_no is '||g_permit_no);
1885: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
1886: IF NOT (emps_cur%ISOPEN) THEN
1887: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
1888: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
1889: END IF;
1890: FETCH emps_cur INTO g_employee_number
1891: ,g_assignment_action_id
1941: --
1942: -- End of record type 2
1943: --
1944: -- Set escape from this section
1945: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',130);
1946: /* Each call of this package must return 1 record even */
1947: /* if its only a dummy formula call to do so */
1948: mag_tape_init(6);
1949: fetch_new_header:= TRUE;
1987: ni_able_auel_tab(l_index) := emp_values_rec.ni_able_auel; --- EOY 07/08
1988: employers_rebate_tab(l_index) := emp_values_rec.employers_rebate;
1989: employees_rebate_tab(l_index) := emp_values_rec.employees_rebate;
1990: --
1991: hr_utility.trace('looping for asg action: '||to_char(g_assignment_action_id));
1992: if (emp_values_rec.cat_code) = 'P' then
1993: null; -- 4752018: NIC Holiday will not be reported on P14 anymore
1994: else
1995: g_tot_contribs := g_tot_contribs + emp_values_rec.tot_cont;
1995: g_tot_contribs := g_tot_contribs + emp_values_rec.tot_cont;
1996: end if; -- IF NI CODE = 'P'
1997: l_index := l_index + 1;
1998: END LOOP;
1999: hr_utility.trace('Fetched emp_values, now get NI for all CAT codes');
2000: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
2001: /* Keep the total number of NI category codes for the employee */
2002: /* If > 5 then raise warning in the mag tape log file */
2003: g_ni_total := l_index - 1;
1996: end if; -- IF NI CODE = 'P'
1997: l_index := l_index + 1;
1998: END LOOP;
1999: hr_utility.trace('Fetched emp_values, now get NI for all CAT codes');
2000: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
2001: /* Keep the total number of NI category codes for the employee */
2002: /* If > 5 then raise warning in the mag tape log file */
2003: g_ni_total := l_index - 1;
2004: IF l_index < 5 THEN
2016: ni_able_auel_tab(l_plsql_index) := 0; -- EOY 07/08
2017: employers_rebate_tab(l_plsql_index) := 0;
2018: employees_rebate_tab(l_plsql_index) := 0;
2019: END LOOP;
2020: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',150);
2021: END IF;
2022: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
2023: /* Create a type 2 record */
2024: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
2018: employees_rebate_tab(l_plsql_index) := 0;
2019: END LOOP;
2020: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',150);
2021: END IF;
2022: hr_utility.trace('Total NI Cats index: '||to_char(l_index));
2023: /* Create a type 2 record */
2024: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
2025: -- g_previous_tax_paid + nvl(g_superannuation_paid,0) + g_widows_and_orphans +
2026: -- g_student_loans + g_taxable_pay ,0) > 0 THEN
2024: -- IF nvl(g_ssp + g_smp + g_gross_pay + g_tax_paid + g_previous_taxable_pay +
2025: -- g_previous_tax_paid + nvl(g_superannuation_paid,0) + g_widows_and_orphans +
2026: -- g_student_loans + g_taxable_pay ,0) > 0 THEN
2027: /* Set up the no of parameters and the formula professor */
2028: hr_utility.trace('Writing record type 2');
2029: mag_tape_init(2);
2030: /* Now create a record type 2 */
2031: mag_tape_interface('EOY_MODE',g_eoy_mode);
2032: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
2029: mag_tape_init(2);
2030: /* Now create a record type 2 */
2031: mag_tape_interface('EOY_MODE',g_eoy_mode);
2032: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
2033: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',250);
2034: --
2035: -- Note name validation performed in formula.
2036: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2037: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2034: --
2035: -- Note name validation performed in formula.
2036: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2037: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2038: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',275);
2039: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
2040: mag_tape_interface('DATE_OF_BIRTH',g_date_of_birth);
2041: mag_tape_interface('GENDER',g_sex);
2042: /* 4011263
2080: mag_tape_interface('SAP',g_sap); --P35/P14 EOY 2003/2004
2081: -- 4011263: mag_tape_interface('GROSS_PAY',g_gross_pay);
2082: mag_tape_interface('TAX_PAID',ABS(g_tax_paid));
2083: g_tot_tax := g_tot_tax + g_tax_paid;
2084: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',280);
2085: --
2086: -- Tax Refund must be 'R' or blank. Formula validates this.
2087: --
2088: mag_tape_interface('TAX_REFUND',nvl(g_tax_refund,' '));
2099: END IF;
2100: EXCEPTION
2101: WHEN value_error THEN
2102: g_termination_date := ' ';
2103: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',300);
2104: END;
2105: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
2106: /* 4011263: Remove superannuation from EOY
2107: --added nvl for bug fix 3614251
2128: /* 4011263
2129: mag_tape_interface('PENSIONER_INDICATOR', nvl(g_pension_indicator,' '));
2130: mag_tape_interface('DIRECTOR_INDICATOR', nvl(g_director_indicator,' '));
2131: 4011263 */
2132: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',350);
2133: --
2134: -- Now send up to 3 of the remaining contribution records to mag tape
2135: -- If they do not exist they have been defaulted
2136: --
2149: mag_tape_interface('NI_ABLE_UEL'||
2150: TO_CHAR(l_index), ni_able_uel_tab(l_index));
2151: -- l_ers_rebate := l_ers_rebate + employers_rebate_tab(l_index); --P35/P14 EOY 2003/2004
2152: -- l_ees_rebate := l_ees_rebate + employees_rebate_tab(l_index); --P35/P14 EOY 2003/2004
2153: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',360);
2154: END LOOP;
2155: --mag_tape_interface('NI_ERS_REBATE', l_ers_rebate); --P35/P14 EOY 2003/2004
2156: --mag_tape_interface('NIEES_REBATE', l_ees_rebate); --P35/P14 EOY 2003/2004
2157: mag_tape_interface('ASSIGNMENT_MESSAGE', l_asg_message);
2163: --
2164: g_tot_rec2_per := g_tot_rec2_per + 1;
2165: -- Now check the number of NI categories found for this employee
2166: IF g_ni_total > 4 THEN
2167: hr_utility.trace('The employee is '||g_employee_number);
2168: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',365);
2169: -- More than four so set flags for creation of dummy record
2170: process_emps := FALSE;
2171: process_dummy := TRUE;
2164: g_tot_rec2_per := g_tot_rec2_per + 1;
2165: -- Now check the number of NI categories found for this employee
2166: IF g_ni_total > 4 THEN
2167: hr_utility.trace('The employee is '||g_employee_number);
2168: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',365);
2169: -- More than four so set flags for creation of dummy record
2170: process_emps := FALSE;
2171: process_dummy := TRUE;
2172: -- Index in PL/SQL tables set to the last record selected
2171: process_dummy := TRUE;
2172: -- Index in PL/SQL tables set to the last record selected
2173: g_last_ni := 4;
2174: END IF;
2175: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',370);
2176: --
2177: END IF; /* End of create type 2 record */
2178: --
2179: -- If EOY mode is P14 EDI then write employee header and NI Details and employee
2179: -- If EOY mode is P14 EDI then write employee header and NI Details and employee
2180: -- trailer records instead of above Mag Tape type 2 record.
2181: ELSIF edi_process_emp_header THEN
2182: -- Need to process employee header record for EDI Process
2183: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
2184: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
2185: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
2186: hr_utility.trace('The emp permit_no is '||g_permit_no);
2187: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
2180: -- trailer records instead of above Mag Tape type 2 record.
2181: ELSIF edi_process_emp_header THEN
2182: -- Need to process employee header record for EDI Process
2183: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
2184: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
2185: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
2186: hr_utility.trace('The emp permit_no is '||g_permit_no);
2187: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
2188: --
2181: ELSIF edi_process_emp_header THEN
2182: -- Need to process employee header record for EDI Process
2183: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
2184: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
2185: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
2186: hr_utility.trace('The emp permit_no is '||g_permit_no);
2187: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
2188: --
2189: IF NOT (emps_cur%ISOPEN) THEN
2182: -- Need to process employee header record for EDI Process
2183: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
2184: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
2185: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
2186: hr_utility.trace('The emp permit_no is '||g_permit_no);
2187: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
2188: --
2189: IF NOT (emps_cur%ISOPEN) THEN
2190: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
2183: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',100);
2184: hr_utility.trace('The emp tax dist is '||g_tax_district_ref);
2185: hr_utility.trace('The emp tax ref is '||g_tax_ref_no);
2186: hr_utility.trace('The emp permit_no is '||g_permit_no);
2187: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
2188: --
2189: IF NOT (emps_cur%ISOPEN) THEN
2190: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
2191: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
2186: hr_utility.trace('The emp permit_no is '||g_permit_no);
2187: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
2188: --
2189: IF NOT (emps_cur%ISOPEN) THEN
2190: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',110);
2191: OPEN emps_cur(g_payroll_id, g_payroll_action_id);
2192: END IF;
2193: --
2194: FETCH emps_cur INTO g_employee_number
2241: --
2242: IF emps_cur%NOTFOUND THEN
2243: -- End of employee details for EDI process
2244: -- Set escape from this section
2245: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',130);
2246: -- Each call of this package must return 1 record even
2247: -- if its only a dummy formula call to do so
2248: mag_tape_init(6);
2249: fetch_new_header:= TRUE;
2254: -- Update grand totals
2255: g_tot_tax := g_tot_tax + g_tax_paid;
2256: g_tot_student_ln := g_tot_student_ln + g_student_loans;
2257: -- Set up the no of parameters and the formula professor
2258: hr_utility.trace('Writing employee header');
2259: p14_edi_init(2);
2260: -- Now create employee header
2261: mag_tape_interface('EOY_MODE',g_eoy_mode);
2262: mag_tape_interface('EMPLOYEE_COUNT', nvl(g_tot_rec2_per,0));
2260: -- Now create employee header
2261: mag_tape_interface('EOY_MODE',g_eoy_mode);
2262: mag_tape_interface('EMPLOYEE_COUNT', nvl(g_tot_rec2_per,0));
2263: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
2264: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',250);
2265: --
2266: -- Note name validation performed in formula.
2267: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2268: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2267: mag_tape_interface('LAST_NAME',NVL(g_last_name,' '));
2268: mag_tape_interface('FIRST_NAME',NVL(g_first_name,' '));
2269: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
2270: --4011263: mag_tape_interface('TITLE',NVL(g_title,' '));
2271: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',275);
2272: mag_tape_interface('GENDER',g_sex);
2273: /* 4011263
2274: -- Order Address lines to push nulls to end, using g_full_address as
2275: -- a temporary variable.
2295: 4011263 */
2296: mag_tape_interface('ASSIGNMENT_MESSAGE', nvl(l_asg_message, ' '));
2297: mag_tape_interface('FULL_NAME',NVL(g_full_name,' '));
2298: --
2299: hr_utility.trace('Employee Number='||g_employee_number);
2300: hr_utility.trace('full name='||g_first_name||' '||g_last_name);
2301: -- Fetch values for NI Details record
2302: g_edi_ni_cat_count := 0;
2303: g_edi_emp_ers_rebate := 0;
2296: mag_tape_interface('ASSIGNMENT_MESSAGE', nvl(l_asg_message, ' '));
2297: mag_tape_interface('FULL_NAME',NVL(g_full_name,' '));
2298: --
2299: hr_utility.trace('Employee Number='||g_employee_number);
2300: hr_utility.trace('full name='||g_first_name||' '||g_last_name);
2301: -- Fetch values for NI Details record
2302: g_edi_ni_cat_count := 0;
2303: g_edi_emp_ers_rebate := 0;
2304: g_edi_emp_ees_rebate := 0;
2321: inside PAY_GB_EDI_P14_NI_DETAILS should not be skipped, and
2322: hence g_ni_multi_asg_flag is set to 'N'.
2323: */
2324: if (g_ni_multi_asg_flag = 'Y') then
2325: hr_utility.trace('Inside g_ni_multi_asg_flag:'||g_ni_multi_asg_flag);
2326: hr_utility.trace('...g_assignment_id:'||g_assignment_id);
2327: hr_utility.trace('...g_start_year:'||g_start_year);
2328: hr_utility.trace('...g_end_year:'||g_end_year);
2329: hr_utility.trace('...g_tax_district_ref:'||g_tax_district_ref);
2322: hence g_ni_multi_asg_flag is set to 'N'.
2323: */
2324: if (g_ni_multi_asg_flag = 'Y') then
2325: hr_utility.trace('Inside g_ni_multi_asg_flag:'||g_ni_multi_asg_flag);
2326: hr_utility.trace('...g_assignment_id:'||g_assignment_id);
2327: hr_utility.trace('...g_start_year:'||g_start_year);
2328: hr_utility.trace('...g_end_year:'||g_end_year);
2329: hr_utility.trace('...g_tax_district_ref:'||g_tax_district_ref);
2330: hr_utility.trace('...g_tax_ref_no:'||g_tax_ref_no);
2323: */
2324: if (g_ni_multi_asg_flag = 'Y') then
2325: hr_utility.trace('Inside g_ni_multi_asg_flag:'||g_ni_multi_asg_flag);
2326: hr_utility.trace('...g_assignment_id:'||g_assignment_id);
2327: hr_utility.trace('...g_start_year:'||g_start_year);
2328: hr_utility.trace('...g_end_year:'||g_end_year);
2329: hr_utility.trace('...g_tax_district_ref:'||g_tax_district_ref);
2330: hr_utility.trace('...g_tax_ref_no:'||g_tax_ref_no);
2331: if (get_assign_count(g_assignment_id,
2324: if (g_ni_multi_asg_flag = 'Y') then
2325: hr_utility.trace('Inside g_ni_multi_asg_flag:'||g_ni_multi_asg_flag);
2326: hr_utility.trace('...g_assignment_id:'||g_assignment_id);
2327: hr_utility.trace('...g_start_year:'||g_start_year);
2328: hr_utility.trace('...g_end_year:'||g_end_year);
2329: hr_utility.trace('...g_tax_district_ref:'||g_tax_district_ref);
2330: hr_utility.trace('...g_tax_ref_no:'||g_tax_ref_no);
2331: if (get_assign_count(g_assignment_id,
2332: g_start_year,
2325: hr_utility.trace('Inside g_ni_multi_asg_flag:'||g_ni_multi_asg_flag);
2326: hr_utility.trace('...g_assignment_id:'||g_assignment_id);
2327: hr_utility.trace('...g_start_year:'||g_start_year);
2328: hr_utility.trace('...g_end_year:'||g_end_year);
2329: hr_utility.trace('...g_tax_district_ref:'||g_tax_district_ref);
2330: hr_utility.trace('...g_tax_ref_no:'||g_tax_ref_no);
2331: if (get_assign_count(g_assignment_id,
2332: g_start_year,
2333: g_end_year ,
2326: hr_utility.trace('...g_assignment_id:'||g_assignment_id);
2327: hr_utility.trace('...g_start_year:'||g_start_year);
2328: hr_utility.trace('...g_end_year:'||g_end_year);
2329: hr_utility.trace('...g_tax_district_ref:'||g_tax_district_ref);
2330: hr_utility.trace('...g_tax_ref_no:'||g_tax_ref_no);
2331: if (get_assign_count(g_assignment_id,
2332: g_start_year,
2333: g_end_year ,
2334: g_tax_district_ref ,
2338: end if;
2339: /* 8833756 - End of identify agg assignments */
2340: /* EOY 2012/2013 changes */
2341: IF g_ni_multi_asg_flag = 'Y' THEN
2342: hr_utility.trace('Before get_rollup_ni_cat cursor.');
2343: OPEN get_rollup_ni_cat(g_assignment_action_id);
2344: FETCH get_rollup_ni_cat INTO /*g_rollup_scon,*/ g_rollup_ni_cat;
2345: IF get_rollup_ni_cat%NOTFOUND THEN
2346: g_rollup_ni_cat := ' ';
2346: g_rollup_ni_cat := ' ';
2347: --g_rollup_scon := ' ';
2348: END IF;
2349: CLOSE get_rollup_ni_cat;
2350: hr_utility.trace('After get_rollup_ni_cat cursor, g_rollup_ni_cat='||g_rollup_ni_cat);
2351: --
2352: hr_utility.trace('Before get_lel_rollup_ni_cat cursor.');
2353: OPEN get_lel_rollup_ni_cat(g_assignment_action_id);
2354: FETCH get_lel_rollup_ni_cat INTO g_rollup_lel_ni_cat;
2348: END IF;
2349: CLOSE get_rollup_ni_cat;
2350: hr_utility.trace('After get_rollup_ni_cat cursor, g_rollup_ni_cat='||g_rollup_ni_cat);
2351: --
2352: hr_utility.trace('Before get_lel_rollup_ni_cat cursor.');
2353: OPEN get_lel_rollup_ni_cat(g_assignment_action_id);
2354: FETCH get_lel_rollup_ni_cat INTO g_rollup_lel_ni_cat;
2355: IF get_lel_rollup_ni_cat%NOTFOUND THEN
2356: g_rollup_lel_ni_cat := ' ';
2355: IF get_lel_rollup_ni_cat%NOTFOUND THEN
2356: g_rollup_lel_ni_cat := ' ';
2357: END IF;
2358: CLOSE get_lel_rollup_ni_cat;
2359: hr_utility.trace('After get_lel_rollup_ni_cat cursor, g_rollup_lel_ni_cat='||g_rollup_lel_ni_cat);
2360: --
2361: hr_utility.trace('Before get_only_lel_total cursor.');
2362: OPEN get_only_lel_total(g_assignment_action_id);
2363: FETCH get_only_lel_total INTO g_total_rollup_lel;
2357: END IF;
2358: CLOSE get_lel_rollup_ni_cat;
2359: hr_utility.trace('After get_lel_rollup_ni_cat cursor, g_rollup_lel_ni_cat='||g_rollup_lel_ni_cat);
2360: --
2361: hr_utility.trace('Before get_only_lel_total cursor.');
2362: OPEN get_only_lel_total(g_assignment_action_id);
2363: FETCH get_only_lel_total INTO g_total_rollup_lel;
2364: CLOSE get_only_lel_total;
2365: -- For bug#7043405 begin
2364: CLOSE get_only_lel_total;
2365: -- For bug#7043405 begin
2366: IF g_total_rollup_lel = 0 AND g_rollup_lel_ni_cat IS NOT NULL THEN
2367: g_rollup_lel_ni_cat := NULL;
2368: hr_utility.trace('setting g_rollup_lel_ni_cat to NULL as g_total_rollup_lel is 0. ');
2369: END IF;
2370: -- For bug#7043405 end
2371: hr_utility.trace('After get_only_lel_total cursor, g_total_rollup_lel='||g_total_rollup_lel);
2372: END IF;
2367: g_rollup_lel_ni_cat := NULL;
2368: hr_utility.trace('setting g_rollup_lel_ni_cat to NULL as g_total_rollup_lel is 0. ');
2369: END IF;
2370: -- For bug#7043405 end
2371: hr_utility.trace('After get_only_lel_total cursor, g_total_rollup_lel='||g_total_rollup_lel);
2372: END IF;
2373: --
2374: hr_utility.trace('Looping through emp_values cursor.');
2375: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2370: -- For bug#7043405 end
2371: hr_utility.trace('After get_only_lel_total cursor, g_total_rollup_lel='||g_total_rollup_lel);
2372: END IF;
2373: --
2374: hr_utility.trace('Looping through emp_values cursor.');
2375: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2376: LOOP
2377: -- hr_utility.trace('SCON='||emp_values_rec.scon); --EOY 2012/2013
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2373: --
2374: hr_utility.trace('Looping through emp_values cursor.');
2375: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2376: LOOP
2377: -- hr_utility.trace('SCON='||emp_values_rec.scon); --EOY 2012/2013
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2374: hr_utility.trace('Looping through emp_values cursor.');
2375: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2376: LOOP
2377: -- hr_utility.trace('SCON='||emp_values_rec.scon); --EOY 2012/2013
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2375: FOR emp_values_rec IN emp_values(g_assignment_action_id)
2376: LOOP
2377: -- hr_utility.trace('SCON='||emp_values_rec.scon); --EOY 2012/2013
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2376: LOOP
2377: -- hr_utility.trace('SCON='||emp_values_rec.scon); --EOY 2012/2013
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2384: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2377: -- hr_utility.trace('SCON='||emp_values_rec.scon); --EOY 2012/2013
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2384: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2385: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2378: hr_utility.trace('CATE_CODE='||emp_values_rec.cat_code);
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2384: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2385: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2386: --scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon; --EOY 2012/2013
2379: hr_utility.trace('LEL='||emp_values_rec.ni_able_lel);
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2384: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2385: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2386: --scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon; --EOY 2012/2013
2387: category_tab(g_edi_ni_cat_count) := emp_values_rec.cat_code;
2380: hr_utility.trace('ET='||emp_values_rec.ni_able_et);
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2384: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2385: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2386: --scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon; --EOY 2012/2013
2387: category_tab(g_edi_ni_cat_count) := emp_values_rec.cat_code;
2388: total_contrib_tab(g_edi_ni_cat_count) := emp_values_rec.tot_cont;
2381: hr_utility.trace('UEL='||emp_values_rec.ni_able_uel);
2382: hr_utility.trace('UAP='||emp_values_rec.ni_able_uap); -- 8357870
2383: hr_utility.trace('AUEL='||emp_values_rec.ni_able_auel); -- EOY 07/08
2384: hr_utility.trace('TOT_CONT='||emp_values_rec.tot_cont);
2385: hr_utility.trace('EMPS_CONT='||emp_values_rec.emps_cont);
2386: --scon_tab(g_edi_ni_cat_count) := emp_values_rec.scon; --EOY 2012/2013
2387: category_tab(g_edi_ni_cat_count) := emp_values_rec.cat_code;
2388: total_contrib_tab(g_edi_ni_cat_count) := emp_values_rec.tot_cont;
2389: employees_contrib_tab(g_edi_ni_cat_count) := emp_values_rec.emps_cont;
2394: ni_able_auel_tab(g_edi_ni_cat_count) := emp_values_rec.ni_able_auel; ---EOY 07/08
2395: employers_rebate_tab(g_edi_ni_cat_count) := emp_values_rec.employers_rebate;
2396: employees_rebate_tab(g_edi_ni_cat_count) := emp_values_rec.employees_rebate;
2397: --
2398: hr_utility.trace('looping for asg action: '||to_char(g_assignment_action_id));
2399: if (emp_values_rec.cat_code) = 'P' then
2400: null; -- 4752018: NIC Holiday will not be reported on P14 anymore
2401: else
2402: g_tot_contribs := g_tot_contribs + emp_values_rec.tot_cont;
2416: g_emp_tot_ee_contrib := g_emp_tot_ee_contrib
2417: + emp_values_rec.emps_cont;
2418: g_emp_tot_ee_er_contrib := g_emp_tot_ee_er_contrib
2419: + emp_values_rec.tot_cont;
2420: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2421: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2422: hr_utility.trace('g_emp_tot_uap='||g_emp_tot_uap); -- 8816832 EOY 09/10
2423: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2424: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2417: + emp_values_rec.emps_cont;
2418: g_emp_tot_ee_er_contrib := g_emp_tot_ee_er_contrib
2419: + emp_values_rec.tot_cont;
2420: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2421: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2422: hr_utility.trace('g_emp_tot_uap='||g_emp_tot_uap); -- 8816832 EOY 09/10
2423: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2424: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2425: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2418: g_emp_tot_ee_er_contrib := g_emp_tot_ee_er_contrib
2419: + emp_values_rec.tot_cont;
2420: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2421: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2422: hr_utility.trace('g_emp_tot_uap='||g_emp_tot_uap); -- 8816832 EOY 09/10
2423: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2424: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2425: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2426: END IF;
2419: + emp_values_rec.tot_cont;
2420: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2421: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2422: hr_utility.trace('g_emp_tot_uap='||g_emp_tot_uap); -- 8816832 EOY 09/10
2423: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2424: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2425: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2426: END IF;
2427: -- Check whther ni figures need to roll into another cat
2420: hr_utility.trace('g_emp_tot_lel='||g_emp_tot_lel);
2421: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2422: hr_utility.trace('g_emp_tot_uap='||g_emp_tot_uap); -- 8816832 EOY 09/10
2423: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2424: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2425: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2426: END IF;
2427: -- Check whther ni figures need to roll into another cat
2428: --EOY 07/08 Begin
2421: hr_utility.trace('g_emp_tot_et='||g_emp_tot_et);
2422: hr_utility.trace('g_emp_tot_uap='||g_emp_tot_uap); -- 8816832 EOY 09/10
2423: hr_utility.trace('g_emp_tot_uel='||g_emp_tot_uel);
2424: hr_utility.trace('g_emp_tot_ee_contrib='||g_emp_tot_ee_contrib);
2425: hr_utility.trace('g_emp_tot_ee_er_contrib='||g_emp_tot_ee_er_contrib);
2426: END IF;
2427: -- Check whther ni figures need to roll into another cat
2428: --EOY 07/08 Begin
2429: /*IF emp_values_rec.ni_able_lel = 0 AND
2440: emp_values_rec.ni_able_auel <> 0 AND
2441: emp_values_rec.tot_cont <> 0 AND
2442: emp_values_rec.cat_code in ('A', 'B', 'D', 'E',/* 'F', 'G', 'S',*/ 'J', 'L') THEN
2443: --EOY 07/08 End --
2444: hr_utility.trace('Update rollup figures.');
2445: --
2446: g_rollup_tot_contrib := g_rollup_tot_contrib
2447: + emp_values_rec.tot_cont;
2448: g_rollup_emp_contrib := g_rollup_emp_contrib
2447: + emp_values_rec.tot_cont;
2448: g_rollup_emp_contrib := g_rollup_emp_contrib
2449: + emp_values_rec.emps_cont;
2450: --
2451: hr_utility.trace('Rollup TOT_CONT='||g_rollup_tot_contrib);
2452: hr_utility.trace('Rollup EMP_CONT='||g_rollup_emp_contrib);
2453: END IF;
2454: --
2455: -- Check whether this is the NI cat to rollup contrib figures into
2448: g_rollup_emp_contrib := g_rollup_emp_contrib
2449: + emp_values_rec.emps_cont;
2450: --
2451: hr_utility.trace('Rollup TOT_CONT='||g_rollup_tot_contrib);
2452: hr_utility.trace('Rollup EMP_CONT='||g_rollup_emp_contrib);
2453: END IF;
2454: --
2455: -- Check whether this is the NI cat to rollup contrib figures into
2456: IF emp_values_rec.cat_code = g_rollup_ni_cat
2456: IF emp_values_rec.cat_code = g_rollup_ni_cat
2457: --AND emp_values_rec.scon = g_rollup_scon --EOY 2012/2013
2458: --
2459: THEN
2460: hr_utility.trace('TOT_CONT Before rollup='||total_contrib_tab(g_edi_ni_cat_count));
2461: hr_utility.trace('EMP_CONT BEfore rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2462: hr_utility.trace('Roll in figures from other NI Cats.');
2463: total_contrib_tab(g_edi_ni_cat_count) :=
2464: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2457: --AND emp_values_rec.scon = g_rollup_scon --EOY 2012/2013
2458: --
2459: THEN
2460: hr_utility.trace('TOT_CONT Before rollup='||total_contrib_tab(g_edi_ni_cat_count));
2461: hr_utility.trace('EMP_CONT BEfore rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2462: hr_utility.trace('Roll in figures from other NI Cats.');
2463: total_contrib_tab(g_edi_ni_cat_count) :=
2464: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2465: employees_contrib_tab(g_edi_ni_cat_count) :=
2458: --
2459: THEN
2460: hr_utility.trace('TOT_CONT Before rollup='||total_contrib_tab(g_edi_ni_cat_count));
2461: hr_utility.trace('EMP_CONT BEfore rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2462: hr_utility.trace('Roll in figures from other NI Cats.');
2463: total_contrib_tab(g_edi_ni_cat_count) :=
2464: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2465: employees_contrib_tab(g_edi_ni_cat_count) :=
2466: employees_contrib_tab(g_edi_ni_cat_count) + g_rollup_emp_contrib;
2464: total_contrib_tab(g_edi_ni_cat_count) + g_rollup_tot_contrib;
2465: employees_contrib_tab(g_edi_ni_cat_count) :=
2466: employees_contrib_tab(g_edi_ni_cat_count) + g_rollup_emp_contrib;
2467: --
2468: hr_utility.trace('TOT_CONT After rollup='||total_contrib_tab(g_edi_ni_cat_count));
2469: hr_utility.trace('EMP_CONT After rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2470: END IF;
2471: -- Check whether this is the NI Cat to rollup lel into
2472: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2465: employees_contrib_tab(g_edi_ni_cat_count) :=
2466: employees_contrib_tab(g_edi_ni_cat_count) + g_rollup_emp_contrib;
2467: --
2468: hr_utility.trace('TOT_CONT After rollup='||total_contrib_tab(g_edi_ni_cat_count));
2469: hr_utility.trace('EMP_CONT After rollup='||employees_contrib_tab(g_edi_ni_cat_count));
2470: END IF;
2471: -- Check whether this is the NI Cat to rollup lel into
2472: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2473: AND g_total_rollup_lel > 0 THEN
2471: -- Check whether this is the NI Cat to rollup lel into
2472: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2473: AND g_total_rollup_lel > 0 THEN
2474: --
2475: hr_utility.trace('LEL before rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2476: hr_utility.trace('Roll in LEL from other NI Cats.');
2477: ni_able_lel_tab(g_edi_ni_cat_count) :=
2478: ni_able_lel_tab(g_edi_ni_cat_count) + g_total_rollup_lel;
2479: hr_utility.trace('LEL after rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2472: IF emp_values_rec.cat_code = g_rollup_lel_ni_cat
2473: AND g_total_rollup_lel > 0 THEN
2474: --
2475: hr_utility.trace('LEL before rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2476: hr_utility.trace('Roll in LEL from other NI Cats.');
2477: ni_able_lel_tab(g_edi_ni_cat_count) :=
2478: ni_able_lel_tab(g_edi_ni_cat_count) + g_total_rollup_lel;
2479: hr_utility.trace('LEL after rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2480: END IF;
2475: hr_utility.trace('LEL before rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2476: hr_utility.trace('Roll in LEL from other NI Cats.');
2477: ni_able_lel_tab(g_edi_ni_cat_count) :=
2478: ni_able_lel_tab(g_edi_ni_cat_count) + g_total_rollup_lel;
2479: hr_utility.trace('LEL after rollup='||ni_able_lel_tab(g_edi_ni_cat_count));
2480: END IF;
2481: --
2482: END IF; -- g_ni_multi_asg_flag = 'Y'
2483: -- Inreament category count for the employee
2620: l_type2_errors := to_number(pay_mag_tape.internal_prm_values(4));
2621: l_type1_errors := to_number(pay_mag_tape.internal_prm_values(3));
2622: l_char_errors := to_number(pay_mag_tape.internal_prm_values(5));
2623: l_loc_per := to_number(g_tot_rec2)/200; -- Half percent.
2624: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',600);
2625: --
2626: -- Check for type 1 and type 2 errors. Similar to MAG_RECORD5 checks.
2627: --
2628: if l_type1_errors > 0 -- Type 1 errors
2633: or (g_eoy_mode in ('F','F - P14 EDI') and l_char_errors > 0) -- Full Mode with
2634: -- Illegal chars.
2635: then
2636: -- error raised, do not submit reports.
2637: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',602);
2638: NULL;
2639: else
2640: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',605);
2641: -- No errors, so submit the reports.
2636: -- error raised, do not submit reports.
2637: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',602);
2638: NULL;
2639: else
2640: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',605);
2641: -- No errors, so submit the reports.
2642: submit_reports(p_payroll_action_id => g_payroll_action_id,
2643: p_eoy_mode => g_eoy_mode,
2644: p_mar_req_id => l_mar_req_id);
2646: --
2647: -- Write footer to the output report
2648: l_dummy_number := pay_gb_eoy_archive.write_output_footer;
2649: --
2650: hr_utility.trace('P35 Req ID: '||l_p35_req_id);
2651: hr_utility.trace('Writing record type 4');
2652: --
2653: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
2654: p14_edi_init(6);
2647: -- Write footer to the output report
2648: l_dummy_number := pay_gb_eoy_archive.write_output_footer;
2649: --
2650: hr_utility.trace('P35 Req ID: '||l_p35_req_id);
2651: hr_utility.trace('Writing record type 4');
2652: --
2653: IF g_eoy_mode in ('F - P14 EDI', 'P - P14 EDI') THEN
2654: p14_edi_init(6);
2655: ELSE
2658: mag_tape_interface('EOY_MODE',g_eoy_mode);
2659: mag_tape_interface('TOTAL_RECORDS',g_tot_rec2);
2660: mag_tape_interface('P35_REQUEST_ID',l_p35_req_id);
2661: mag_tape_interface('MAR_REQUEST_ID',l_mar_req_id);
2662: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
2663: IF g_eoy_mode NOT in ('F - P14 EDI', 'P - P14 EDI') THEN
2664: mag_tape_interface('END_OF_DATA','END OF DATA');
2665: END IF;
2666: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
2662: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
2663: IF g_eoy_mode NOT in ('F - P14 EDI', 'P - P14 EDI') THEN
2664: mag_tape_interface('END_OF_DATA','END OF DATA');
2665: END IF;
2666: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',610);
2667: IF header_cur%ISOPEN THEN
2668: CLOSE header_cur;
2669: END IF;
2670: IF emps_cur%ISOPEN THEN
2670: IF emps_cur%ISOPEN THEN
2671: CLOSE emps_cur;
2672: END IF;
2673: END IF;
2674: hr_utility.set_location('pay_gb_eoy_magtape.eoy_control',999);
2675: END;
2676: --
2677: --------------------------------------------------------------------------
2678: -- Function: validate_input
2715: p_input_value_temp varchar2(35) ;
2716: --
2717: BEGIN
2718: --
2719: hr_utility.trace('Entering pay_gb_eoy_magetape.validate_input');
2720: hr_utility.trace('p_validate_mode='||p_validate_mode);
2721: hr_utility.trace('p_input_value='||p_input_value);
2722: --
2723: if p_validate_mode = 'FULL_EDI' then
2716: --
2717: BEGIN
2718: --
2719: hr_utility.trace('Entering pay_gb_eoy_magetape.validate_input');
2720: hr_utility.trace('p_validate_mode='||p_validate_mode);
2721: hr_utility.trace('p_input_value='||p_input_value);
2722: --
2723: if p_validate_mode = 'FULL_EDI' then
2724: -- ensure characters exist in the EDI character set
2717: BEGIN
2718: --
2719: hr_utility.trace('Entering pay_gb_eoy_magetape.validate_input');
2720: hr_utility.trace('p_validate_mode='||p_validate_mode);
2721: hr_utility.trace('p_input_value='||p_input_value);
2722: --
2723: if p_validate_mode = 'FULL_EDI' then
2724: -- ensure characters exist in the EDI character set
2725: l_translated_value :=
2727: l_invalid_char||l_char_chk||l_number_chk||l_extended_edi,
2728: l_invalid_char);
2729: --
2730: if l_translated_value is not null then
2731: hr_utility.trace('Invalid chars found: '||l_translated_value);
2732: l_valid := 1; -- Not valid
2733: else
2734: l_valid := 0; -- Valid
2735: end if;
2742: l_invalid_char||l_char_chk||l_number_chk||l_extended_edi||'''',
2743: l_invalid_char);
2744: --
2745: if l_translated_value is not null then
2746: hr_utility.trace('Invalid chars found: '||l_translated_value);
2747: l_valid := 1; -- Not valid
2748: else
2749: l_valid := 0; -- Valid
2750: end if;
2757: l_invalid_char||l_number_chk,
2758: l_invalid_char);
2759: --
2760: if l_translated_value is not null then
2761: hr_utility.trace('Invalid chars found: '||l_translated_value);
2762: l_valid := 1; -- Not valid
2763: else
2764: l_valid := 0; -- Valid
2765: end if;
2777: l_invalid_char||l_number_chk||'.',
2778: l_invalid_char);
2779: --
2780: if l_translated_value is not null then
2781: hr_utility.trace('Invalid chars found: '||l_translated_value);
2782: l_valid := 1; -- Not valid
2783: else
2784: l_valid := 0; -- Valid
2785: end if;
2790: l_translated_value := translate(p_input_value,
2791: l_invalid_char||l_char_chk,
2792: l_invalid_char);
2793: if l_translated_value is not null then
2794: hr_utility.trace('Invalid chars found: '||l_translated_value);
2795: l_valid := 1;
2796: else
2797: l_valid := 0;
2798: end if;
2806: l_invalid_char||l_alpha_numeric,
2807: l_invalid_char);
2808: --
2809: if l_translated_value is not null then
2810: hr_utility.trace('Invalid chars found: '||l_translated_value);
2811: l_valid := 1; -- Not valid
2812: else
2813: l_valid := 0; -- Valid
2814: end if;
2821: l_invalid_char||l_mix_chars||l_number_chk,
2822: l_invalid_char);
2823: --
2824: if l_translated_value is not null then
2825: hr_utility.trace('Invalid chars found: '||l_translated_value);
2826: l_valid := 1; -- Not valid
2827: else
2828: l_valid := 0; -- Valid
2829: end if;
2888: if not substr(p_input_value,1,1) between 'A' and 'Z' then
2889: --
2890: -- First char invalid
2891: --
2892: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2893: l_valid := 1;
2894: else
2895: l_translated_value :=
2896: translate(p_input_value,l_invalid_char||l_all_name_chars,
2895: l_translated_value :=
2896: translate(p_input_value,l_invalid_char||l_all_name_chars,
2897: l_invalid_char);
2898: if l_translated_value is not null then
2899: hr_utility.trace('Invalid chars found: '||l_translated_value);
2900: l_valid := 1;
2901: --
2902: -- Now check for Illegal chars
2903: --
2905: translate(p_input_value,
2906: l_invalid_char||l_all_allowed_chars,
2907: l_invalid_char);
2908: if l_translated_value is not null then
2909: hr_utility.trace('Illegal chars found: '||l_translated_value);
2910: l_valid := 2;
2911: end if;
2912: else
2913: l_valid := 0;
2926: l_translated_value :=
2927: translate(p_input_value,l_invalid_char||l_all_allowed_chars,
2928: l_invalid_char);
2929: if l_translated_value is not null then
2930: hr_utility.trace('Invalid chars found: '||l_translated_value);
2931: l_valid := 1;
2932: else
2933: l_valid := 0;
2934: end if;
2940: if not substr(p_input_value,1,1) between 'A' and 'Z' then
2941: --
2942: -- First char invalid
2943: --
2944: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2945: l_valid := 2;
2946: else
2947: -- ensure characters exist in the EDI character set
2948: -- Surname can additionally contain apostrophe
2950: translate(p_input_value,l_invalid_char||l_char_chk||l_number_chk||l_extended_edi||'''',
2951: l_invalid_char);
2952:
2953: if l_translated_value is not null then
2954: hr_utility.trace('Invalid chars found: '||l_translated_value);
2955: l_valid := 1; -- Not valid
2956: else
2957: l_valid := 0; -- Valid
2958: end if;
2962: l_translated_value := translate(p_input_value,
2963: l_invalid_char||l_mix_chars||l_number_chk||l_paye_ref_chars,
2964: l_invalid_char);
2965: if l_translated_value is not null then
2966: hr_utility.trace('Invalid chars found: '||l_translated_value);
2967: l_valid := 1; -- Not valid
2968: else
2969: l_valid := 0; -- Valid
2970: end if;
2975: l_invalid_char||l_mix_chars||l_number_chk||l_p14_extended_edi,
2976: l_invalid_char);
2977: --
2978: if l_translated_value is not null then
2979: hr_utility.trace('Invalid chars found: '||l_translated_value);
2980: l_valid := 1; -- Not valid
2981: else
2982: l_valid := 0; -- Valid
2983: end if;
2990: or substr(p_input_value,1,1) between 'a' and 'z') then
2991: --
2992: -- First char invalid
2993: --
2994: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
2995: l_valid := 2;
2996: else
2997: -- ensure characters exist in the EDI character set
2998: -- Surname can additionally contain apostrophe
3001: l_invalid_char||l_mix_chars||l_number_chk||l_p14_edi_surname,
3002: l_invalid_char);
3003:
3004: if l_translated_value is not null then
3005: hr_utility.trace('Invalid chars found: '||l_translated_value);
3006: l_valid := 1; -- Not valid
3007: else
3008: l_valid := 0; -- Valid
3009: end if;
3017: or substr(p_input_value,1,1) between 'a' and 'z') then
3018: --
3019: -- First char invalid
3020: --
3021: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
3022: l_valid := 2;
3023: else
3024: -- ensure characters exist in the EDI character set
3025: -- Surname can additionally contain apostrophe
3028: l_invalid_char||l_mix_chars||l_p14_edi_forename,
3029: l_invalid_char);
3030:
3031: if l_translated_value is not null then
3032: hr_utility.trace('Invalid chars found: '||l_translated_value);
3033: l_valid := 1; -- Not valid
3034: else
3035: l_valid := 0; -- Valid
3036: end if;
3046: or substr(p_input_value,1,1) between '0' and '9') then
3047: --
3048: -- First char invalid
3049: --
3050: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
3051: l_valid := 2;
3052: else*/
3053: -- ensure characters exist in the EDI character set
3054: -- Surname can additionally contain apostrophe
3057: l_invalid_char||l_mix_chars||l_number_chk||l_p14_extended_edi,
3058: l_invalid_char);
3059:
3060: if l_translated_value is not null then
3061: hr_utility.trace('Invalid chars found: '||l_translated_value);
3062: l_valid := 1; -- Not valid
3063: else
3064: l_valid := 0; -- Valid
3065: end if;
3073: l_invalid_char||l_char_chk||l_number_chk||l_p11d_edi||'''',
3074: l_invalid_char);
3075: --
3076: if l_translated_value is not null then
3077: hr_utility.trace('Invalid chars found: '||l_translated_value);
3078: l_valid := 1; -- Not valid
3079: else
3080: l_valid := 0; -- Valid
3081: end if;
3086: not substr(p_input_value,1,1) between 'a' and 'z' ) then
3087: --
3088: -- First char invalid
3089: --
3090: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
3091: l_valid := 2;
3092: else
3093: l_translated_value :=
3094: translate(p_input_value,
3095: l_invalid_char||l_mix_chars||l_p45_46_first_name_chk2,
3096: l_invalid_char);
3097:
3098: if l_translated_value is not null then
3099: hr_utility.trace('Invalid chars found: '||l_translated_value);
3100: l_valid := 1; -- Not valid
3101: else
3102: l_valid := 0; -- Valid
3103: end if;
3108: not substr(p_input_value,1,1) between 'a' and 'z' ) then
3109: --
3110: -- First char invalid
3111: --
3112: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
3113: l_valid := 2;
3114: else
3115: l_translated_value :=
3116: translate(p_input_value,
3117: l_invalid_char||l_mix_chars||l_p45_46_title_chk,
3118: l_invalid_char);
3119:
3120: if l_translated_value is not null then
3121: hr_utility.trace('Invalid chars found: '||l_translated_value);
3122: l_valid := 1; -- Not valid
3123: else
3124: l_valid := 0; -- Valid
3125: end if;
3133: l_invalid_char||l_mix_chars||l_number_chk||l_p45_46_postcode_chk,
3134: l_invalid_char);
3135: --
3136: if l_translated_value is not null then
3137: hr_utility.trace('Invalid chars found: '||l_translated_value);
3138: l_valid := 1; -- Not valid
3139: else
3140: l_valid := 0; -- Valid
3141: end if;
3145: not substr(p_input_value,1,1) between 'a' and 'z' ) then
3146: --
3147: -- First char invalid
3148: --
3149: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
3150: l_valid := 2;
3151: else
3152: l_translated_value :=
3153: translate(p_input_value,
3154: l_invalid_char||l_mix_chars||l_p45_46_last_name,
3155: l_invalid_char);
3156:
3157: if l_translated_value is not null then
3158: hr_utility.trace('Invalid chars found: '||l_translated_value);
3159: l_valid := 1; -- Not valid
3160: else
3161: l_valid := 0; -- Valid
3162: end if;
3168: elsif p_validate_mode = 'P46_CAR_TIT_N_FSTNM' then
3169: -- Check for Valid First Char
3170: if not substr(p_input_value,1,1) between 'A' and 'Z' then
3171: -- First char invalid
3172: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
3173: l_valid := 2;
3174: else
3175: -- ensure characters exist in the EDI character set
3176: l_translated_value :=
3177: translate(p_input_value,l_invalid_char||l_char_chk||l_number_chk||l_extended_edi,
3178: l_invalid_char);
3179:
3180: if l_translated_value is not null then
3181: hr_utility.trace('Invalid chars found: '||l_translated_value);
3182: l_valid := 1; -- Not valid
3183: else
3184: l_valid := 0; -- Valid
3185: end if;
3188: else
3189: --
3190: -- Invalid validate mode used.
3191: --
3192: hr_utility.trace('Invalid validate mode used: '||p_validate_mode);
3193: --
3194: end if;
3195: --
3196: return l_valid;
3210: RETURN VARCHAR2 IS
3211: l_return_value VARCHAR2(250) := NULL;
3212: BEGIN
3213: --
3214: -- hr_utility.trace_on(null, 'RMEOYVTC');
3215: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
3216: hr_utility.trace('p_tax_code = '|| p_tax_code);
3217: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
3218: hr_utility.trace('p_assignment_id = '||p_assignment_id);
3211: l_return_value VARCHAR2(250) := NULL;
3212: BEGIN
3213: --
3214: -- hr_utility.trace_on(null, 'RMEOYVTC');
3215: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
3216: hr_utility.trace('p_tax_code = '|| p_tax_code);
3217: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
3218: hr_utility.trace('p_assignment_id = '||p_assignment_id);
3219: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
3212: BEGIN
3213: --
3214: -- hr_utility.trace_on(null, 'RMEOYVTC');
3215: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
3216: hr_utility.trace('p_tax_code = '|| p_tax_code);
3217: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
3218: hr_utility.trace('p_assignment_id = '||p_assignment_id);
3219: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
3220: p_effective_date => p_effective_date,
3213: --
3214: -- hr_utility.trace_on(null, 'RMEOYVTC');
3215: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
3216: hr_utility.trace('p_tax_code = '|| p_tax_code);
3217: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
3218: hr_utility.trace('p_assignment_id = '||p_assignment_id);
3219: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
3220: p_effective_date => p_effective_date,
3221: p_assignment_id => p_assignment_id);
3214: -- hr_utility.trace_on(null, 'RMEOYVTC');
3215: hr_utility.trace('Entering pay_gb_eoy_magtape.validate_tax_code.');
3216: hr_utility.trace('p_tax_code = '|| p_tax_code);
3217: hr_utility.trace('p_effective_date ='|| fnd_date.date_to_displaydate(p_effective_date));
3218: hr_utility.trace('p_assignment_id = '||p_assignment_id);
3219: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
3220: p_effective_date => p_effective_date,
3221: p_assignment_id => p_assignment_id);
3222: --
3219: l_return_value := hr_gb_utility.tax_code_validate(p_tax_code => p_tax_code,
3220: p_effective_date => p_effective_date,
3221: p_assignment_id => p_assignment_id);
3222: --
3223: hr_utility.trace('validate_tax_code: l_return_value='||l_return_value);
3224: IF l_return_value IS NULL THEN
3225: l_return_value := ' ';
3226: END IF;
3227: --
3224: IF l_return_value IS NULL THEN
3225: l_return_value := ' ';
3226: END IF;
3227: --
3228: -- hr_utility.trace_off;
3229: RETURN l_return_value;
3230: END validate_tax_code;
3231:
3232: /********** added validate_tax_code_yrfil .... Abhgangu******/
3253: l_return_value := validate_tax_code(p_tax_code => p_tax_code,
3254: p_effective_date => p_effective_date,
3255: p_assignment_id => l_assignment_id);
3256: --
3257: hr_utility.trace('validate_tax_code: l_return_value='||l_return_value);
3258: return l_return_value;
3259: END validate_tax_code_yrfil;
3260:
3261: