DBA Data[Home] [Help]

APPS.GHR_EHRI_DYNRPT dependencies on UTL_FILE

Line 1463: p_xml_fp UTL_FILE.FILE_TYPE;

1459: p_gen_xml_file IN VARCHAR2,
1460: p_gen_txt_file IN VARCHAR2
1461: )
1462: IS
1463: p_xml_fp UTL_FILE.FILE_TYPE;
1464: p_ascii_fp UTL_FILE.FILE_TYPE;
1465: l_audit_log_dir varchar2(500);
1466: l_xml_file_name varchar2(500);
1467: l_ascii_file_name varchar2(500);

Line 1464: p_ascii_fp UTL_FILE.FILE_TYPE;

1460: p_gen_txt_file IN VARCHAR2
1461: )
1462: IS
1463: p_xml_fp UTL_FILE.FILE_TYPE;
1464: p_ascii_fp UTL_FILE.FILE_TYPE;
1465: l_audit_log_dir varchar2(500);
1466: l_xml_file_name varchar2(500);
1467: l_ascii_file_name varchar2(500);
1468: l_output_xml_fname varchar2(500);

Line 1512: where name = 'utl_file_dir';

1508: --
1509: select value
1510: into l_audit_log_dir
1511: from v$parameter
1512: where name = 'utl_file_dir';
1513: -- Check whether more than one util file directory is found
1514: IF INSTR(l_audit_log_dir,',') > 0 THEN
1515: l_audit_log_dir := substr(l_audit_log_dir,1,instr(l_audit_log_dir,',')-1);
1516: END IF;

Line 1529: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);

1525: l_output_ascii_fname := l_audit_log_dir || '\' || l_ascii_file_name;
1526: END IF;
1527:
1528: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
1529: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
1530:
1531: IF p_gen_xml_file = 'Y' THEN
1532: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1533: utl_file.put_line(p_xml_fp,'');

Line 1532: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);

1528: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
1529: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
1530:
1531: IF p_gen_xml_file = 'Y' THEN
1532: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1533: utl_file.put_line(p_xml_fp,'');
1534: -- Writing from and to dates
1535: utl_file.put_line(p_xml_fp,'');
1536:

Line 1533: utl_file.put_line(p_xml_fp,'');

1529: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
1530:
1531: IF p_gen_xml_file = 'Y' THEN
1532: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1533: utl_file.put_line(p_xml_fp,'');
1534: -- Writing from and to dates
1535: utl_file.put_line(p_xml_fp,'');
1536:
1537: -- Loop through cursor and write the values into the XML and ASCII File.

Line 1535: utl_file.put_line(p_xml_fp,'');

1531: IF p_gen_xml_file = 'Y' THEN
1532: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1533: utl_file.put_line(p_xml_fp,'');
1534: -- Writing from and to dates
1535: utl_file.put_line(p_xml_fp,'');
1536:
1537: -- Loop through cursor and write the values into the XML and ASCII File.
1538:
1539:

Line 1555: utl_file.put_line(p_xml_fp,'');

1551: g_eff_seq_no := g_eff_seq_no + 1;
1552: end if;
1553:
1554: WriteTagValues(ctr_table,v_tags);
1555: utl_file.put_line(p_xml_fp,'');
1556: WriteXMLvalues(p_xml_fp,v_tags);
1557: utl_file.put_line(p_xml_fp,'');
1558: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
1559: l_count := l_count + 1;

Line 1557: utl_file.put_line(p_xml_fp,'');

1553:
1554: WriteTagValues(ctr_table,v_tags);
1555: utl_file.put_line(p_xml_fp,'');
1556: WriteXMLvalues(p_xml_fp,v_tags);
1557: utl_file.put_line(p_xml_fp,'
');
1558: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
1559: l_count := l_count + 1;
1560: END LOOP;
1561:

Line 1563: utl_file.put_line(p_xml_fp,'');

1559: l_count := l_count + 1;
1560: END LOOP;
1561:
1562: -- Write the end tag and close the XML File.
1563: utl_file.put_line(p_xml_fp,'');
1564: utl_file.fclose(p_xml_fp);
1565: ELSE
1566:
1567: prev_national_identifier:= null;

Line 1564: utl_file.fclose(p_xml_fp);

1560: END LOOP;
1561:
1562: -- Write the end tag and close the XML File.
1563: utl_file.put_line(p_xml_fp,'');
1564: utl_file.fclose(p_xml_fp);
1565: ELSE
1566:
1567: prev_national_identifier:= null;
1568: prev_agency_code := null;

Line 2200: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )

2196:
2197: -----------------------------------------------------------------------------
2198: -- Writing the records from PL/SQL table p_tags into XML File
2199: -----------------------------------------------------------------------------
2200: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
2201: IS
2202: BEGIN
2203: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
2204: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');

Line 2204: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');

2200: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
2201: IS
2202: BEGIN
2203: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
2204: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');
2205: END LOOP;
2206: END WriteXMLvalues;
2207:
2208: -----------------------------------------------------------------------------

Line 2211: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type,

2207:
2208: -----------------------------------------------------------------------------
2209: -- Writing the records from PL/SQL table p_tags into Text and FND Output File
2210: -----------------------------------------------------------------------------
2211: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type,
2212: p_tags t_tags,
2213: p_gen_txt_file IN VARCHAR2)
2214: IS
2215: l_temp VARCHAR2(4000);

Line 2224: utl_file.put_line(p_l_fp,l_temp);

2220: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
2221: IF l_tags = l_tot THEN
2222: l_temp := p_tags(l_tags).tagvalue;
2223: IF p_gen_txt_file = 'Y' THEN
2224: utl_file.put_line(p_l_fp,l_temp);
2225: END IF;
2226: fnd_file.put_line(fnd_file.output,l_temp);
2227: ELSE
2228: l_temp := p_tags(l_tags).tagvalue || '|';

Line 2230: utl_file.put(p_l_fp,l_temp);

2226: fnd_file.put_line(fnd_file.output,l_temp);
2227: ELSE
2228: l_temp := p_tags(l_tags).tagvalue || '|';
2229: IF p_gen_txt_file = 'Y' THEN
2230: utl_file.put(p_l_fp,l_temp);
2231: END IF;
2232: fnd_file.put(fnd_file.output,l_temp);
2233: END IF;
2234: END LOOP;