APPS.ENG_WORKFLOW_UTIL dependencies on UTL_FILE

Line 7: g_debug_file UTL_FILE.FILE_TYPE ;

3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'Eng_Workflow_Util' ;
5:
6: -- For Debug
7: g_debug_file UTL_FILE.FILE_TYPE ;
8: g_debug_flag BOOLEAN := FALSE ; -- For Debug, set TRUE
9: g_output_dir VARCHAR2(240) := NULL ;
10: g_debug_filename VARCHAR2(30) := 'EngChangeWorkflowUtil.log' ;
11: g_debug_errmesg VARCHAR2(400);

Line 33: l_utl_file_dir VARCHAR2(2000);

29: , p_file_name IN VARCHAR2 := NULL
30: )
31: IS
32: --local variables
33: l_utl_file_dir VARCHAR2(2000);
34: l_error_mesg VARCHAR2(2000) ;
35:
36: CURSOR c_get_utl_file_dir IS
37: SELECT VALUE

Line 36: CURSOR c_get_utl_file_dir IS

32: --local variables
33: l_utl_file_dir VARCHAR2(2000);
34: l_error_mesg VARCHAR2(2000) ;
35:
36: CURSOR c_get_utl_file_dir IS
37: SELECT VALUE
38: FROM V$PARAMETER
39: WHERE NAME = 'utl_file_dir';
40:

Line 39: WHERE NAME = 'utl_file_dir';

35:
36: CURSOR c_get_utl_file_dir IS
37: SELECT VALUE
38: FROM V$PARAMETER
39: WHERE NAME = 'utl_file_dir';
40:
41: l_found NUMBER;
42:
43: l_log_output_dir VARCHAR2(512);

Line 60: OPEN c_get_utl_file_dir;

56: g_debug_filename := p_file_name ;
57: END IF ;
58:
59:
60: OPEN c_get_utl_file_dir;
61: FETCH c_get_utl_file_dir INTO l_log_output_dir;
62:
63: IF c_get_utl_file_dir%FOUND THEN
64:

Line 61: FETCH c_get_utl_file_dir INTO l_log_output_dir;

57: END IF ;
58:
59:
60: OPEN c_get_utl_file_dir;
61: FETCH c_get_utl_file_dir INTO l_log_output_dir;
62:
63: IF c_get_utl_file_dir%FOUND THEN
64:
65: IF g_output_dir IS NOT NULL

Line 63: IF c_get_utl_file_dir%FOUND THEN

59:
60: OPEN c_get_utl_file_dir;
61: FETCH c_get_utl_file_dir INTO l_log_output_dir;
62:
63: IF c_get_utl_file_dir%FOUND THEN
64:
65: IF g_output_dir IS NOT NULL
66: THEN
67: l_found := INSTR(l_log_output_dir, g_output_dir);

Line 111: END IF; --IF c_get_utl_file_dir%FOUND THEN

107: THEN
108: FND_FILE.put_line(FND_FILE.LOG, 'Unable to open error log file. Error => '||l_errbuff) ;
109: END IF;
110:
111: END IF; --IF c_get_utl_file_dir%FOUND THEN
112: -- Bug : 4099546
113: CLOSE c_get_utl_file_dir;
114:
115: -- Set Global Debug Flag

Line 113: CLOSE c_get_utl_file_dir;

109: END IF;
110:
111: END IF; --IF c_get_utl_file_dir%FOUND THEN
112: -- Bug : 4099546
113: CLOSE c_get_utl_file_dir;
114:
115: -- Set Global Debug Flag
116:
117: g_debug_flag := TRUE ;

Line 129: INTO l_utl_file_dir

125:
126: END IF;
127:
128: select value
129: INTO l_utl_file_dir
130: FROM v$parameter
131: WHERE name = 'utl_file_dir';
132:
133: l_found := INSTR(l_utl_file_dir, g_output_dir);

Line 131: WHERE name = 'utl_file_dir';

127:
128: select value
129: INTO l_utl_file_dir
130: FROM v$parameter
131: WHERE name = 'utl_file_dir';
132:
133: l_found := INSTR(l_utl_file_dir, g_output_dir);
134:
135: IF l_found = 0

Line 133: l_found := INSTR(l_utl_file_dir, g_output_dir);

129: INTO l_utl_file_dir
130: FROM v$parameter
131: WHERE name = 'utl_file_dir';
132:
133: l_found := INSTR(l_utl_file_dir, g_output_dir);
134:
135: IF l_found = 0
136: THEN
137: l_error_mesg := 'Debug Session could not be started. ' ||

Line 143: -- ' value in v$parameter for name = utl_file_dir ';

139:
140: -- 'Debug Session could not be started because the ' ||
141: -- ' output directory name is invalid. ' ||
142: -- ' Output directory must be one of the directory ' ||
143: -- ' value in v$parameter for name = utl_file_dir ';
144:
145: -- FND_MSG_PUB.Add_Exc_Msg
146: -- ( G_PKG_NAME ,
147: -- 'Open_Debug_Session' ,

Line 157: g_debug_file := utl_file.fopen( g_output_dir

153: RETURN;
154:
155: END IF;
156:
157: g_debug_file := utl_file.fopen( g_output_dir
158: , g_debug_filename
159: , 'w');
160: g_debug_flag := TRUE ;
161: **************************************************************/

Line 224: IF utl_file.is_open(g_debug_file)

220: PROCEDURE Close_Debug_Session
221: IS
222: l_error_mesg VARCHAR2(2000) ;
223: BEGIN
224: IF utl_file.is_open(g_debug_file)
225: THEN
226: utl_file.fclose(g_debug_file);
227: END IF ;
228:

Line 226: utl_file.fclose(g_debug_file);

222: l_error_mesg VARCHAR2(2000) ;
223: BEGIN
224: IF utl_file.is_open(g_debug_file)
225: THEN
226: utl_file.fclose(g_debug_file);
227: END IF ;
228:
229: EXCEPTION
230: WHEN OTHERS THEN

Line 273: IF utl_file.is_open(g_debug_file)

269:
270: Error_Handler.Write_Debug('['||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||'] '|| p_debug_message);
271:
272: /*****
273: IF utl_file.is_open(g_debug_file)
274: THEN
275: utl_file.put_line(g_debug_file, p_debug_message);
276: END IF ;
277: ***/

Line 275: utl_file.put_line(g_debug_file, p_debug_message);

271:
272: /*****
273: IF utl_file.is_open(g_debug_file)
274: THEN
275: utl_file.put_line(g_debug_file, p_debug_message);
276: END IF ;
277: ***/
278:
279: