DBA Data[Home] [Help]

APPS.ICX_POR_EXT_UTL dependencies on UTL_FILE

Line 13: gFileHandle UTL_FILE.FILE_TYPE := NULL;

9:
10: -- bug 2920845: increase size from 200 to 20000
11: -- gFilePath VARCHAR2(200) := NULL;
12: gFilePath VARCHAR2(2000) := NULL;
13: gFileHandle UTL_FILE.FILE_TYPE := NULL;
14: -- FPI feature, Analysis Report
15: gReportHandle UTL_FILE.FILE_TYPE := NULL;
16: gUseFile PLS_INTEGER := USE_CONCURRENT_LOG;
17:

Line 15: gReportHandle UTL_FILE.FILE_TYPE := NULL;

11: -- gFilePath VARCHAR2(200) := NULL;
12: gFilePath VARCHAR2(2000) := NULL;
13: gFileHandle UTL_FILE.FILE_TYPE := NULL;
14: -- FPI feature, Analysis Report
15: gReportHandle UTL_FILE.FILE_TYPE := NULL;
16: gUseFile PLS_INTEGER := USE_CONCURRENT_LOG;
17:
18: type tErrorStackType IS TABLE of varchar2(1000)
19: index by binary_integer;

Line 48: IF pFilePath = UTL_FILE_DIR THEN

44:
45: PROCEDURE setFilePath(pFilePath IN VARCHAR2) IS
46: lTmpFilePath VARCHAR2(200) := NULL;
47: BEGIN
48: IF pFilePath = UTL_FILE_DIR THEN
49:
50: -- Bug#2876721
51: select trim(value)
52: into gFilePath

Line 54: where name = 'utl_file_dir';

50: -- Bug#2876721
51: select trim(value)
52: into gFilePath
53: from v$parameter
54: where name = 'utl_file_dir';
55:
56: if(gFilePath is not null) then
57: lTmpFilePath := substrb(translate(ltrim(gFilePath),',',' '), 1,
58: instr(translate(ltrim(gFilePath),',',' '),' ') - 1);

Line 106: gFileHandle := utl_file.fopen(gFilePath, pFileName||'_log', pOpenMode);

102: IF gFilePath IS NULL THEN
103: setFilePath('ECE_OUT_FILE_PATH');
104: END IF;
105:
106: gFileHandle := utl_file.fopen(gFilePath, pFileName||'_log', pOpenMode);
107: gReportHandle := utl_file.fopen(gFilePath, pFileName||'_out', pOpenMode);
108: end if;
109:
110: xErrLoc := 200;

Line 107: gReportHandle := utl_file.fopen(gFilePath, pFileName||'_out', pOpenMode);

103: setFilePath('ECE_OUT_FILE_PATH');
104: END IF;
105:
106: gFileHandle := utl_file.fopen(gFilePath, pFileName||'_log', pOpenMode);
107: gReportHandle := utl_file.fopen(gFilePath, pFileName||'_out', pOpenMode);
108: end if;
109:
110: xErrLoc := 200;
111: -- for concurrent process log file

Line 118: when fnd_file.utl_file_error then

114: fnd_file.put_names(pFileName||'_log', pFileName||'_out', gFilePath);
115: end if;
116:
117: EXCEPTION
118: when fnd_file.utl_file_error then
119: -- Bug#2876721
120: if (gUseFile = USE_CONCURRENT_LOG) then
121: pushError('ICX_POR_EXT_UTL.openLog-'||xErrLoc||
122: ' fnd_file.utl_file_error');

Line 122: ' fnd_file.utl_file_error');

118: when fnd_file.utl_file_error then
119: -- Bug#2876721
120: if (gUseFile = USE_CONCURRENT_LOG) then
121: pushError('ICX_POR_EXT_UTL.openLog-'||xErrLoc||
122: ' fnd_file.utl_file_error');
123: raise gFatalException;
124: else
125: gDebugLevel := -1;
126: gFileHandle := null;

Line 130: if (utl_file.is_open(gFileHandle)) then

