DBA Data[Home] [Help]

APPS.GHR_EHRI_DYNRPT dependencies on UTL_FILE

Line 1512: p_xml_fp UTL_FILE.FILE_TYPE;

1508: p_gen_xml_file IN VARCHAR2,
1509: p_gen_txt_file IN VARCHAR2
1510: )
1511: IS
1512: p_xml_fp UTL_FILE.FILE_TYPE;
1513: p_ascii_fp UTL_FILE.FILE_TYPE;
1514: l_audit_log_dir varchar2(500);
1515: l_xml_file_name varchar2(500);
1516: l_ascii_file_name varchar2(500);

Line 1513: p_ascii_fp UTL_FILE.FILE_TYPE;

1509: p_gen_txt_file IN VARCHAR2
1510: )
1511: IS
1512: p_xml_fp UTL_FILE.FILE_TYPE;
1513: p_ascii_fp UTL_FILE.FILE_TYPE;
1514: l_audit_log_dir varchar2(500);
1515: l_xml_file_name varchar2(500);
1516: l_ascii_file_name varchar2(500);
1517: l_output_xml_fname varchar2(500);

Line 1565: where name = 'utl_file_dir';

1561: --
1562: select value
1563: into l_audit_log_dir
1564: from v$parameter
1565: where name = 'utl_file_dir';
1566: -- Check whether more than one util file directory is found
1567: IF INSTR(l_audit_log_dir,',') > 0 THEN
1568: l_audit_log_dir := substr(l_audit_log_dir,1,instr(l_audit_log_dir,',')-1);
1569: END IF;

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

1578: l_output_ascii_fname := l_audit_log_dir || '\' || l_ascii_file_name;
1579: END IF;
1580:
1581: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
1582: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
1583:
1584: IF p_gen_xml_file = 'Y' THEN
1585: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1586: utl_file.put_line(p_xml_fp,'');

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

1581: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
1582: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
1583:
1584: IF p_gen_xml_file = 'Y' THEN
1585: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1586: utl_file.put_line(p_xml_fp,'');
1587: -- Writing from and to dates
1588: utl_file.put_line(p_xml_fp,'');
1589:

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

1582: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
1583:
1584: IF p_gen_xml_file = 'Y' THEN
1585: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1586: utl_file.put_line(p_xml_fp,'');
1587: -- Writing from and to dates
1588: utl_file.put_line(p_xml_fp,'');
1589:
1590: -- Loop through cursor and write the values into the XML and ASCII File.

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

1584: IF p_gen_xml_file = 'Y' THEN
1585: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
1586: utl_file.put_line(p_xml_fp,'');
1587: -- Writing from and to dates
1588: utl_file.put_line(p_xml_fp,'');
1589:
1590: -- Loop through cursor and write the values into the XML and ASCII File.
1591:
1592:

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

1604: g_eff_seq_no := g_eff_seq_no + 1;
1605: end if;
1606:
1607: WriteTagValues(ctr_table,v_tags);
1608: utl_file.put_line(p_xml_fp,'');
1609: WriteXMLvalues(p_xml_fp,v_tags);
1610: utl_file.put_line(p_xml_fp,'');
1611: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
1612: l_count := l_count + 1;

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

1606:
1607: WriteTagValues(ctr_table,v_tags);
1608: utl_file.put_line(p_xml_fp,'');
1609: WriteXMLvalues(p_xml_fp,v_tags);
1610: utl_file.put_line(p_xml_fp,'
');
1611: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
1612: l_count := l_count + 1;
1613: END LOOP;
1614:

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

1612: l_count := l_count + 1;
1613: END LOOP;
1614:
1615: -- Write the end tag and close the XML File.
1616: utl_file.put_line(p_xml_fp,'');
1617: utl_file.fclose(p_xml_fp);
1618: ELSE
1619:
1620: prev_national_identifier:= null;

Line 1617: utl_file.fclose(p_xml_fp);

1613: END LOOP;
1614:
1615: -- Write the end tag and close the XML File.
1616: utl_file.put_line(p_xml_fp,'');
1617: utl_file.fclose(p_xml_fp);
1618: ELSE
1619:
1620: prev_national_identifier:= null;
1621: prev_agency_code := null;

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

2263:
2264: -----------------------------------------------------------------------------
2265: -- Writing the records from PL/SQL table p_tags into XML File
2266: -----------------------------------------------------------------------------
2267: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
2268: IS
2269: BEGIN
2270: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
2271: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');

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

2267: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
2268: IS
2269: BEGIN
2270: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
2271: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');
2272: END LOOP;
2273: END WriteXMLvalues;
2274:
2275: -----------------------------------------------------------------------------

Line 2278: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type,

2274:
2275: -----------------------------------------------------------------------------
2276: -- Writing the records from PL/SQL table p_tags into Text and FND Output File
2277: -----------------------------------------------------------------------------
2278: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type,
2279: p_tags t_tags,
2280: p_gen_txt_file IN VARCHAR2)
2281: IS
2282: l_temp VARCHAR2(4000);

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

2287: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
2288: IF l_tags = l_tot THEN
2289: l_temp := p_tags(l_tags).tagvalue;
2290: IF p_gen_txt_file = 'Y' THEN
2291: utl_file.put_line(p_l_fp,l_temp);
2292: END IF;
2293: fnd_file.put_line(fnd_file.output,l_temp);
2294: ELSE
2295: l_temp := p_tags(l_tags).tagvalue || '|';

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

2293: fnd_file.put_line(fnd_file.output,l_temp);
2294: ELSE
2295: l_temp := p_tags(l_tags).tagvalue || '|';
2296: IF p_gen_txt_file = 'Y' THEN
2297: utl_file.put(p_l_fp,l_temp);
2298: END IF;
2299: fnd_file.put(fnd_file.output,l_temp);
2300: END IF;
2301: END LOOP;