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.9 2010/10/21 19:05:12 pdeluna ship $ */
3:
4: UTL_DIR varchar2(255);
5: CORELOG_FILE utl_file.file_type;
6: CORELOG_FNAME varchar2(255) := NULL;
7: CORELOG_OPEN boolean;
8: CORELOG_ENABLED varchar2(1) := NULL;
9: CORELOG_PROFILE varchar2(80) := NULL;

Line 323: -- Then determine the utl_file_dir value.

319: CORELOG_FNAME := P_LOGFILE;
320: end if;
321:
322: if UTL_DIR is null and P_DIRECTORY is null then
323: -- Then determine the utl_file_dir value.
324: select translate(ltrim(value),',',' ')
325: into TEMP_DIR
326: from v$parameter
327: where lower(name) = 'utl_file_dir';

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

323: -- Then determine the utl_file_dir value.
324: select translate(ltrim(value),',',' ')
325: into TEMP_DIR
326: from v$parameter
327: where lower(name) = 'utl_file_dir';
328:
329: if (instr(TEMP_DIR,' ') > 0 and TEMP_DIR is not null) then
330: select substrb(TEMP_DIR, 1, instr(TEMP_DIR,' ') - 1)
331: into UTL_DIR

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

356: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
357: if (CORELOG_FNAME is NULL) then
358: CORELOG_FNAME := FILENAME;
359: end if;
360: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a');
361: begin
362: utl_file.fclose(CORELOG_FILE);
363: exception
364: when others then

Line 362: utl_file.fclose(CORELOG_FILE);

358: CORELOG_FNAME := FILENAME;
359: end if;
360: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a');
361: begin
362: utl_file.fclose(CORELOG_FILE);
363: exception
364: when others then
365: null;
366: end;

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

363: exception
364: when others then
365: null;
366: end;
367: CORELOG_FILE := utl_file.fopen(UTL_DIR, CORELOG_FNAME, 'a',
368: MAX_LINESIZE);
369: CORELOG_OPEN := TRUE;
370: end if;
371: end OPEN_FILE;

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

381: if (CORELOG_ENABLED <> 'N') and (CORELOG_ENABLED is not null) then
382: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
383: OPEN_FILE;
384: end if;
385: utl_file.put(CORELOG_FILE, LOG_TEXT);
386: utl_file.fflush(CORELOG_FILE);
387: end if;
388: end PUT;
389:

Line 386: utl_file.fflush(CORELOG_FILE);

382: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
383: OPEN_FILE;
384: end if;
385: utl_file.put(CORELOG_FILE, LOG_TEXT);
386: utl_file.fflush(CORELOG_FILE);
387: end if;
388: end PUT;
389:
390: /*

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

400: if (CORELOG_ENABLED <> 'N') and (CORELOG_ENABLED is not null) then
401: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
402: OPEN_FILE;
403: end if;
404: utl_file.put_line(CORELOG_FILE, LOG_PROFNAME||':'||LOG_TEXT);
405: utl_file.fflush(CORELOG_FILE);
406: end if;
407: end if;
408: end PUT_LINE;

Line 405: utl_file.fflush(CORELOG_FILE);

401: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
402: OPEN_FILE;
403: end if;
404: utl_file.put_line(CORELOG_FILE, LOG_PROFNAME||':'||LOG_TEXT);
405: utl_file.fflush(CORELOG_FILE);
406: end if;
407: end if;
408: end PUT_LINE;
409:

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

431: if (CORELOG_ENABLED <> 'N') and (CORELOG_ENABLED is not null) then
432: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
433: OPEN_FILE;
434: end if;
435: utl_file.new_line(CORELOG_FILE, LINES);
436: utl_file.fflush(CORELOG_FILE);
437: end if;
438: end NEW_LINE;
439:

Line 436: utl_file.fflush(CORELOG_FILE);

432: if (CORELOG_OPEN = FALSE) or (CORELOG_OPEN is NULL) then
433: OPEN_FILE;
434: end if;
435: utl_file.new_line(CORELOG_FILE, LINES);
436: utl_file.fflush(CORELOG_FILE);
437: end if;
438: end NEW_LINE;
439:
440: /*

Line 447: utl_file.fclose(CORELOG_FILE);

443: */
444: procedure CLOSE_FILE is
445: BEGIN
446: BEGIN
447: utl_file.fclose(CORELOG_FILE);
448: EXCEPTION
449: when others then
450: NULL;
451: END;