11: select substr('l'|| substr(to_char(sysdate,'MI'),1,1)
12: || lpad(oe_debug_s.nextval,6,'0'),1,8) || '.dbg'
13: into G_FILE
14: from dual;
15: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'w');
16: UTL_FILE.Put_Line(G_FILE_PTR,'Session Id:'||userenv('SESSIONID'));
17:
18: -- Start Other Debuggers.
19:
12: || lpad(oe_debug_s.nextval,6,'0'),1,8) || '.dbg'
13: into G_FILE
14: from dual;
15: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'w');
16: UTL_FILE.Put_Line(G_FILE_PTR,'Session Id:'||userenv('SESSIONID'));
17:
18: -- Start Other Debuggers.
19:
20: WSH_DEBUG_INTERFACE.Start_Debugger
160: -- G_Debug_tbl(G_debug_count) := substr(debug_msg,1,G_DEBUG_LEN);
161: l_debug_msg := substr(replace(debug_msg,l_g_miss_char,l_replace),1,2000);
162: FND_FILE.put_line(FND_FILE.LOG, l_debug_msg);
163: if G_FILE is not null then
164: utl_file.put_line(G_FILE_PTR, debug_msg);
165: utl_file.fflush(G_FILE_PTR);
166: end if;
167: else -- debug mode
168: l_debug_msg := substr(replace(debug_msg,l_g_miss_char,l_replace),1,2000);
161: l_debug_msg := substr(replace(debug_msg,l_g_miss_char,l_replace),1,2000);
162: FND_FILE.put_line(FND_FILE.LOG, l_debug_msg);
163: if G_FILE is not null then
164: utl_file.put_line(G_FILE_PTR, debug_msg);
165: utl_file.fflush(G_FILE_PTR);
166: end if;
167: else -- debug mode
168: l_debug_msg := substr(replace(debug_msg,l_g_miss_char,l_replace),1,2000);
169: utl_file.put_line(G_FILE_PTR, l_debug_msg);
165: utl_file.fflush(G_FILE_PTR);
166: end if;
167: else -- debug mode
168: l_debug_msg := substr(replace(debug_msg,l_g_miss_char,l_replace),1,2000);
169: utl_file.put_line(G_FILE_PTR, l_debug_msg);
170: utl_file.fflush(G_FILE_PTR);
171: end if;
172: end if; -- debug_msg is not null
173: end if; -- debug on
166: end if;
167: else -- debug mode
168: l_debug_msg := substr(replace(debug_msg,l_g_miss_char,l_replace),1,2000);
169: utl_file.put_line(G_FILE_PTR, l_debug_msg);
170: utl_file.fflush(G_FILE_PTR);
171: end if;
172: end if; -- debug_msg is not null
173: end if; -- debug on
174: end if;-- debug level is big enough
314:
315: Procedure Start_ONT_Debugger
316: (p_directory IN VARCHAR2
317: ,p_filename IN VARCHAR2
318: ,p_file_handle IN UTL_FILE.File_Type
319: )
320: IS
321:
322: BEGIN
330: -- Open the file if filename and directory are
331: -- not null.
332:
333:
334: IF UTL_FILE.Is_Open(p_file_handle) THEN
335:
336: G_FILE_PTR := p_file_handle;
337:
338: ELSIF p_filename is NOT NULL AND
340:
341: G_DIR := p_directory;
342: G_FILE := p_filename;
343:
344: G_FILE_PTR := UTL_FILE.Fopen(G_DIR, G_FILE, 'w');
345:
346: END IF;
347:
348: UTL_FILE.Put_Line(G_FILE_PTR,'Session Id:'||userenv('SESSIONID'));
344: G_FILE_PTR := UTL_FILE.Fopen(G_DIR, G_FILE, 'w');
345:
346: END IF;
347:
348: UTL_FILE.Put_Line(G_FILE_PTR,'Session Id:'||userenv('SESSIONID'));
349:
350: BEGIN
351: OE_DEBUG_PUB.Setdebuglevel(5);
352: EXCEPTION