665:
666: WritetoCLOB ( l_xfdf_blob );
667:
668: EXCEPTION
669: WHEN utl_file.invalid_path then
670: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
671: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
672: hr_utility.raise_error;
673: --
666: WritetoCLOB ( l_xfdf_blob );
667:
668: EXCEPTION
669: WHEN utl_file.invalid_path then
670: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
671: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
672: hr_utility.raise_error;
673: --
674: WHEN utl_file.invalid_mode then
670: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
671: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
672: hr_utility.raise_error;
673: --
674: WHEN utl_file.invalid_mode then
675: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
676: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
677: hr_utility.raise_error;
678: --
675: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
676: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
677: hr_utility.raise_error;
678: --
679: WHEN utl_file.invalid_filehandle then
680: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
681: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
682: hr_utility.raise_error;
683: --
680: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
681: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
682: hr_utility.raise_error;
683: --
684: WHEN utl_file.invalid_operation then
685: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
686: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
687: hr_utility.raise_error;
688: --
685: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
686: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
687: hr_utility.raise_error;
688: --
689: WHEN utl_file.read_error then
690: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
691: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
692: hr_utility.raise_error;
693: --
1073:
1074: hr_utility.set_location('Finished creating xml data for Procedure report167 ',20);
1075:
1076: EXCEPTION
1077: WHEN utl_file.invalid_path then
1078: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
1079: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1080: hr_utility.raise_error;
1081: --
1074: hr_utility.set_location('Finished creating xml data for Procedure report167 ',20);
1075:
1076: EXCEPTION
1077: WHEN utl_file.invalid_path then
1078: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
1079: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1080: hr_utility.raise_error;
1081: --
1082: WHEN utl_file.invalid_mode then
1078: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
1079: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1080: hr_utility.raise_error;
1081: --
1082: WHEN utl_file.invalid_mode then
1083: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
1084: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1085: hr_utility.raise_error;
1086: --
1083: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
1084: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1085: hr_utility.raise_error;
1086: --
1087: WHEN utl_file.invalid_filehandle then
1088: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
1089: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1090: hr_utility.raise_error;
1091: --
1088: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
1089: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1090: hr_utility.raise_error;
1091: --
1092: WHEN utl_file.invalid_operation then
1093: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
1094: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1095: hr_utility.raise_error;
1096: --
1093: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
1094: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1095: hr_utility.raise_error;
1096: --
1097: WHEN utl_file.read_error then
1098: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
1099: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1100: hr_utility.raise_error;
1101: --
1687:
1688: hr_utility.set_location('Finished creating xml data for Procedure report167 ',20);
1689:
1690: EXCEPTION
1691: WHEN utl_file.invalid_path then
1692: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
1693: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1694: hr_utility.raise_error;
1695: --
1688: hr_utility.set_location('Finished creating xml data for Procedure report167 ',20);
1689:
1690: EXCEPTION
1691: WHEN utl_file.invalid_path then
1692: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
1693: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1694: hr_utility.raise_error;
1695: --
1696: WHEN utl_file.invalid_mode then
1692: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
1693: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1694: hr_utility.raise_error;
1695: --
1696: WHEN utl_file.invalid_mode then
1697: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
1698: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1699: hr_utility.raise_error;
1700: --
1697: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
1698: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1699: hr_utility.raise_error;
1700: --
1701: WHEN utl_file.invalid_filehandle then
1702: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
1703: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1704: hr_utility.raise_error;
1705: --
1702: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
1703: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1704: hr_utility.raise_error;
1705: --
1706: WHEN utl_file.invalid_operation then
1707: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
1708: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1709: hr_utility.raise_error;
1710: --
1707: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
1708: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1709: hr_utility.raise_error;
1710: --
1711: WHEN utl_file.read_error then
1712: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
1713: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
1714: hr_utility.raise_error;
1715: --
2652:
2653: WritetoCLOB ( l_xfdf_blob );
2654:
2655: EXCEPTION
2656: WHEN utl_file.invalid_path then
2657: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
2658: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2659: hr_utility.raise_error;
2660: --
2653: WritetoCLOB ( l_xfdf_blob );
2654:
2655: EXCEPTION
2656: WHEN utl_file.invalid_path then
2657: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
2658: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2659: hr_utility.raise_error;
2660: --
2661: WHEN utl_file.invalid_mode then
2657: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
2658: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2659: hr_utility.raise_error;
2660: --
2661: WHEN utl_file.invalid_mode then
2662: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
2663: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2664: hr_utility.raise_error;
2665: --
2662: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
2663: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2664: hr_utility.raise_error;
2665: --
2666: WHEN utl_file.invalid_filehandle then
2667: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
2668: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2669: hr_utility.raise_error;
2670: --
2667: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
2668: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2669: hr_utility.raise_error;
2670: --
2671: WHEN utl_file.invalid_operation then
2672: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
2673: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2674: hr_utility.raise_error;
2675: --
2672: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
2673: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2674: hr_utility.raise_error;
2675: --
2676: WHEN utl_file.read_error then
2677: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
2678: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
2679: hr_utility.raise_error;
2680: --
2883: p_request_id in number,
2884: p_report in varchar2,
2885: p_output_fname out nocopy varchar2)
2886: IS
2887: p_l_fp UTL_FILE.FILE_TYPE;
2888: l_audit_log_dir varchar2(500);
2889: l_file_name varchar2(50);
2890: l_check_flag number;
2891: BEGIN
2901: BEGIN
2902: SELECT value
2903: INTO l_audit_log_dir
2904: FROM v$parameter
2905: WHERE LOWER(name) = 'utl_file_dir';
2906: -- Check whether more than one util file directory is found
2907: IF INSTR(l_audit_log_dir,',') > 0 THEN
2908: l_audit_log_dir := substr(l_audit_log_dir,1,instr(l_audit_log_dir,',')-1);
2909: END IF;
2918: ELSE
2919: p_output_fname := l_audit_log_dir || '\' || l_file_name;
2920: END IF;
2921: -- getting Agency name
2922: p_l_fp := utl_file.fopen(l_audit_log_dir,l_file_name,'A');
2923: utl_file.put_line(p_l_fp,'');
2924: utl_file.put_line(p_l_fp,'
2925: -- Writing from and to dates
2926: utl_file.put_line(p_l_fp,'
2919: p_output_fname := l_audit_log_dir || '\' || l_file_name;
2920: END IF;
2921: -- getting Agency name
2922: p_l_fp := utl_file.fopen(l_audit_log_dir,l_file_name,'A');
2923: utl_file.put_line(p_l_fp,'');
2924: utl_file.put_line(p_l_fp,'
2925: -- Writing from and to dates
2926: utl_file.put_line(p_l_fp,'
2927: -- Write the header fields to XML File.
2920: END IF;
2921: -- getting Agency name
2922: p_l_fp := utl_file.fopen(l_audit_log_dir,l_file_name,'A');
2923: utl_file.put_line(p_l_fp,'');
2924: utl_file.put_line(p_l_fp,'
2926: utl_file.put_line(p_l_fp,'
2927: -- Write the header fields to XML File.
2928: --WriteXMLvalues(p_l_fp,'P0_from_date',to_char(p_from_date,'dd') || ' ' || trim(to_char(p_from_date,'Month')) || ' ' || to_char(p_from_date,'yyyy') );
2922: p_l_fp := utl_file.fopen(l_audit_log_dir,l_file_name,'A');
2923: utl_file.put_line(p_l_fp,'');
2924: utl_file.put_line(p_l_fp,'
2925: -- Writing from and to dates
2926: utl_file.put_line(p_l_fp,'
2928: --WriteXMLvalues(p_l_fp,'P0_from_date',to_char(p_from_date,'dd') || ' ' || trim(to_char(p_from_date,'Month')) || ' ' || to_char(p_from_date,'yyyy') );
2929: --WriteXMLvalues(p_l_fp,'P0_to_date',to_char(p_to_date,'dd') || ' ' ||to_char(p_to_date,'Month') || ' ' || to_char(p_to_date,'yyyy') );
2930: -- Loop through PL/SQL Table and write the values into the XML File.
2935: WriteXMLvalues(p_l_fp,vXMLTable(ctr_table).TagName ,vXMLTable(ctr_table).TagValue);
2936: END LOOP;
2937: END IF;
2938: -- Write the end tag and close the XML File.
2939: utl_file.put_line(p_l_fp,'');
2940: utl_file.put_line(p_l_fp,'');
2941: utl_file.fclose(p_l_fp);
2942: /*Msg in the temorary table*/
2943: --insert into tstmsg values('Leaving the procedure WritetoXML.');
2936: END LOOP;
2937: END IF;
2938: -- Write the end tag and close the XML File.
2939: utl_file.put_line(p_l_fp,'');
2940: utl_file.put_line(p_l_fp,'');
2941: utl_file.fclose(p_l_fp);
2942: /*Msg in the temorary table*/
2943: --insert into tstmsg values('Leaving the procedure WritetoXML.');
2944: END WritetoXML;
2937: END IF;
2938: -- Write the end tag and close the XML File.
2939: utl_file.put_line(p_l_fp,'');
2940: utl_file.put_line(p_l_fp,'');
2941: utl_file.fclose(p_l_fp);
2942: /*Msg in the temorary table*/
2943: --insert into tstmsg values('Leaving the procedure WritetoXML.');
2944: END WritetoXML;
2945: PROCEDURE WriteXMLvalues( p_l_fp utl_file.file_type,p_tagname IN VARCHAR2, p_value IN VARCHAR2) IS
2941: utl_file.fclose(p_l_fp);
2942: /*Msg in the temorary table*/
2943: --insert into tstmsg values('Leaving the procedure WritetoXML.');
2944: END WritetoXML;
2945: PROCEDURE WriteXMLvalues( p_l_fp utl_file.file_type,p_tagname IN VARCHAR2, p_value IN VARCHAR2) IS
2946: BEGIN
2947: -- Writing XML Tag and values to XML File
2948: -- utl_file.put_line(p_l_fp,'<' || p_tagname || '>' || p_value || '' );
2949: -- New Format XFDF
2944: END WritetoXML;
2945: PROCEDURE WriteXMLvalues( p_l_fp utl_file.file_type,p_tagname IN VARCHAR2, p_value IN VARCHAR2) IS
2946: BEGIN
2947: -- Writing XML Tag and values to XML File
2948: -- utl_file.put_line(p_l_fp,'<' || p_tagname || '>' || p_value || '' );
2949: -- New Format XFDF
2950: utl_file.put_line(p_l_fp,'
2951: utl_file.put_line(p_l_fp,'
2952: utl_file.put_line(p_l_fp,'
2946: BEGIN
2947: -- Writing XML Tag and values to XML File
2948: -- utl_file.put_line(p_l_fp,'<' || p_tagname || '>' || p_value || '' );
2949: -- New Format XFDF
2950: utl_file.put_line(p_l_fp,'
2952: utl_file.put_line(p_l_fp,'');
2953: END WriteXMLvalues;
2954:
2947: -- Writing XML Tag and values to XML File
2948: -- utl_file.put_line(p_l_fp,'<' || p_tagname || '>' || p_value || '' );
2949: -- New Format XFDF
2950: utl_file.put_line(p_l_fp,'
2951: utl_file.put_line(p_l_fp,'
2952: utl_file.put_line(p_l_fp,'
2953: END WriteXMLvalues;
2954:
2955:
2948: -- utl_file.put_line(p_l_fp,'<' || p_tagname || '>' || p_value || '' );
2949: -- New Format XFDF
2950: utl_file.put_line(p_l_fp,'
2951: utl_file.put_line(p_l_fp,'
2952: utl_file.put_line(p_l_fp,'
2953: END WriteXMLvalues;
2954:
2955:
2956: