APPS.FND_CORE_LOG dependencies on UTL_FILE

Line 5: CORELOG_FILE utl_file.file_type;

1: package body FND_CORE_LOG as
2: /* $Header: AFCORLGB.pls 120.7.12000000.1 2007/01/18 13:14:04 appldev ship $ */
3:
4: UTL_DIR varchar2(255);
5: CORELOG_FILE utl_file.file_type;
6: CORELOG_FNAME varchar2(255) := 'afcorelog.txt';
7: CORELOG_OPEN boolean;
8: CORELOG_ENABLED varchar2(1) := NULL;
9: CORELOG_PROFILE varchar2(80) := NULL;

Line 294: -- Then determine the utl_file_dir value.

290: CORELOG_FNAME := P_LOGFILE;
291: end if;
292:
293: if UTL_DIR is null and P_DIRECTORY is null then
294: -- Then determine the utl_file_dir value.
295: select translate(ltrim(value),',',' ')
296: into TEMP_DIR
297: from v$parameter
298: where lower(name) = 'utl_file_dir';

Line 298: where lower(name) = 'utl_file_dir';

294: -- Then determine the utl_file_dir value.
295: select translate(ltrim(value),',',' ')
296: into TEMP_DIR
297: from v$parameter
298: where lower(name) = 'utl_file_dir';
299:
300: if (instr(TEMP_DIR,' ') > 0 and TEMP_DIR is not null) then
301: select substrb(TEMP_DIR, 1, instr(TEMP_DIR,' ') - 1)
302: into UTL_DIR

Line 329: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a');

325: procedure OPEN_FILE is
326: MAX_LINESIZE binary_integer := 32767;
327: begin
328: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
329: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a');
330: begin
331: utl_file.fclose(CORELOG_FILE);
332: exception
333: when others then

Line 331: utl_file.fclose(CORELOG_FILE);

327: begin
328: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
329: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a');
330: begin
331: utl_file.fclose(CORELOG_FILE);
332: exception
333: when others then
334: null;
335: end;

Line 336: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a',

332: exception
333: when others then
334: null;
335: end;
336: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a',
337: MAX_LINESIZE);
338: CORELOG_OPEN := TRUE;
339: end if;
340: end OPEN_FILE;

Line 354: utl_file.put(CORELOG_FILE, LOG_TEXT);

350: if (CORELOG_ENABLED <> 'N') and (CORELOG_ENABLED is not null) then
351: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
352: OPEN_FILE;
353: end if;
354: utl_file.put(CORELOG_FILE, LOG_TEXT);
355: utl_file.fflush(CORELOG_FILE);
356: end if;
357: end PUT;
358:

Line 355: utl_file.fflush(CORELOG_FILE);

351: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
352: OPEN_FILE;
353: end if;
354: utl_file.put(CORELOG_FILE, LOG_TEXT);
355: utl_file.fflush(CORELOG_FILE);
356: end if;
357: end PUT;
358:
359:

Line 374: utl_file.put_line(CORELOG_FILE, LOG_PROFNAME||':'||LOG_TEXT);

370: if (CORELOG_ENABLED <> 'N') and (CORELOG_ENABLED is not null) then
371: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
372: OPEN_FILE;
373: end if;
374: utl_file.put_line(CORELOG_FILE, LOG_PROFNAME||':'||LOG_TEXT);
375: utl_file.fflush(CORELOG_FILE);
376: end if;
377: end if;
378: end PUT_LINE;

Line 375: utl_file.fflush(CORELOG_FILE);

371: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
372: OPEN_FILE;
373: end if;
374: utl_file.put_line(CORELOG_FILE, LOG_PROFNAME||':'||LOG_TEXT);
375: utl_file.fflush(CORELOG_FILE);
376: end if;
377: end if;
378: end PUT_LINE;
379:

Line 405: utl_file.new_line(CORELOG_FILE, LINES);

401: if (CORELOG_ENABLED <> 'N') and (CORELOG_ENABLED is not null) then
402: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
403: OPEN_FILE;
404: end if;
405: utl_file.new_line(CORELOG_FILE, LINES);
406: utl_file.fflush(CORELOG_FILE);
407: end if;
408: end NEW_LINE;
409:

Line 406: utl_file.fflush(CORELOG_FILE);

402: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
403: OPEN_FILE;
404: end if;
405: utl_file.new_line(CORELOG_FILE, LINES);
406: utl_file.fflush(CORELOG_FILE);
407: end if;
408: end NEW_LINE;
409:
410: /*

Line 417: utl_file.fclose(CORELOG_FILE);

413: */
414: procedure CLOSE_FILE is
415: BEGIN
416: BEGIN
417: utl_file.fclose(CORELOG_FILE);
418: EXCEPTION
419: when others then
420: NULL;
421: END;