DBA Data[Home] [Help]

APPS.GHR_CPDF_EHRIS dependencies on UTL_FILE

Line 2324: p_xml_fp UTL_FILE.FILE_TYPE;

2320: PROCEDURE WritetoFile (p_input_file_name VARCHAR2
2321: ,p_gen_xml_file IN VARCHAR2
2322: ,p_gen_txt_file IN VARCHAR2)
2323: IS
2324: p_xml_fp UTL_FILE.FILE_TYPE;
2325: p_ascii_fp UTL_FILE.FILE_TYPE;
2326: l_audit_log_dir varchar2(500);
2327: l_xml_file_name varchar2(500);
2328: l_ascii_file_name varchar2(500);

Line 2325: p_ascii_fp UTL_FILE.FILE_TYPE;

2321: ,p_gen_xml_file IN VARCHAR2
2322: ,p_gen_txt_file IN VARCHAR2)
2323: IS
2324: p_xml_fp UTL_FILE.FILE_TYPE;
2325: p_ascii_fp UTL_FILE.FILE_TYPE;
2326: l_audit_log_dir varchar2(500);
2327: l_xml_file_name varchar2(500);
2328: l_ascii_file_name varchar2(500);
2329: l_output_xml_fname varchar2(500);

Line 2369: where name = 'utl_file_dir';

2365: --
2366: select value
2367: into l_audit_log_dir
2368: from v$parameter
2369: where name = 'utl_file_dir';
2370: -- Check whether more than one util file directory is found
2371: IF INSTR(l_audit_log_dir,',') > 0 THEN
2372: l_audit_log_dir := substr(l_audit_log_dir,1,instr(l_audit_log_dir,',')-1);
2373: END IF;

Line 2391: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');

2387:
2388:
2389: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
2390: -- Bug 5013892
2391: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');
2392: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2393: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2394:
2395: IF p_gen_xml_file = 'Y' THEN

Line 2392: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');

2388:
2389: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
2390: -- Bug 5013892
2391: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');
2392: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2393: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2394:
2395: IF p_gen_xml_file = 'Y' THEN
2396: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);

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

2389: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
2390: -- Bug 5013892
2391: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');
2392: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2393: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2394:
2395: IF p_gen_xml_file = 'Y' THEN
2396: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2397: -- End Bug 5013892

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

2392: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2393: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2394:
2395: IF p_gen_xml_file = 'Y' THEN
2396: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2397: -- End Bug 5013892
2398: utl_file.put_line(p_xml_fp,'');
2399: -- Writing from and to dates
2400: utl_file.put_line(p_xml_fp,'');

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

2394:
2395: IF p_gen_xml_file = 'Y' THEN
2396: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2397: -- End Bug 5013892
2398: utl_file.put_line(p_xml_fp,'');
2399: -- Writing from and to dates
2400: utl_file.put_line(p_xml_fp,'');
2401: -- Loop through cursor and write the values into the XML and ASCII File.
2402: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP

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

2396: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2397: -- End Bug 5013892
2398: utl_file.put_line(p_xml_fp,'');
2399: -- Writing from and to dates
2400: utl_file.put_line(p_xml_fp,'');
2401: -- Loop through cursor and write the values into the XML and ASCII File.
2402: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2403: WriteTagValues(ctr_table,v_tags);
2404: utl_file.put_line(p_xml_fp,'');

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

2400: utl_file.put_line(p_xml_fp,'');
2401: -- Loop through cursor and write the values into the XML and ASCII File.
2402: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2403: WriteTagValues(ctr_table,v_tags);
2404: utl_file.put_line(p_xml_fp,'');
2405: WriteXMLvalues(p_xml_fp,v_tags);
2406: utl_file.put_line(p_xml_fp,'');
2407: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2408: l_count := l_count + 1;

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

2402: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2403: WriteTagValues(ctr_table,v_tags);
2404: utl_file.put_line(p_xml_fp,'');
2405: WriteXMLvalues(p_xml_fp,v_tags);
2406: utl_file.put_line(p_xml_fp,'
');
2407: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2408: l_count := l_count + 1;
2409: END LOOP;
2410: utl_file.put_line(p_xml_fp,'');

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

2406: utl_file.put_line(p_xml_fp,'');
2407: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2408: l_count := l_count + 1;
2409: END LOOP;
2410: utl_file.put_line(p_xml_fp,'');
2411: utl_file.fclose(p_xml_fp);
2412: ELSE
2413: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2414: WriteTagValues(ctr_table,v_tags);

Line 2411: utl_file.fclose(p_xml_fp);

2407: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2408: l_count := l_count + 1;
2409: END LOOP;
2410: utl_file.put_line(p_xml_fp,'');
2411: utl_file.fclose(p_xml_fp);
2412: ELSE
2413: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2414: WriteTagValues(ctr_table,v_tags);
2415: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);

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

3182:
3183: -----------------------------------------------------------------------------
3184: -- Writing the records from PL/SQL table p_tags into XML File
3185: -----------------------------------------------------------------------------
3186: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
3187: IS
3188: BEGIN
3189: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
3190: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');

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

3186: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
3187: IS
3188: BEGIN
3189: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
3190: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');
3191: END LOOP;
3192: END;
3193:
3194: -----------------------------------------------------------------------------

Line 3197: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type, p_tags t_tags,p_gen_txt_file IN VARCHAR2 )

3193:
3194: -----------------------------------------------------------------------------
3195: -- Writing the records from PL/SQL table p_tags into Text and FND Output File
3196: -----------------------------------------------------------------------------
3197: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type, p_tags t_tags,p_gen_txt_file IN VARCHAR2 )
3198: IS
3199: l_temp VARCHAR2(4000);
3200: l_tot NUMBER;
3201: BEGIN

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

3204: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
3205: IF l_tags = l_tot THEN
3206: l_temp := p_tags(l_tags).tagvalue;
3207: IF p_gen_txt_file = 'Y' THEN
3208: utl_file.put_line(p_l_fp,l_temp);
3209: END IF;
3210: fnd_file.put_line(fnd_file.output,l_temp);
3211: ELSE
3212: l_temp := p_tags(l_tags).tagvalue || '|';

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

3210: fnd_file.put_line(fnd_file.output,l_temp);
3211: ELSE
3212: l_temp := p_tags(l_tags).tagvalue || '|';
3213: IF p_gen_txt_file = 'Y' THEN
3214: utl_file.put(p_l_fp,l_temp);
3215: END IF;
3216: fnd_file.put(fnd_file.output,l_temp);
3217: END IF;
3218: END LOOP;