APPS.XTR_DEBUG_PKG dependencies on UTL_FILE

Line 7: pg_fp utl_file.file_type;

3: --
4: --
5: pg_file_name VARCHAR2(100) := NULL;
6: pg_path_name VARCHAR2(100) := NULL;
7: pg_fp utl_file.file_type;
8:
9: --
10: --
11: --

Line 24: IF not utl_file.is_open(pg_fp) THEN

20:
21: /*
22: if (pg_file_name is null) THEN
23:
24: IF not utl_file.is_open(pg_fp) THEN
25:
26: pg_fp := utl_file.fopen(path_name, file_name, 'w');
27: END IF;
28:

Line 26: pg_fp := utl_file.fopen(path_name, file_name, 'w');

22: if (pg_file_name is null) THEN
23:
24: IF not utl_file.is_open(pg_fp) THEN
25:
26: pg_fp := utl_file.fopen(path_name, file_name, 'w');
27: END IF;
28:
29: pg_file_name := file_name;
30: pg_path_name := path_name;

Line 36: when utl_file.invalid_path then

32: end if;
33:
34: EXCEPTION
35:
36: when utl_file.invalid_path then
37: RAISE_APPLICATION_ERROR(-20001, path_name ||
38: ' is an invalid file path!!!!!!');
39: -- app_exception.raise_exception;
40: when utl_file.invalid_mode then

Line 40: when utl_file.invalid_mode then

36: when utl_file.invalid_path then
37: RAISE_APPLICATION_ERROR(-20001, path_name ||
38: ' is an invalid file path!!!!!!');
39: -- app_exception.raise_exception;
40: when utl_file.invalid_mode then
41: app_exception.raise_exception;
42: */
43:
44: END ;

Line 84: if utl_file.is_open(pg_fp) then

80: /*
81: if (pg_file_name is not null) and pg_file_name <> '' THEN
82: pg_file_name := NULL;
83: pg_path_name := NULL;
84: if utl_file.is_open(pg_fp) then
85: utl_file.fclose(pg_fp);
86: end if;
87: xtr_risk_debug_pkg.stop_debug;
88: end if;

Line 85: utl_file.fclose(pg_fp);

81: if (pg_file_name is not null) and pg_file_name <> '' THEN
82: pg_file_name := NULL;
83: pg_path_name := NULL;
84: if utl_file.is_open(pg_fp) then
85: utl_file.fclose(pg_fp);
86: end if;
87: xtr_risk_debug_pkg.stop_debug;
88: end if;
89: */

Line 113: IF (pg_file_name IS NOT NULL) or utl_file.is_open(pg_fp) THEN

109: 'xtr', line);
110: end if;
111:
112: /*
113: IF (pg_file_name IS NOT NULL) or utl_file.is_open(pg_fp) THEN
114:
115: utl_file.put_line(pg_fp, line);
116: utl_file.fflush(pg_fp);
117:

Line 115: utl_file.put_line(pg_fp, line);

111:
112: /*
113: IF (pg_file_name IS NOT NULL) or utl_file.is_open(pg_fp) THEN
114:
115: utl_file.put_line(pg_fp, line);
116: utl_file.fflush(pg_fp);
117:
118: END IF;
119:

Line 116: utl_file.fflush(pg_fp);

112: /*
113: IF (pg_file_name IS NOT NULL) or utl_file.is_open(pg_fp) THEN
114:
115: utl_file.put_line(pg_fp, line);
116: utl_file.fflush(pg_fp);
117:
118: END IF;
119:
120: if ( pg_sqlplus_enable_flag = 1 ) then

Line 138: PROCEDURE set_filehandle (p_FileHandle utl_file.file_type := NULL) IS

134: END;
135:
136:
137:
138: PROCEDURE set_filehandle (p_FileHandle utl_file.file_type := NULL) IS
139:
140: BEGIN
141:
142: -- RV: Bug 3011847 --

Line 146: IF not utl_file.is_open(pg_fp) and utl_file.is_open(p_FileHandle) THEN

142: -- RV: Bug 3011847 --
143: NULL;
144:
145: /*
146: IF not utl_file.is_open(pg_fp) and utl_file.is_open(p_FileHandle) THEN
147:
148: pg_fp := p_FileHandle;
149: END IF;
150: */