APPS.XLA_UTIL dependencies on UTL_FILE

Line 9: pg_fp utl_file.file_type;

5: /* PRIVATE VARIABLES
6: /*===========================================================================*/
7: debug_flag BOOLEAN := FALSE;
8: file_debug_flag BOOLEAN := FALSE;
9: pg_fp utl_file.file_type;
10:
11: pg_query_context VARCHAR2(100) := NULL;
12:
13: /*===========================================================================*/

Line 20: utl_file.put_line(pg_fp, text);

16:
17: PROCEDURE file_debug( text in varchar2 ) is
18: BEGIN
19: if file_debug_flag then
20: utl_file.put_line(pg_fp, text);
21: utl_file.fflush(pg_fp);
22: end if;
23: END;
24:

Line 21: utl_file.fflush(pg_fp);

17: PROCEDURE file_debug( text in varchar2 ) is
18: BEGIN
19: if file_debug_flag then
20: utl_file.put_line(pg_fp, text);
21: utl_file.fflush(pg_fp);
22: end if;
23: END;
24:
25:

Line 48: pg_fp := utl_file.fopen(path_name, file_name||'.dbg', 'w');

44: PROCEDURE enable_debug(path_name in varchar2,
45: file_name in varchar2 default 'DEFAULT') IS
46: BEGIN
47: if not file_debug_flag then -- Ignore multiple calls to enable_debug
48: pg_fp := utl_file.fopen(path_name, file_name||'.dbg', 'w');
49: file_debug_flag := TRUE;
50: end if;
51: EXCEPTION
52: when utl_file.invalid_path then

Line 52: when utl_file.invalid_path then

48: pg_fp := utl_file.fopen(path_name, file_name||'.dbg', 'w');
49: file_debug_flag := TRUE;
50: end if;
51: EXCEPTION
52: when utl_file.invalid_path then
53: -- fnd_message.set_name('AR', 'GENERIC_MESSAGE');
54: -- fnd_message.set_token('GENERIC_TEXT', 'Invalid path: '||path_name);
55: app_exception.raise_exception;
56: when utl_file.invalid_mode then

Line 56: when utl_file.invalid_mode then

52: when utl_file.invalid_path then
53: -- fnd_message.set_name('AR', 'GENERIC_MESSAGE');
54: -- fnd_message.set_token('GENERIC_TEXT', 'Invalid path: '||path_name);
55: app_exception.raise_exception;
56: when utl_file.invalid_mode then
57: -- fnd_message.set_name('AR', 'GENERIC_MESSAGE');
58: -- fnd_message.set_token('GENERIC_TEXT', 'Cannot open file '||file_name||
59: -- ' in write mode.');
60: app_exception.raise_exception;

Line 69: utl_file.fclose(pg_fp);

65: debug_flag := FALSE;
66:
67: if file_debug_flag then
68: file_debug_flag := FALSE;
69: utl_file.fclose(pg_fp);
70: end if;
71: END disable_debug;
72:
73: PROCEDURE debug(text IN VARCHAR2) is