376:
377: l_defined_balance_id pay_defined_balances.defined_balance_id%type;
378:
379: BEGIN
380: --hr_utility.trace('p_db_item_name is '||p_db_item_name);
381:
382: open csr_defined_balance;
383: fetch csr_defined_balance into l_defined_balance_id;
384: if csr_defined_balance%notfound then
382: open csr_defined_balance;
383: fetch csr_defined_balance into l_defined_balance_id;
384: if csr_defined_balance%notfound then
385: close csr_defined_balance;
386: raise hr_utility.hr_error;
387: else
388: close csr_defined_balance;
389: end if;
390:
387: else
388: close csr_defined_balance;
389: end if;
390:
391: --hr_utility.trace('l_defined_balance_id is '||to_char(l_defined_balance_id));
392: return (l_defined_balance_id);
393:
394: END bal_db_item;
395:
440: ln_year NUMBER := 0;
441: ln_creation_date DATE;
442:
443: BEGIN
444: hr_utility.trace('Entered get_payroll_action_info');
445: open c_payroll_action_info(p_payroll_action_id);
446: hr_utility.trace('Opened c_payroll_action_info ');
447:
448: fetch c_payroll_action_info into ln_tax_unit_id,
442:
443: BEGIN
444: hr_utility.trace('Entered get_payroll_action_info');
445: open c_payroll_action_info(p_payroll_action_id);
446: hr_utility.trace('Opened c_payroll_action_info ');
447:
448: fetch c_payroll_action_info into ln_tax_unit_id,
449: ln_person_id,
450: ln_ssn,
453: ld_end_date,
454: ld_start_date,
455: ln_business_group_id,
456: ln_creation_date;
457: hr_utility.trace('Fetched c_payroll_action_info ');
458:
459: close c_payroll_action_info;
460:
461: hr_utility.trace('Closed c_payroll_action_info ');
457: hr_utility.trace('Fetched c_payroll_action_info ');
458:
459: close c_payroll_action_info;
460:
461: hr_utility.trace('Closed c_payroll_action_info ');
462: p_end_date := ld_end_date;
463: p_start_date := ld_start_date;
464: p_business_group_id := ln_business_group_id;
465: p_tax_unit_id := ln_tax_unit_id;
469: p_year := ln_year;
470: p_creation_date := fnd_date.canonical_to_date(
471: substr(fnd_date.date_to_canonical(ln_creation_date),1,10));
472:
473: hr_utility.trace('ld_end_date = ' ||
474: to_char(ld_end_date));
475: hr_utility.trace('ld_start_date = ' ||
476: to_char(ld_start_date));
477: hr_utility.trace('ln_tax_unit_id = ' ||
471: substr(fnd_date.date_to_canonical(ln_creation_date),1,10));
472:
473: hr_utility.trace('ld_end_date = ' ||
474: to_char(ld_end_date));
475: hr_utility.trace('ld_start_date = ' ||
476: to_char(ld_start_date));
477: hr_utility.trace('ln_tax_unit_id = ' ||
478: to_char(ln_tax_unit_id));
479: hr_utility.trace('ln_person_id = ' ||
473: hr_utility.trace('ld_end_date = ' ||
474: to_char(ld_end_date));
475: hr_utility.trace('ld_start_date = ' ||
476: to_char(ld_start_date));
477: hr_utility.trace('ln_tax_unit_id = ' ||
478: to_char(ln_tax_unit_id));
479: hr_utility.trace('ln_person_id = ' ||
480: to_char(ln_person_id));
481: hr_utility.trace('ln_ssn = ' ||
475: hr_utility.trace('ld_start_date = ' ||
476: to_char(ld_start_date));
477: hr_utility.trace('ln_tax_unit_id = ' ||
478: to_char(ln_tax_unit_id));
479: hr_utility.trace('ln_person_id = ' ||
480: to_char(ln_person_id));
481: hr_utility.trace('ln_ssn = ' ||
482: ln_ssn);
483: hr_utility.trace('ln_asg_set = ' ||
477: hr_utility.trace('ln_tax_unit_id = ' ||
478: to_char(ln_tax_unit_id));
479: hr_utility.trace('ln_person_id = ' ||
480: to_char(ln_person_id));
481: hr_utility.trace('ln_ssn = ' ||
482: ln_ssn);
483: hr_utility.trace('ln_asg_set = ' ||
484: to_char(ln_asg_set));
485: hr_utility.trace('ln_year = ' ||
479: hr_utility.trace('ln_person_id = ' ||
480: to_char(ln_person_id));
481: hr_utility.trace('ln_ssn = ' ||
482: ln_ssn);
483: hr_utility.trace('ln_asg_set = ' ||
484: to_char(ln_asg_set));
485: hr_utility.trace('ln_year = ' ||
486: to_char(ln_year));
487: hr_utility.trace('ln_creation_date = ' ||
481: hr_utility.trace('ln_ssn = ' ||
482: ln_ssn);
483: hr_utility.trace('ln_asg_set = ' ||
484: to_char(ln_asg_set));
485: hr_utility.trace('ln_year = ' ||
486: to_char(ln_year));
487: hr_utility.trace('ln_creation_date = ' ||
488: to_char(ln_creation_date));
489:
483: hr_utility.trace('ln_asg_set = ' ||
484: to_char(ln_asg_set));
485: hr_utility.trace('ln_year = ' ||
486: to_char(ln_year));
487: hr_utility.trace('ln_creation_date = ' ||
488: to_char(ln_creation_date));
489:
490: hr_utility.trace('Leaving get_payroll_action_info');
491: EXCEPTION
486: to_char(ln_year));
487: hr_utility.trace('ln_creation_date = ' ||
488: to_char(ln_creation_date));
489:
490: hr_utility.trace('Leaving get_payroll_action_info');
491: EXCEPTION
492: when others then
493: hr_utility.trace('Error in ' ||
494: to_char(sqlcode) || '-' || sqlerrm);
489:
490: hr_utility.trace('Leaving get_payroll_action_info');
491: EXCEPTION
492: when others then
493: hr_utility.trace('Error in ' ||
494: to_char(sqlcode) || '-' || sqlerrm);
495: raise hr_utility.hr_error;
496:
497: END get_payroll_action_info;
491: EXCEPTION
492: when others then
493: hr_utility.trace('Error in ' ||
494: to_char(sqlcode) || '-' || sqlerrm);
495: raise hr_utility.hr_error;
496:
497: END get_payroll_action_info;
498:
499: /*********************************************************************
516:
517:
518: BEGIN
519:
520: hr_utility.trace('g_report_type before call ='||g_report_type);
521:
522: open c_get_report_type;
523: fetch c_get_report_type into g_report_type;
524:
525: if c_get_report_type%NOTFOUND then
526: raise_application_error(-20001,'get_report_type: Payroll Action data not found');
527: end if;
528: close c_get_report_type;
529: hr_utility.trace('g_report_type after call ='||g_report_type);
530:
531: RETURN (g_report_type);
532:
533: END get_report_type;
608:
609: BEGIN
610:
611: l_step := 19;
612: hr_utility.trace('Checking for Puerto Rico GRE');
613:
614: open c_puerto_rico_gre_info(p_tax_unit_id);
615: fetch c_puerto_rico_gre_info into g_puerto_rico_gre;
616: hr_utility.trace('g_puerto_rico_gre = '||g_puerto_rico_gre);
612: hr_utility.trace('Checking for Puerto Rico GRE');
613:
614: open c_puerto_rico_gre_info(p_tax_unit_id);
615: fetch c_puerto_rico_gre_info into g_puerto_rico_gre;
616: hr_utility.trace('g_puerto_rico_gre = '||g_puerto_rico_gre);
617:
618: if c_puerto_rico_gre_info%NOTFOUND then
619: g_puerto_rico_gre := 'N';
620: else
637: pay_us_archive.ltr_pr_balances(4).balance_name := 'Territory Taxable Allow' ;
638: pay_us_archive.ltr_pr_balances(5).balance_name := 'Territory Taxable TIPS' ;
639: pay_us_archive.ltr_pr_balances(6).balance_name := 'Territory Retire Contrib' ;
640:
641: hr_utility.trace('Opening pay_us_payroll_utils.c_get_defined_balance_id');
642:
643: loop
644: ln_count := ln_count + 1;
645: IF ln_count > 6 THEN
658: fetch pay_us_payroll_utils.c_get_defined_balance_id
659: into ln_defined_balance_id,
660: lv_user_entity_name;
661:
662: hr_utility.trace('Fetched pay_us_payroll_utils.c_get_defined_balance_id '
663: ||lv_balance_name);
664:
665: if pay_us_payroll_utils.c_get_defined_balance_id%NOTFOUND then
666: hr_utility.trace('Going to exit' );
662: hr_utility.trace('Fetched pay_us_payroll_utils.c_get_defined_balance_id '
663: ||lv_balance_name);
664:
665: if pay_us_payroll_utils.c_get_defined_balance_id%NOTFOUND then
666: hr_utility.trace('Going to exit' );
667: exit;
668: end if;
669:
670: l_step := 19.1;
670: l_step := 19.1;
671:
672: lv_arch_user_entity_name := 'A_'||lv_user_entity_name;
673:
674: hr_utility.trace('lv_arch_user_entity_name = '
675: ||lv_arch_user_entity_name);
676: l_step := 19.2;
677: open c_get_arch_user_entity(lv_arch_user_entity_name);
678:
678:
679: fetch c_get_arch_user_entity into ln_arch_user_entity_id;
680:
681: if c_get_arch_user_entity%notfound then
682: hr_utility.trace('Archived user_entity_id not found');
683: hr_utility.raise_error;
684: end if;
685: close c_get_arch_user_entity;
686: hr_utility.trace('ln_arch_user_entity_id = ' ||
679: fetch c_get_arch_user_entity into ln_arch_user_entity_id;
680:
681: if c_get_arch_user_entity%notfound then
682: hr_utility.trace('Archived user_entity_id not found');
683: hr_utility.raise_error;
684: end if;
685: close c_get_arch_user_entity;
686: hr_utility.trace('ln_arch_user_entity_id = ' ||
687: to_char(ln_arch_user_entity_id));
682: hr_utility.trace('Archived user_entity_id not found');
683: hr_utility.raise_error;
684: end if;
685: close c_get_arch_user_entity;
686: hr_utility.trace('ln_arch_user_entity_id = ' ||
687: to_char(ln_arch_user_entity_id));
688: hr_utility.trace('ln_defined_balance_id = ' ||
689: to_char(ln_defined_balance_id));
690:
684: end if;
685: close c_get_arch_user_entity;
686: hr_utility.trace('ln_arch_user_entity_id = ' ||
687: to_char(ln_arch_user_entity_id));
688: hr_utility.trace('ln_defined_balance_id = ' ||
689: to_char(ln_defined_balance_id));
690:
691: l_step := 19.3;
692:
695: pay_us_archive.ltr_pr_balances(ln_count).user_entity_id := ln_arch_user_entity_id ;
696: close pay_us_payroll_utils.c_get_defined_balance_id;
697: end loop;
698:
699: hr_utility.trace('Closed cursor');
700:
701: l_step := 19.4;
702: END; /* Building Puerto Rico user entities */
703:
802: BEGIN
803:
804: pay_us_archive.ltr_1099_bal.delete;
805: l_step := 21;
806: hr_utility.trace('Checking for 1099R GRE');
807:
808: open c_1099_gre_info(p_tax_unit_id);
809:
810: fetch c_1099_gre_info into g_1099R_transmitter_code;
808: open c_1099_gre_info(p_tax_unit_id);
809:
810: fetch c_1099_gre_info into g_1099R_transmitter_code;
811:
812: hr_utility.trace('g_1099R_transmitter_code = '||g_1099R_transmitter_code);
813:
814: if c_1099_gre_info%NOTFOUND then
815: g_1099R_transmitter_code := null;
816: end if;
830: ln_defined_balance_id := 0 ;
831:
832: lv_balance_dimension := '_PER_GRE_YTD';
833:
834: hr_utility.trace('Opening pay_us_payroll_utils.c_get_defined_balance_id');
835:
836: pay_us_archive.ltr_1099_bal(1).balance_name := 'Capital Gain' ;
837: pay_us_archive.ltr_1099_bal(2).balance_name := 'EE Contributions Or Premiums' ;
838: pay_us_archive.ltr_1099_bal(3).balance_name := 'Other EE Annuity Contract Amt' ;
859: fetch pay_us_payroll_utils.c_get_defined_balance_id
860: into ln_defined_balance_id
861: ,lv_user_entity_name;
862:
863: hr_utility.trace('Fetched pay_us_payroll_utils.c_get_defined_balance_id '
864: ||lv_balance_name);
865:
866: if pay_us_payroll_utils.c_get_defined_balance_id%NOTFOUND then
867: exit;
870: l_step := 21.1;
871:
872: lv_arch_user_entity_name := 'A_'||lv_user_entity_name;
873:
874: hr_utility.trace('lv_arch_user_entity_name = '
875: ||lv_arch_user_entity_name);
876: l_step := 21.2;
877: open c_get_arch_user_entity(lv_arch_user_entity_name);
878:
878:
879: fetch c_get_arch_user_entity into ln_arch_user_entity_id;
880:
881: if c_get_arch_user_entity%notfound then
882: hr_utility.trace('Archived user_entity_id not found');
883: hr_utility.raise_error;
884: end if;
885: close c_get_arch_user_entity;
886: hr_utility.trace('ln_arch_user_entity_id = ' ||
879: fetch c_get_arch_user_entity into ln_arch_user_entity_id;
880:
881: if c_get_arch_user_entity%notfound then
882: hr_utility.trace('Archived user_entity_id not found');
883: hr_utility.raise_error;
884: end if;
885: close c_get_arch_user_entity;
886: hr_utility.trace('ln_arch_user_entity_id = ' ||
887: to_char(ln_arch_user_entity_id));
882: hr_utility.trace('Archived user_entity_id not found');
883: hr_utility.raise_error;
884: end if;
885: close c_get_arch_user_entity;
886: hr_utility.trace('ln_arch_user_entity_id = ' ||
887: to_char(ln_arch_user_entity_id));
888: hr_utility.trace('ln_defined_balance_id = ' ||
889: to_char(ln_defined_balance_id));
890:
884: end if;
885: close c_get_arch_user_entity;
886: hr_utility.trace('ln_arch_user_entity_id = ' ||
887: to_char(ln_arch_user_entity_id));
888: hr_utility.trace('ln_defined_balance_id = ' ||
889: to_char(ln_defined_balance_id));
890:
891: l_step := 21.3;
892:
895: pay_us_archive.ltr_1099_bal(ln_count).user_entity_id := ln_arch_user_entity_id ;
896: close pay_us_payroll_utils.c_get_defined_balance_id;
897:
898: end loop;
899: hr_utility.trace('Closed cursor');
900:
901: l_step := 21.4;
902:
903: END; /* Building 1099R user entities */
915:
916: fetch c_balance_feed_info into lv_feed_flag;
917:
918: l_step := 21.6;
919: hr_utility.trace('lv_feed_flag = '||lv_feed_flag);
920:
921: if c_balance_feed_info%NOTFOUND then
922: lv_feed_flag := 'N';
923: l_step := 21.7;
1022:
1023: BEGIN
1024: pay_us_archive.ltr_pre_tax_bal.delete;
1025:
1026: hr_utility.trace('p_business_group_id = '||to_char(p_business_group_id));
1027: hr_utility.trace('p_tax_unit_id = '||to_char(p_tax_unit_id));
1028: BEGIN
1029:
1030: l_step := 14;
1023: BEGIN
1024: pay_us_archive.ltr_pre_tax_bal.delete;
1025:
1026: hr_utility.trace('p_business_group_id = '||to_char(p_business_group_id));
1027: hr_utility.trace('p_tax_unit_id = '||to_char(p_tax_unit_id));
1028: BEGIN
1029:
1030: l_step := 14;
1031:
1028: BEGIN
1029:
1030: l_step := 14;
1031:
1032: hr_utility.trace('Opening c_balance cursor to get lookup codes');
1033:
1034: lv_balance_dimension := '_PER_GRE_YTD';
1035: g_pre_tax_info := 'Y' ;
1036: open c_balance;
1040: lv_user_entity_name := '';
1041: ln_defined_balance_id := 0 ;
1042:
1043: fetch c_balance into lv_balance_name ;
1044: hr_utility.trace('Fetched c_balance '||lv_balance_name);
1045: if c_balance%NOTFOUND then
1046: hr_utility.trace('Going to exit' );
1047: exit;
1048: end if;
1042:
1043: fetch c_balance into lv_balance_name ;
1044: hr_utility.trace('Fetched c_balance '||lv_balance_name);
1045: if c_balance%NOTFOUND then
1046: hr_utility.trace('Going to exit' );
1047: exit;
1048: end if;
1049:
1050: l_step := 15;
1057: lv_user_entity_name;
1058:
1059: lv_arch_user_entity_name := 'A_'||lv_user_entity_name;
1060:
1061: hr_utility.trace('lv_arch_user_entity_name = '||lv_arch_user_entity_name);
1062:
1063: if pay_us_payroll_utils.c_get_defined_balance_id%FOUND then
1064:
1065: hr_utility.trace('Into found loop of Box 12 ');
1061: hr_utility.trace('lv_arch_user_entity_name = '||lv_arch_user_entity_name);
1062:
1063: if pay_us_payroll_utils.c_get_defined_balance_id%FOUND then
1064:
1065: hr_utility.trace('Into found loop of Box 12 ');
1066: hr_utility.trace('ln_defined_balance_id = '||to_char(ln_defined_balance_id));
1067:
1068: l_step := 16;
1069: open c_get_arch_user_entity(lv_arch_user_entity_name);
1062:
1063: if pay_us_payroll_utils.c_get_defined_balance_id%FOUND then
1064:
1065: hr_utility.trace('Into found loop of Box 12 ');
1066: hr_utility.trace('ln_defined_balance_id = '||to_char(ln_defined_balance_id));
1067:
1068: l_step := 16;
1069: open c_get_arch_user_entity(lv_arch_user_entity_name);
1070:
1070:
1071: fetch c_get_arch_user_entity into ln_arch_user_entity_id;
1072:
1073: if c_get_arch_user_entity%notfound then
1074: hr_utility.trace('Archived user_entity_id not found');
1075: hr_utility.raise_error;
1076: end if;
1077: close c_get_arch_user_entity;
1078: hr_utility.trace('ln_arch_user_entity_id = ' ||
1071: fetch c_get_arch_user_entity into ln_arch_user_entity_id;
1072:
1073: if c_get_arch_user_entity%notfound then
1074: hr_utility.trace('Archived user_entity_id not found');
1075: hr_utility.raise_error;
1076: end if;
1077: close c_get_arch_user_entity;
1078: hr_utility.trace('ln_arch_user_entity_id = ' ||
1079: to_char(ln_arch_user_entity_id));
1074: hr_utility.trace('Archived user_entity_id not found');
1075: hr_utility.raise_error;
1076: end if;
1077: close c_get_arch_user_entity;
1078: hr_utility.trace('ln_arch_user_entity_id = ' ||
1079: to_char(ln_arch_user_entity_id));
1080: hr_utility.trace('ln_defined_balance_id = ' ||
1081: to_char(ln_defined_balance_id));
1082:
1076: end if;
1077: close c_get_arch_user_entity;
1078: hr_utility.trace('ln_arch_user_entity_id = ' ||
1079: to_char(ln_arch_user_entity_id));
1080: hr_utility.trace('ln_defined_balance_id = ' ||
1081: to_char(ln_defined_balance_id));
1082:
1083: l_step := 17;
1084: ln_count := ln_count + 1;
1093:
1094: end loop;
1095: close c_balance;
1096:
1097: hr_utility.trace('Closed cursor');
1098:
1099: l_step := 18;
1100: END; /* Box 12 Info */
1101:
1275: BEGIN
1276:
1277: /* Get the report type, report qualifier, business group id and the
1278: gre for which the archiving has to be done */
1279: -- hr_utility.trace_on(null,'yepp');
1280:
1281: hr_utility.trace('In eoy_action_creation');
1282: hr_utility.trace('getting payroll action data');
1283:
1277: /* Get the report type, report qualifier, business group id and the
1278: gre for which the archiving has to be done */
1279: -- hr_utility.trace_on(null,'yepp');
1280:
1281: hr_utility.trace('In eoy_action_creation');
1282: hr_utility.trace('getting payroll action data');
1283:
1284: select effective_date,
1285: business_group_id,
1278: gre for which the archiving has to be done */
1279: -- hr_utility.trace_on(null,'yepp');
1280:
1281: hr_utility.trace('In eoy_action_creation');
1282: hr_utility.trace('getting payroll action data');
1283:
1284: select effective_date,
1285: business_group_id,
1286: to_number(substr(legislative_parameters,
1293: where payroll_action_id = pactid;
1294:
1295: l_year_start := trunc(l_effective_date, 'Y');
1296: l_year_end := add_months(trunc(l_effective_date, 'Y'),12) -1;
1297: hr_utility.trace('year start '|| to_char(l_year_start,'dd-mm-yyyy'));
1298: hr_utility.trace('year end '|| to_char(l_year_end,'dd-mm-yyyy'));
1299:
1300: l_range_person := pay_ac_utility.range_person_on(
1301: p_report_type => 'YREND'
1294:
1295: l_year_start := trunc(l_effective_date, 'Y');
1296: l_year_end := add_months(trunc(l_effective_date, 'Y'),12) -1;
1297: hr_utility.trace('year start '|| to_char(l_year_start,'dd-mm-yyyy'));
1298: hr_utility.trace('year end '|| to_char(l_year_end,'dd-mm-yyyy'));
1299:
1300: l_range_person := pay_ac_utility.range_person_on(
1301: p_report_type => 'YREND'
1302: ,p_report_format => 'YEPARCH'
1322:
1323: loop
1324: if l_range_person then
1325: fetch c_eoy_gre_person_on into l_person_id;
1326: hr_utility.trace('Person ID = '|| to_char(l_person_id));
1327: exit when c_eoy_gre_person_on%NOTFOUND;
1328: else
1329: fetch c_eoy_gre into l_person_id;
1330: hr_utility.trace('Person ID = '|| to_char(l_person_id));
1326: hr_utility.trace('Person ID = '|| to_char(l_person_id));
1327: exit when c_eoy_gre_person_on%NOTFOUND;
1328: else
1329: fetch c_eoy_gre into l_person_id;
1330: hr_utility.trace('Person ID = '|| to_char(l_person_id));
1331: exit when c_eoy_gre%NOTFOUND;
1332: end if;
1333:
1334: l_tax_unit_id := l_eoy_tax_unit_id;
1335:
1336: /* If the new row is the same as the previous row according to the way
1337: the rows are grouped then discard the row ie. grouping by GRE
1338: requires a single row for each person / GRE combination. */
1339: hr_utility.trace('tax unit id is '|| to_char(l_tax_unit_id));
1340: hr_utility.trace('previous tax unit id is '||
1341: to_char(l_prev_tax_unit_id));
1342:
1343: if (l_person_id = l_prev_person_id and
1336: /* If the new row is the same as the previous row according to the way
1337: the rows are grouped then discard the row ie. grouping by GRE
1338: requires a single row for each person / GRE combination. */
1339: hr_utility.trace('tax unit id is '|| to_char(l_tax_unit_id));
1340: hr_utility.trace('previous tax unit id is '||
1341: to_char(l_prev_tax_unit_id));
1342:
1343: if (l_person_id = l_prev_person_id and
1344: l_tax_unit_id = l_prev_tax_unit_id) then
1343: if (l_person_id = l_prev_person_id and
1344: l_tax_unit_id = l_prev_tax_unit_id) then
1345: null;
1346: else
1347: hr_utility.trace('prev person is '|| to_char(l_prev_person_id));
1348: hr_utility.trace('person is '|| to_char(l_person_id));
1349:
1350: /* Have a new unique row according to the way the rows are grouped.
1351: The inclusion of the person is dependent on having a non zero
1344: l_tax_unit_id = l_prev_tax_unit_id) then
1345: null;
1346: else
1347: hr_utility.trace('prev person is '|| to_char(l_prev_person_id));
1348: hr_utility.trace('person is '|| to_char(l_person_id));
1349:
1350: /* Have a new unique row according to the way the rows are grouped.
1351: The inclusion of the person is dependent on having a non zero
1352: balance.
1364: raise_application_error(-20001,'Balance Assignment Action ' ||
1365: 'does not exist for : ' ||
1366: to_char(l_person_id));
1367: end if;
1368: hr_utility.trace('l_bal_aaid in action creation code'||to_char(l_bal_aaid));
1369: if c_get_latest_asg%ISOPEN then
1370: close c_get_latest_asg;
1371: end if;
1372:
1371: end if;
1372:
1373: if l_bal_aaid <> -9999 then /* Assignment action in year */
1374: /* Set up the context of tax unit id */
1375: hr_utility.trace('Setting context');
1376: pay_balance_pkg.set_context('TAX_UNIT_ID',l_tax_unit_id);
1377:
1378: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1379: hr_utility.trace('defined_balance_id = '||
1374: /* Set up the context of tax unit id */
1375: hr_utility.trace('Setting context');
1376: pay_balance_pkg.set_context('TAX_UNIT_ID',l_tax_unit_id);
1377:
1378: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1379: hr_utility.trace('defined_balance_id = '||
1380: to_char(bal_db_item('GROSS_EARNINGS_PER_GRE_YTD')));
1381:
1382: l_value := nvl(pay_balance_pkg.get_value
1375: hr_utility.trace('Setting context');
1376: pay_balance_pkg.set_context('TAX_UNIT_ID',l_tax_unit_id);
1377:
1378: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1379: hr_utility.trace('defined_balance_id = '||
1380: to_char(bal_db_item('GROSS_EARNINGS_PER_GRE_YTD')));
1381:
1382: l_value := nvl(pay_balance_pkg.get_value
1383: (p_defined_balance_id
1384: => bal_db_item('GROSS_EARNINGS_PER_GRE_YTD'),
1385: p_assignment_action_id => l_bal_aaid),0);
1386:
1387: if l_value = 0 then
1388: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1389: hr_utility.trace('defined_balance_id = '||
1390: to_char(bal_db_item('W2_NONTAX_SICK_PER_GRE_YTD')));
1391:
1392: l_value := nvl(pay_balance_pkg.get_value
1385: p_assignment_action_id => l_bal_aaid),0);
1386:
1387: if l_value = 0 then
1388: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1389: hr_utility.trace('defined_balance_id = '||
1390: to_char(bal_db_item('W2_NONTAX_SICK_PER_GRE_YTD')));
1391:
1392: l_value := nvl(pay_balance_pkg.get_value
1393: (p_defined_balance_id
1394: => bal_db_item('W2_NONTAX_SICK_PER_GRE_YTD'),
1395: p_assignment_action_id => l_bal_aaid),0);
1396:
1397: if l_value = 0 then
1398: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1399: hr_utility.trace('defined_balance_id = '||
1400: to_char(bal_db_item('W2_EXPENSE_REIMB_PER_GRE_YTD')));
1401:
1402: l_value := nvl(pay_balance_pkg.get_value
1395: p_assignment_action_id => l_bal_aaid),0);
1396:
1397: if l_value = 0 then
1398: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1399: hr_utility.trace('defined_balance_id = '||
1400: to_char(bal_db_item('W2_EXPENSE_REIMB_PER_GRE_YTD')));
1401:
1402: l_value := nvl(pay_balance_pkg.get_value
1403: (p_defined_balance_id
1404: => bal_db_item('W2_EXPENSE_REIMB_PER_GRE_YTD'),
1405: p_assignment_action_id => l_bal_aaid),0);
1406:
1407: if l_value = 0 then
1408: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1409: hr_utility.trace('defined_balance_id = '||
1410: to_char(bal_db_item('W2_QUAL_MOVE_PER_GRE_YTD')));
1411:
1412: l_value := nvl(pay_balance_pkg.get_value
1405: p_assignment_action_id => l_bal_aaid),0);
1406:
1407: if l_value = 0 then
1408: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1409: hr_utility.trace('defined_balance_id = '||
1410: to_char(bal_db_item('W2_QUAL_MOVE_PER_GRE_YTD')));
1411:
1412: l_value := nvl(pay_balance_pkg.get_value
1413: (p_defined_balance_id
1414: => bal_db_item('W2_QUAL_MOVE_PER_GRE_YTD'),
1415: p_assignment_action_id => l_bal_aaid),0);
1416:
1417: if l_value = 0 then
1418: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1419: hr_utility.trace('defined_balance_id = '||
1420: to_char(bal_db_item('W2_NO_GROSS_EARNINGS_PER_GRE_YTD')));
1421:
1422: l_value := nvl(pay_balance_pkg.get_value
1415: p_assignment_action_id => l_bal_aaid),0);
1416:
1417: if l_value = 0 then
1418: hr_utility.trace('bal_aaid = '||to_char(l_bal_aaid));
1419: hr_utility.trace('defined_balance_id = '||
1420: to_char(bal_db_item('W2_NO_GROSS_EARNINGS_PER_GRE_YTD')));
1421:
1422: l_value := nvl(pay_balance_pkg.get_value
1423: (p_defined_balance_id
1456: into lockingactid
1457: from dual;
1458:
1459: /* Insert into pay_assignment_actions. */
1460: hr_utility.trace('creating asg action');
1461:
1462: hr_nonrun_asact.insact(lockingactid,l_primary_asg,
1463: pactid,chunk,l_tax_unit_id);
1464:
1465: /* Update the serial number column with the person id
1466: so that the mag routine and the W2 view will not have
1467: to do an additional checking against the assignment
1468: table */
1469: hr_utility.trace('updating asg action');
1470:
1471: update pay_assignment_actions aa
1472: set aa.serial_number = to_char(l_person_id)
1473: where aa.assignment_action_id = lockingactid;
1499: return number is
1500: l_user_entity_id number;
1501:
1502: begin
1503: --hr_utility.trace('p_dbi_name is '||p_dbi_name);
1504:
1505: select fdi.user_entity_id
1506: into l_user_entity_id
1507: from ff_database_items fdi,
1509: where fdi.user_name = p_dbi_name
1510: and fue.user_entity_id = fdi.user_entity_id
1511: and fue.legislation_code = 'US';
1512:
1513: --hr_utility.trace('user_entity_id is '||to_char(l_user_entity_id));
1514: return l_user_entity_id;
1515:
1516: exception
1517: when others then
1595: l_rowid_found := null;
1596: l_old_value := Null;
1597: end;
1598:
1599: hr_utility.trace('l_old_value = '||l_old_value);
1600:
1601: IF l_rowid_found IS NOT NULL THEN
1602:
1603: IF ( l_rearch
1604: AND (nvl( p_value(j),'-*9999999') <> nvl(l_old_value ,'-*9999999')
1605: )) THEN
1606:
1607: BEGIN
1608: hr_utility.trace('B4 update of value ');
1609: update ff_archive_items
1610: set value = p_value(j)
1611: where rowid = l_rowid_found;
1612:
1610: set value = p_value(j)
1611: where rowid = l_rowid_found;
1612:
1613: EXCEPTION WHEN OTHERS THEN
1614: hr_utility.trace('In others error for update -200 ');
1615: END;
1616:
1617: l_new_value := p_value(j);
1618: hr_utility.trace('Updating Non null value in re-arch with new value = '
1614: hr_utility.trace('In others error for update -200 ');
1615: END;
1616:
1617: l_new_value := p_value(j);
1618: hr_utility.trace('Updating Non null value in re-arch with new value = '
1619: ||p_value(j));
1620:
1621: /* calling the print procedure only if we have not null update */
1622:
1639: update ff_archive_items
1640: set value = p_value(j)
1641: where rowid = l_rowid_found;
1642: EXCEPTION WHEN OTHERS THEN
1643: hr_utility.trace('In others error for update -210 ');
1644: END;
1645:
1646: l_new_value := p_value(j);
1647: hr_utility.trace('Updating for other process new value = '||p_value(j));
1643: hr_utility.trace('In others error for update -210 ');
1644: END;
1645:
1646: l_new_value := p_value(j);
1647: hr_utility.trace('Updating for other process new value = '||p_value(j));
1648:
1649: END IF; /* smart archive call */
1650:
1651: END IF; /* End l_rearch */
1651: END IF; /* End l_rearch */
1652:
1653: ELSE /* Archive row does not exist */
1654:
1655: hr_utility.trace('No rowid found ');
1656: insert into ff_archive_items
1657: (ARCHIVE_ITEM_ID,
1658: USER_ENTITY_ID,
1659: CONTEXT1,
1688: /* Re-intializing value to null */
1689:
1690: l_old_value := null;
1691: l_new_value := null;
1692: hr_utility.trace('assigned null values before loop end');
1693:
1694: END LOOP; /* for j in p_user_entity_id.firs */
1695:
1696: ELSE /* State Level Employer Archive */
1825: end loop;
1826: end if; /* p_archive_level is EE */
1827: exception
1828: when others then
1829: hr_utility.trace('Error in create archive at step '||to_char(l_step)||' - '
1830: || to_char(sqlcode));
1831: raise_application_error(-20001,'Error in create archive at step '
1832: ||to_char(l_step)||' - '||to_char(sqlcode) || '-' || sqlerrm);
1833: end create_archive;
1929: ,p_year => ln_year
1930: ,p_creation_date => g_pact_creation_date);
1931:
1932:
1933: hr_utility.trace('ln_year '||to_char(ld_end_date,'YYYY'));
1934:
1935: l_user_entity_id_tab(1) := get_user_entity_id('A_VIEW_ONLINE_W2');
1936: l_w2_profile_option := fnd_profile.value('HR_VIEW_ONLINE_W2');
1937: IF l_w2_profile_option IS NOT NULL THEN
1975: exception
1976: when no_data_found then
1977: l_value1 := null;
1978: l_value2 := null;
1979: hr_utility.trace('Error in eoy_archive_gre_data at step : ' ||
1980: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
1981: end;
1982:
1983: /* Initialise the PL/SQL tables */
2048: when no_data_found then
2049: l_value1 := null;
2050: l_value2 := null;
2051: l_value3 := null;
2052: hr_utility.trace('Error in eoy_archive_gre_data at step : ' ||
2053: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
2054: end;
2055:
2056: /* Initialise the PL/SQL tables */
2113: exception
2114: when no_data_found then
2115: l_value1 := null;
2116: l_value2 := null;
2117: hr_utility.trace('Error in eoy_archive_gre_data at step : ' ||
2118: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
2119: end;
2120:
2121: /* Initialise the PL/SQL tables */
2137: l_context_val_tab(1) := p_tax_unit_id;
2138:
2139: l_arch_gre_step := 120;
2140:
2141: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2142: hr_utility.trace('value = '||l_value1);
2143: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2144: hr_utility.trace('value = '||l_value2);
2145:
2138:
2139: l_arch_gre_step := 120;
2140:
2141: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2142: hr_utility.trace('value = '||l_value1);
2143: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2144: hr_utility.trace('value = '||l_value2);
2145:
2146: create_archive (p_user_entity_id => l_user_entity_id_tab,
2139: l_arch_gre_step := 120;
2140:
2141: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2142: hr_utility.trace('value = '||l_value1);
2143: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2144: hr_utility.trace('value = '||l_value2);
2145:
2146: create_archive (p_user_entity_id => l_user_entity_id_tab,
2147: p_context1 => p_payroll_action_id,
2140:
2141: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2142: hr_utility.trace('value = '||l_value1);
2143: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2144: hr_utility.trace('value = '||l_value2);
2145:
2146: create_archive (p_user_entity_id => l_user_entity_id_tab,
2147: p_context1 => p_payroll_action_id,
2148: p_value => l_value_tab,
2169: exception
2170: when no_data_found then
2171: l_value1 := null;
2172: l_value2 := null;
2173: hr_utility.trace('Error in eoy_archive_gre_data at step : ' ||
2174: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
2175: when too_many_rows then
2176: l_value1 := null;
2177: l_value2 := null;
2198: l_context_val_tab(1) := p_tax_unit_id;
2199:
2200: l_arch_gre_step := 150;
2201:
2202: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2203: hr_utility.trace('value = '||l_value1);
2204: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2205: hr_utility.trace('value = '||l_value2);
2206:
2199:
2200: l_arch_gre_step := 150;
2201:
2202: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2203: hr_utility.trace('value = '||l_value1);
2204: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2205: hr_utility.trace('value = '||l_value2);
2206:
2207: create_archive (p_user_entity_id => l_user_entity_id_tab,
2200: l_arch_gre_step := 150;
2201:
2202: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2203: hr_utility.trace('value = '||l_value1);
2204: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2205: hr_utility.trace('value = '||l_value2);
2206:
2207: create_archive (p_user_entity_id => l_user_entity_id_tab,
2208: p_context1 => p_payroll_action_id,
2201:
2202: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(1));
2203: hr_utility.trace('value = '||l_value1);
2204: hr_utility.trace('l_user_entity_name = '||l_user_entity_id_tab(2));
2205: hr_utility.trace('value = '||l_value2);
2206:
2207: create_archive (p_user_entity_id => l_user_entity_id_tab,
2208: p_context1 => p_payroll_action_id,
2209: p_value => l_value_tab,
2286: --l_value13 := null;
2287: --l_value14 := null;
2288: --l_value15 := null; /* Job Development Fee (AL) */
2289: l_value16 := null;
2290: hr_utility.trace('Error in eoy_archive_gre_data at step :' ||
2291: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
2292: end;
2293:
2294:
2405: exception
2406: when no_data_found then
2407: l_value1 := null;
2408: l_value2 := null;
2409: hr_utility.trace('Error in eoy_archive_gre_data at step : ' ||
2410: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
2411: end;
2412:
2413: l_user_entity_id_tab.delete;
2428: l_arch_gre_step := 201;
2429: l_user_entity_id_tab(2) := get_user_entity_id('A_LC_FEDERAL_TAX_RULES_ORG_GOVERNMENT_EMPLOYER');
2430: l_value_tab(2) := l_value2;
2431:
2432: hr_utility.trace('A_LC_FEDERAL_TAX_RULES_ORG_GOVERNMENT_EMPLOYER '||l_user_entity_id_tab(2));
2433: hr_utility.trace('Value for A_LC_FEDERAL_TAX_RULES_ORG_GOVERNMENT_EMPLOYER '||l_value_tab(2));
2434:
2435: l_arch_gre_step := 210;
2436: create_archive (p_user_entity_id => l_user_entity_id_tab,
2429: l_user_entity_id_tab(2) := get_user_entity_id('A_LC_FEDERAL_TAX_RULES_ORG_GOVERNMENT_EMPLOYER');
2430: l_value_tab(2) := l_value2;
2431:
2432: hr_utility.trace('A_LC_FEDERAL_TAX_RULES_ORG_GOVERNMENT_EMPLOYER '||l_user_entity_id_tab(2));
2433: hr_utility.trace('Value for A_LC_FEDERAL_TAX_RULES_ORG_GOVERNMENT_EMPLOYER '||l_value_tab(2));
2434:
2435: l_arch_gre_step := 210;
2436: create_archive (p_user_entity_id => l_user_entity_id_tab,
2437: p_context1 => p_payroll_action_id,
2502: when no_data_found then
2503: l_value1 := null;
2504: l_value2 := null;
2505: l_value3 := null;
2506: hr_utility.trace('Error in eoy_archive_gre_data at step : ' ||
2507: to_char(l_arch_gre_step) || 'sqlcode : ' || to_char(sqlcode));
2508: end;
2509:
2510: l_user_entity_id_tab.delete;
2567: from ff_archive_items fai
2568: where fai.context1 = p_payroll_action_id);
2569: begin
2570:
2571: hr_utility.trace('chk_gre_archive - checking g_archive_flag');
2572:
2573: if g_archive_flag = 'Y' then
2574: hr_utility.trace('chk_gre_archive - g_archive_flag is Y');
2575: return (TRUE);
2570:
2571: hr_utility.trace('chk_gre_archive - checking g_archive_flag');
2572:
2573: if g_archive_flag = 'Y' then
2574: hr_utility.trace('chk_gre_archive - g_archive_flag is Y');
2575: return (TRUE);
2576: else
2577:
2578: hr_utility.trace('chk_gre_archive - opening cursor');
2574: hr_utility.trace('chk_gre_archive - g_archive_flag is Y');
2575: return (TRUE);
2576: else
2577:
2578: hr_utility.trace('chk_gre_archive - opening cursor');
2579:
2580: open c_chk_payroll_action;
2581: fetch c_chk_payroll_action into l_flag;
2582: if c_chk_payroll_action%FOUND then
2579:
2580: open c_chk_payroll_action;
2581: fetch c_chk_payroll_action into l_flag;
2582: if c_chk_payroll_action%FOUND then
2583: hr_utility.trace('chk_gre_archive - found in cursor');
2584: g_archive_flag := 'Y';
2585: else
2586: hr_utility.trace('chk_gre_archive - not found in cursor');
2587: g_archive_flag := 'N';
2582: if c_chk_payroll_action%FOUND then
2583: hr_utility.trace('chk_gre_archive - found in cursor');
2584: g_archive_flag := 'Y';
2585: else
2586: hr_utility.trace('chk_gre_archive - not found in cursor');
2587: g_archive_flag := 'N';
2588: end if;
2589:
2590: hr_utility.trace('chk_gre_archive - closing cursor');
2586: hr_utility.trace('chk_gre_archive - not found in cursor');
2587: g_archive_flag := 'N';
2588: end if;
2589:
2590: hr_utility.trace('chk_gre_archive - closing cursor');
2591: close c_chk_payroll_action;
2592: if g_archive_flag = 'Y' then
2593: hr_utility.trace('chk_gre_archive - returning true');
2594: return (TRUE);
2589:
2590: hr_utility.trace('chk_gre_archive - closing cursor');
2591: close c_chk_payroll_action;
2592: if g_archive_flag = 'Y' then
2593: hr_utility.trace('chk_gre_archive - returning true');
2594: return (TRUE);
2595: else
2596: hr_utility.trace('chk_gre_archive - returning false');
2597: return(FALSE);
2592: if g_archive_flag = 'Y' then
2593: hr_utility.trace('chk_gre_archive - returning true');
2594: return (TRUE);
2595: else
2596: hr_utility.trace('chk_gre_archive - returning false');
2597: return(FALSE);
2598: end if;
2599: end if;
2600: end chk_gre_archive;
2628:
2629:
2630: begin
2631:
2632: --hr_utility.trace_on(null,'PYUSARCH_DBG');
2633:
2634: hr_utility.set_location ('eoy_archinit',1);
2635:
2636:
2630: begin
2631:
2632: --hr_utility.trace_on(null,'PYUSARCH_DBG');
2633:
2634: hr_utility.set_location ('eoy_archinit',1);
2635:
2636:
2637: l_jurisdiction_code := '99-999-9999';
2638:
2707:
2708: l_step := 6;
2709: pay_balance_pkg.set_context ('JURISDICTION_CODE',l_jurisdiction_code);
2710:
2711: hr_utility.set_location ('eoy_archinit',2);
2712:
2713: /* Get the tax unit id and set it up as the context */
2714: l_step := 7;
2715: /*
2752: ,p_year => ln_year
2753: ,p_creation_date => g_pact_creation_date);
2754:
2755:
2756: hr_utility.set_location ('eoy_archinit',3);
2757:
2758: l_step := 8;
2759: pay_balance_pkg.set_context ('TAX_UNIT_ID',l_tax_unit_id);
2760:
2758: l_step := 8;
2759: pay_balance_pkg.set_context ('TAX_UNIT_ID',l_tax_unit_id);
2760:
2761: l_step := 9;
2762: hr_utility.set_location ('eoy_archinit getting min chunk number',10);
2763:
2764: open c_get_min_chunk;
2765: fetch c_get_min_chunk into g_min_chunk;
2766: l_step := 10;
2769: raise_application_error(-20001,'eoy_archinit: Assignment actions not created!!!');
2770: end if;
2771: close c_get_min_chunk;
2772:
2773: hr_utility.set_location ('eoy_archinit min chunk is ' || to_char(g_min_chunk),12);
2774: l_step := 11;
2775: l_archive := chk_gre_archive(p_payroll_action_id);
2776:
2777: l_step := 12;
2774: l_step := 11;
2775: l_archive := chk_gre_archive(p_payroll_action_id);
2776:
2777: l_step := 12;
2778: hr_utility.trace ('eoy_archinit g_archive_flag is ' || g_archive_flag);
2779:
2780: pay_us_archive.g_report_type := pay_us_archive.get_report_type(p_payroll_action_id);
2781: pay_us_archive.g_puerto_rico_gre := pay_us_archive.get_puerto_rico_info(l_tax_unit_id) ;
2782: pay_us_archive.g_1099R_transmitter_code := pay_us_archive.get_1099r_info(l_tax_unit_id) ;
2899:
2900: l_archive_itemid NUMBER;
2901:
2902: BEGIN
2903: hr_utility.trace('p_archive_name '||p_archive_name);
2904: hr_utility.trace('context1 '||p_context);
2905:
2906: OPEN c_get_ff_arch;
2907: FETCH c_get_ff_arch INTO l_archive_itemid;
2900: l_archive_itemid NUMBER;
2901:
2902: BEGIN
2903: hr_utility.trace('p_archive_name '||p_archive_name);
2904: hr_utility.trace('context1 '||p_context);
2905:
2906: OPEN c_get_ff_arch;
2907: FETCH c_get_ff_arch INTO l_archive_itemid;
2908: CLOSE c_get_ff_arch;
2907: FETCH c_get_ff_arch INTO l_archive_itemid;
2908: CLOSE c_get_ff_arch;
2909:
2910:
2911: hr_utility.trace('l_archive_itemid '||l_archive_itemid);
2912:
2913: delete from ff_archive_item_contexts
2914: where archive_item_id = l_archive_itemid;
2915:
2933: BEGIN
2934:
2935: l_corrected_date := fnd_date.canonical_to_date(
2936: substr(fnd_date.date_to_canonical(sysdate),1,10));
2937: hr_utility.trace('Archive Date : ' || l_corrected_date);
2938:
2939: l_profile_date := fnd_date.canonical_to_date(
2940: pay_us_archive_util.get_archive_value(l_payroll_action_id,
2941: 'A_VIEW_ONLINE_W2',
2946: 'A_ADD_ARCHIVE',
2947: l_taxunitid);
2948:
2949:
2950: hr_utility.trace('View Online W2 Profile date'||l_profile_date);
2951: hr_utility.trace('l_add_archive '||l_add_archive);
2952:
2953: IF nvl(l_add_archive,'N') = 'Y' THEN
2954: delete_ff_archive(p_assactid,'A_ADD_ARCHIVE');
2947: l_taxunitid);
2948:
2949:
2950: hr_utility.trace('View Online W2 Profile date'||l_profile_date);
2951: hr_utility.trace('l_add_archive '||l_add_archive);
2952:
2953: IF nvl(l_add_archive,'N') = 'Y' THEN
2954: delete_ff_archive(p_assactid,'A_ADD_ARCHIVE');
2955: return 'N';
3274: and ASS.effective_end_date;
3275:
3276: begin
3277:
3278: --hr_utility.trace_on(null,'yepp');
3279:
3280: hr_utility.trace('.....AAID is ' || to_char(p_assactid));
3281:
3282: hr_utility.trace('Archive Data');
3276: begin
3277:
3278: --hr_utility.trace_on(null,'yepp');
3279:
3280: hr_utility.trace('.....AAID is ' || to_char(p_assactid));
3281:
3282: hr_utility.trace('Archive Data');
3283: hr_utility.set_location ('archive_data',1);
3284: hr_utility.trace('getting assignment');
3278: --hr_utility.trace_on(null,'yepp');
3279:
3280: hr_utility.trace('.....AAID is ' || to_char(p_assactid));
3281:
3282: hr_utility.trace('Archive Data');
3283: hr_utility.set_location ('archive_data',1);
3284: hr_utility.trace('getting assignment');
3285:
3286: l_step := 1;
3279:
3280: hr_utility.trace('.....AAID is ' || to_char(p_assactid));
3281:
3282: hr_utility.trace('Archive Data');
3283: hr_utility.set_location ('archive_data',1);
3284: hr_utility.trace('getting assignment');
3285:
3286: l_step := 1;
3287:
3280: hr_utility.trace('.....AAID is ' || to_char(p_assactid));
3281:
3282: hr_utility.trace('Archive Data');
3283: hr_utility.set_location ('archive_data',1);
3284: hr_utility.trace('getting assignment');
3285:
3286: l_step := 1;
3287:
3288: SELECT aa.assignment_id,
3305: archived then archive the gre data i.e. the employer data */
3306:
3307: l_step := 2;
3308:
3309: hr_utility.trace('Chunk Number is : ' || to_char(l_chunk));
3310:
3311: if l_chunk = g_min_chunk and g_archive_flag = 'N' then
3312:
3313: l_step := 3;
3310:
3311: if l_chunk = g_min_chunk and g_archive_flag = 'N' then
3312:
3313: l_step := 3;
3314: hr_utility.trace('eoy_archive_data archiving employer data');
3315:
3316: if g_report_type <> 'W2C_PRE_PROCESS' then
3317:
3318: eoy_archive_gre_data(
3324: g_archive_flag := 'Y';
3325: end if ;
3326:
3327: l_step := 4;
3328: hr_utility.trace('eoy_archive_data archived employer data');
3329: end if;
3330:
3331: hr_utility.set_location ('archive_data',2);
3332:
3327: l_step := 4;
3328: hr_utility.trace('eoy_archive_data archived employer data');
3329: end if;
3330:
3331: hr_utility.set_location ('archive_data',2);
3332:
3333: hr_utility.trace('assignment '|| to_char(l_asgid));
3334: hr_utility.trace('person id '|| to_char(l_person_id));
3335: hr_utility.trace('date_earned '|| to_char(l_date_earned));
3329: end if;
3330:
3331: hr_utility.set_location ('archive_data',2);
3332:
3333: hr_utility.trace('assignment '|| to_char(l_asgid));
3334: hr_utility.trace('person id '|| to_char(l_person_id));
3335: hr_utility.trace('date_earned '|| to_char(l_date_earned));
3336: hr_utility.trace('tax_unit_id '|| to_char(l_taxunitid));
3337:
3330:
3331: hr_utility.set_location ('archive_data',2);
3332:
3333: hr_utility.trace('assignment '|| to_char(l_asgid));
3334: hr_utility.trace('person id '|| to_char(l_person_id));
3335: hr_utility.trace('date_earned '|| to_char(l_date_earned));
3336: hr_utility.trace('tax_unit_id '|| to_char(l_taxunitid));
3337:
3338: /* Derive the beginning and end of the effective year */
3331: hr_utility.set_location ('archive_data',2);
3332:
3333: hr_utility.trace('assignment '|| to_char(l_asgid));
3334: hr_utility.trace('person id '|| to_char(l_person_id));
3335: hr_utility.trace('date_earned '|| to_char(l_date_earned));
3336: hr_utility.trace('tax_unit_id '|| to_char(l_taxunitid));
3337:
3338: /* Derive the beginning and end of the effective year */
3339:
3332:
3333: hr_utility.trace('assignment '|| to_char(l_asgid));
3334: hr_utility.trace('person id '|| to_char(l_person_id));
3335: hr_utility.trace('date_earned '|| to_char(l_date_earned));
3336: hr_utility.trace('tax_unit_id '|| to_char(l_taxunitid));
3337:
3338: /* Derive the beginning and end of the effective year */
3339:
3340: hr_utility.trace('getting begin and end dates');
3336: hr_utility.trace('tax_unit_id '|| to_char(l_taxunitid));
3337:
3338: /* Derive the beginning and end of the effective year */
3339:
3340: hr_utility.trace('getting begin and end dates');
3341:
3342: l_step := 5;
3343:
3344: l_year_start := trunc(p_effective_date, 'Y');
3343:
3344: l_year_start := trunc(p_effective_date, 'Y');
3345: l_year_end := add_months(trunc(p_effective_date, 'Y'),12) - 1;
3346:
3347: hr_utility.trace('year start '|| to_char(l_year_start));
3348: hr_utility.trace('year end '|| to_char(l_year_end));
3349:
3350: open c_get_latest_asg(l_person_id );
3351: fetch c_get_latest_asg into l_aaid;
3344: l_year_start := trunc(p_effective_date, 'Y');
3345: l_year_end := add_months(trunc(p_effective_date, 'Y'),12) - 1;
3346:
3347: hr_utility.trace('year start '|| to_char(l_year_start));
3348: hr_utility.trace('year end '|| to_char(l_year_end));
3349:
3350: open c_get_latest_asg(l_person_id );
3351: fetch c_get_latest_asg into l_aaid;
3352: hr_utility.trace('l_aaid in archive code '||to_char(l_aaid));
3348: hr_utility.trace('year end '|| to_char(l_year_end));
3349:
3350: open c_get_latest_asg(l_person_id );
3351: fetch c_get_latest_asg into l_aaid;
3352: hr_utility.trace('l_aaid in archive code '||to_char(l_aaid));
3353: close c_get_latest_asg;
3354:
3355:
3356: /* Initialise the PL/SQL table before populating it */
3354:
3355:
3356: /* Initialise the PL/SQL table before populating it */
3357:
3358: hr_utility.trace('Initialising Pl/SQL table');
3359:
3360: l_step := 6;
3361:
3362: for i in 1..l_context_no loop
3381: l_count := l_count + 1;
3382: pay_archive.g_context_values.name(l_count) := 'TAX_UNIT_ID';
3383: pay_archive.g_context_values.value(l_count) := l_taxunitid;
3384:
3385: hr_utility.trace('Initialised Pl/SQL table');
3386:
3387: /* Get the context_id for 'Jurisdiction' from ff_contexts */
3388:
3389: l_step := 8;
3430: l_true := 'N';
3431: open c_get_city;
3432: loop
3433:
3434: hr_utility.trace('In city loop ');
3435:
3436: l_step := 15;
3437:
3438: fetch c_get_city into l_jurisdiction;
3437:
3438: fetch c_get_city into l_jurisdiction;
3439: exit when c_get_city%NOTFOUND;
3440:
3441: hr_utility.trace('assignment '|| to_char(l_asgid));
3442: hr_utility.trace('City JD is ' || l_jurisdiction);
3443:
3444: l_step := 16;
3445:
3438: fetch c_get_city into l_jurisdiction;
3439: exit when c_get_city%NOTFOUND;
3440:
3441: hr_utility.trace('assignment '|| to_char(l_asgid));
3442: hr_utility.trace('City JD is ' || l_jurisdiction);
3443:
3444: l_step := 16;
3445:
3446: l_count := l_count + 1;
3456:
3457: if l_jd_name_done_tab.exists(l_jd_index) then
3458:
3459: l_city_name := l_jd_name_done_tab(l_jd_index).jd_name;
3460: hr_utility.trace('Getting City Name from cache '|| l_city_name);
3461:
3462: else
3463:
3464: hr_utility.trace('Getting City Name from DB');
3460: hr_utility.trace('Getting City Name from cache '|| l_city_name);
3461:
3462: else
3463:
3464: hr_utility.trace('Getting City Name from DB');
3465:
3466: select city_name
3467: into l_city_name
3468: from pay_us_city_names pcn
3474: l_jd_name_done_tab(l_jd_index).jd_name := l_city_name;
3475:
3476: end if;
3477:
3478: hr_utility.trace('Archiving the city ' || l_jurisdiction);
3479:
3480: l_balance_feed_tab.delete;
3481: l_defined_balance_id_tab.delete;
3482: l_user_entity_id_tab.delete;
3507:
3508: end loop;
3509: close c_get_city;
3510:
3511: hr_utility.trace('Out of city loop ');
3512:
3513: l_step := 19;
3514: open c_get_county;
3515: loop
3513: l_step := 19;
3514: open c_get_county;
3515: loop
3516:
3517: hr_utility.trace('In county loop ');
3518:
3519: l_step := 20;
3520:
3521: fetch c_get_county into l_jurisdiction;
3520:
3521: fetch c_get_county into l_jurisdiction;
3522: exit when c_get_county%NOTFOUND;
3523:
3524: hr_utility.trace('assignment '|| to_char(l_asgid));
3525: hr_utility.trace('County JD is ' || l_jurisdiction);
3526:
3527: l_jd_index := replace(l_jurisdiction,'-');
3528:
3521: fetch c_get_county into l_jurisdiction;
3522: exit when c_get_county%NOTFOUND;
3523:
3524: hr_utility.trace('assignment '|| to_char(l_asgid));
3525: hr_utility.trace('County JD is ' || l_jurisdiction);
3526:
3527: l_jd_index := replace(l_jurisdiction,'-');
3528:
3529: l_step := 21;
3561:
3562: if l_jd_name_done_tab.exists(l_jd_index) then
3563:
3564: l_county_name := l_jd_name_done_tab(l_jd_index).jd_name;
3565: hr_utility.trace('Getting County Name from cache '|| l_county_name);
3566:
3567: else
3568:
3569: hr_utility.trace('Getting County Name from DB');
3565: hr_utility.trace('Getting County Name from cache '|| l_county_name);
3566:
3567: else
3568:
3569: hr_utility.trace('Getting County Name from DB');
3570:
3571: select county_name
3572: into l_county_name
3573: from pay_us_counties puc
3582:
3583:
3584: l_step := 23;
3585:
3586: hr_utility.trace('Archive county '||substr(l_jurisdiction,1,7)||'0000');
3587:
3588: l_user_entity_id_tab.delete;
3589: l_value_tab.delete;
3590: l_seq_tab.delete;
3612:
3613: end loop;
3614: close c_get_county;
3615:
3616: hr_utility.trace('Out of county loop ');
3617:
3618: l_step := 25;
3619:
3620: open c_get_state;
3619:
3620: open c_get_state;
3621: loop
3622:
3623: hr_utility.trace('In state loop ');
3624: fetch c_get_state into l_jurisdiction;
3625: exit when c_get_state%NOTFOUND;
3626:
3627: hr_utility.trace('assignment '|| to_char(l_asgid));
3623: hr_utility.trace('In state loop ');
3624: fetch c_get_state into l_jurisdiction;
3625: exit when c_get_state%NOTFOUND;
3626:
3627: hr_utility.trace('assignment '|| to_char(l_asgid));
3628: hr_utility.trace('State JD is ' || l_jurisdiction);
3629:
3630: l_jd_index := replace(l_jurisdiction,'-');
3631:
3624: fetch c_get_state into l_jurisdiction;
3625: exit when c_get_state%NOTFOUND;
3626:
3627: hr_utility.trace('assignment '|| to_char(l_asgid));
3628: hr_utility.trace('State JD is ' || l_jurisdiction);
3629:
3630: l_jd_index := replace(l_jurisdiction,'-');
3631:
3632: l_true := 'N';
3660:
3661: if l_jd_name_done_tab.exists(l_jd_index) then
3662:
3663: l_state_abbrev := l_jd_name_done_tab(l_jd_index).jd_name;
3664: hr_utility.trace('Getting State Abbrev from cache '|| l_state_abbrev);
3665:
3666: else
3667:
3668: hr_utility.trace('Getting State Abbrev from DB');
3664: hr_utility.trace('Getting State Abbrev from cache '|| l_state_abbrev);
3665:
3666: else
3667:
3668: hr_utility.trace('Getting State Abbrev from DB');
3669:
3670: l_step := 26;
3671:
3672: select state_abbrev
3681: end if; /* l_chk_state_archive = 'N' */
3682:
3683: l_step := 27;
3684:
3685: hr_utility.trace('Archive state' ||l_jurisdiction);
3686:
3687: l_user_entity_id_tab.delete;
3688: l_value_tab.delete;
3689: l_seq_tab.delete;
3693: /* Assign values to the PL/SQL tables */
3694:
3695: l_step := 28;
3696:
3697: hr_utility.trace('Value of g_state_uei is : ' || to_char(g_state_uei));
3698:
3699: l_user_entity_id_tab(1) := g_state_uei;
3700: l_value_tab(1) := l_state_abbrev;
3701: l_seq_tab(1) := 1;
3713:
3714: end loop;
3715: close c_get_state;
3716:
3717: hr_utility.trace('Out of state loop ');
3718:
3719: l_step := 39;
3720:
3721: open c_get_cnt_sd;
3720:
3721: open c_get_cnt_sd;
3722: loop
3723: l_step := 40;
3724: hr_utility.trace('In sd loop ');
3725: fetch c_get_cnt_sd into l_jurisdiction,l_county_code;
3726: exit when c_get_cnt_sd%NOTFOUND;
3727:
3728: l_step := 41;
3789:
3790: end loop;
3791: close c_get_cnt_sd;
3792:
3793: hr_utility.trace('Out of cnt_sd loop ');
3794:
3795: l_step := 45;
3796:
3797: open c_get_cty_sd;
3796:
3797: open c_get_cty_sd;
3798: loop
3799:
3800: hr_utility.trace('In cty_sd loop ');
3801:
3802: l_step := 46;
3803:
3804: fetch c_get_cty_sd into l_jurisdiction,l_county_code, l_city_code;
3870: end if;
3871: end loop;
3872: close c_get_cty_sd;
3873:
3874: hr_utility.trace('Out of cty_sd loop ');
3875:
3876: l_step := 51;
3877:
3878: /* Set the no. of contexts */
3880:
3881: if l_count = 1 then
3882: -- pay_balance_pkg.set_context ('JURISDICTION_CODE',lt_jursd_context(1));
3883: -- lt_jursd_context(1) := NULL;
3884: hr_utility.trace('One context only name : ' || pay_archive.g_context_values.name(1));
3885: hr_utility.trace('One context only value : ' || pay_archive.g_context_values.value(1));
3886: else
3887: for i in 1..l_count loop
3888: hr_utility.trace('Multiple context name : ' || pay_archive.g_context_values.name(i));
3881: if l_count = 1 then
3882: -- pay_balance_pkg.set_context ('JURISDICTION_CODE',lt_jursd_context(1));
3883: -- lt_jursd_context(1) := NULL;
3884: hr_utility.trace('One context only name : ' || pay_archive.g_context_values.name(1));
3885: hr_utility.trace('One context only value : ' || pay_archive.g_context_values.value(1));
3886: else
3887: for i in 1..l_count loop
3888: hr_utility.trace('Multiple context name : ' || pay_archive.g_context_values.name(i));
3889: hr_utility.trace('Multiple context value : ' || pay_archive.g_context_values.value(i));
3884: hr_utility.trace('One context only name : ' || pay_archive.g_context_values.name(1));
3885: hr_utility.trace('One context only value : ' || pay_archive.g_context_values.value(1));
3886: else
3887: for i in 1..l_count loop
3888: hr_utility.trace('Multiple context name : ' || pay_archive.g_context_values.name(i));
3889: hr_utility.trace('Multiple context value : ' || pay_archive.g_context_values.value(i));
3890: -- hr_utility.trace('Multiple context ('|| to_char(i)||') : ' || lt_jursd_context(i));
3891: end loop;
3892: end if;
3885: hr_utility.trace('One context only value : ' || pay_archive.g_context_values.value(1));
3886: else
3887: for i in 1..l_count loop
3888: hr_utility.trace('Multiple context name : ' || pay_archive.g_context_values.name(i));
3889: hr_utility.trace('Multiple context value : ' || pay_archive.g_context_values.value(i));
3890: -- hr_utility.trace('Multiple context ('|| to_char(i)||') : ' || lt_jursd_context(i));
3891: end loop;
3892: end if;
3893:
3886: else
3887: for i in 1..l_count loop
3888: hr_utility.trace('Multiple context name : ' || pay_archive.g_context_values.name(i));
3889: hr_utility.trace('Multiple context value : ' || pay_archive.g_context_values.value(i));
3890: -- hr_utility.trace('Multiple context ('|| to_char(i)||') : ' || lt_jursd_context(i));
3891: end loop;
3892: end if;
3893:
3894: hr_utility.trace('g_context_values.sz : ' || pay_archive.g_context_values.sz);
3890: -- hr_utility.trace('Multiple context ('|| to_char(i)||') : ' || lt_jursd_context(i));
3891: end loop;
3892: end if;
3893:
3894: hr_utility.trace('g_context_values.sz : ' || pay_archive.g_context_values.sz);
3895:
3896: /* Flush all jurisdiction contexts */
3897:
3898: hr_utility.trace('l_jd_done_tab....first : '|| l_jd_done_tab.first);
3894: hr_utility.trace('g_context_values.sz : ' || pay_archive.g_context_values.sz);
3895:
3896: /* Flush all jurisdiction contexts */
3897:
3898: hr_utility.trace('l_jd_done_tab....first : '|| l_jd_done_tab.first);
3899: hr_utility.trace('l_jd_done_tab....last : '|| l_jd_done_tab.last);
3900:
3901: if l_jd_done_tab.count > 0 then
3902:
3895:
3896: /* Flush all jurisdiction contexts */
3897:
3898: hr_utility.trace('l_jd_done_tab....first : '|| l_jd_done_tab.first);
3899: hr_utility.trace('l_jd_done_tab....last : '|| l_jd_done_tab.last);
3900:
3901: if l_jd_done_tab.count > 0 then
3902:
3903: for i in l_jd_done_tab.first .. l_jd_done_tab.last loop
3901: if l_jd_done_tab.count > 0 then
3902:
3903: for i in l_jd_done_tab.first .. l_jd_done_tab.last loop
3904:
3905: hr_utility.trace('l_jd_done_tab.... value of : '|| i ||' is '|| l_jd_done_tab(i) );
3906:
3907: end loop;
3908:
3909: end if;
3926: (p_defined_balance_id => pay_us_archive.ltr_pre_tax_bal(ln_count).defined_balance,
3927: p_assignment_action_id => l_aaid),0);
3928:
3929: l_step := 54;
3930: hr_utility.trace('lv_value is '||lv_value);
3931:
3932: ff_archive_api.create_archive_item(
3933: p_archive_item_id => l_archive_item_id,
3934: p_user_entity_id => pay_us_archive.ltr_pre_tax_bal(ln_count).user_entity_id,
3952: /* Puerto Rico Specific Archive */
3953:
3954: if g_puerto_rico_gre = 'Y' then
3955:
3956: hr_utility.trace('Entered Puerto Rico GRE ');
3957:
3958: l_step := 57;
3959: l_user_entity_id_tab.delete;
3960: l_value_tab.delete;
4004: exception when no_data_found then
4005: l_con_national_identifier := null;
4006: end;
4007:
4008: hr_utility.trace('Maritial Status = '||l_marital_status);
4009: hr_utility.trace('Contact National Identifier = '||l_con_national_identifier);
4010:
4011: pay_balance_pkg.set_context('TAX_UNIT_ID',l_taxunitid);
4012:
4005: l_con_national_identifier := null;
4006: end;
4007:
4008: hr_utility.trace('Maritial Status = '||l_marital_status);
4009: hr_utility.trace('Contact National Identifier = '||l_con_national_identifier);
4010:
4011: pay_balance_pkg.set_context('TAX_UNIT_ID',l_taxunitid);
4012:
4013: l_step := 58;
4063: /* 1099R 2002 */
4064:
4065:
4066: if g_1099R_transmitter_code is not null then
4067: hr_utility.trace('Into g_1099r_transmitter_code not equal to null');
4068: l_step := 76;
4069:
4070: l_user_entity_id_tab.delete;
4071: l_defined_balance_id_tab.delete;
4075: l_context_id_tab.delete;
4076: l_context_val_tab.delete;
4077: l_index := 0;
4078:
4079: hr_utility.trace('Deleted plsql tables ');
4080:
4081: begin
4082:
4083: open c_get_1099_eit_info(l_asgid);
4080:
4081: begin
4082:
4083: open c_get_1099_eit_info(l_asgid);
4084: hr_utility.trace('Opened c_get_1099_eit_info ');
4085: fetch c_get_1099_eit_info into l_taxable_amount_unknown
4086: ,l_total_distributions
4087: ,l_ee_distribution_percent
4088: ,l_total_distribution_percent;
4100: exception when no_data_found then
4101: l_marital_status := null;
4102: end;
4103:
4104: hr_utility.trace('l_taxable_amount_unknown = '||l_taxable_amount_unknown);
4105: hr_utility.trace('l_total_distributions = '||l_total_distributions);
4106: hr_utility.trace('l_ee_distribution_percent='||l_ee_distribution_percent);
4107: hr_utility.trace('l_total_distribution_percent = '||l_total_distribution_percent);
4108:
4101: l_marital_status := null;
4102: end;
4103:
4104: hr_utility.trace('l_taxable_amount_unknown = '||l_taxable_amount_unknown);
4105: hr_utility.trace('l_total_distributions = '||l_total_distributions);
4106: hr_utility.trace('l_ee_distribution_percent='||l_ee_distribution_percent);
4107: hr_utility.trace('l_total_distribution_percent = '||l_total_distribution_percent);
4108:
4109:
4102: end;
4103:
4104: hr_utility.trace('l_taxable_amount_unknown = '||l_taxable_amount_unknown);
4105: hr_utility.trace('l_total_distributions = '||l_total_distributions);
4106: hr_utility.trace('l_ee_distribution_percent='||l_ee_distribution_percent);
4107: hr_utility.trace('l_total_distribution_percent = '||l_total_distribution_percent);
4108:
4109:
4110: pay_balance_pkg.set_context('TAX_UNIT_ID',l_taxunitid);
4103:
4104: hr_utility.trace('l_taxable_amount_unknown = '||l_taxable_amount_unknown);
4105: hr_utility.trace('l_total_distributions = '||l_total_distributions);
4106: hr_utility.trace('l_ee_distribution_percent='||l_ee_distribution_percent);
4107: hr_utility.trace('l_total_distribution_percent = '||l_total_distribution_percent);
4108:
4109:
4110: pay_balance_pkg.set_context('TAX_UNIT_ID',l_taxunitid);
4111:
4133:
4134: l_step := 78;
4135:
4136: open c_get_1099_distribution_info(l_person_id,l_taxunitid);
4137: hr_utility.trace('Opened c_get_1099_distribution_info ');
4138:
4139: l_step := 79;
4140:
4141: fetch c_get_1099_distribution_info into l_distribution_code;
4145: elsif c_get_1099_distribution_info%ROWCOUNT > 1 then
4146: l_mesg :='Person id '||to_char(l_person_id)||' has multiple distribution code for one GRE';
4147: pay_core_utils.push_message(801,'PAY_EXCEPTION','A');
4148: pay_core_utils.push_token('description',substr(l_mesg,1,50));
4149: hr_utility.raise_error;
4150: end if;
4151:
4152: close c_get_1099_distribution_info;
4153: --
4215: end if; /* Special archiving for 1099R GRE */
4216:
4217: l_step := 94;
4218:
4219: hr_utility.trace('max assignment_action_id : ' || to_char(l_aaid));
4220: pay_balance_pkg.set_context ('ASSIGNMENT_ACTION_ID',l_aaid);
4221: pay_archive.balance_aa := l_aaid;
4222:
4223: l_step := 95;
4241: for ln_count in 1..4 loop
4242:
4243: l_step := 96;
4244:
4245: hr_utility.trace('l_user_entity_tab('||ln_count||')is '||l_user_entity_tab(ln_count));
4246: hr_utility.trace('l_user_entity_id_tab('||ln_count||')is '||l_user_entity_id_tab(ln_count));
4247:
4248: l_value_tab(ln_count) := nvl(pay_balance_pkg.get_value
4249: (p_defined_balance_id =>bal_db_item(l_user_entity_tab(ln_count)),
4242:
4243: l_step := 96;
4244:
4245: hr_utility.trace('l_user_entity_tab('||ln_count||')is '||l_user_entity_tab(ln_count));
4246: hr_utility.trace('l_user_entity_id_tab('||ln_count||')is '||l_user_entity_id_tab(ln_count));
4247:
4248: l_value_tab(ln_count) := nvl(pay_balance_pkg.get_value
4249: (p_defined_balance_id =>bal_db_item(l_user_entity_tab(ln_count)),
4250: p_assignment_action_id => l_aaid),0);
4249: (p_defined_balance_id =>bal_db_item(l_user_entity_tab(ln_count)),
4250: p_assignment_action_id => l_aaid),0);
4251:
4252: l_step := 97;
4253: hr_utility.trace('lv_value is '||l_value_tab(ln_count));
4254:
4255: ff_archive_api.create_archive_item(
4256: p_archive_item_id => l_archive_item_id,
4257: p_user_entity_id => l_user_entity_id_tab(ln_count),
4263: p_some_warning => l_some_warning,
4264: p_context_name1 => 'TAX_UNIT_ID',
4265: p_context1 => l_taxunitid);
4266:
4267: hr_utility.trace('l_archive_item_id is '||to_char(l_archive_item_id));
4268:
4269: l_step := 98;
4270:
4271: end loop;
4273: l_step := 99;
4274:
4275:
4276: lv_medicare_withheld := l_value_tab(4) ;
4277: hr_utility.trace('lv_medicare_withheld is '||lv_medicare_withheld);
4278:
4279: l_step := 100;
4280:
4281: lv_ss_withheld := l_value_tab(2) ;
4278:
4279: l_step := 100;
4280:
4281: lv_ss_withheld := l_value_tab(2) ;
4282: hr_utility.trace('lv_ss_withheld is '||lv_ss_withheld);
4283:
4284: l_step := 101;
4285:
4286: l_user_entity_id_tab.delete;
4290: l_context_val_tab.delete;
4291:
4292: if pay_us_archive.g_govt_employer = 'Y' then
4293:
4294: hr_utility.trace('Goverment employer is ');
4295: l_step := 102;
4296: l_value_tab(1) := pay_us_sqwl_udf.get_employment_code(
4297: p_medicare_wh => lv_medicare_withheld,
4298: p_ss_wh => lv_ss_withheld);
4295: l_step := 102;
4296: l_value_tab(1) := pay_us_sqwl_udf.get_employment_code(
4297: p_medicare_wh => lv_medicare_withheld,
4298: p_ss_wh => lv_ss_withheld);
4299: hr_utility.trace('lv_value is '||l_value_tab(1));
4300:
4301: l_step := 103;
4302: else
4303: l_step := 103.1;
4306:
4307: l_user_entity_id_tab(1) := get_user_entity_id('A_ASG_GRE_EMPLOYMENT_TYPE_CODE');
4308:
4309: l_step := 104;
4310: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4311: l_seq_tab(1) := 1;
4312: --l_context_id_tab(1) := l_tax_unit_context_id;
4313: l_context_id_tab(1) := g_tax_unit_context_id;
4314: l_context_val_tab(1) := l_taxunitid;
4332: l_step := 107;
4333:
4334: -- Bug 4544792 : Removed the cursor c_get_disability_plan_eit_info
4335: open c_get_disability_plan_scl_info(l_asgid,l_taxunitid);
4336: hr_utility.trace('Opened c_get_disability_plan_scl_info ');
4337: fetch c_get_disability_plan_scl_info
4338: into l_disability_plan_id;
4339:
4340: /*
4338: into l_disability_plan_id;
4339:
4340: /*
4341: open c_get_disability_plan_eit_info(l_asgid);
4342: hr_utility.trace('Opened c_get_disability_plan_eit_info ');
4343: fetch c_get_disability_plan_eit_info
4344: into l_disability_plan_id;
4345: */
4346: if c_get_disability_plan_scl_info%NOTFOUND then
4347: l_disability_plan_id := null;
4348: end if;
4349: close c_get_disability_plan_scl_info;
4350:
4351: hr_utility.trace('l_disability_plan_id = '||l_disability_plan_id);
4352: l_user_entity_id_tab(1) := g_disability_plan_id;
4353: l_value_tab(1) := l_disability_plan_id;
4354:
4355: l_step := 108;
4352: l_user_entity_id_tab(1) := g_disability_plan_id;
4353: l_value_tab(1) := l_disability_plan_id;
4354:
4355: l_step := 108;
4356: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4357: hr_utility.trace(' l_value_tab is '||l_value_tab(1));
4358: l_seq_tab(1) := 1;
4359: --l_context_id_tab(1) := l_tax_unit_context_id;
4360: l_context_id_tab(1) := g_tax_unit_context_id;
4353: l_value_tab(1) := l_disability_plan_id;
4354:
4355: l_step := 108;
4356: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4357: hr_utility.trace(' l_value_tab is '||l_value_tab(1));
4358: l_seq_tab(1) := 1;
4359: --l_context_id_tab(1) := l_tax_unit_context_id;
4360: l_context_id_tab(1) := g_tax_unit_context_id;
4361: l_context_val_tab(1) := l_taxunitid;
4383: /* Bug# 4137906 - Time Info not required for the Date. So suppressing it */
4384: l_value_tab(1) := substr(fnd_date.date_to_canonical(sysdate),1,10);
4385:
4386: l_step := 110;
4387: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4388: hr_utility.trace(' l_value_tab is '||l_value_tab(1));
4389: l_seq_tab(1) := 1;
4390: --l_context_id_tab(1) := l_tax_unit_context_id;
4391: l_context_id_tab(1) := g_tax_unit_context_id;
4384: l_value_tab(1) := substr(fnd_date.date_to_canonical(sysdate),1,10);
4385:
4386: l_step := 110;
4387: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4388: hr_utility.trace(' l_value_tab is '||l_value_tab(1));
4389: l_seq_tab(1) := 1;
4390: --l_context_id_tab(1) := l_tax_unit_context_id;
4391: l_context_id_tab(1) := g_tax_unit_context_id;
4392: l_context_val_tab(1) := l_taxunitid;
4414: l_taxunitid);
4415: END IF;
4416:
4417: l_step := 112;
4418: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4419: hr_utility.trace(' l_value_tab is '||l_value_tab(1));
4420: l_seq_tab(1) := 1;
4421: l_context_id_tab(1) := g_tax_unit_context_id;
4422: l_context_val_tab(1) := l_taxunitid;
4415: END IF;
4416:
4417: l_step := 112;
4418: hr_utility.trace('l_user_entity_id_tab is '||l_user_entity_id_tab(1));
4419: hr_utility.trace(' l_value_tab is '||l_value_tab(1));
4420: l_seq_tab(1) := 1;
4421: l_context_id_tab(1) := g_tax_unit_context_id;
4422: l_context_val_tab(1) := l_taxunitid;
4423:
4448: l_jd_done_tab.delete;
4449: l_jd_name_done_tab.delete;
4450:
4451:
4452: hr_utility.trace_off;
4453:
4454: exception when others then
4455:
4456: raise_application_error(-20001,'Error in eoy_archive_data at step : '
4481:
4482: BEGIN
4483:
4484: l_step := 1;
4485: hr_utility.trace('In eoy_range_cursor');
4486:
4487: eoy_gre_range := 'SELECT distinct ASG.person_id
4488: FROM per_all_assignments_f ASG,
4489: pay_us_asg_reporting puar,
4504: into l_eoy_tax_unit_id, l_eoy_bg_id, l_start_date
4505: from pay_payroll_actions
4506: where payroll_action_id = pactid;
4507:
4508: hr_utility.trace('TUI is : ' || to_char(l_eoy_tax_unit_id));
4509: hr_utility.trace('BG is : ' || to_char(l_eoy_bg_id));
4510: hr_utility.trace('Start Date is : ' || to_char(l_start_date));
4511:
4512: /* for bug 2149544 */
4505: from pay_payroll_actions
4506: where payroll_action_id = pactid;
4507:
4508: hr_utility.trace('TUI is : ' || to_char(l_eoy_tax_unit_id));
4509: hr_utility.trace('BG is : ' || to_char(l_eoy_bg_id));
4510: hr_utility.trace('Start Date is : ' || to_char(l_start_date));
4511:
4512: /* for bug 2149544 */
4513: begin
4506: where payroll_action_id = pactid;
4507:
4508: hr_utility.trace('TUI is : ' || to_char(l_eoy_tax_unit_id));
4509: hr_utility.trace('BG is : ' || to_char(l_eoy_bg_id));
4510: hr_utility.trace('Start Date is : ' || to_char(l_start_date));
4511:
4512: /* for bug 2149544 */
4513: begin
4514: l_processed := 'Z';
4531: AND to_char(l_eoy_tax_unit_id) =
4532: substr(ltrim(rtrim( ppa1.legislative_parameters)),
4533: instr(ppa1.legislative_parameters,'TRANSFER_GRE=')+ length('TRANSFER_GRE='));
4534:
4535: hr_utility.trace('Value of l_processed is : ' || l_processed);
4536:
4537:
4538: if l_processed = 'X' then
4539: hr_utility.trace('Value of l_processed is : ' || l_processed);
4535: hr_utility.trace('Value of l_processed is : ' || l_processed);
4536:
4537:
4538: if l_processed = 'X' then
4539: hr_utility.trace('Value of l_processed is : ' || l_processed);
4540: l_mesg :='Error : GRE '||''''|| l_gre_name|| ''''||' has already been archived';
4541: pay_core_utils.push_message(801,'PAY_EXCEPTION_ERROR','P');
4542: pay_core_utils.push_token('description',l_mesg);
4543: hr_utility.raise_error;
4539: hr_utility.trace('Value of l_processed is : ' || l_processed);
4540: l_mesg :='Error : GRE '||''''|| l_gre_name|| ''''||' has already been archived';
4541: pay_core_utils.push_message(801,'PAY_EXCEPTION_ERROR','P');
4542: pay_core_utils.push_token('description',l_mesg);
4543: hr_utility.raise_error;
4544: end if;
4545:
4546: exception
4547: when no_data_found then
4550: when too_many_rows then
4551: l_mesg :='Error : GRE '||''''|| l_gre_name|| ''''||' has already been archived';
4552: pay_core_utils.push_message(801,'PAY_EXCEPTION_ERROR','P');
4553: pay_core_utils.push_token('description',l_mesg);
4554: hr_utility.raise_error;
4555:
4556: end;
4557:
4558:
4565: l_step := 5;
4566:
4567: if g_archive_flag = 'N' then
4568: l_step := 6;
4569: hr_utility.trace('eoy_range_cursor archiving employer data');
4570: eoy_archive_gre_data(p_payroll_action_id => pactid,
4571: p_tax_unit_id => l_eoy_tax_unit_id,
4572: p_jd_type => 'ALL',
4573: p_state_code => 'ALL');
4571: p_tax_unit_id => l_eoy_tax_unit_id,
4572: p_jd_type => 'ALL',
4573: p_state_code => 'ALL');
4574: l_step := 7;
4575: hr_utility.trace('eoy_range_cursor archiving employer data');
4576: end if;
4577: else
4578: l_step := 8;
4579: sqlstr := eoy_all_range;
4580: l_step := 9;
4581: end if;
4582:
4583: exception when others then
4584: hr_utility.trace('eoy_range_cursor at : '
4585: ||to_char(l_step)||' - '||to_char(sqlcode) || '-' || sqlerrm);
4586: END eoy_range_cursor;
4587:
4588:
4598:
4599: END eoy_deinit;
4600: --begin
4601:
4602: --hr_utility.trace_on(null,'pyusarch');
4603:
4604: END pay_us_archive;