1: PACKAGE BODY PAY_US_W2_INFO_PKG as
2: /* $Header: pyusw2dt.pkb 120.34.12010000.6 2008/08/11 11:21:31 asgugupt ship $ */
3: g_package CONSTANT VARCHAR2(33) := 'pay_us_w2_info_pkg.';
4: l_w2_fields l_w2_fields_rec;
5: l_state_tab l_state_table;
1: PACKAGE BODY PAY_US_W2_INFO_PKG as
2: /* $Header: pyusw2dt.pkb 120.34.12010000.6 2008/08/11 11:21:31 asgugupt ship $ */
3: g_package CONSTANT VARCHAR2(33) := 'pay_us_w2_info_pkg.';
4: l_w2_fields l_w2_fields_rec;
5: l_state_tab l_state_table;
6: l_local_tab l_local_table;
7: l_box12_tab l_box12_table;
490:
491: /* CURSOR c_get_employer_info ( p_tax_unit_id NUMBER, p_year NUMBER) IS
492: select federal_ein federal_ein,
493: tax_unit_name employer_name,
494: substr(decode(put.address_line_1,null,null,put.address_line_1||pay_us_w2_info_pkg.EOL),1,45)||
495: substr(decode(put.address_line_2,null,null,put.address_line_2||pay_us_w2_info_pkg.EOL),1,45)||
496: substr(decode(put.address_line_3,null,null,put.address_line_3||pay_us_w2_info_pkg.EOL),1,45)||
497: decode(put.town_or_city,null,null,put.town_or_city||' ')||
498: decode(state,null,null,state||' ')||put.postal_code
491: /* CURSOR c_get_employer_info ( p_tax_unit_id NUMBER, p_year NUMBER) IS
492: select federal_ein federal_ein,
493: tax_unit_name employer_name,
494: substr(decode(put.address_line_1,null,null,put.address_line_1||pay_us_w2_info_pkg.EOL),1,45)||
495: substr(decode(put.address_line_2,null,null,put.address_line_2||pay_us_w2_info_pkg.EOL),1,45)||
496: substr(decode(put.address_line_3,null,null,put.address_line_3||pay_us_w2_info_pkg.EOL),1,45)||
497: decode(put.town_or_city,null,null,put.town_or_city||' ')||
498: decode(state,null,null,state||' ')||put.postal_code
499: employer_address
492: select federal_ein federal_ein,
493: tax_unit_name employer_name,
494: substr(decode(put.address_line_1,null,null,put.address_line_1||pay_us_w2_info_pkg.EOL),1,45)||
495: substr(decode(put.address_line_2,null,null,put.address_line_2||pay_us_w2_info_pkg.EOL),1,45)||
496: substr(decode(put.address_line_3,null,null,put.address_line_3||pay_us_w2_info_pkg.EOL),1,45)||
497: decode(put.town_or_city,null,null,put.town_or_city||' ')||
498: decode(state,null,null,state||' ')||put.postal_code
499: employer_address
500: from pay_us_w2_tax_unit_v put
505: /*Bug 5735076 added by vaprakas*/
506: CURSOR c_get_employer_info ( p_tax_unit_id NUMBER, p_year NUMBER) IS
507: select federal_ein federal_ein,
508: tax_unit_name employer_name,
509: decode(put.address_line_1,null,null,substr(put.address_line_1,1,45)||pay_us_w2_info_pkg.EOL)||
510: decode(put.address_line_2,null,null,substr(put.address_line_2,1,45)||pay_us_w2_info_pkg.EOL)||
511: decode(put.address_line_3,null,null,substr(put.address_line_3,1,45)||pay_us_w2_info_pkg.EOL)||
512: decode(put.town_or_city,null,null,put.town_or_city||' ')||
513: decode(state,null,null,state||' ')||put.postal_code
506: CURSOR c_get_employer_info ( p_tax_unit_id NUMBER, p_year NUMBER) IS
507: select federal_ein federal_ein,
508: tax_unit_name employer_name,
509: decode(put.address_line_1,null,null,substr(put.address_line_1,1,45)||pay_us_w2_info_pkg.EOL)||
510: decode(put.address_line_2,null,null,substr(put.address_line_2,1,45)||pay_us_w2_info_pkg.EOL)||
511: decode(put.address_line_3,null,null,substr(put.address_line_3,1,45)||pay_us_w2_info_pkg.EOL)||
512: decode(put.town_or_city,null,null,put.town_or_city||' ')||
513: decode(state,null,null,state||' ')||put.postal_code
514: employer_address
507: select federal_ein federal_ein,
508: tax_unit_name employer_name,
509: decode(put.address_line_1,null,null,substr(put.address_line_1,1,45)||pay_us_w2_info_pkg.EOL)||
510: decode(put.address_line_2,null,null,substr(put.address_line_2,1,45)||pay_us_w2_info_pkg.EOL)||
511: decode(put.address_line_3,null,null,substr(put.address_line_3,1,45)||pay_us_w2_info_pkg.EOL)||
512: decode(put.town_or_city,null,null,put.town_or_city||' ')||
513: decode(state,null,null,state||' ')||put.postal_code
514: employer_address
515: from pay_us_w2_tax_unit_v put
662: hr_utility.trace('l_org_address ' ||l_org_address);
663:
664: l_w2_fields.employer_address
665: := 'Agent For ' ||substr(l_org_employer_name,1,44)||
666: pay_us_w2_info_pkg.EOL ||
667: l_w2_fields.employer_address;
668: END IF;
669: /* Bug 5575567 */
670: hr_utility.trace(' sysdate ' || sysdate);
743: 'W2_XML');
744:
745: IF lr_employee_addr.addr_line_1 IS NOT NULL THEN
746: l_w2_fields.employee_address := substr(lr_employee_addr.addr_line_1,1,45) ||
747: PAY_US_W2_INFO_PKG.EOL;
748: END IF;
749:
750: IF lr_employee_addr.addr_line_2 IS NOT NULL THEN
751: l_w2_fields.employee_address := l_w2_fields.employee_address||
749:
750: IF lr_employee_addr.addr_line_2 IS NOT NULL THEN
751: l_w2_fields.employee_address := l_w2_fields.employee_address||
752: substr(lr_employee_addr.addr_line_2,1,45) ||
753: PAY_US_W2_INFO_PKG.EOL;
754: END IF;
755:
756: IF lr_employee_addr.addr_line_3 IS NOT NULL THEN
757: l_w2_fields.employee_address := l_w2_fields.employee_address||
755:
756: IF lr_employee_addr.addr_line_3 IS NOT NULL THEN
757: l_w2_fields.employee_address := l_w2_fields.employee_address||
758: substr(lr_employee_addr.addr_line_3,1,45) ||
759: PAY_US_W2_INFO_PKG.EOL;
760: END IF;
761:
762: l_w2_fields.employee_address :=l_w2_fields.employee_address ||
763: lr_employee_addr.city||' '||
1960: return null;
1961: when others then
1962: return null;
1963: end get_outfile;
1964: END PAY_US_W2_INFO_PKG;