126: gFileHandle := null;
127: end if;
128: when others then
129: pushError('ICX_POR_EXT_UTL.openLog-'||xErrLoc||' '||SQLERRM);
130: if (utl_file.is_open(gFileHandle)) then
131: utl_file.fclose(gFileHandle);
132: end if;
133: if (utl_file.is_open(gReportHandle)) then
134: utl_file.fclose(gReportHandle);

Line 131: utl_file.fclose(gFileHandle);

127: end if;
128: when others then
129: pushError('ICX_POR_EXT_UTL.openLog-'||xErrLoc||' '||SQLERRM);
130: if (utl_file.is_open(gFileHandle)) then
131: utl_file.fclose(gFileHandle);
132: end if;
133: if (utl_file.is_open(gReportHandle)) then
134: utl_file.fclose(gReportHandle);
135: end if;

Line 133: if (utl_file.is_open(gReportHandle)) then

129: pushError('ICX_POR_EXT_UTL.openLog-'||xErrLoc||' '||SQLERRM);
130: if (utl_file.is_open(gFileHandle)) then
131: utl_file.fclose(gFileHandle);
132: end if;
133: if (utl_file.is_open(gReportHandle)) then
134: utl_file.fclose(gReportHandle);
135: end if;
136: raise gFatalException;
137: END openLog;

Line 134: utl_file.fclose(gReportHandle);

130: if (utl_file.is_open(gFileHandle)) then
131: utl_file.fclose(gFileHandle);
132: end if;
133: if (utl_file.is_open(gReportHandle)) then
134: utl_file.fclose(gReportHandle);
135: end if;
136: raise gFatalException;
137: END openLog;
138:

Line 146: if (utl_file.is_open(gFileHandle)) then

142: return;
143: end if;
144:
145: if (gUseFile = USE_FILE_SYSTEM) then
146: if (utl_file.is_open(gFileHandle)) then
147: utl_file.fclose(gFileHandle);
148: end if;
149: if (utl_file.is_open(gReportHandle)) then
150: utl_file.fclose(gReportHandle);

Line 147: utl_file.fclose(gFileHandle);

143: end if;
144:
145: if (gUseFile = USE_FILE_SYSTEM) then
146: if (utl_file.is_open(gFileHandle)) then
147: utl_file.fclose(gFileHandle);
148: end if;
149: if (utl_file.is_open(gReportHandle)) then
150: utl_file.fclose(gReportHandle);
151: end if;

Line 149: if (utl_file.is_open(gReportHandle)) then

145: if (gUseFile = USE_FILE_SYSTEM) then
146: if (utl_file.is_open(gFileHandle)) then
147: utl_file.fclose(gFileHandle);
148: end if;
149: if (utl_file.is_open(gReportHandle)) then
150: utl_file.fclose(gReportHandle);
151: end if;
152: end if;
153:

Line 150: utl_file.fclose(gReportHandle);

146: if (utl_file.is_open(gFileHandle)) then
147: utl_file.fclose(gFileHandle);
148: end if;
149: if (utl_file.is_open(gReportHandle)) then
150: utl_file.fclose(gReportHandle);
151: end if;
152: end if;
153:
154: if (gUseFile = USE_CONCURRENT_LOG) then

Line 178: if (utl_file.is_open(gFileHandle)) then

174: xErrLoc := 100;
175: if (gUseFile = USE_FILE_SYSTEM) then
176: -- FPI feature, Analysis Report
177: if (pReport = LOG_REPORT) then
178: if (utl_file.is_open(gFileHandle)) then
179: xErrLoc := 200;
180: xLength := length(pString);
181: while (xPnt < xLength) loop
182: utl_file.put_line(gFileHandle, substr(pString, xPnt, 1000));

Line 182: utl_file.put_line(gFileHandle, substr(pString, xPnt, 1000));

178: if (utl_file.is_open(gFileHandle)) then
179: xErrLoc := 200;
180: xLength := length(pString);
181: while (xPnt < xLength) loop
182: utl_file.put_line(gFileHandle, substr(pString, xPnt, 1000));
183: xPnt := xPnt + 1000;
184: end loop;
185: xErrLoc := 240;
186: utl_file.fflush(gFileHandle);

