DBA Data[Home] [Help]

APPS.PAY_GB_EPS_13 dependencies on HR_UTILITY

Line 122: hr_utility.set_location(' Entering :' || l_proc,160);

118: l_profile varchar2(10);
119: l_approver_id number;
120:
121: BEGIN
122: hr_utility.set_location(' Entering :' || l_proc,160);
123: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
124:
125: l_approver_id := p_approver_id;
126: profile_option_value(l_profile);

Line 123: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);

119: l_approver_id number;
120:
121: BEGIN
122: hr_utility.set_location(' Entering :' || l_proc,160);
123: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
124:
125: l_approver_id := p_approver_id;
126: profile_option_value(l_profile);
127:

Line 227: hr_utility.set_location('Inserted the EPS record',100);

223: p_update_date
224: );
225:
226:
227: hr_utility.set_location('Inserted the EPS record',100);
228: HR_UTILITY.SET_LOCATION(' Leaving :' || L_PROC,100);
229:
230: END insert_eps_record;
231:

Line 228: HR_UTILITY.SET_LOCATION(' Leaving :' || L_PROC,100);

224: );
225:
226:
227: hr_utility.set_location('Inserted the EPS record',100);
228: HR_UTILITY.SET_LOCATION(' Leaving :' || L_PROC,100);
229:
230: END insert_eps_record;
231:
232: PROCEDURE delete_eps_record

Line 246: hr_utility.set_location(' Entering :' || l_proc,160);

242:
243:
244: BEGIN
245:
246: hr_utility.set_location(' Entering :' || l_proc,160);
247:
248: DELETE
249: FROM pay_gb_eps_details
250: WHERE EMP_PAYE_REFERENCE = p_emp_paye_reference

Line 257: hr_utility.set_location('Deleted the EPS record',100);

253:
254: COMMIT;
255:
256: p_return_status := 'S';
257: hr_utility.set_location('Deleted the EPS record',100);
258: hr_utility.set_location(' Leaving :' || l_proc,100);
259:
260:
261: exception

Line 258: hr_utility.set_location(' Leaving :' || l_proc,100);

254: COMMIT;
255:
256: p_return_status := 'S';
257: hr_utility.set_location('Deleted the EPS record',100);
258: hr_utility.set_location(' Leaving :' || l_proc,100);
259:
260:
261: exception
262: when others then

Line 290: hr_utility.set_location(' Entering :' || l_proc,160);

286: l_paye_ref varchar2(100);
287:
288: BEGIN
289:
290: hr_utility.set_location(' Entering :' || l_proc,160);
291:
292: p_return_status := 'N';
293:
294: open csr_check_seq;

Line 301: hr_utility.set_location(' Leaving :' || l_proc,100);

297: p_return_status := 'Y';
298: end if;
299: close csr_check_seq;
300:
301: hr_utility.set_location(' Leaving :' || l_proc,100);
302: exception
303: when others then
304: raise_application_error(-20001,SQLERRM);
305:

Line 323: hr_utility.set_location(' Entering :' || l_proc,160);

