[Home] [Help]
100: ,x_return_status => l_log_return_status
101: ,x_error_mesg => l_errbuff
102: );
103:
104: FND_FILE.put_line(FND_FILE.LOG, 'Log file location --> '||l_log_output_dir||'/'||g_debug_filename ||' created with status '|| l_log_return_status);
105:
106: IF (l_log_return_status <> FND_API.G_RET_STS_SUCCESS)
107: THEN
108: FND_FILE.put_line(FND_FILE.LOG, 'Unable to open error log file. Error => '||l_errbuff) ;
104: FND_FILE.put_line(FND_FILE.LOG, 'Log file location --> '||l_log_output_dir||'/'||g_debug_filename ||' created with status '|| l_log_return_status);
105:
106: IF (l_log_return_status <> FND_API.G_RET_STS_SUCCESS)
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
147: -- 'Open_Debug_Session' ,
148: -- l_error_mesg ) ;
149: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
150:
151: FND_FILE.put_line(FND_FILE.LOG, G_PKG_NAME || ' Open_Debug_Session: LOGGING ERROR > '||l_error_mesg);
152: g_debug_flag := FALSE;
153: RETURN;
154:
155: END IF;
162:
163: EXCEPTION
164: WHEN OTHERS THEN
165: g_debug_errmesg := Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240);
166: FND_FILE.put_line(FND_FILE.LOG, 'LOGGING SQL ERROR => '||g_debug_errmesg);
167: g_debug_flag := FALSE;
168: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
169:
170: END Open_Debug_Session ;
201: -- Concurrent Request.
202: ----------------------------------------------------------------------------------
203: IF (Error_Handler.Get_Debug <> 'Y') THEN
204:
205: FND_FILE.put_line(FND_FILE.LOG, G_PKG_NAME || ' Error_Handler.Get_Debug is not Y, calling Open_Debug_Session ');
206: Open_Debug_Session(p_output_dir => p_output_dir, p_file_name => p_file_name) ;
207: END IF;
208:
209: END IF;
210:
211: EXCEPTION
212: WHEN OTHERS THEN
213: g_debug_errmesg := Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240);
214: FND_FILE.put_line(FND_FILE.LOG, G_PKG_NAME || ' Check_And_Open_Debug_Session LOGGING SQL ERROR => '||g_debug_errmesg);
215: g_debug_flag := FALSE;
216: END Check_And_Open_Debug_Session;
217:
218:
233:
234: l_error_mesg := 'Debug Session could not be closed because the ' ||
235: Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240) ;
236:
237: FND_FILE.put_line(FND_FILE.LOG, G_PKG_NAME || '.Close_Debug_Session LOGGING ERROR => '||l_error_mesg);
238:
239: -- FND_MSG_PUB.Add_Exc_Msg
240: -- ( G_PKG_NAME ,
241: -- 'Close_Debug_Session' ,
258: -- So as workaround, I added special developer debug mode here
259: -- to write debug message forcedly
260: IF (TO_NUMBER(g_profile_debug_level) = 999)
261: THEN
262: FND_FILE.put_line(FND_FILE.LOG
263: , G_PKG_NAME
264: || '['||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS')||'] '
265: || p_debug_message
266: );
285: l_error_mesg := 'In Debug Mode, Write_Debug procedure faild closed because the ' ||
286: Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240) ;
287:
288:
289: FND_FILE.put_line(FND_FILE.LOG, G_PKG_NAME || '.Write_Debug LOGGING ERROR => '||l_error_mesg);
290:
291: --
292: -- FND_MSG_PUB.Add_Exc_Msg
293: -- ( G_PKG_NAME ,
347: l_error_mesg := 'In Debug Mode, Get_Debug_Mode procedure faild closed because the ' ||
348: Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240) ;
349:
350:
351: FND_FILE.put_line(FND_FILE.LOG, G_PKG_NAME || '.Get_Debug_Mode LOGGING ERROR => '||l_error_mesg);
352:
353:
354: END Get_Debug_Mode ;
355: