50: g_batch_id NUMBER NULL;
51: g_process_audit_id NUMBER;
52: g_org_id NUMBER;
53:
54: g_f_log utl_file.file_type;
55: g_log_file_open VARCHAR2(1):='N';
56:
57: g_cn_debug VARCHAR2(1);
58:
190:
191: BEGIN
192:
193: x_log_file := fnd_profile.value('CN_LOG_FILE');
194: x_log_file_dir := fnd_profile.value('UTL_FILE_LOG');
195:
196: IF ((x_log_file='Y') AND (x_log_file_dir IS NOT NULL) AND (g_log_file_open <>'Y')) THEN
197: x_request_id := fnd_global.conc_request_id;
198:
208: push( x_message_text => 'Log file name: '||x_file_name
209: ,x_message_type => 'DEBUG');
210: push( x_message_text => 'Log file directory: '||x_log_file_dir
211: ,x_message_type => 'DEBUG');
212: g_f_log := utl_file.fopen(x_log_file_dir, x_file_name, 'w');
213:
214: g_log_file_open:='Y';
215:
216: END IF;
216: END IF;
217:
218: EXCEPTION
219:
220: WHEN UTL_FILE.INVALID_PATH THEN
221:
222: push( x_message_text => 'UTL_FILE open failed. Invalid path'
223: ,x_message_type => 'DEBUG');
224:
218: EXCEPTION
219:
220: WHEN UTL_FILE.INVALID_PATH THEN
221:
222: push( x_message_text => 'UTL_FILE open failed. Invalid path'
223: ,x_message_type => 'DEBUG');
224:
225: WHEN UTL_FILE.INVALID_MODE THEN
226:
221:
222: push( x_message_text => 'UTL_FILE open failed. Invalid path'
223: ,x_message_type => 'DEBUG');
224:
225: WHEN UTL_FILE.INVALID_MODE THEN
226:
227: push( x_message_text => 'UTL_FILE open failed. Invalid mode'
228: ,x_message_type => 'DEBUG');
229:
223: ,x_message_type => 'DEBUG');
224:
225: WHEN UTL_FILE.INVALID_MODE THEN
226:
227: push( x_message_text => 'UTL_FILE open failed. Invalid mode'
228: ,x_message_type => 'DEBUG');
229:
230: WHEN UTL_FILE.INVALID_OPERATION THEN
231:
226:
227: push( x_message_text => 'UTL_FILE open failed. Invalid mode'
228: ,x_message_type => 'DEBUG');
229:
230: WHEN UTL_FILE.INVALID_OPERATION THEN
231:
232: push( x_message_text => 'UTL_FILE open failed. Invalid operation'
233: ,x_message_type => 'DEBUG');
234:
228: ,x_message_type => 'DEBUG');
229:
230: WHEN UTL_FILE.INVALID_OPERATION THEN
231:
232: push( x_message_text => 'UTL_FILE open failed. Invalid operation'
233: ,x_message_type => 'DEBUG');
234:
235: WHEN others THEN
236:
233: ,x_message_type => 'DEBUG');
234:
235: WHEN others THEN
236:
237: push( x_message_text => 'UTL_FILE open failed. others'
238: ,x_message_type => 'DEBUG');
239:
240:
241:
293: BEGIN
294:
295: IF (g_log_file_open = 'Y') THEN
296:
297: utl_file.put_line(g_f_log, message_text);
298: utl_file.fflush(g_f_log);
299:
300: END IF;
301:
294:
295: IF (g_log_file_open = 'Y') THEN
296:
297: utl_file.put_line(g_f_log, message_text);
298: utl_file.fflush(g_f_log);
299:
300: END IF;
301:
302: EXCEPTION
300: END IF;
301:
302: EXCEPTION
303:
304: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
305:
306: push( x_message_text => 'UTL_FILE write failed. Invalid file handle'
307: ,x_message_type => 'DEBUG');
308:
302: EXCEPTION
303:
304: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
305:
306: push( x_message_text => 'UTL_FILE write failed. Invalid file handle'
307: ,x_message_type => 'DEBUG');
308:
309: WHEN UTL_FILE.INVALID_OPERATION THEN
310:
305:
306: push( x_message_text => 'UTL_FILE write failed. Invalid file handle'
307: ,x_message_type => 'DEBUG');
308:
309: WHEN UTL_FILE.INVALID_OPERATION THEN
310:
311: push( x_message_text => 'UTL_FILE write failed. Invalid operation'
312: ,x_message_type => 'DEBUG');
313:
307: ,x_message_type => 'DEBUG');
308:
309: WHEN UTL_FILE.INVALID_OPERATION THEN
310:
311: push( x_message_text => 'UTL_FILE write failed. Invalid operation'
312: ,x_message_type => 'DEBUG');
313:
314: WHEN UTL_FILE.WRITE_ERROR THEN
315:
310:
311: push( x_message_text => 'UTL_FILE write failed. Invalid operation'
312: ,x_message_type => 'DEBUG');
313:
314: WHEN UTL_FILE.WRITE_ERROR THEN
315:
316: push( x_message_text => 'UTL_FILE write failed. Write error'
317: ,x_message_type => 'DEBUG');
318:
312: ,x_message_type => 'DEBUG');
313:
314: WHEN UTL_FILE.WRITE_ERROR THEN
315:
316: push( x_message_text => 'UTL_FILE write failed. Write error'
317: ,x_message_type => 'DEBUG');
318:
319:
320:
324:
325: BEGIN
326:
327: g_log_file_open := 'N';
328: utl_file.fclose(g_f_log);
329:
330: EXCEPTION
331:
332: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
328: utl_file.fclose(g_f_log);
329:
330: EXCEPTION
331:
332: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
333:
334: push( x_message_text => 'UTL_FILE close failed. Invalid file handle'
335: ,x_message_type => 'DEBUG');
336:
330: EXCEPTION
331:
332: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
333:
334: push( x_message_text => 'UTL_FILE close failed. Invalid file handle'
335: ,x_message_type => 'DEBUG');
336:
337:
338: END close_file;