319: and fpo.PROFILE_OPTION_NAME = 'GB_EPS_APPROVAL';
320: */
321: BEGIN
322:
323: hr_utility.set_location(' Entering :' || l_proc,160);
324:
325: /* p_return_status := 'Y';
326: open csr_get_profile;
327: fetch csr_get_profile into p_return_status;

Line 336: hr_utility.trace('Profile Value : '||p_return_status);

332: if p_return_status is null then
333: p_return_status := 'Y';
334: end if;
335:
336: hr_utility.trace('Profile Value : '||p_return_status);
337: hr_utility.set_location(' Leaving :' || l_proc,100);
338:
339: exception
340: when others then

Line 337: hr_utility.set_location(' Leaving :' || l_proc,100);

333: p_return_status := 'Y';
334: end if;
335:
336: hr_utility.trace('Profile Value : '||p_return_status);
337: hr_utility.set_location(' Leaving :' || l_proc,100);
338:
339: exception
340: when others then
341: raise_application_error(-20001,SQLERRM);

Line 410: hr_utility.set_location(' Entering :' || l_proc,160);

406:
407: BEGIN
408:
409:
410: hr_utility.set_location(' Entering :' || l_proc,160);
411:
412: hr_utility.set_location('PAYE REf : '||p_emp_paye_reference,90);
413: hr_utility.set_location('Eff Date : '||p_effective_date,90);
414:

Line 412: hr_utility.set_location('PAYE REf : '||p_emp_paye_reference,90);

408:
409:
410: hr_utility.set_location(' Entering :' || l_proc,160);
411:
412: hr_utility.set_location('PAYE REf : '||p_emp_paye_reference,90);
413: hr_utility.set_location('Eff Date : '||p_effective_date,90);
414:
415: l_status := p_status;
416:

Line 413: hr_utility.set_location('Eff Date : '||p_effective_date,90);

409:
410: hr_utility.set_location(' Entering :' || l_proc,160);
411:
412: hr_utility.set_location('PAYE REf : '||p_emp_paye_reference,90);
413: hr_utility.set_location('Eff Date : '||p_effective_date,90);
414:
415: l_status := p_status;
416:
417: open csr_get_ovn;

Line 421: hr_utility.set_location(' p_object_version_number :' || p_object_version_number,160);

417: open csr_get_ovn;
418: fetch csr_get_ovn into l_object_version_number;
419: close csr_get_ovn;
420:
421: hr_utility.set_location(' p_object_version_number :' || p_object_version_number,160);
422: hr_utility.set_location(' l_object_version_number :' || l_object_version_number,160);
423:
424: if (p_object_version_number <> l_object_version_number) then
425: --p_return_status := 'E';

Line 422: hr_utility.set_location(' l_object_version_number :' || l_object_version_number,160);

418: fetch csr_get_ovn into l_object_version_number;
419: close csr_get_ovn;
420:
421: hr_utility.set_location(' p_object_version_number :' || p_object_version_number,160);
422: hr_utility.set_location(' l_object_version_number :' || l_object_version_number,160);
423:
424: if (p_object_version_number <> l_object_version_number) then
425: --p_return_status := 'E';
426: raise l_exp;

Line 431: hr_utility.trace('Profile Value : '||l_profile);

427: end if;
428:
429: profile_option_value(l_profile);
430:
431: hr_utility.trace('Profile Value : '||l_profile);
432:
433: --if l_profile = 'N' then
434: if l_profile = 'N' AND l_status = 'Completed' then
435: l_status := 'Verified';

Line 437: hr_utility.set_location('Status : '||l_status,40);

433: --if l_profile = 'N' then
434: if l_profile = 'N' AND l_status = 'Completed' then
435: l_status := 'Verified';
436: end if;
437: hr_utility.set_location('Status : '||l_status,40);
438: UPDATE
439: PAY_GB_EPS_DETAILS
440: SET STATUS = l_status,
441: REQUEST_ID = DECODE(FND_GLOBAL.CONC_REQUEST_ID, -1, request_id, FND_GLOBAL.CONC_REQUEST_ID),

Line 480: hr_utility.set_location('eps_id : '||l_eps_id,40);

476: fetch c_get_user_name into l_user_name;
477: close c_get_user_name;
478: end if;
479:
480: hr_utility.set_location('eps_id : '||l_eps_id,40);
481: hr_utility.set_location('Status : '||p_status,40);
482: hr_utility.set_location('email_address : '||email_address,40);
483:
484: -- Calling Workflow to send Notification

Line 481: hr_utility.set_location('Status : '||p_status,40);

477: close c_get_user_name;
478: end if;
479:
480: hr_utility.set_location('eps_id : '||l_eps_id,40);
481: hr_utility.set_location('Status : '||p_status,40);
482: hr_utility.set_location('email_address : '||email_address,40);
483:
484: -- Calling Workflow to send Notification
485: pay_gb_eps.start_eps_wf(eps_id => l_eps_id,status => p_status,email_address => email_address,user_name => l_user_name );

Line 482: hr_utility.set_location('email_address : '||email_address,40);

478: end if;
479:
480: hr_utility.set_location('eps_id : '||l_eps_id,40);
481: hr_utility.set_location('Status : '||p_status,40);
482: hr_utility.set_location('email_address : '||email_address,40);
483:
484: -- Calling Workflow to send Notification
485: pay_gb_eps.start_eps_wf(eps_id => l_eps_id,status => p_status,email_address => email_address,user_name => l_user_name );
486: end if;

Line 489: hr_utility.set_location('Updated the status of the EPS record',100);

485: pay_gb_eps.start_eps_wf(eps_id => l_eps_id,status => p_status,email_address => email_address,user_name => l_user_name );
486: end if;
487:
488: p_return_status := 'S';
489: hr_utility.set_location('Updated the status of the EPS record',100);
490: hr_utility.set_location(' Leaving :' || l_proc,100);
491:
492: exception
493: when l_exp then

Line 490: hr_utility.set_location(' Leaving :' || l_proc,100);

486: end if;
487:
488: p_return_status := 'S';
489: hr_utility.set_location('Updated the status of the EPS record',100);
490: hr_utility.set_location(' Leaving :' || l_proc,100);
491:
492: exception
493: when l_exp then
494: p_return_status := 'E';

Line 562: hr_utility.set_location(' Entering :' || l_proc,160);

558:
559: BEGIN
560:
561:
562: hr_utility.set_location(' Entering :' || l_proc,160);
563: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
564: hr_utility.set_location(' before update smp recovered amount in pkb:' || p_smp_amt_recovered_calc,160);
565: open csr_get_ovn;
566: fetch csr_get_ovn into l_object_version_number,l_related_tax_year;

Line 563: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);

559: BEGIN
560:
561:
562: hr_utility.set_location(' Entering :' || l_proc,160);
563: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
564: hr_utility.set_location(' before update smp recovered amount in pkb:' || p_smp_amt_recovered_calc,160);
565: open csr_get_ovn;
566: fetch csr_get_ovn into l_object_version_number,l_related_tax_year;
567: close csr_get_ovn;

Line 564: hr_utility.set_location(' before update smp recovered amount in pkb:' || p_smp_amt_recovered_calc,160);

560:
561:
562: hr_utility.set_location(' Entering :' || l_proc,160);
563: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
564: hr_utility.set_location(' before update smp recovered amount in pkb:' || p_smp_amt_recovered_calc,160);
565: open csr_get_ovn;
566: fetch csr_get_ovn into l_object_version_number,l_related_tax_year;
567: close csr_get_ovn;
568:

Line 569: hr_utility.set_location(' p_object_version_number :' || p_object_version_number,160);

565: open csr_get_ovn;
566: fetch csr_get_ovn into l_object_version_number,l_related_tax_year;
567: close csr_get_ovn;
568:
569: hr_utility.set_location(' p_object_version_number :' || p_object_version_number,160);
570: hr_utility.set_location(' l_object_version_number :' || l_object_version_number,160);
571:
572: --select effective_date into system_date from fnd_sessions where session_id = userenv('SESSIONID');
573: if (p_object_version_number <> l_object_version_number) then

Line 570: hr_utility.set_location(' l_object_version_number :' || l_object_version_number,160);

566: fetch csr_get_ovn into l_object_version_number,l_related_tax_year;
567: close csr_get_ovn;
568:
569: hr_utility.set_location(' p_object_version_number :' || p_object_version_number,160);
570: hr_utility.set_location(' l_object_version_number :' || l_object_version_number,160);
571:
572: --select effective_date into system_date from fnd_sessions where session_id = userenv('SESSIONID');
573: if (p_object_version_number <> l_object_version_number) then
574: --p_return_status := 'E';

Line 762: hr_utility.set_location('Updated the EPS record',100);

758:
759: COMMIT;
760:
761: p_return_status := 'S';
762: hr_utility.set_location('Updated the EPS record',100);
763: hr_utility.set_location(' Leaving :' || l_proc,100);
764:
765: exception
766: when l_exp then

Line 763: hr_utility.set_location(' Leaving :' || l_proc,100);

759: COMMIT;
760:
761: p_return_status := 'S';
762: hr_utility.set_location('Updated the EPS record',100);
763: hr_utility.set_location(' Leaving :' || l_proc,100);
764:
765: exception
766: when l_exp then
767:

Line 768: hr_utility.set_location(' Exception :' || l_proc,100);

764:
765: exception
766: when l_exp then
767:
768: hr_utility.set_location(' Exception :' || l_proc,100);
769: when others then
770: raise_application_error(-20001,SQLERRM);
771:
772: END update_eps_record;

Line 785: hr_utility.set_location(' Entering :' || l_proc,160);

781: is
782: l_proc varchar2(72) := g_package||'update_final_submission';
783:
784: begin
785: hr_utility.set_location(' Entering :' || l_proc,160);
786:
787: UPDATE
788: PAY_GB_EPS_DETAILS
789: SET FINAL_SUBMISSION_CEASED = p_final_submission_ceased,

Line 820: hr_utility.set_location('l_itemtype : '||l_itemtype,50);

816: description := 'Your EPS record has been Approved';
817: end if;
818:
819: -- Trace Messages
820: hr_utility.set_location('l_itemtype : '||l_itemtype,50);
821: hr_utility.set_location('l_itemkey : '||l_itemkey,50);
822: hr_utility.set_location('send_email_to : '||send_email_to,50);
823: hr_utility.set_location('description : '||description,50);
824:

Line 821: hr_utility.set_location('l_itemkey : '||l_itemkey,50);

817: end if;
818:
819: -- Trace Messages
820: hr_utility.set_location('l_itemtype : '||l_itemtype,50);
821: hr_utility.set_location('l_itemkey : '||l_itemkey,50);
822: hr_utility.set_location('send_email_to : '||send_email_to,50);
823: hr_utility.set_location('description : '||description,50);
824:
825:

Line 822: hr_utility.set_location('send_email_to : '||send_email_to,50);

818:
819: -- Trace Messages
820: hr_utility.set_location('l_itemtype : '||l_itemtype,50);
821: hr_utility.set_location('l_itemkey : '||l_itemkey,50);
822: hr_utility.set_location('send_email_to : '||send_email_to,50);
823: hr_utility.set_location('description : '||description,50);
824:
825:
826: wf_engine.createprocess(l_itemtype, l_itemkey, 'MAIN_PROCESS');

Line 823: hr_utility.set_location('description : '||description,50);

819: -- Trace Messages
820: hr_utility.set_location('l_itemtype : '||l_itemtype,50);
821: hr_utility.set_location('l_itemkey : '||l_itemkey,50);
822: hr_utility.set_location('send_email_to : '||send_email_to,50);
823: hr_utility.set_location('description : '||description,50);
824:
825:
826: wf_engine.createprocess(l_itemtype, l_itemkey, 'MAIN_PROCESS');
827:

Line 878: hr_utility.set_location('v_role_email : '||v_role_email,50);

874: v_role_email := upper(wf_engine.getitemattrtext(itemtype => itemtype
875: ,itemkey => itemkey
876: ,aname => 'SEND_TO_EMAIL'));
877:
878: hr_utility.set_location('v_role_email : '||v_role_email,50);
879:
880: SELECT COUNT(*)
881: INTO n_ctr
882: FROM wf_local_roles

Line 950: hr_utility.set_location(' Entering :' || l_proc,160);

946:
947: begin
948:
949:
950: hr_utility.set_location(' Entering :' || l_proc,160);
951:
952: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
953: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
954: hr_utility.set_location(' p_test_submission :' || p_test_submission,160);

Line 952: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);

948:
949:
950: hr_utility.set_location(' Entering :' || l_proc,160);
951:
952: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
953: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
954: hr_utility.set_location(' p_test_submission :' || p_test_submission,160);
955: hr_utility.set_location(' p_business_group_id :' || p_business_group_id,160);
956:

Line 953: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);

949:
950: hr_utility.set_location(' Entering :' || l_proc,160);
951:
952: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
953: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
954: hr_utility.set_location(' p_test_submission :' || p_test_submission,160);
955: hr_utility.set_location(' p_business_group_id :' || p_business_group_id,160);
956:
957: select to_char(to_date(substr(p_effective_date,0,10),'YYYY-MM-DD'),'DD-MON-YYYY') into l_effective_date from dual;

Line 954: hr_utility.set_location(' p_test_submission :' || p_test_submission,160);

950: hr_utility.set_location(' Entering :' || l_proc,160);
951:
952: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
953: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
954: hr_utility.set_location(' p_test_submission :' || p_test_submission,160);
955: hr_utility.set_location(' p_business_group_id :' || p_business_group_id,160);
956:
957: select to_char(to_date(substr(p_effective_date,0,10),'YYYY-MM-DD'),'DD-MON-YYYY') into l_effective_date from dual;
958:

Line 955: hr_utility.set_location(' p_business_group_id :' || p_business_group_id,160);

951:
952: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
953: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);
954: hr_utility.set_location(' p_test_submission :' || p_test_submission,160);
955: hr_utility.set_location(' p_business_group_id :' || p_business_group_id,160);
956:
957: select to_char(to_date(substr(p_effective_date,0,10),'YYYY-MM-DD'),'DD-MON-YYYY') into l_effective_date from dual;
958:
959: open csr_reqid;

Line 963: hr_utility.set_location(' l_req_id :'||l_req_id.request_id,160);

959: open csr_reqid;
960: fetch csr_reqid into l_req_id;
961: close csr_reqid;
962:
963: hr_utility.set_location(' l_req_id :'||l_req_id.request_id,160);
964:
965: if p_test_submission = 'Y' then
966: l_test_submission := '1';
967: else l_test_submission := ' ';

Line 994: hr_utility.set_location('This is a eText report, Spawn the BI Publisher process',1);

990:
991: -- To update Final Submission ceased and Final Submission Year
992: update_final_submission(l_effective_date,p_emp_paye_reference,p_business_group_id,l_csr_eps.final_submission_ceased,l_csr_eps.final_submission_year);
993:
994: hr_utility.set_location('This is a eText report, Spawn the BI Publisher process',1);
995: xml_layout := FND_REQUEST.ADD_LAYOUT('PAY','PYGBRTIEPSOP13','en','US','ETEXT');
996:
997: IF xml_layout = true
998: THEN

Line 1013: hr_utility.set_location('Error spawning new process',1);

1009:
1010: --check for process submit error
1011: IF l_request_id = 0
1012: THEN
1013: hr_utility.set_location('Error spawning new process',1);
1014: ELSE
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

Line 1020: hr_utility.set_location('The Record has been modified.Please resubmit the concurrent program.',100);

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. ');
1024: hr_utility.set_location('The record has been Updated successfully',100);

Line 1024: hr_utility.set_location('The record has been Updated successfully',100);

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;
1028: END IF;

Line 1061: hr_utility.set_location('PAYE REF : '||l_csr_eps_all_paye.emp_paye_reference,1);

1057: l_count := 1;
1058: -- To update Final Submission ceased and Final Submission Year
1059: update_final_submission(l_effective_date,l_csr_eps_all_paye.emp_paye_reference,p_business_group_id,l_csr_eps_all_paye.final_submission_ceased,l_csr_eps_all_paye.final_submission_year);
1060:
1061: hr_utility.set_location('PAYE REF : '||l_csr_eps_all_paye.emp_paye_reference,1);
1062: hr_utility.set_location('This is a eText report, Spawn the BI Publisher process',1);
1063:
1064: xml_layout := FND_REQUEST.ADD_LAYOUT('PAY','PYGBRTIEPSOP13','en','US','ETEXT');
1065:

Line 1062: hr_utility.set_location('This is a eText report, Spawn the BI Publisher process',1);

1058: -- To update Final Submission ceased and Final Submission Year
1059: update_final_submission(l_effective_date,l_csr_eps_all_paye.emp_paye_reference,p_business_group_id,l_csr_eps_all_paye.final_submission_ceased,l_csr_eps_all_paye.final_submission_year);
1060:
1061: hr_utility.set_location('PAYE REF : '||l_csr_eps_all_paye.emp_paye_reference,1);
1062: hr_utility.set_location('This is a eText report, Spawn the BI Publisher process',1);
1063:
1064: xml_layout := FND_REQUEST.ADD_LAYOUT('PAY','PYGBRTIEPSOP13','en','US','ETEXT');
1065:
1066: IF xml_layout = true

Line 1082: hr_utility.set_location('Error spawning new process',1);

1078:
1079: --check for process submit error
1080: IF l_request_id = 0
1081: THEN
1082: hr_utility.set_location('Error spawning new process',1);
1083: ELSE
1084: -- Update the status of the EPS Record to 'Sent'
1085: update_status_eps_record(l_effective_date,l_csr_eps_all_paye.emp_paye_reference,p_business_group_id,'Sent',l_csr_eps_all_paye.ovn+1,'N',l_result);
1086: if(l_result = 'E') then

Line 1088: hr_utility.set_location('The Record has been modified.Please resubmit the concurrent program.',100);

1084: -- Update the status of the EPS Record to 'Sent'
1085: update_status_eps_record(l_effective_date,l_csr_eps_all_paye.emp_paye_reference,p_business_group_id,'Sent',l_csr_eps_all_paye.ovn+1,'N',l_result);
1086: if(l_result = 'E') then
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);

Line 1092: hr_utility.set_location('The record has been Updated successfully',100);

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;
1096: END IF;

Line 1134: hr_utility.set_location(' Entering :' || l_proc,160);

1130: l_result varchar2(1);
1131: l_effective_date varchar2(15);
1132: begin
1133:
1134: hr_utility.set_location(' Entering :' || l_proc,160);
1135: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
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;

Line 1135: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);

1131: l_effective_date varchar2(15);
1132: begin
1133:
1134: hr_utility.set_location(' Entering :' || l_proc,160);
1135: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
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:

Line 1136: hr_utility.set_location(' p_effective_date :' || p_effective_date,160);

1132: begin
1133:
1134: hr_utility.set_location(' Entering :' || l_proc,160);
1135: hr_utility.set_location(' p_paye_ref :' || p_emp_paye_reference,160);
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);

Line 1155: hr_utility.set_location('The EPS record has been modified.Please resubmit the concurrent program.',100);

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);

Line 1159: hr_utility.set_location('The record has been rolled back successfully',100);

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. ');
1161: end if;
1162: else
1163: fnd_file.put_line(fnd_file.output,'No Records found. ');

Line 1196: hr_utility.set_location('r',100);

1192: l_exp EXCEPTION;
1193: l_err boolean :=FALSE;
1194:
1195: begin
1196: hr_utility.set_location('r',100);
1197:
1198: open csr_eps;
1199: fetch csr_eps into l_csr_eps;
1200: close csr_eps;

Line 1203: hr_utility.set_location('SMP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1199: fetch csr_eps into l_csr_eps;
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:

Line 1209: hr_utility.set_location('SAP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1205: l_err := true;
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:

Line 1215: hr_utility.set_location('OSSP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1211: l_err := true;
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:

Line 1221: hr_utility.set_location('ASPP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1217: l_err := true;
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:

Line 1227: hr_utility.set_location('SSP Recovered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1223: l_err := true;
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:

Line 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);

1229: l_err := true;
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:

Line 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);

1235: l_err := true;
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:

Line 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);

1241: l_err := true;
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:

Line 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);

1247: l_err := true;
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:

Line 1257: hr_utility.set_location('CIS Deductions Suffered, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1253: l_err := true;
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:

Line 1263: hr_utility.set_location('NICs Holiday, must be greater than or equal to zero for PAYE Reference '||p_emp_paye_reference||'.',10);

1259: l_err := true;
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:

Line 1310: hr_utility.set_location('The HMRC Office Number is missing.',10);

1306: hmrc_office_no := nvl(substr(emp_paye_reference,0,instr(emp_paye_reference,'/')-1),' ');
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

Line 1315: hr_utility.set_location('The HMRC Office Number '||hmrc_office_no||' has invalid characters.',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);
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:

Line 1321: hr_utility.set_location('The Employer PAYE Reference is missing.',10);

1317: l_err := true;
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);

Line 1325: hr_utility.set_location('The Employer PAYE Reference '||emp_paye_reference|| ' has invalid characters.',10);

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.');
1327: l_err := true;
1328: end if;
1329:

Line 1331: hr_utility.set_location('The Employer Name for PAYE Reference '||emp_paye_reference||' is missing.',10);

1327: l_err := true;
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);

Line 1335: hr_utility.set_location('The Employer Name '||employer_name||' for PAYE Reference '||emp_paye_reference||' has invalid characters .',10);

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 .');
1337: l_err := true;
1338: end if;
1339:

Line 1341: hr_utility.set_location('The Employer Accounts Office Ref for PAYE Reference '||emp_paye_reference||' is missing.',10);

1337: l_err := true;
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

Line 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);

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
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:

Line 1357: hr_utility.set_location ('ECON for PAYE Reference '||emp_paye_reference||' is missing.',10);

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;

Line 1364: hr_utility.set_location ('ECON for PAYE Reference '||emp_paye_reference||' is invalid.',10);

1360: END IF;
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:

Line 1371: hr_utility.set_location('The EDI Sender ID for PAYE Reference '||emp_paye_reference||' is missing.',10);

1367: END IF;*/
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;

Line 1379: hr_utility.set_location('The Tax Year of Effective Date must be 2013 or later.',10);

1375: end if;
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:

Line 1391: hr_utility.trace('tax year = '||tax_year);

1387: Else
1388: l_current_tax_year := substr(to_char(sysdate,'YYYY/MON/DD'),1,4) ;
1389: End If;
1390:
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.');

Line 1392: hr_utility.trace('Current year = '||l_current_tax_year);

1388: l_current_tax_year := substr(to_char(sysdate,'YYYY/MON/DD'),1,4) ;
1389: End If;
1390:
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;

Line 1394: hr_utility.set_location('The Tax Year of Effective Date must be within the Current Tax Year - 2 to Current Tax Year.',10);

1390:
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:

Line 1433: hr_utility.trace('Entering validate_input');

1429: l_translated_value varchar2(200); -- Required to output failing char.
1430: --
1431: BEGIN
1432: --
1433: hr_utility.trace('Entering validate_input');
1434: hr_utility.trace('p_validate_mode='||p_validate_mode);
1435: hr_utility.trace('p_input_value='||p_input_value);
1436: --
1437:

Line 1434: hr_utility.trace('p_validate_mode='||p_validate_mode);

1430: --
1431: BEGIN
1432: --
1433: hr_utility.trace('Entering validate_input');
1434: hr_utility.trace('p_validate_mode='||p_validate_mode);
1435: hr_utility.trace('p_input_value='||p_input_value);
1436: --
1437:
1438: if p_validate_mode = 'EMP_NAME' then

Line 1435: hr_utility.trace('p_input_value='||p_input_value);

1431: BEGIN
1432: --
1433: hr_utility.trace('Entering validate_input');
1434: hr_utility.trace('p_validate_mode='||p_validate_mode);
1435: hr_utility.trace('p_input_value='||p_input_value);
1436: --
1437:
1438: if p_validate_mode = 'EMP_NAME' then
1439: if ( substr(p_input_value,1,1) =' ') then

Line 1440: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));

1436: --
1437:
1438: if p_validate_mode = 'EMP_NAME' then
1439: if ( substr(p_input_value,1,1) =' ') then
1440: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
1441: l_valid := 2;
1442: else
1443: l_translated_value :=
1444: translate(p_input_value,

Line 1448: hr_utility.trace('Invalid chars found: '||l_translated_value);

1444: translate(p_input_value,
1445: l_invalid_char||l_mix_chars||l_number_chk||l_char_set_A||l_space,l_invalid_char);
1446:
1447: if l_translated_value is not null then
1448: hr_utility.trace('Invalid chars found: '||l_translated_value);
1449: l_valid := 1; -- Not valid
1450: else
1451: l_valid := 0; -- Valid
1452: end if;

Line 1464: hr_utility.trace('Invalid chars found: '||l_translated_value);

1460: translate(p_input_value,
1461: l_invalid_char||l_number_chk,l_invalid_char);
1462:
1463: if l_translated_value is not null then
1464: hr_utility.trace('Invalid chars found: '||l_translated_value);
1465: l_valid := 1; -- Not valid
1466: else
1467: l_valid := 0; -- Valid
1468: end if;

Line 1475: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));

