[Home] [Help]
PACKAGE BODY: APPS.XTR_DEBUG_PKG
Source
1 package body XTR_DEBUG_PKG as
2 /* $Header: xtrdebgb.pls 115.8 2003/07/30 17:09:26 rvallams ship $ */
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 --
12 --
13 PROCEDURE enable_file_debug (path_name in varchar2,
14 file_name in varchar2) IS
15
16 BEGIN
17
18 -- RV: Bug 3011847 --
19 NULL;
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
29 pg_file_name := file_name;
30 pg_path_name := path_name;
31 xtr_risk_debug_pkg.set_filehandle(pg_fp);
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
41 app_exception.raise_exception;
42 */
43
44 END ;
45
46
47
48 --
49 --
50 --
51 --
52 PROCEDURE enable_file_debug IS
53
54 BEGIN
55
56 -- RV: Bug 3011847 --
57 NULL;
58
59 /*
60 pg_sqlplus_enable_flag := 1;
61 xtr_risk_debug_pkg.start_debug;
62 */
63
64 END ;
65
66
67
68
69
70 --
71 --
72 --
73 --
74 PROCEDURE disable_file_debug is
75 BEGIN
76
77 -- RV: Bug 3011847 --
78 NULL;
79
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;
89 */
90
91 END;
92
93 --
94 --
95 --
96 --
97 PROCEDURE debug( line in varchar2 ) is
98
99 rest varchar2(32767);
100 buffer_overflow exception;
101 pragma exception_init(buffer_overflow, -20000);
102
103 BEGIN
104
105 -- RV: Bug 3011847 --
106
107 if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
108 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
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
118 END IF;
119
120 if ( pg_sqlplus_enable_flag = 1 ) then
121 --dbms_output.put_line(line);
122 fnd_file.put_line(fnd_file.log, line);
123
124 end if;
125
126 EXCEPTION
127
128 when buffer_overflow then
129 null; -- buffer overflow, ignore
130 when others then
131 raise;
132 */
133
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 --
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 */
151
152 END set_filehandle;
153
154 END XTR_DEBUG_PKG;