Line 186: utl_file.fflush(gFileHandle);

182: utl_file.put_line(gFileHandle, substr(pString, xPnt, 1000));
183: xPnt := xPnt + 1000;
184: end loop;
185: xErrLoc := 240;
186: utl_file.fflush(gFileHandle);
187: end if;
188: else
189: -- FPI feature, Analysis Report
190: if (utl_file.is_open(gReportHandle)) then

Line 190: if (utl_file.is_open(gReportHandle)) then

186: utl_file.fflush(gFileHandle);
187: end if;
188: else
189: -- FPI feature, Analysis Report
190: if (utl_file.is_open(gReportHandle)) then
191: xErrLoc := 300;
192: xLength := length(pString);
193: while (xPnt < xLength) loop
194: utl_file.put_line(gReportHandle, substr(pString, xPnt, 1000));

Line 194: utl_file.put_line(gReportHandle, substr(pString, xPnt, 1000));

190: if (utl_file.is_open(gReportHandle)) then
191: xErrLoc := 300;
192: xLength := length(pString);
193: while (xPnt < xLength) loop
194: utl_file.put_line(gReportHandle, substr(pString, xPnt, 1000));
195: xPnt := xPnt + 1000;
196: end loop;
197: xErrLoc := 340;
198: utl_file.fflush(gFileHandle);

Line 198: utl_file.fflush(gFileHandle);

194: utl_file.put_line(gReportHandle, substr(pString, xPnt, 1000));
195: xPnt := xPnt + 1000;
196: end loop;
197: xErrLoc := 340;
198: utl_file.fflush(gFileHandle);
199: end if;
200: end if;
201: else
202: xErrLoc := 400;

Line 219: when fnd_file.utl_file_error then

215: xErrLoc := 420;
216: end if;
217:
218: EXCEPTION
219: when fnd_file.utl_file_error then
220: pushError('ICX_POR_EXT_UTL.log-fnd_file.utl_file_error');
221: -- Bug 3488764 : Add custom message to the error stack trace so that customer
222: -- can understand the problem and fix.
223: -- Raise utl_file_error. This is handled seperately by upgrade script

Line 220: pushError('ICX_POR_EXT_UTL.log-fnd_file.utl_file_error');

216: end if;
217:
218: EXCEPTION
219: when fnd_file.utl_file_error then
220: pushError('ICX_POR_EXT_UTL.log-fnd_file.utl_file_error');
221: -- Bug 3488764 : Add custom message to the error stack trace so that customer
222: -- can understand the problem and fix.
223: -- Raise utl_file_error. This is handled seperately by upgrade script
224: raise_application_error(-20100, ICX_POR_EXT_UTL.UTL_FILE_ERR_MSG, TRUE);

Line 223: -- Raise utl_file_error. This is handled seperately by upgrade script

219: when fnd_file.utl_file_error then
220: pushError('ICX_POR_EXT_UTL.log-fnd_file.utl_file_error');
221: -- Bug 3488764 : Add custom message to the error stack trace so that customer
222: -- can understand the problem and fix.
223: -- Raise utl_file_error. This is handled seperately by upgrade script
224: raise_application_error(-20100, ICX_POR_EXT_UTL.UTL_FILE_ERR_MSG, TRUE);
225: when others then
226: pushError('ICX_POR_EXT_UTL.log-'||xErrLoc || ': ' ||SQLERRM);
227: raise gException;

Line 224: raise_application_error(-20100, ICX_POR_EXT_UTL.UTL_FILE_ERR_MSG, TRUE);

220: pushError('ICX_POR_EXT_UTL.log-fnd_file.utl_file_error');
221: -- Bug 3488764 : Add custom message to the error stack trace so that customer
222: -- can understand the problem and fix.
223: -- Raise utl_file_error. This is handled seperately by upgrade script
224: raise_application_error(-20100, ICX_POR_EXT_UTL.UTL_FILE_ERR_MSG, TRUE);
225: when others then
226: pushError('ICX_POR_EXT_UTL.log-'||xErrLoc || ': ' ||SQLERRM);
227: raise gException;
228: END log;