1471: --
1472: -- Check for Valid First Char
1473: --
1474: if ( substr(p_input_value,1,1) =' ') then
1475: hr_utility.trace('Invalid first char: '||substr(p_input_value,1,1));
1476: l_valid := 2;
1477: else
1478: l_translated_value :=
1479: translate(p_input_value,

Line 1483: hr_utility.trace('Invalid chars found: '||l_translated_value);

1479: translate(p_input_value,
1480: l_invalid_char||l_mix_chars||l_number_chk||l_char_set_B||l_space,l_invalid_char);
1481:
1482: if l_translated_value is not null then
1483: hr_utility.trace('Invalid chars found: '||l_translated_value);
1484: l_valid := 1; -- Not valid
1485: else
1486: l_valid := 0; -- Valid
1487: end if;

Line 1491: hr_utility.trace('Leaving validate_input');

1487: end if;
1488: end if;
1489: END IF;
1490: --
1491: hr_utility.trace('Leaving validate_input');
1492: return l_valid;
1493: end validate_input;
1494:
1495:

Line 1507: hr_utility.trace('Entering ECON Validate');

1503: l_reminder number;
1504: l_check_letters varchar2(19) := 'ABCDEFHJKLMNPQRTWXY';
1505:
1506: begin
1507: hr_utility.trace('Entering ECON Validate');
1508:
1509: -- Format Check ENNNNNNNA
1510: IF regexp_instr(econ,'^E[[:digit:]]{7}[[:alpha:]]$') = 0 THEN
1511: hr_utility.set_location('ECON Validation Fails',10);

Line 1511: hr_utility.set_location('ECON Validation Fails',10);

1507: hr_utility.trace('Entering ECON Validate');
1508:
1509: -- Format Check ENNNNNNNA
1510: IF regexp_instr(econ,'^E[[:digit:]]{7}[[:alpha:]]$') = 0 THEN
1511: hr_utility.set_location('ECON Validation Fails',10);
1512: return 0;-- Validation fails
1513: END IF;
1514:
1515: -- First Char must be E

Line 1517: hr_utility.set_location('ECON Validation Fails',10);

1513: END IF;
1514:
1515: -- First Char must be E
1516: IF substr(econ,1,1) <> 'E' THEN
1517: hr_utility.set_location('ECON Validation Fails',10);
1518: return 0;-- Validation fails
1519:
1520: -- Next 7 should be numeric ranging 3000000 up to 3999999
1521: ELSIF substr(econ,2,7) < 3000000 OR substr(econ,2,7) > 3999999 THEN

Line 1522: hr_utility.set_location('ECON Validation Fails',20);

1518: return 0;-- Validation fails
1519:
1520: -- Next 7 should be numeric ranging 3000000 up to 3999999
1521: ELSIF substr(econ,2,7) < 3000000 OR substr(econ,2,7) > 3999999 THEN
1522: hr_utility.set_location('ECON Validation Fails',20);
1523: return 0;-- Validation fails
1524: END IF;
1525:
1526: -- Last char must be alpha satifying modulas 19 rule

Line 1536: hr_utility.set_location('ECON Validation Fails',30);

1532: l_sum := l_sum + l_fixed_value;
1533: l_reminder := mod(l_sum,19);
1534:
1535: IF substr(l_check_letters,l_reminder+1,1) <> substr(econ,9,1) THEN
1536: hr_utility.set_location('ECON Validation Fails',30);
1537: return 0; -- Validation Fails
1538: END IF;
1539:
1540: return 1; -- Validation passes

Line 1541: hr_utility.trace('Leaving ECON Validate');

1537: return 0; -- Validation Fails
1538: END IF;
1539:
1540: return 1; -- Validation passes
1541: hr_utility.trace('Leaving ECON Validate');
1542: END econ_validate;
1543:
1544: function tax_year return number
1545: is