DBA Data[Home] [Help]

APPS.GHR_CPDF_EHRIS dependencies on UTL_FILE

Line 2403: p_xml_fp UTL_FILE.FILE_TYPE;

2399: PROCEDURE WritetoFile (p_input_file_name VARCHAR2
2400: ,p_gen_xml_file IN VARCHAR2
2401: ,p_gen_txt_file IN VARCHAR2)
2402: IS
2403: p_xml_fp UTL_FILE.FILE_TYPE;
2404: p_ascii_fp UTL_FILE.FILE_TYPE;
2405: l_audit_log_dir varchar2(500);
2406: l_xml_file_name varchar2(500);
2407: l_ascii_file_name varchar2(500);

Line 2404: p_ascii_fp UTL_FILE.FILE_TYPE;

2400: ,p_gen_xml_file IN VARCHAR2
2401: ,p_gen_txt_file IN VARCHAR2)
2402: IS
2403: p_xml_fp UTL_FILE.FILE_TYPE;
2404: p_ascii_fp UTL_FILE.FILE_TYPE;
2405: l_audit_log_dir varchar2(500);
2406: l_xml_file_name varchar2(500);
2407: l_ascii_file_name varchar2(500);
2408: l_output_xml_fname varchar2(500);

Line 2448: where name = 'utl_file_dir';

2444: --
2445: select value
2446: into l_audit_log_dir
2447: from v$parameter
2448: where name = 'utl_file_dir';
2449: -- Check whether more than one util file directory is found
2450: IF INSTR(l_audit_log_dir,',') > 0 THEN
2451: l_audit_log_dir := substr(l_audit_log_dir,1,instr(l_audit_log_dir,',')-1);
2452: END IF;

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

2466:
2467:
2468: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
2469: -- Bug 5013892
2470: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');
2471: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2472: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2473:
2474: IF p_gen_xml_file = 'Y' THEN

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

2467:
2468: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
2469: -- Bug 5013892
2470: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');
2471: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2472: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2473:
2474: IF p_gen_xml_file = 'Y' THEN
2475: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);

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

2468: -- fnd_file.put_line(fnd_file.log,'-----'||l_audit_log_dir);
2469: -- Bug 5013892
2470: -- p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w');
2471: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2472: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2473:
2474: IF p_gen_xml_file = 'Y' THEN
2475: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2476: -- End Bug 5013892

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

2471: -- p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w');
2472: p_ascii_fp := utl_file.fopen(l_audit_log_dir,l_ascii_file_name,'w',32767);
2473:
2474: IF p_gen_xml_file = 'Y' THEN
2475: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2476: -- End Bug 5013892
2477: utl_file.put_line(p_xml_fp,'');
2478: -- Writing from and to dates
2479: utl_file.put_line(p_xml_fp,'');

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

2473:
2474: IF p_gen_xml_file = 'Y' THEN
2475: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2476: -- End Bug 5013892
2477: utl_file.put_line(p_xml_fp,'');
2478: -- Writing from and to dates
2479: utl_file.put_line(p_xml_fp,'');
2480: -- Loop through cursor and write the values into the XML and ASCII File.
2481: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP

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

2475: p_xml_fp := utl_file.fopen(l_audit_log_dir,l_xml_file_name,'w',32767);
2476: -- End Bug 5013892
2477: utl_file.put_line(p_xml_fp,'');
2478: -- Writing from and to dates
2479: utl_file.put_line(p_xml_fp,'');
2480: -- Loop through cursor and write the values into the XML and ASCII File.
2481: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2482: WriteTagValues(ctr_table,v_tags);
2483: utl_file.put_line(p_xml_fp,'');

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

2479: utl_file.put_line(p_xml_fp,'');
2480: -- Loop through cursor and write the values into the XML and ASCII File.
2481: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2482: WriteTagValues(ctr_table,v_tags);
2483: utl_file.put_line(p_xml_fp,'');
2484: WriteXMLvalues(p_xml_fp,v_tags);
2485: utl_file.put_line(p_xml_fp,'');
2486: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2487: l_count := l_count + 1;

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

2481: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2482: WriteTagValues(ctr_table,v_tags);
2483: utl_file.put_line(p_xml_fp,'');
2484: WriteXMLvalues(p_xml_fp,v_tags);
2485: utl_file.put_line(p_xml_fp,'
');
2486: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2487: l_count := l_count + 1;
2488: END LOOP;
2489: utl_file.put_line(p_xml_fp,'');

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

2485: utl_file.put_line(p_xml_fp,'');
2486: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2487: l_count := l_count + 1;
2488: END LOOP;
2489: utl_file.put_line(p_xml_fp,'');
2490: utl_file.fclose(p_xml_fp);
2491: ELSE
2492: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2493: WriteTagValues(ctr_table,v_tags);

Line 2490: utl_file.fclose(p_xml_fp);

2486: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);
2487: l_count := l_count + 1;
2488: END LOOP;
2489: utl_file.put_line(p_xml_fp,'');
2490: utl_file.fclose(p_xml_fp);
2491: ELSE
2492: FOR ctr_table IN c_cpdf_status(l_session_id) LOOP
2493: WriteTagValues(ctr_table,v_tags);
2494: WriteAsciivalues(p_ascii_fp,v_tags,p_gen_txt_file);

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

3264:
3265: -----------------------------------------------------------------------------
3266: -- Writing the records from PL/SQL table p_tags into XML File
3267: -----------------------------------------------------------------------------
3268: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
3269: IS
3270: BEGIN
3271: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
3272: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');

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

3268: PROCEDURE WriteXMLvalues(p_l_fp utl_file.file_type, p_tags t_tags )
3269: IS
3270: BEGIN
3271: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
3272: utl_file.put_line(p_l_fp,'<' || p_tags(l_tags).tagname || '>' || p_tags(l_tags).tagvalue || '');
3273: END LOOP;
3274: END;
3275:
3276: -----------------------------------------------------------------------------

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

3275:
3276: -----------------------------------------------------------------------------
3277: -- Writing the records from PL/SQL table p_tags into Text and FND Output File
3278: -----------------------------------------------------------------------------
3279: PROCEDURE WriteAsciivalues(p_l_fp utl_file.file_type, p_tags t_tags,p_gen_txt_file IN VARCHAR2 )
3280: IS
3281: l_temp VARCHAR2(4000);
3282: l_tot NUMBER;
3283: BEGIN

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

3286: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
3287: IF l_tags = l_tot THEN
3288: l_temp := p_tags(l_tags).tagvalue;
3289: IF p_gen_txt_file = 'Y' THEN
3290: utl_file.put_line(p_l_fp,l_temp);
3291: END IF;
3292: fnd_file.put_line(fnd_file.output,l_temp);
3293: ELSE
3294: l_temp := p_tags(l_tags).tagvalue || '|';

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

3292: fnd_file.put_line(fnd_file.output,l_temp);
3293: ELSE
3294: l_temp := p_tags(l_tags).tagvalue || '|';
3295: IF p_gen_txt_file = 'Y' THEN
3296: utl_file.put(p_l_fp,l_temp);
3297: END IF;
3298: fnd_file.put(fnd_file.output,l_temp);
3299: END IF;
3300: END LOOP;