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 46: pg_fp := utl_file.fopen(path_name, file_name||'.dbg', 'w');

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

Line 50: when utl_file.invalid_path then

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

Line 54: when utl_file.invalid_mode then

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

Line 67: utl_file.fclose(pg_fp);

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