1: PACKAGE BODY pay_us_online_w4_xml_pkg
2: /* $Header: pyw4xmlp.pkb 120.2.12010000.1 2008/07/28 00:01:20 appldev ship $ */
3: /*
4: ******************************************************************
5: * *
16: * 500 Oracle Parkway, Redwood City, CA, 94065. *
17: * *
18: ******************************************************************
19:
20: Name : pay_us_online_w4_xml_pkg
21:
22: Description : This package contains the procedure generate_xml to
23: generate the XML extract for Online W4 PDF
24:
125: l_date DATE;
126: l_signature VARCHAR2 (100);
127: BEGIN
128: --hr_utility.trace_on (NULL, 'pyw4xmlp');
129: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 10);
130: hr_utility.TRACE ('p_person_id: ' || p_person_id);
131: hr_utility.TRACE ('p_transaction_step_id: ' || p_transaction_step_id);
132: hr_utility.TRACE ('p_temp_dir: ' || p_temp_dir);
133: hr_utility.TRACE ('p_appl_short_name: ' || p_appl_short_name);
144: l_address_line3, l_city_state_zip;
145:
146: CLOSE c_get_personal_details;
147:
148: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 20);
149:
150: OPEN c_get_updated_values (p_transaction_step_id);
151:
152: FETCH c_get_updated_values
154: l_last_name_diff;
155:
156: CLOSE c_get_updated_values;
157:
158: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 30);
159:
160: OPEN c_get_lookup_codes (l_filing_status);
161:
162: FETCH c_get_lookup_codes
163: INTO l_filing_status_code;
164:
165: CLOSE c_get_lookup_codes;
166:
167: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 40);
168:
169: IF l_filing_status_code = '01'
170: THEN
171: l_fs_single := 'Y';
175: ELSE
176: l_fs_married_withhold := 'Y';
177: END IF;
178:
179: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 50);
180:
181: SELECT SYSDATE, TO_CHAR (SYSDATE, 'YYYY')
182: INTO l_date, l_year
183: FROM DUAL;
306: || p_default_territory
307: || '">';
308: l_xml_string := l_xml_string || '
309: l_xml_string := l_xml_string || '
310: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 60);
311:
312: FOR counter IN l_xml_data_table.FIRST .. l_xml_data_table.LAST
313: LOOP
314: l_xml_string :=
322: l_xml_string :=
323: l_xml_string
324: || '';
325: p_xml_string := l_xml_string;
326: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 70);
327: END generate_xml;
328: END pay_us_online_w4_xml_pkg;
324: || '';
325: p_xml_string := l_xml_string;
326: hr_utility.set_location ('pay_us_online_w4_xml_pkg.generate_xml', 70);
327: END generate_xml;
328: END pay_us_online_w4_xml_pkg;