[Home] [Help]
972: elsif p_final_submission = 'Yes - Final for the Year' then
973: l_final_submission_year := 'Y';
974: end if;*/
975:
976: fnd_file.put_line(fnd_file.output,rpad('PAYE Reference : ',20) || p_emp_paye_reference);
977: fnd_file.put_line(fnd_file.output,rpad('Effective Date : ',20) || l_effective_date);
978: fnd_file.put_line(fnd_file.output,' ');
979:
980: -- If Specific PAYE REF is selected
973: l_final_submission_year := 'Y';
974: end if;*/
975:
976: fnd_file.put_line(fnd_file.output,rpad('PAYE Reference : ',20) || p_emp_paye_reference);
977: fnd_file.put_line(fnd_file.output,rpad('Effective Date : ',20) || l_effective_date);
978: fnd_file.put_line(fnd_file.output,' ');
979:
980: -- If Specific PAYE REF is selected
981: if p_emp_paye_reference is not null then
974: end if;*/
975:
976: fnd_file.put_line(fnd_file.output,rpad('PAYE Reference : ',20) || p_emp_paye_reference);
977: fnd_file.put_line(fnd_file.output,rpad('Effective Date : ',20) || l_effective_date);
978: fnd_file.put_line(fnd_file.output,' ');
979:
980: -- If Specific PAYE REF is selected
981: if p_emp_paye_reference is not null then
982:
1015: -- Update the status of the EPS Record to 'Sent'
1016: update_status_eps_record(l_effective_date,l_csr_eps.emp_paye_reference,p_business_group_id,'Sent',l_csr_eps.ovn+1,'N',l_result);
1017: if(l_result = 'E') then
1018: -- Someone modified the record
1019: fnd_file.put_line(fnd_file.output,'The EPS Record has been modified.Please resubmit the concurrent program. ');
1020: hr_utility.set_location('The Record has been modified.Please resubmit the concurrent program.',100);
1021: elsif l_result = 'S' then
1022: --Success
1023: fnd_file.put_line(fnd_file.output,'The EPS Record has been processed. ');
1019: fnd_file.put_line(fnd_file.output,'The EPS Record has been modified.Please resubmit the concurrent program. ');
1020: hr_utility.set_location('The Record has been modified.Please resubmit the concurrent program.',100);
1021: elsif l_result = 'S' then
1022: --Success
1023: fnd_file.put_line(fnd_file.output,'The EPS Record has been processed. ');
1024: hr_utility.set_location('The record has been Updated successfully',100);
1025: end if;
1026:
1027: END IF;
1027: END IF;
1028: END IF;
1029: close csr_eps;
1030: else
1031: fnd_file.put_line(fnd_file.output,'No Records found. ');
1032: end if;
1033:
1034: --If all Paye REferences are selected.
1035: else
1049: close csr_eps_all_paye;
1050:
1051: open csr_eps_all_paye;
1052: fetch csr_eps_all_paye into l_csr_eps_all_paye;
1053: fnd_file.put_line(fnd_file.output,'');
1054: -- if csr_eps_all_paye%found then
1055: loop
1056: exit when csr_eps_all_paye%notfound;
1057: l_count := 1;
1087: -- Someone modified the record
1088: hr_utility.set_location('The Record has been modified.Please resubmit the concurrent program.',100);
1089: elsif l_result = 'S' then
1090: --Success
1091: fnd_file.put_line(fnd_file.output,'The EPS Record with PAYE Reference '||l_csr_eps_all_paye.emp_paye_reference||' has been processed. ');
1092: hr_utility.set_location('The record has been Updated successfully',100);
1093: end if;
1094:
1095: END IF;
1099: end loop;
1100: -- end if;
1101: close csr_eps_all_paye;
1102: if l_count = 0 then
1103: fnd_file.put_line(fnd_file.output,'No Records found. ');
1104: end if;
1105: end if;
1106:
1107:
1136: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
1137:
1138: select to_char(to_date(substr(p_effective_date,0,10),'YYYY-MM-DD'),'DD-MON-YYYY') into l_effective_date from dual;
1139:
1140: fnd_file.put_line(fnd_file.output,rpad('PAYE Reference : ',20) || p_emp_paye_reference);
1141: fnd_file.put_line(fnd_file.output,rpad('Effective Date : ',20) || l_effective_date);
1142: fnd_file.put_line(fnd_file.output,' ');
1143:
1144: open csr_eps;
1137:
1138: select to_char(to_date(substr(p_effective_date,0,10),'YYYY-MM-DD'),'DD-MON-YYYY') into l_effective_date from dual;
1139:
1140: fnd_file.put_line(fnd_file.output,rpad('PAYE Reference : ',20) || p_emp_paye_reference);
1141: fnd_file.put_line(fnd_file.output,rpad('Effective Date : ',20) || l_effective_date);
1142: fnd_file.put_line(fnd_file.output,' ');
1143:
1144: open csr_eps;
1145: fetch csr_eps into l_csr_eps;
1138: select to_char(to_date(substr(p_effective_date,0,10),'YYYY-MM-DD'),'DD-MON-YYYY') into l_effective_date from dual;
1139:
1140: fnd_file.put_line(fnd_file.output,rpad('PAYE Reference : ',20) || p_emp_paye_reference);
1141: fnd_file.put_line(fnd_file.output,rpad('Effective Date : ',20) || l_effective_date);
1142: fnd_file.put_line(fnd_file.output,' ');
1143:
1144: open csr_eps;
1145: fetch csr_eps into l_csr_eps;
1146: if csr_eps%found then
1143:
1144: open csr_eps;
1145: fetch csr_eps into l_csr_eps;
1146: if csr_eps%found then
1147: fnd_file.put_line (fnd_file.LOG,' : Rollback starts');
1148: -- update the status to 'Sent'
1149: -- update final submission ceased and year to 'No'
1150: update_final_submission(l_effective_date,p_emp_paye_reference,p_business_group_id,'N','N');
1151: update_status_eps_record(l_effective_date,p_emp_paye_reference,p_business_group_id,'Verified',l_csr_eps.ovn+1,'N',l_result);
1152:
1153: if(l_result = 'E') then
1154: -- Someone modified the record
1155: hr_utility.set_location('The EPS record has been modified.Please resubmit the concurrent program.',100);
1156: fnd_file.put_line(fnd_file.output,'The EPS record has been modified.Please resubmit the concurrent program.');
1157: elsif l_result = 'S' then
1158: --Success
1159: hr_utility.set_location('The record has been rolled back successfully',100);
1160: fnd_file.put_line(fnd_file.output,'The EPS Record has been rolled back. ');
1156: fnd_file.put_line(fnd_file.output,'The EPS record has been modified.Please resubmit the concurrent program.');
1157: elsif l_result = 'S' then
1158: --Success
1159: hr_utility.set_location('The record has been rolled back successfully',100);
1160: fnd_file.put_line(fnd_file.output,'The EPS Record has been rolled back. ');
1161: end if;
1162: else
1163: fnd_file.put_line(fnd_file.output,'No Records found. ');
1164: end if;
1159: hr_utility.set_location('The record has been rolled back successfully',100);
1160: fnd_file.put_line(fnd_file.output,'The EPS Record has been rolled back. ');
1161: end if;
1162: else
1163: fnd_file.put_line(fnd_file.output,'No Records found. ');
1164: end if;
1165:
1166: end rollback_eps;
1167:
1200: close csr_eps;
1201:
1202: if l_csr_eps.smp_amt_recovered_calc < 0 then
1203: hr_utility.set_location('SMP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1204: fnd_file.put_line(fnd_file.output,'SMP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1205: l_err := true;
1206: end if;
1207:
1208: if l_csr_eps.sap_amt_recovered_calc < 0 then
1206: end if;
1207:
1208: if l_csr_eps.sap_amt_recovered_calc < 0 then
1209: hr_utility.set_location('SAP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1210: fnd_file.put_line(fnd_file.output,'SAP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1211: l_err := true;
1212: end if;
1213:
1214: if l_csr_eps.ospp_amt_recovered_calc < 0 then
1212: end if;
1213:
1214: if l_csr_eps.ospp_amt_recovered_calc < 0 then
1215: hr_utility.set_location('OSSP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1216: fnd_file.put_line(fnd_file.output,'OSSP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1217: l_err := true;
1218: end if;
1219:
1220: if l_csr_eps.aspp_amt_recovered_calc < 0 then
1218: end if;
1219:
1220: if l_csr_eps.aspp_amt_recovered_calc < 0 then
1221: hr_utility.set_location('ASPP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1222: fnd_file.put_line(fnd_file.output,'ASPP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1223: l_err := true;
1224: end if;
1225:
1226: if l_csr_eps.ssp_amt_recovered_calc < 0 then
1224: end if;
1225:
1226: if l_csr_eps.ssp_amt_recovered_calc < 0 then
1227: hr_utility.set_location('SSP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1228: fnd_file.put_line(fnd_file.output,'SSP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1229: l_err := true;
1230: end if;
1231:
1232: if l_csr_eps.nic_comp_smp_calc < 0 then
1230: end if;
1231:
1232: if l_csr_eps.nic_comp_smp_calc < 0 then
1233: hr_utility.set_location('NIC Compensation on SMP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1234: fnd_file.put_line(fnd_file.output,'NIC Compensation on SMP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1235: l_err := true;
1236: end if;
1237:
1238: if l_csr_eps.nic_comp_sap_calc < 0 then
1236: end if;
1237:
1238: if l_csr_eps.nic_comp_sap_calc < 0 then
1239: hr_utility.set_location('NIC Compensation on SAP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1240: fnd_file.put_line(fnd_file.output,'NIC Compensation on SAP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1241: l_err := true;
1242: end if;
1243:
1244: if l_csr_eps.nic_comp_ospp_calc < 0 then
1242: end if;
1243:
1244: if l_csr_eps.nic_comp_ospp_calc < 0 then
1245: hr_utility.set_location('NIC Compensation on OSPP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1246: fnd_file.put_line(fnd_file.output,'NIC Compensation on OSPP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1247: l_err := true;
1248: end if;
1249:
1250: if l_csr_eps.nic_comp_aspp_calc < 0 then
1248: end if;
1249:
1250: if l_csr_eps.nic_comp_aspp_calc < 0 then
1251: hr_utility.set_location('NIC Compensation on ASPP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1252: fnd_file.put_line(fnd_file.output,'NIC Compensation on ASPP, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1253: l_err := true;
1254: end if;
1255:
1256: if l_csr_eps.cis_deductions_stuff < 0 then
1254: end if;
1255:
1256: if l_csr_eps.cis_deductions_stuff < 0 then
1257: hr_utility.set_location('CIS Deductions Suffered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1258: fnd_file.put_line(fnd_file.output,'CIS Deductions Suffered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1259: l_err := true;
1260: end if;
1261:
1262: if l_csr_eps.nic_holiday_val < 0 then
1260: end if;
1261:
1262: if l_csr_eps.nic_holiday_val < 0 then
1263: hr_utility.set_location('NICs Holiday, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);
1264: fnd_file.put_line(fnd_file.output,'NICs Holiday, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.');
1265: l_err := true;
1266: end if;
1267:
1268:
1307: emp_paye_ref := nvl(upper(substr(ltrim(substr(emp_paye_reference,4,11),'/'),1,10)),' ');
1308:
1309: if hmrc_office_no = ' ' or hmrc_office_no is null then
1310: hr_utility.set_location('The HMRC Office Number is missing.',10);
1311: fnd_file.put_line(fnd_file.output,'The HMRC Office Number is missing.');
1312: l_err := true;
1313: elsif validate_input(substr(hmrc_office_no,1,3),'NUMBER') > 0
1314: then
1315: hr_utility.set_location('The HMRC Office Number '||hmrc_office_no||' has invalid characters.',10);
1312: l_err := true;
1313: elsif validate_input(substr(hmrc_office_no,1,3),'NUMBER') > 0
1314: then
1315: hr_utility.set_location('The HMRC Office Number '||hmrc_office_no||' has invalid characters.',10);
1316: fnd_file.put_line(fnd_file.output,'The HMRC Office Number '||hmrc_office_no||' has invalid characters.');
1317: l_err := true;
1318: end if;
1319:
1320: if emp_paye_ref = ' ' or emp_paye_ref is null then
1318: end if;
1319:
1320: if emp_paye_ref = ' ' or emp_paye_ref is null then
1321: hr_utility.set_location('The Employer PAYE Reference is missing.',10);
1322: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference is missing.');
1323: l_err := true;
1324: elsif validate_input(emp_paye_ref,'FULL_EDI') > 0 then
1325: hr_utility.set_location('The Employer PAYE Reference '||emp_paye_reference|| ' has invalid characters.',10);
1326: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference '||emp_paye_reference||' has invalid characters.');
1322: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference is missing.');
1323: l_err := true;
1324: elsif validate_input(emp_paye_ref,'FULL_EDI') > 0 then
1325: hr_utility.set_location('The Employer PAYE Reference '||emp_paye_reference|| ' has invalid characters.',10);
1326: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference '||emp_paye_reference||' has invalid characters.');
1327: l_err := true;
1328: end if;
1329:
1330: if employer_name = ' ' or employer_name is null then
1328: end if;
1329:
1330: if employer_name = ' ' or employer_name is null then
1331: hr_utility.set_location('The Employer Name for PAYE Reference '||emp_paye_reference||' is missing.',10);
1332: fnd_file.put_line(fnd_file.output,'The Employer Name for PAYE Reference '||emp_paye_reference||' is missing.');
1333: l_err := true;
1334: elsif validate_input(employer_name,'EMP_NAME') > 0 then
1335: hr_utility.set_location('The Employer Name '||employer_name||' for PAYE Reference '||emp_paye_reference||' has invalid characters .',10);
1336: fnd_file.put_line(fnd_file.output,'The Employer Name '||employer_name||' for PAYE Reference '||emp_paye_reference||' has invalid characters .');
1332: fnd_file.put_line(fnd_file.output,'The Employer Name for PAYE Reference '||emp_paye_reference||' is missing.');
1333: l_err := true;
1334: elsif validate_input(employer_name,'EMP_NAME') > 0 then
1335: hr_utility.set_location('The Employer Name '||employer_name||' for PAYE Reference '||emp_paye_reference||' has invalid characters .',10);
1336: fnd_file.put_line(fnd_file.output,'The Employer Name '||employer_name||' for PAYE Reference '||emp_paye_reference||' has invalid characters .');
1337: l_err := true;
1338: end if;
1339:
1340: if acc_off_no = ' ' or acc_off_no is null then
1338: end if;
1339:
1340: if acc_off_no = ' ' or acc_off_no is null then
1341: hr_utility.set_location('The Employer Accounts Office Ref for PAYE Reference '||emp_paye_reference||' is missing.',10);
1342: fnd_file.put_line(fnd_file.output,'The Employer Accounts Office Ref for PAYE Reference '||emp_paye_reference||' is missing.');
1343: l_err := true;
1344:
1345: elsif (length(acc_off_no) > 13
1346: OR REGEXP_INSTR(acc_off_no,'^([[:digit:]]{1,3})P([[:alpha:]]{1})([[:digit:]]{1,7})([[:digit:]]|X)$') = 0 ) THEN
1345: elsif (length(acc_off_no) > 13
1346: OR REGEXP_INSTR(acc_off_no,'^([[:digit:]]{1,3})P([[:alpha:]]{1})([[:digit:]]{1,7})([[:digit:]]|X)$') = 0 ) THEN
1347:
1348: hr_utility.set_location ('Incorrect format entered for Employer Accounts Office Ref field for PAYE Reference '||emp_paye_reference||'.Valid format is NNNPANNNNNNNX.',10);
1349: fnd_file.put_line(fnd_file.output,'Incorrect format entered for Accounts Office Ref Num field for PAYE Reference '||emp_paye_reference||'.Valid format is NNNPANNNNNNNX.');
1350: l_err := true;
1351: END IF;
1352:
1353:
1354: -- ECON Validations
1355: /* IF (final_submission_ceased = 'Y' OR final_submission_year = 'Y') THEN
1356: IF econ = ' ' OR econ IS NULL THEN
1357: hr_utility.set_location ('ECON for PAYE Reference '||emp_paye_reference||' is missing.',10);
1358: fnd_file.put_line(fnd_file.output,'ECON for PAYE Reference '||emp_paye_reference||' is missing.');
1359: l_err := true;
1360: END IF;
1361: END IF;
1362:
1361: END IF;
1362:
1363: IF (econ is not null AND econ <> ' ' ) AND econ_validate(econ) = 0 THEN
1364: hr_utility.set_location ('ECON for PAYE Reference '||emp_paye_reference||' is invalid.',10);
1365: fnd_file.put_line(fnd_file.output,'ECON for PAYE Reference '||emp_paye_reference||' is invalid.');
1366: l_err := true;
1367: END IF;*/
1368:
1369: if (final_submission_ceased is not null or final_submission_year is not null) then
1368:
1369: if (final_submission_ceased is not null or final_submission_year is not null) then
1370: if l_sender_id is null or l_sender_id = ' ' then
1371: hr_utility.set_location('The EDI Sender ID for PAYE Reference '||emp_paye_reference||' is missing.',10);
1372: fnd_file.put_line(fnd_file.output,'The EDI Sender ID for PAYE Reference '||emp_paye_reference||' is missing.');
1373: l_err := true;
1374: end if;
1375: end if;
1376:
1376:
1377: -- Tax Year Validations
1378: /* if tax_year < 2013 then
1379: hr_utility.set_location('The Tax Year of Effective Date must be 2013 or later.',10);
1380: fnd_file.put_line(fnd_file.output,'The Tax Year of Effective Date must be 2013 or later.');
1381: l_err := true;
1382: end if;
1383:
1384: -- Calculate Current Tax Year using sysdate
1391: hr_utility.trace('tax year = '||tax_year);
1392: hr_utility.trace('Current year = '||l_current_tax_year);
1393: if( tax_year < (l_current_tax_year - 2 ) or tax_year > l_current_tax_year ) then
1394: hr_utility.set_location('The Tax Year of Effective Date must be within the Current Tax Year - 2 to Current Tax Year.',10);
1395: fnd_file.put_line(fnd_file.output,'The Tax Year of Effective Date must be within the Current Tax Year - 2 to Current Tax Year.');
1396: l_err := true;
1397: end if; */
1398:
1399: if (l_err) then