1: package body pay_us_archive as
2: /* $Header: pyusarch.pkb 120.4.12000000.6 2007/09/18 09:18:02 sudedas noship $ */
3:
4: /*
5: Copyright (c) Oracle Corporation 1991,1992,1993. All rights reserved
603: or (fue.legislation_code is null and
604: fue.business_group_id is not null)) ;
605:
606: BEGIN
607: pay_us_archive.ltr_pr_balances.delete;
608:
609: BEGIN
610:
611: l_step := 19;
630: ln_count := 0 ;
631:
632: lv_balance_dimension := '_PER_GRE_YTD';
633:
634: pay_us_archive.ltr_pr_balances(1).balance_name := 'Territory Pension Annuity' ;
635: pay_us_archive.ltr_pr_balances(2).balance_name := 'Territory Reimb Expenses' ;
636: pay_us_archive.ltr_pr_balances(3).balance_name := 'Territory Taxable Comm' ;
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' ;
631:
632: lv_balance_dimension := '_PER_GRE_YTD';
633:
634: pay_us_archive.ltr_pr_balances(1).balance_name := 'Territory Pension Annuity' ;
635: pay_us_archive.ltr_pr_balances(2).balance_name := 'Territory Reimb Expenses' ;
636: pay_us_archive.ltr_pr_balances(3).balance_name := 'Territory Taxable Comm' ;
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' ;
632: lv_balance_dimension := '_PER_GRE_YTD';
633:
634: pay_us_archive.ltr_pr_balances(1).balance_name := 'Territory Pension Annuity' ;
635: pay_us_archive.ltr_pr_balances(2).balance_name := 'Territory Reimb Expenses' ;
636: pay_us_archive.ltr_pr_balances(3).balance_name := 'Territory Taxable Comm' ;
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:
633:
634: pay_us_archive.ltr_pr_balances(1).balance_name := 'Territory Pension Annuity' ;
635: pay_us_archive.ltr_pr_balances(2).balance_name := 'Territory Reimb Expenses' ;
636: pay_us_archive.ltr_pr_balances(3).balance_name := 'Territory Taxable Comm' ;
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');
634: pay_us_archive.ltr_pr_balances(1).balance_name := 'Territory Pension Annuity' ;
635: pay_us_archive.ltr_pr_balances(2).balance_name := 'Territory Reimb Expenses' ;
636: pay_us_archive.ltr_pr_balances(3).balance_name := 'Territory Taxable Comm' ;
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:
635: pay_us_archive.ltr_pr_balances(2).balance_name := 'Territory Reimb Expenses' ;
636: pay_us_archive.ltr_pr_balances(3).balance_name := 'Territory Taxable Comm' ;
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
646: exit;
647: END IF;
648: open pay_us_payroll_utils.c_get_defined_balance_id(pay_us_archive.ltr_pr_balances(ln_count).balance_name,
649: lv_balance_dimension,
650: NULL);
651: -- open c_get_puerto_rico_bal;
652:
689: to_char(ln_defined_balance_id));
690:
691: l_step := 19.3;
692:
693: -- pay_us_archive.ltr_pr_balances(ln_count).balance_name := lv_balance_name ;
694: pay_us_archive.ltr_pr_balances(ln_count).defined_balance := ln_defined_balance_id ;
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;
690:
691: l_step := 19.3;
692:
693: -- pay_us_archive.ltr_pr_balances(ln_count).balance_name := lv_balance_name ;
694: pay_us_archive.ltr_pr_balances(ln_count).defined_balance := ln_defined_balance_id ;
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:
691: l_step := 19.3;
692:
693: -- pay_us_archive.ltr_pr_balances(ln_count).balance_name := lv_balance_name ;
694: pay_us_archive.ltr_pr_balances(ln_count).defined_balance := ln_defined_balance_id ;
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');
800: BEGIN
801:
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);
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' ;
839: pay_us_archive.ltr_1099_bal(4).balance_name := 'Total EE Contributions' ;
840: pay_us_archive.ltr_1099_bal(5).balance_name := 'Unrealized Net ER Sec Apprec' ;
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' ;
839: pay_us_archive.ltr_1099_bal(4).balance_name := 'Total EE Contributions' ;
840: pay_us_archive.ltr_1099_bal(5).balance_name := 'Unrealized Net ER Sec Apprec' ;
841:
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' ;
839: pay_us_archive.ltr_1099_bal(4).balance_name := 'Total EE Contributions' ;
840: pay_us_archive.ltr_1099_bal(5).balance_name := 'Unrealized Net ER Sec Apprec' ;
841:
842:
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' ;
839: pay_us_archive.ltr_1099_bal(4).balance_name := 'Total EE Contributions' ;
840: pay_us_archive.ltr_1099_bal(5).balance_name := 'Unrealized Net ER Sec Apprec' ;
841:
842:
843: loop
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' ;
839: pay_us_archive.ltr_1099_bal(4).balance_name := 'Total EE Contributions' ;
840: pay_us_archive.ltr_1099_bal(5).balance_name := 'Unrealized Net ER Sec Apprec' ;
841:
842:
843: loop
844: ln_count := ln_count + 1;
844: ln_count := ln_count + 1;
845: IF ln_count > 5 THEN
846: exit;
847: END IF;
848: open pay_us_payroll_utils.c_get_defined_balance_id(pay_us_archive.ltr_1099_bal(ln_count).balance_name,
849: lv_balance_dimension,
850: NULL);
851: -- open c_get_1099r_bal;
852:
889: to_char(ln_defined_balance_id));
890:
891: l_step := 21.3;
892:
893: -- pay_us_archive.ltr_1099_bal(ln_count).balance_name := lv_balance_name ;
894: pay_us_archive.ltr_1099_bal(ln_count).defined_balance := ln_defined_balance_id ;
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:
890:
891: l_step := 21.3;
892:
893: -- pay_us_archive.ltr_1099_bal(ln_count).balance_name := lv_balance_name ;
894: pay_us_archive.ltr_1099_bal(ln_count).defined_balance := ln_defined_balance_id ;
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;
891: l_step := 21.3;
892:
893: -- pay_us_archive.ltr_1099_bal(ln_count).balance_name := lv_balance_name ;
894: pay_us_archive.ltr_1099_bal(ln_count).defined_balance := ln_defined_balance_id ;
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');
904:
905:
906: /* check whether these balances have been fed or not */
907:
908: for j in pay_us_archive.ltr_1099_bal.first ..
909: pay_us_archive.ltr_1099_bal.last loop
910:
911: lv_feed_flag := 'N';
912:
905:
906: /* check whether these balances have been fed or not */
907:
908: for j in pay_us_archive.ltr_1099_bal.first ..
909: pay_us_archive.ltr_1099_bal.last loop
910:
911: lv_feed_flag := 'N';
912:
913: l_step := 21.5;
910:
911: lv_feed_flag := 'N';
912:
913: l_step := 21.5;
914: open c_balance_feed_info(pay_us_archive.ltr_1099_bal(j).balance_name);
915:
916: fetch c_balance_feed_info into lv_feed_flag;
917:
918: l_step := 21.6;
920:
921: if c_balance_feed_info%NOTFOUND then
922: lv_feed_flag := 'N';
923: l_step := 21.7;
924: pay_us_archive.ltr_1099_bal(j).feed_info := 'N';
925:
926: else
927:
928: l_step := 21.8;
925:
926: else
927:
928: l_step := 21.8;
929: pay_us_archive.ltr_1099_bal(j).feed_info := lv_feed_flag;
930: end if;
931: close c_balance_feed_info ;
932:
933: l_step := 21.9;
1020:
1021:
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
1083: l_step := 17;
1084: ln_count := ln_count + 1;
1085:
1086:
1087: pay_us_archive.ltr_pre_tax_bal(ln_count).balance_name := lv_balance_name ;
1088: pay_us_archive.ltr_pre_tax_bal(ln_count).defined_balance := ln_defined_balance_id ;
1089: pay_us_archive.ltr_pre_tax_bal(ln_count).user_entity_id := ln_arch_user_entity_id ;
1090:
1091: end if;
1084: ln_count := ln_count + 1;
1085:
1086:
1087: pay_us_archive.ltr_pre_tax_bal(ln_count).balance_name := lv_balance_name ;
1088: pay_us_archive.ltr_pre_tax_bal(ln_count).defined_balance := ln_defined_balance_id ;
1089: pay_us_archive.ltr_pre_tax_bal(ln_count).user_entity_id := ln_arch_user_entity_id ;
1090:
1091: end if;
1092: close pay_us_payroll_utils.c_get_defined_balance_id;
1085:
1086:
1087: pay_us_archive.ltr_pre_tax_bal(ln_count).balance_name := lv_balance_name ;
1088: pay_us_archive.ltr_pre_tax_bal(ln_count).defined_balance := ln_defined_balance_id ;
1089: pay_us_archive.ltr_pre_tax_bal(ln_count).user_entity_id := ln_arch_user_entity_id ;
1090:
1091: end if;
1092: close pay_us_payroll_utils.c_get_defined_balance_id;
1093:
1518: raise_application_error(-20001,'Error getting user_entity_id for DBI : '
1519: ||p_dbi_name||' - '||to_char(sqlcode) || '-' || sqlerrm);
1520: end get_user_entity_id;
1521:
1522: procedure create_archive (p_user_entity_id in pay_us_archive.number_data_type_table,
1523: p_context1 in number,
1524: p_value in pay_us_archive.char240_data_type_table,
1525: p_sequence in pay_us_archive.number_data_type_table,
1526: p_context in pay_us_archive.char240_data_type_table,
1520: end get_user_entity_id;
1521:
1522: procedure create_archive (p_user_entity_id in pay_us_archive.number_data_type_table,
1523: p_context1 in number,
1524: p_value in pay_us_archive.char240_data_type_table,
1525: p_sequence in pay_us_archive.number_data_type_table,
1526: p_context in pay_us_archive.char240_data_type_table,
1527: p_context_id in pay_us_archive.number_data_type_table,
1528: p_archive_level in varchar2 default 'EE') is
1521:
1522: procedure create_archive (p_user_entity_id in pay_us_archive.number_data_type_table,
1523: p_context1 in number,
1524: p_value in pay_us_archive.char240_data_type_table,
1525: p_sequence in pay_us_archive.number_data_type_table,
1526: p_context in pay_us_archive.char240_data_type_table,
1527: p_context_id in pay_us_archive.number_data_type_table,
1528: p_archive_level in varchar2 default 'EE') is
1529:
1522: procedure create_archive (p_user_entity_id in pay_us_archive.number_data_type_table,
1523: p_context1 in number,
1524: p_value in pay_us_archive.char240_data_type_table,
1525: p_sequence in pay_us_archive.number_data_type_table,
1526: p_context in pay_us_archive.char240_data_type_table,
1527: p_context_id in pay_us_archive.number_data_type_table,
1528: p_archive_level in varchar2 default 'EE') is
1529:
1530: l_step number := 0;
1523: p_context1 in number,
1524: p_value in pay_us_archive.char240_data_type_table,
1525: p_sequence in pay_us_archive.number_data_type_table,
1526: p_context in pay_us_archive.char240_data_type_table,
1527: p_context_id in pay_us_archive.number_data_type_table,
1528: p_archive_level in varchar2 default 'EE') is
1529:
1530: l_step number := 0;
1531: l_tax_context_id number := 0;
1843: p_jd_type in varchar2 default 'ALL',
1844: p_state_code in varchar2 default 'ALL')
1845: is
1846:
1847: l_user_entity_id_tab pay_us_archive.number_data_type_table;
1848: l_tax_context_id number;
1849: l_jursd_context_id number;
1850: l_value1 varchar2(240);
1851: l_value2 varchar2(240);
1866: l_value17 varchar2(240);
1867: l_value18 varchar2(240);
1868: l_value19 varchar2(240);
1869: l_value20 varchar2(240);
1870: l_value_tab pay_us_archive.char240_data_type_table;
1871: l_sit_uid number;
1872: l_sui_uid number;
1873: l_fips_uid number;
1874: l_seq_tab pay_us_archive.number_data_type_table;
1870: l_value_tab pay_us_archive.char240_data_type_table;
1871: l_sit_uid number;
1872: l_sui_uid number;
1873: l_fips_uid number;
1874: l_seq_tab pay_us_archive.number_data_type_table;
1875: l_context_id_tab pay_us_archive.number_data_type_table;
1876: l_context_val_tab pay_us_archive.char240_data_type_table;
1877: l_arch_gre_step number := 0;
1878: l_archive_level varchar2(240);
1871: l_sit_uid number;
1872: l_sui_uid number;
1873: l_fips_uid number;
1874: l_seq_tab pay_us_archive.number_data_type_table;
1875: l_context_id_tab pay_us_archive.number_data_type_table;
1876: l_context_val_tab pay_us_archive.char240_data_type_table;
1877: l_arch_gre_step number := 0;
1878: l_archive_level varchar2(240);
1879:
1872: l_sui_uid number;
1873: l_fips_uid number;
1874: l_seq_tab pay_us_archive.number_data_type_table;
1875: l_context_id_tab pay_us_archive.number_data_type_table;
1876: l_context_val_tab pay_us_archive.char240_data_type_table;
1877: l_arch_gre_step number := 0;
1878: l_archive_level varchar2(240);
1879:
1880: ld_end_date DATE;
2712:
2713: /* Get the tax unit id and set it up as the context */
2714: l_step := 7;
2715: /*
2716: pay_us_archive.g_report_type := pay_us_archive.get_report_type(p_payroll_action_id);
2717: if g_report_type <> 'W2C_PRE_PROCESS' then
2718:
2719: select to_number(substr(legislative_parameters,
2720: instr(legislative_parameters,'TRANSFER_GRE=')+ length('TRANSFER_GRE='))),
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) ;
2783: pay_us_archive.g_pre_tax_info := pay_us_archive.get_pre_tax_info(l_tax_unit_id,
2784: ln_business_group_id) ;
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) ;
2783: pay_us_archive.g_pre_tax_info := pay_us_archive.get_pre_tax_info(l_tax_unit_id,
2784: ln_business_group_id) ;
2785: if pay_us_sqwl_udf.chk_govt_employer(p_tax_unit_id =>l_tax_unit_id) then
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) ;
2783: pay_us_archive.g_pre_tax_info := pay_us_archive.get_pre_tax_info(l_tax_unit_id,
2784: ln_business_group_id) ;
2785: if pay_us_sqwl_udf.chk_govt_employer(p_tax_unit_id =>l_tax_unit_id) then
2786: pay_us_archive.g_govt_employer := 'Y';
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) ;
2783: pay_us_archive.g_pre_tax_info := pay_us_archive.get_pre_tax_info(l_tax_unit_id,
2784: ln_business_group_id) ;
2785: if pay_us_sqwl_udf.chk_govt_employer(p_tax_unit_id =>l_tax_unit_id) then
2786: pay_us_archive.g_govt_employer := 'Y';
2787: else
2782: pay_us_archive.g_1099R_transmitter_code := pay_us_archive.get_1099r_info(l_tax_unit_id) ;
2783: pay_us_archive.g_pre_tax_info := pay_us_archive.get_pre_tax_info(l_tax_unit_id,
2784: ln_business_group_id) ;
2785: if pay_us_sqwl_udf.chk_govt_employer(p_tax_unit_id =>l_tax_unit_id) then
2786: pay_us_archive.g_govt_employer := 'Y';
2787: else
2788: pay_us_archive.g_govt_employer := 'N';
2789: end if;
2790:
2784: ln_business_group_id) ;
2785: if pay_us_sqwl_udf.chk_govt_employer(p_tax_unit_id =>l_tax_unit_id) then
2786: pay_us_archive.g_govt_employer := 'Y';
2787: else
2788: pay_us_archive.g_govt_employer := 'N';
2789: end if;
2790:
2791:
2792: l_step := 13;
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',
2942: l_taxunitid));
2943:
2944:
2941: 'A_VIEW_ONLINE_W2',
2942: l_taxunitid));
2943:
2944:
2945: l_add_archive := pay_us_archive_util.get_archive_value(p_assactid,
2946: 'A_ADD_ARCHIVE',
2947: l_taxunitid);
2948:
2949:
2995: l_county_code varchar2(3);
2996: l_city_code varchar2(4);
2997: l_person_id per_people_f.person_id%type;
2998: l_jursd_context_id ff_contexts.context_id%type;
2999: l_user_entity_id_tab pay_us_archive.number_data_type_table;
3000: l_user_entity_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
2996: l_city_code varchar2(4);
2997: l_person_id per_people_f.person_id%type;
2998: l_jursd_context_id ff_contexts.context_id%type;
2999: l_user_entity_id_tab pay_us_archive.number_data_type_table;
3000: l_user_entity_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
2997: l_person_id per_people_f.person_id%type;
2998: l_jursd_context_id ff_contexts.context_id%type;
2999: l_user_entity_id_tab pay_us_archive.number_data_type_table;
3000: l_user_entity_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
2998: l_jursd_context_id ff_contexts.context_id%type;
2999: l_user_entity_id_tab pay_us_archive.number_data_type_table;
3000: l_user_entity_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
2999: l_user_entity_id_tab pay_us_archive.number_data_type_table;
3000: l_user_entity_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
3007: --l_jd_done_tab pay_us_archive.char240_data_type_table;
3000: l_user_entity_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
3007: --l_jd_done_tab pay_us_archive.char240_data_type_table;
3008: --l_jd_name_done_tab pay_us_archive.char240_data_type_table;
3001: l_defined_balance_id_tab pay_us_archive.number_data_type_table;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
3007: --l_jd_done_tab pay_us_archive.char240_data_type_table;
3008: --l_jd_name_done_tab pay_us_archive.char240_data_type_table;
3009: l_chunk number;
3002: l_value_tab pay_us_archive.char240_data_type_table;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
3007: --l_jd_done_tab pay_us_archive.char240_data_type_table;
3008: --l_jd_name_done_tab pay_us_archive.char240_data_type_table;
3009: l_chunk number;
3010: l_payroll_action_id number;
3003: l_balance_feed_tab pay_us_archive.char240_data_type_table;
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
3007: --l_jd_done_tab pay_us_archive.char240_data_type_table;
3008: --l_jd_name_done_tab pay_us_archive.char240_data_type_table;
3009: l_chunk number;
3010: l_payroll_action_id number;
3011: l_chk_state_archive varchar2(1);
3004: l_seq_tab pay_us_archive.number_data_type_table;
3005: l_context_id_tab pay_us_archive.number_data_type_table;
3006: l_context_val_tab pay_us_archive.char240_data_type_table;
3007: --l_jd_done_tab pay_us_archive.char240_data_type_table;
3008: --l_jd_name_done_tab pay_us_archive.char240_data_type_table;
3009: l_chunk number;
3010: l_payroll_action_id number;
3011: l_chk_state_archive varchar2(1);
3012: l_chk_county_archive varchar2(1);
3916: l_jd_done_tab.delete;
3917:
3918: l_step := 52;
3919:
3920: for ln_count in pay_us_archive.ltr_pre_tax_bal.first ..
3921: pay_us_archive.ltr_pre_tax_bal.last loop
3922:
3923: l_step := 53;
3924:
3917:
3918: l_step := 52;
3919:
3920: for ln_count in pay_us_archive.ltr_pre_tax_bal.first ..
3921: pay_us_archive.ltr_pre_tax_bal.last loop
3922:
3923: l_step := 53;
3924:
3925: lv_value := nvl(pay_balance_pkg.get_value
3922:
3923: l_step := 53;
3924:
3925: lv_value := nvl(pay_balance_pkg.get_value
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);
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,
3935: p_archive_value => lv_value,
3936: p_archive_type => '',
3937: p_action_id => p_assactid,
3938: p_legislation_code => 'US',
4011: pay_balance_pkg.set_context('TAX_UNIT_ID',l_taxunitid);
4012:
4013: l_step := 58;
4014:
4015: for k in pay_us_archive.ltr_pr_balances.first ..
4016: pay_us_archive.ltr_pr_balances.last loop
4017:
4018: l_index := l_user_entity_id_tab.count + 1;
4019:
4012:
4013: l_step := 58;
4014:
4015: for k in pay_us_archive.ltr_pr_balances.first ..
4016: pay_us_archive.ltr_pr_balances.last loop
4017:
4018: l_index := l_user_entity_id_tab.count + 1;
4019:
4020: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_pr_balances(k).user_entity_id;
4016: pay_us_archive.ltr_pr_balances.last loop
4017:
4018: l_index := l_user_entity_id_tab.count + 1;
4019:
4020: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_pr_balances(k).user_entity_id;
4021: l_defined_balance_id_tab(l_index) := pay_us_archive.ltr_pr_balances(k).defined_balance;
4022: l_value_tab(l_index) := nvl(pay_balance_pkg.get_value
4023: (p_defined_balance_id =>l_defined_balance_id_tab(l_index) ,
4024: p_assignment_action_id => l_aaid),0);
4017:
4018: l_index := l_user_entity_id_tab.count + 1;
4019:
4020: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_pr_balances(k).user_entity_id;
4021: l_defined_balance_id_tab(l_index) := pay_us_archive.ltr_pr_balances(k).defined_balance;
4022: l_value_tab(l_index) := nvl(pay_balance_pkg.get_value
4023: (p_defined_balance_id =>l_defined_balance_id_tab(l_index) ,
4024: p_assignment_action_id => l_aaid),0);
4025:
4110: pay_balance_pkg.set_context('TAX_UNIT_ID',l_taxunitid);
4111:
4112: l_step := 77;
4113:
4114: for m in pay_us_archive.ltr_1099_bal.first ..
4115: pay_us_archive.ltr_1099_bal.last loop
4116:
4117: l_index := l_user_entity_id_tab.count + 1;
4118:
4111:
4112: l_step := 77;
4113:
4114: for m in pay_us_archive.ltr_1099_bal.first ..
4115: pay_us_archive.ltr_1099_bal.last loop
4116:
4117: l_index := l_user_entity_id_tab.count + 1;
4118:
4119: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).user_entity_id;
4115: pay_us_archive.ltr_1099_bal.last loop
4116:
4117: l_index := l_user_entity_id_tab.count + 1;
4118:
4119: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).user_entity_id;
4120: l_defined_balance_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).defined_balance;
4121: l_balance_feed_tab(l_index) := pay_us_archive.ltr_1099_bal(m).feed_info;
4122:
4123: if l_balance_feed_tab(l_index) = 'Y' then
4116:
4117: l_index := l_user_entity_id_tab.count + 1;
4118:
4119: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).user_entity_id;
4120: l_defined_balance_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).defined_balance;
4121: l_balance_feed_tab(l_index) := pay_us_archive.ltr_1099_bal(m).feed_info;
4122:
4123: if l_balance_feed_tab(l_index) = 'Y' then
4124:
4117: l_index := l_user_entity_id_tab.count + 1;
4118:
4119: l_user_entity_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).user_entity_id;
4120: l_defined_balance_id_tab(l_index) := pay_us_archive.ltr_1099_bal(m).defined_balance;
4121: l_balance_feed_tab(l_index) := pay_us_archive.ltr_1099_bal(m).feed_info;
4122:
4123: if l_balance_feed_tab(l_index) = 'Y' then
4124:
4125: l_value_tab(l_index) := nvl(pay_balance_pkg.get_value
4288: l_seq_tab.delete;
4289: l_context_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(
4401:
4402: l_step := 111;
4403:
4404: l_user_entity_id_tab(1) := g_w2_corrected;
4405: l_add_archive :=pay_us_archive_util.get_archive_value(p_assactid,
4406: 'A_ADD_ARCHIVE',
4407: l_taxunitid);
4408:
4409: IF l_add_archive = 'Y' THEN
4600: --begin
4601:
4602: --hr_utility.trace_on(null,'pyusarch');
4603:
4604: END pay_us_archive;