[Home] [Help]
25: code
26: 02-NOV-2005 ssouresr 115.7 Removed temporary CRA code message
27: 04-NOV-2005 ssouresr 115.8 Added the CRA approval code RC-05-1122
28: 30-NOV-2005 ssouresr 115.9 Modified package to use the core procedure
29: pay_core_files.write_to_magtape_lob
30: 19-APR-2006 ssouresr 115.10 Modified package to use the function
31: get_IANA_charset to get the character set
32: 25-Jul-2006 ssmukher 115.11 Added code for implementing the
33: QPIP/PPIP taxes.
356: ''||EOL||
357: '
358: '
359:
360: pay_core_files.write_to_magtape_lob(l_header_xml);
361:
362: hr_utility.trace('before fetch_t4_xml');
363: fetch_t4_xml(l_aa_id,
364: l_pa_id,
388: ''||EOL||
389: ''||EOL;
390: end if;
391:
392: pay_core_files.write_to_magtape_lob(l_trailer_xml);
393:
394: exception
395: when others then
396: hr_utility.trace('sqleerm ' || SQLERRM);
1248: end loop;
1249: hr_utility.trace('calling from '||called_from);
1250: if trim(called_from) = 'get_asg_xml' then
1251: hr_utility.trace('before writing in magtape');
1252: pay_core_files.write_to_magtape_lob(l_employee_xml);
1253: hr_utility.trace('after writing in magtape');
1254: end if;
1255:
1256: if trim(called_from) = 'get_final_xml' then
1506: fnd_global.local_chr(13)||fnd_global.local_chr(10)||
1507: '
1508: fnd_global.local_chr(13)||fnd_global.local_chr(10);
1509: */
1510: pay_core_files.write_to_magtape_lob(l_header_xml_string);
1511:
1512: end get_header_xml;
1513:
1514:
1521: l_trailer_xml_string :=
1522: ''||
1523: fnd_global.local_chr(13)||fnd_global.local_chr(10);
1524:
1525: pay_core_files.write_to_magtape_lob(l_trailer_xml_string);
1526:
1527: end get_trailer_xml;
1528:
1529: function get_outfile return VARCHAR2 is