[Home] [Help]
147: p_name in varchar2,
148: p_mode in varchar2) return boolean IS
149: l_proc CONSTANT VARCHAR2(50):= g_package||'validate_data';
150: BEGIN
151: hr_utility.set_location('Entering: '||l_proc,1);
152: if pay_gb_eoy_magtape.validate_input(UPPER(p_value),p_mode) > 0 then
153: hr_utility.set_location('Name/Value : ' || p_name || '/' || p_value ,10);
154: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
155: pay_core_utils.push_token('INPUT_NAME', p_name);
149: l_proc CONSTANT VARCHAR2(50):= g_package||'validate_data';
150: BEGIN
151: hr_utility.set_location('Entering: '||l_proc,1);
152: if pay_gb_eoy_magtape.validate_input(UPPER(p_value),p_mode) > 0 then
153: hr_utility.set_location('Name/Value : ' || p_name || '/' || p_value ,10);
154: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
155: pay_core_utils.push_token('INPUT_NAME', p_name);
156: pay_core_utils.push_token('INPUT_VALUE', p_value);
157: return false;
155: pay_core_utils.push_token('INPUT_NAME', p_name);
156: pay_core_utils.push_token('INPUT_VALUE', p_value);
157: return false;
158: end if;
159: hr_utility.set_location('Leaving: '||l_proc,999);
160: return true;
161: END validate_data;
162: --
163: --
185: l_mode1 varchar2(15) ;
186: l_mode2 varchar2 (15) ;
187: BEGIN
188: l_ret := true;
189: hr_utility.set_location('Entering: '||l_proc,1);
190:
191: -- Bug 6770200
192: -- Additional modes added. Like while checking for P45PT3,
193: -- also check if the employee has been picked by a P45PT3(new) or
212:
213: open csr_check_action(l_mode1, l_mode2);
214: fetch csr_check_action into l_action;
215: if csr_check_action%FOUND then
216: hr_utility.set_location('Assignment action complete',5);
217: l_ret := false;
218: end if;
219: close csr_check_action;
220: hr_utility.set_location('Leaving: '||l_proc,999);
216: hr_utility.set_location('Assignment action complete',5);
217: l_ret := false;
218: end if;
219: close csr_check_action;
220: hr_utility.set_location('Leaving: '||l_proc,999);
221: return l_ret;
222: END;
223: --
224: --
353: and act.action_status = 'C'
354: and act.assignment_id = p_assignment_id;
355:
356: BEGIN
357: hr_utility.set_location('Entering: '||l_proc,1);
358: open csr_parameter_info;
359: fetch csr_parameter_info into l_payroll_id,
360: l_tax_ref,
361: l_effective_date,
361: l_effective_date,
362: l_business_group_id;
363: close csr_parameter_info;
364:
365: hr_utility.set_location('Before CSR_ASG cursor effective_date '|| to_char(l_effective_date),10);
366: for asg_rec in csr_asg loop
367: hr_utility.set_location('Assignment ID :' || asg_rec.assignment_id,15);
368: l_arch := false;
369: l_p46_5_def := 0;
363: close csr_parameter_info;
364:
365: hr_utility.set_location('Before CSR_ASG cursor effective_date '|| to_char(l_effective_date),10);
366: for asg_rec in csr_asg loop
367: hr_utility.set_location('Assignment ID :' || asg_rec.assignment_id,15);
368: l_arch := false;
369: l_p46_5_def := 0;
370: open csr_aei_flag(asg_rec.assignment_id);
371: fetch csr_aei_flag into l_send_flag, l_static_flag;
371: fetch csr_aei_flag into l_send_flag, l_static_flag;
372:
373: -- only create asg action if rows is found
374: if csr_aei_flag%FOUND then
375: hr_utility.set_location('\n l_send_flag = ' || l_send_flag || ' l_static_flag = ' || l_static_flag,20);
376: if p_rep_type = 'P46_5' then
377: l_p45_not_run := check_action('P45%3', asg_rec.assignment_id);
378: if l_p45_not_run then
379: open csr_p46_5_default(asg_rec.assignment_id);
428: end if;
429: end if;
430: end if;
431: if l_arch then
432: hr_utility.set_location('Creating assignment action for ' || asg_rec.assignment_id,30);
433: select pay_assignment_actions_s.nextval
434: into l_ass_act_id
435: from dual;
436: --
460: close csr_aei_flag;
461:
462: end loop;
463:
464: hr_utility.set_location('Leaving: '||l_proc,999);
465: END internal_action_creation;
466: --
467: --
468: --
501:
502:
503: l_45_46_pennot_rec csr_45_46_pennot_details%rowtype;
504: BEGIN
505: hr_utility.set_location('Entering: '||l_proc,1);
506: l_arch := true;
507:
508: fnd_file.put_line(fnd_file.LOG,'Entering: '||l_proc);
509: open csr_45_46_pennot_details;
515: --l_arch := false;
516: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
517: pay_core_utils.push_token('ITEM_NAME', 'Tax Code');
518: pay_core_utils.push_token('MAX_VALUE', '6 characters');
519: hr_utility.set_location('Tax Code error',20);
520: fnd_file.put_line(fnd_file.LOG,'l_arch3: ');
521:
522: end if;
523: if length(ltrim(l_45_46_pennot_rec.prev_tax_code,'S')) > 6 then
524: --l_arch := false;
525: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
526: pay_core_utils.push_token('ITEM_NAME', 'Previous Tax Code');
527: pay_core_utils.push_token('MAX_VALUE', '6 characters');
528: hr_utility.set_location('Prev Tax Code',40);
529: fnd_file.put_line(fnd_file.LOG,'l_arch4: ');
530: end if;
531:
532: if not validate_data(substr(ltrim(substr(l_45_46_pennot_rec.prev_emp_paye_ref,4,8),'/'),1,7),'Previous Tax Reference','FULL_EDI') then
530: end if;
531:
532: if not validate_data(substr(ltrim(substr(l_45_46_pennot_rec.prev_emp_paye_ref,4,8),'/'),1,7),'Previous Tax Reference','FULL_EDI') then
533: --l_arch := false;
534: hr_utility.set_location('Previous Tax Reference error',50);
535: fnd_file.put_line(fnd_file.LOG,'l_arch5: ');
536: end if;
537:
538: if not validate_data(substr(l_45_46_pennot_rec.prev_emp_paye_ref,1,3),'Previous Tax District','FULL_EDI') then
536: end if;
537:
538: if not validate_data(substr(l_45_46_pennot_rec.prev_emp_paye_ref,1,3),'Previous Tax District','FULL_EDI') then
539: --l_arch := false;
540: hr_utility.set_location('Previous Tax District error',60);
541: fnd_file.put_line(fnd_file.LOG,'l_arch6: ');
542: end if;
543:
544: if not validate_data(p_tax_rec.prev_paid,'Previous Pay','FULL_EDI') then
542: end if;
543:
544: if not validate_data(p_tax_rec.prev_paid,'Previous Pay','FULL_EDI') then
545: -- l_arch := false;
546: hr_utility.set_location('Prev Pay Valiation',70);
547: fnd_file.put_line(fnd_file.LOG,'l_arch7: ');
548: end if;
549:
550: if not validate_data(p_tax_rec.prev_tax,'Previous Tax','FULL_EDI') then
548: end if;
549:
550: if not validate_data(p_tax_rec.prev_tax,'Previous Tax','FULL_EDI') then
551: --l_arch := false;
552: hr_utility.set_location('Prev Tax Validation',80);
553: fnd_file.put_line(fnd_file.LOG,'l_arch8: ');
554: end if;
555:
556: if not validate_data(l_45_46_pennot_rec.prev_last_pay_period,'Previous Last Payment Period','FULL_EDI') then
554: end if;
555:
556: if not validate_data(l_45_46_pennot_rec.prev_last_pay_period,'Previous Last Payment Period','FULL_EDI') then
557: --l_arch := false;
558: hr_utility.set_location('Previous period error',90);
559: fnd_file.put_line(fnd_file.LOG,'l_arch9: ');
560: end if;
561:
562: l_ovn := l_45_46_pennot_rec.object_version_number;
560: end if;
561:
562: l_ovn := l_45_46_pennot_rec.object_version_number;
563: if l_arch then
564: hr_utility.set_location('Clear Flag',20);
565: hr_assignment_extra_info_api.update_assignment_extra_info
566: (p_validate => false,
567: p_object_version_number => l_ovn,
568: p_assignment_extra_info_id => l_45_46_pennot_rec.assignment_extra_info_id,
588: p_45_46_pennot_rec.act_info10 := l_45_46_pennot_rec.recently_bereaved;
589: p_45_46_pennot_rec.act_info11 := p_tax_rec.prev_paid;
590: p_45_46_pennot_rec.act_info12 := p_tax_rec.prev_tax;
591:
592: hr_utility.set_location('Leaving: '||l_proc,999);
593: return l_arch;
594:
595:
596:
708: and e1.element_link_id = link1.element_link_id);
709: */
710:
711: BEGIN
712: hr_utility.set_location('Entering: '||l_proc,1);
713:
714:
715:
716: open csr_element_id('PAYE');
770: close csr_run_result;
771:
772: -- 3. Still not found, fetch the value from the PAYE
773: if p_tax_rec.tax_code is null then
774: hr_utility.trace('Fetching run result 3');
775: open csr_paye_details;
776: fetch csr_paye_details into p_tax_rec.tax_code,
777: p_tax_rec.tax_basis,
778: p_tax_rec.prev_paid,
780: close csr_paye_details;
781: end if;
782: end if;
783: */
784: hr_utility.set_location('Leaving: '||l_proc,999);
785: END fetch_tax_rec;
786: --
787: --
788: FUNCTION fetch_address_rec(p_person_id IN NUMBER,
807: and p_effective_date between nvl(addr.date_from,fnd_date.canonical_to_date('0001/01/01 00:00:00'))
808: and nvl(addr.date_to, fnd_date.canonical_to_date('4712/12/31 00:00:00'));
809: l_addr_rec csr_address%rowtype;
810: BEGIN
811: hr_utility.set_location('Entering: '||l_proc,1);
812: l_arch := true;
813:
814: open csr_address;
815: fetch csr_address into l_addr_rec;
822: if l_addr_rec.addr1 is null then
823: pay_core_utils.push_message(800, 'HR_78088_MISSING_DATA_ERR', 'F');
824: pay_core_utils.push_token('TOKEN', 'Address');
825: l_arch := false;
826: hr_utility.set_location('Address missing',10);
827: end if;
828:
829: if not validate_data(l_temp,'Address','EDI_SURNAME') then
830: l_arch := false;
827: end if;
828:
829: if not validate_data(l_temp,'Address','EDI_SURNAME') then
830: l_arch := false;
831: hr_utility.set_location('Address Validation',20);
832: end if;
833:
834: if not validate_data(l_addr_rec.post_code,'Post Code','FULL_EDI') then
835: l_arch := false;
832: end if;
833:
834: if not validate_data(l_addr_rec.post_code,'Post Code','FULL_EDI') then
835: l_arch := false;
836: hr_utility.set_location('Post Code error',20);
837: end if;
838:
839: p_addr_rec.assignment_id := p_assignment_id;
840: p_addr_rec.effective_date := p_effective_date;
846: p_addr_rec.act_info9 := l_addr_rec.county;
847: p_addr_rec.act_info12 := l_addr_rec.post_code;
848: p_addr_rec.act_info13 := l_addr_rec.country;
849:
850: hr_utility.set_location('Leaving: '||l_proc,999);
851: return l_arch;
852: END fetch_address_rec;
853: --
854: --
926: and p_effective_date between paa.effective_start_date and paa.effective_end_date;
927:
928: l_person_rec csr_person_details%rowtype;
929: BEGIN
930: hr_utility.set_location('Entering: '||l_proc,1);
931: l_arch := true;
932:
933: open csr_person_details;
934: fetch csr_person_details into l_person_rec;
939: close csr_job;
940:
941: if not validate_data(l_person_rec.first_name,'First Name','EDI_SURNAME') then
942: l_arch := false;
943: hr_utility.set_location('First Name error',10);
944: end if;
945:
946: if not validate_data(l_person_rec.last_name,'Last Name','EDI_SURNAME') then
947: l_arch := false;
944: end if;
945:
946: if not validate_data(l_person_rec.last_name,'Last Name','EDI_SURNAME') then
947: l_arch := false;
948: hr_utility.set_location('Last Name error',20);
949: end if;
950:
951: if not validate_data(l_person_rec.assignment_number,'Assignment Number','FULL_EDI') then
952: l_arch := false;
949: end if;
950:
951: if not validate_data(l_person_rec.assignment_number,'Assignment Number','FULL_EDI') then
952: l_arch := false;
953: hr_utility.set_location('Assignment Number error',30);
954: end if;
955:
956: if not validate_data(l_person_rec.sex,'Sex','FULL_EDI') then
957: l_arch := false;
954: end if;
955:
956: if not validate_data(l_person_rec.sex,'Sex','FULL_EDI') then
957: l_arch := false;
958: hr_utility.set_location('Sex error',40);
959: end if;
960:
961: if not validate_data(l_job,'Job Title','FULL_EDI') then
962: l_arch := false;
959: end if;
960:
961: if not validate_data(l_job,'Job Title','FULL_EDI') then
962: l_arch := false;
963: hr_utility.set_location('Job Title error',50);
964: end if;
965:
966: if l_person_rec.national_identifier is not null and
967: hr_gb_utility.ni_validate(l_person_rec.national_identifier,sysdate) <> 0 then
968: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
969: pay_core_utils.push_token('INPUT_NAME', 'NI Number');
970: pay_core_utils.push_token('INPUT_VALUE', l_person_rec.national_identifier);
971: l_arch := false;
972: hr_utility.set_location('NI error',60);
973: end if;
974:
975: /** -- NO Tax code validation yet as it is different between P45(3),P46 and P46P --**
976: l_temp := hr_gb_utility.tax_code_validate(p_tax_rec.tax_code,sysdate,l_person_rec.assignment_id);
978: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
979: pay_core_utils.push_token('INPUT_NAME', 'Tax Code');
980: pay_core_utils.push_token('INPUT_VALUE', p_tax_rec.tax_code);
981: l_arch := false;
982: hr_utility.set_location('Tax Code error',30);
983: end if;
984: */
985: p_person_rec.person_id := l_person_rec.person_id;
986: p_person_rec.assignment_id := l_person_rec.assignment_id;
997: p_person_rec.act_info17 := l_person_rec.sex;
998: p_person_rec.act_info18 := l_job;
999: p_person_rec.act_info21 := p_tax_rec.tax_code;
1000: p_person_rec.act_info22 := p_tax_rec.tax_basis;
1001: hr_utility.set_location('Leaving: '||l_proc,999);
1002: return l_arch;
1003: END fetch_person_rec;
1004: --
1005: --
1056:
1057: l_p45_3_rec csr_p45_3_details%rowtype;
1058: l_student_rec csr_student_loan%rowtype;
1059: BEGIN
1060: hr_utility.set_location('Entering: '||l_proc,1);
1061: l_arch := true;
1062:
1063: open csr_p45_3_details;
1064: fetch csr_p45_3_details into l_p45_3_rec;
1071: if l_p45_3_rec.date_left is null then
1072: pay_core_utils.push_message(800, 'HR_78088_MISSING_DATA_ERR', 'F');
1073: pay_core_utils.push_token('TOKEN', 'Date Left Previous Employer');
1074: l_arch := false;
1075: hr_utility.set_location('Date Left null',30);
1076: end if;
1077:
1078: if to_number(p_tax_rec.prev_paid) > 999999.99 then
1079: l_arch := false;
1079: l_arch := false;
1080: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
1081: pay_core_utils.push_token('ITEM_NAME', 'Previous Pay');
1082: pay_core_utils.push_token('MAX_VALUE', '999999.99');
1083: hr_utility.set_location('Prev Paid > 999999.99',10);
1084: end if;
1085:
1086: if to_number(p_tax_rec.prev_tax) > 999999.99 then
1087: l_arch := false;
1087: l_arch := false;
1088: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
1089: pay_core_utils.push_token('ITEM_NAME', 'Previous Tax');
1090: pay_core_utils.push_token('MAX_VALUE', '999999.99');
1091: hr_utility.set_location('Prev Tax > 999999.99',20);
1092: end if;
1093:
1094: /** -- Validate using the orignal, will use new one when requirement comes out --
1095: l_temp := hr_gb_utility.tax_code_validate(l_p45_3_rec.prev_tax_code,sysdate,p_person_rec.assignment_id);
1097: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
1098: pay_core_utils.push_token('INPUT_NAME', 'Previous Tax Code');
1099: pay_core_utils.push_token('INPUT_VALUE', p_tax_rec.tax_code);
1100: l_arch := false;
1101: hr_utility.set_location('Tax Code error',30);
1102: end if;
1103: */
1104: if length(ltrim(p_tax_rec.tax_code,'S')) > 6 then
1105: l_arch := false;
1105: l_arch := false;
1106: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
1107: pay_core_utils.push_token('ITEM_NAME', 'Tax Code');
1108: pay_core_utils.push_token('MAX_VALUE', '6 characters');
1109: hr_utility.set_location('Tax Code error',30);
1110: end if;
1111:
1112: if length(ltrim(l_p45_3_rec.prev_tax_code,'S')) > 6 then
1113: l_arch := false;
1113: l_arch := false;
1114: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
1115: pay_core_utils.push_token('ITEM_NAME', 'Previous Tax Code');
1116: pay_core_utils.push_token('MAX_VALUE', '6 characters');
1117: hr_utility.set_location('Prev Tax Code',40);
1118: end if;
1119:
1120: if not validate_data(substr(ltrim(substr(l_p45_3_rec.prev_tax_district,4,8),'/'),1,7),'Previous Tax Reference','FULL_EDI') then
1121: l_arch := false;
1118: end if;
1119:
1120: if not validate_data(substr(ltrim(substr(l_p45_3_rec.prev_tax_district,4,8),'/'),1,7),'Previous Tax Reference','FULL_EDI') then
1121: l_arch := false;
1122: hr_utility.set_location('Previous Tax Reference error',50);
1123: end if;
1124:
1125: if not validate_data(substr(l_p45_3_rec.prev_tax_district,1,3),'Previous Tax District','FULL_EDI') then
1126: l_arch := false;
1123: end if;
1124:
1125: if not validate_data(substr(l_p45_3_rec.prev_tax_district,1,3),'Previous Tax District','FULL_EDI') then
1126: l_arch := false;
1127: hr_utility.set_location('Previous Tax District error',60);
1128: end if;
1129:
1130: if not validate_data(p_tax_rec.prev_paid,'Previous Pay','FULL_EDI') then
1131: l_arch := false;
1128: end if;
1129:
1130: if not validate_data(p_tax_rec.prev_paid,'Previous Pay','FULL_EDI') then
1131: l_arch := false;
1132: hr_utility.set_location('Prev Pay Valiation',70);
1133: end if;
1134:
1135: if not validate_data(p_tax_rec.prev_tax,'Previous Tax','FULL_EDI') then
1136: l_arch := false;
1133: end if;
1134:
1135: if not validate_data(p_tax_rec.prev_tax,'Previous Tax','FULL_EDI') then
1136: l_arch := false;
1137: hr_utility.set_location('Prev Tax Validation',80);
1138: end if;
1139:
1140: if not validate_data(l_p45_3_rec.prev_period,'Previous Last Payment Period','FULL_EDI') then
1141: l_arch := false;
1138: end if;
1139:
1140: if not validate_data(l_p45_3_rec.prev_period,'Previous Last Payment Period','FULL_EDI') then
1141: l_arch := false;
1142: hr_utility.set_location('Previous period error',90);
1143: end if;
1144:
1145: l_ovn := l_p45_3_rec.object_version_number;
1146: if l_arch then
1143: end if;
1144:
1145: l_ovn := l_p45_3_rec.object_version_number;
1146: if l_arch then
1147: hr_utility.set_location('Clear Flag',100);
1148: hr_assignment_extra_info_api.update_assignment_extra_info
1149: (p_validate => false,
1150: p_object_version_number => l_ovn,
1151: p_assignment_extra_info_id => l_p45_3_rec.assignment_extra_info_id,
1175: /*changes for P45PT_3 end*/
1176: -- Bug 6994632 passing Prev Tax Pay Notified value to archive function
1177: p_p45_3_rec.act_info16:= l_p45_3_rec.prev_tax_pay_notified;
1178:
1179: hr_utility.set_location('Leaving: '||l_proc,999);
1180: return l_arch;
1181: END fetch_p45_3_rec;
1182: --
1183: --
1203: and aei.information_type = 'GB_P46';
1204:
1205: l_p46_rec csr_p46_details%rowtype;
1206: BEGIN
1207: hr_utility.set_location('Entering: '||l_proc,1);
1208: l_arch := true;
1209:
1210: open csr_p46_details;
1211: fetch csr_p46_details into l_p46_rec;
1212: close csr_p46_details;
1213:
1214: if not validate_data(l_p46_rec.p46_statement,'P46 Statement','FULL_EDI') then
1215: l_arch := false;
1216: hr_utility.set_location('P46 Statement validation',10);
1217: end if;
1218:
1219: l_temp := hr_gb_utility.tax_code_validate(p_tax_rec.tax_code,sysdate,p_person_rec.assignment_id);
1220: if l_temp <> ' ' then
1221: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
1222: pay_core_utils.push_token('INPUT_NAME', 'Tax Code');
1223: pay_core_utils.push_token('INPUT_VALUE', p_tax_rec.tax_code);
1224: l_arch := false;
1225: hr_utility.set_location('Tax Code error',20);
1226: end if;
1227:
1228: l_ovn := l_p46_rec.object_version_number;
1229: if l_arch then
1226: end if;
1227:
1228: l_ovn := l_p46_rec.object_version_number;
1229: if l_arch then
1230: hr_utility.set_location('Clear Flag',30);
1231: hr_assignment_extra_info_api.update_assignment_extra_info
1232: (p_validate => false,
1233: p_object_version_number => l_ovn,
1234: p_assignment_extra_info_id => l_p46_rec.assignment_extra_info_id,
1242: p_p46_rec.act_info1 := l_ovn;
1243: p_p46_rec.act_info2 := l_p46_rec.p46_statement;
1244: p_p46_rec.act_info3 := l_p46_rec.student_loan;
1245:
1246: hr_utility.set_location('Leaving: '||l_proc,999);
1247: return l_arch;
1248: END fetch_p46_rec;
1249: --
1250: FUNCTION fetch_p46_5_rec(p_effective_date IN DATE,
1288:
1289:
1290: l_p46_rec csr_p46_details%rowtype;
1291: BEGIN
1292: hr_utility.set_location('Entering: '||l_proc,1);
1293: fnd_file.put_line(fnd_file.LOG,'Entering: '||l_proc);
1294: l_arch := true;
1295:
1296: open csr_p46_details;
1316: end if;
1317:
1318: /* if not validate_data(l_p46_rec.p46_statement,'P46 Statement','FULL_EDI') then
1319: l_arch := false;
1320: hr_utility.set_location('P46 Statement validation',10);
1321: end if;
1322:
1323: l_temp := hr_gb_utility.tax_code_validate(p_tax_rec.tax_code,sysdate,p_person_rec.assignment_id);
1324: if l_temp <> ' ' then
1325: pay_core_utils.push_message(800, 'HR_78057_GB_MAGTAPE_VAILDATION', 'F');
1326: pay_core_utils.push_token('INPUT_NAME', 'Tax Code');
1327: pay_core_utils.push_token('INPUT_VALUE', p_tax_rec.tax_code);
1328: l_arch := false;
1329: hr_utility.set_location('Tax Code error',20);
1330: end if;*/
1331:
1332: l_ovn := l_p46_rec.object_version_number;
1333: if l_arch then
1330: end if;*/
1331:
1332: l_ovn := l_p46_rec.object_version_number;
1333: if l_arch then
1334: hr_utility.set_location('Clear Flag',30);
1335: if l_def_archive = 'N' then
1336: hr_assignment_extra_info_api.update_assignment_extra_info
1337: (p_validate => false,
1338: p_object_version_number => l_ovn,
1356: p_p46_rec.act_info1 := l_ovn;
1357: p_p46_rec.act_info2 := l_p46_rec.p46_statement;
1358: p_p46_rec.act_info3 := l_p46_rec.student_loan;
1359: p_p46_rec.act_info4 := l_def_archive;
1360: hr_utility.set_location('Leaving: '||l_proc,999);
1361: fnd_file.put_line(fnd_file.LOG,'Leaving: '||l_proc);
1362: return l_arch;
1363: END fetch_p46_5_rec;
1364: --
1383: and aei.information_type = 'GB_P46PENNOT';
1384:
1385: l_p46p_rec csr_p46p_details%rowtype;
1386: BEGIN
1387: hr_utility.set_location('Entering: '||l_proc,1);
1388: l_arch := true;
1389:
1390: open csr_p46p_details;
1391: fetch csr_p46p_details into l_p46p_rec;
1392: close csr_p46p_details;
1393:
1394: if not validate_data(l_p46p_rec.annual_pension,'Annual Pension','FULL_EDI') then
1395: l_arch := false;
1396: hr_utility.set_location('Annaul Pension',10);
1397: end if;
1398:
1399: if length(ltrim(p_tax_rec.tax_code,'S')) > 6 then
1400: l_arch := false;
1400: l_arch := false;
1401: pay_core_utils.push_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX', 'F');
1402: pay_core_utils.push_token('ITEM_NAME', 'Tax Code');
1403: pay_core_utils.push_token('MAX_VALUE', '6 characters');
1404: hr_utility.set_location('Tax Code error',20);
1405: end if;
1406:
1407: l_ovn := l_p46p_rec.object_version_number;
1408: if l_arch then
1405: end if;
1406:
1407: l_ovn := l_p46p_rec.object_version_number;
1408: if l_arch then
1409: hr_utility.set_location('Clear Flag',20);
1410: hr_assignment_extra_info_api.update_assignment_extra_info
1411: (p_validate => false,
1412: p_object_version_number => l_ovn,
1413: p_assignment_extra_info_id => l_p46p_rec.assignment_extra_info_id,
1421: p_p46p_rec.act_info1 := l_ovn;
1422: p_p46p_rec.act_info2 := l_p46p_rec.annual_pension;
1423: p_p46p_rec.act_info3 := l_p46p_rec.date_pension_start;
1424:
1425: hr_utility.set_location('Leaving: '||l_proc,999);
1426: return l_arch;
1427: END fetch_p46p_rec;
1428: --
1429: --
1433: l_proc CONSTANT VARCHAR2(50):= g_package||'insert_archive_row';
1434: l_ovn number;
1435: l_action_id number;
1436: BEGIN
1437: hr_utility.set_location('Entering: '||l_proc,1);
1438: if p_tab_rec_data.count > 0 then
1439: for i in p_tab_rec_data.first .. p_tab_rec_data.last loop
1440: hr_utility.trace('Defining category '|| p_tab_rec_data(i).action_info_category);
1441: hr_utility.trace('action_context_id = '|| p_assactid);
1436: BEGIN
1437: hr_utility.set_location('Entering: '||l_proc,1);
1438: if p_tab_rec_data.count > 0 then
1439: for i in p_tab_rec_data.first .. p_tab_rec_data.last loop
1440: hr_utility.trace('Defining category '|| p_tab_rec_data(i).action_info_category);
1441: hr_utility.trace('action_context_id = '|| p_assactid);
1442: if p_tab_rec_data(i).action_info_category is not null then
1443: pay_action_information_api.create_action_information(
1444: p_action_information_id => l_action_id,
1437: hr_utility.set_location('Entering: '||l_proc,1);
1438: if p_tab_rec_data.count > 0 then
1439: for i in p_tab_rec_data.first .. p_tab_rec_data.last loop
1440: hr_utility.trace('Defining category '|| p_tab_rec_data(i).action_info_category);
1441: hr_utility.trace('action_context_id = '|| p_assactid);
1442: if p_tab_rec_data(i).action_info_category is not null then
1443: pay_action_information_api.create_action_information(
1444: p_action_information_id => l_action_id,
1445: p_object_version_number => l_ovn,
1481: );
1482: end if;
1483: end loop;
1484: end if;
1485: hr_utility.set_location('Leaving: '||l_proc,999);
1486: END insert_archive_row;
1487: --
1488: --
1489: /*------------ PUBLIC PROCEDURE --------------*/
1520: instr(pact.legislative_parameters||' ',' ',
1521: instr(pact.legislative_parameters,'TAX_REF=')+8)
1522: - instr(pact.legislative_parameters,'TAX_REF=') - 8));
1523: BEGIN
1524: hr_utility.set_location('Entering '|| l_proc, 10);
1525: l_err := FALSE;
1526:
1527: open csr_sender_id;
1528: fetch csr_sender_id into l_sender_id, l_tax_ref, l_tax_dist, l_employer_name, l_employer_addr;
1558:
1559: if (l_err) then
1560: raise l_exp;
1561: end if;
1562: hr_utility.set_location('Leaving '|| l_proc, 10);
1563: EXCEPTION
1564: when others then
1565: hr_utility.raise_error;
1566: END archinit;
1561: end if;
1562: hr_utility.set_location('Leaving '|| l_proc, 10);
1563: EXCEPTION
1564: when others then
1565: hr_utility.raise_error;
1566: END archinit;
1567: --
1568: --
1569: PROCEDURE range_cursor (pactid IN NUMBER,
1587: test_indicator_error EXCEPTION;
1588: /* Changes for P45PT3 end*/
1589: l_proc CONSTANT VARCHAR2(35):= g_package||'range_cursor';
1590: BEGIN
1591: hr_utility.set_location('Entering: '||l_proc,1);
1592:
1593: /* Changes for P45PT3 start*/
1594: OPEN csr_parameter_info;
1595: fetch csr_parameter_info into l_test_indicator,l_test_id,l_report_type;
1608: 'pay_payroll_actions ppa '||
1609: 'where ppa.payroll_action_id = :payroll_action_id '||
1610: 'and ppa.business_group_id = ppf.business_group_id '||
1611: 'order by ppf.person_id';
1612: hr_utility.trace(' Range Cursor Statement : '||sqlstr);
1613: hr_utility.set_location(' Leaving: '||l_proc,100);
1614: /* Changes for P45PT3 start*/
1615: EXCEPTION
1616: WHEN test_indicator_error THEN
1609: 'where ppa.payroll_action_id = :payroll_action_id '||
1610: 'and ppa.business_group_id = ppf.business_group_id '||
1611: 'order by ppf.person_id';
1612: hr_utility.trace(' Range Cursor Statement : '||sqlstr);
1613: hr_utility.set_location(' Leaving: '||l_proc,100);
1614: /* Changes for P45PT3 start*/
1615: EXCEPTION
1616: WHEN test_indicator_error THEN
1617: RAISE; -- reraise the error
1696: where paa.assignment_action_id = p_assactid
1697: and paa.payroll_action_id = ppa.payroll_action_id;
1698:
1699: BEGIN
1700: hr_utility.trace('\n xxxx Test Indicator='||pay_magtape_generic.get_parameter_value('TEST'));
1701: --hr_utility.trace_on(null,'TKP');
1702: fnd_file.put_line(fnd_file.LOG,'Entering: '||l_proc);
1703: --hr_utility.trace('Tushar effective date is '|| to_char(p_effective_date,'DD-MON-YYYY') );
1704: --hr_utility.set_location('Entering: '||l_proc,1);
1697: and paa.payroll_action_id = ppa.payroll_action_id;
1698:
1699: BEGIN
1700: hr_utility.trace('\n xxxx Test Indicator='||pay_magtape_generic.get_parameter_value('TEST'));
1701: --hr_utility.trace_on(null,'TKP');
1702: fnd_file.put_line(fnd_file.LOG,'Entering: '||l_proc);
1703: --hr_utility.trace('Tushar effective date is '|| to_char(p_effective_date,'DD-MON-YYYY') );
1704: --hr_utility.set_location('Entering: '||l_proc,1);
1705: open csr_archive_type;
1699: BEGIN
1700: hr_utility.trace('\n xxxx Test Indicator='||pay_magtape_generic.get_parameter_value('TEST'));
1701: --hr_utility.trace_on(null,'TKP');
1702: fnd_file.put_line(fnd_file.LOG,'Entering: '||l_proc);
1703: --hr_utility.trace('Tushar effective date is '|| to_char(p_effective_date,'DD-MON-YYYY') );
1704: --hr_utility.set_location('Entering: '||l_proc,1);
1705: open csr_archive_type;
1706: fetch csr_archive_type into l_archive_type;
1707: close csr_archive_type;
1700: hr_utility.trace('\n xxxx Test Indicator='||pay_magtape_generic.get_parameter_value('TEST'));
1701: --hr_utility.trace_on(null,'TKP');
1702: fnd_file.put_line(fnd_file.LOG,'Entering: '||l_proc);
1703: --hr_utility.trace('Tushar effective date is '|| to_char(p_effective_date,'DD-MON-YYYY') );
1704: --hr_utility.set_location('Entering: '||l_proc,1);
1705: open csr_archive_type;
1706: fetch csr_archive_type into l_archive_type;
1707: close csr_archive_type;
1708:
1707: close csr_archive_type;
1708:
1709: fetch_tax_rec(p_assactid,p_effective_date,l_tax_rec);
1710:
1711: hr_utility.set_location('Fetching person details ',10);
1712: l_archive_person := fetch_person_rec(p_assactid, p_effective_date, l_tax_rec, l_archive_tab(0));
1713:
1714: hr_utility.set_location('Fetching address details ',20);
1715: l_archive_addr := fetch_address_rec(l_archive_tab(0).person_id,
1710:
1711: hr_utility.set_location('Fetching person details ',10);
1712: l_archive_person := fetch_person_rec(p_assactid, p_effective_date, l_tax_rec, l_archive_tab(0));
1713:
1714: hr_utility.set_location('Fetching address details ',20);
1715: l_archive_addr := fetch_address_rec(l_archive_tab(0).person_id,
1716: l_archive_tab(0).assignment_id,
1717: p_effective_date,
1718: l_archive_tab(1));
1716: l_archive_tab(0).assignment_id,
1717: p_effective_date,
1718: l_archive_tab(1));
1719:
1720: hr_utility.set_location('Fetching P45(3) details ',30);
1721: if l_archive_type = 'P45_3' then
1722: l_archive_data := fetch_p45_3_rec(p_effective_date,l_tax_rec, l_archive_tab(0),l_archive_tab(2));
1723: /*changes for P45PT_3 start*/
1724: elsif l_archive_type = 'P45PT_3' then
1741: else
1742: fnd_file.put_line(fnd_file.LOG,'Archiving');
1743: raise error_found;
1744: end if;
1745: hr_utility.set_location('Leaving: '||l_proc,999);
1746: EXCEPTION
1747: when error_found then
1748: if l_archive_type = 'P45_3' then
1749: reset_flag('GB_P45_3',p_assactid);
1757: reset_flag('GB_P46PENNOT',p_assactid);
1758: elsif l_archive_type = 'P46_5_PENNOT' then
1759: reset_flag('GB_P46PENNOT',p_assactid);
1760: end if;
1761: hr_utility.raise_error;
1762: END archive_code;
1763: --
1764: --
1765: PROCEDURE deinitialization_code(pactid IN NUMBER)
1952: fnd_file.put_line(fnd_file.output,null);
1953: fnd_file.put_line(fnd_file.output,'Total Number Of Records : ' || l_counter);
1954: end write_footer;
1955: BEGIN
1956: hr_utility.set_location('Entering: '||l_proc,1);
1957: l_counter := 0;
1958: write_header;
1959: write_sub_header('C');
1960: write_body('C');
1960: write_body('C');
1961: write_sub_header('E');
1962: write_body('E');
1963: write_footer;
1964: hr_utility.set_location('Leaving: '||l_proc,999);
1965: END deinitialization_code;
1966: --
1967: --
1968: FUNCTION date_validate (c_assignment_action_id NUMBER,