DBA Data[Home] [Help]

APPS.IGC_MSGS_PKG dependencies on UTL_FILE

Line 9: g_file_ptr UTL_FILE.FILE_TYPE;

5:
6: g_pkg_name CONSTANT VARCHAR2(30) := 'IGC_MSGS_PKG';
7: g_filename VARCHAR2(255) := NULL;
8: g_dirpath VARCHAR2(255) := NULL;
9: g_file_ptr UTL_FILE.FILE_TYPE;
10:
11: PROCEDURE Initialize_Debug (
12: p_profile_name IN VARCHAR2,
13: p_product IN VARCHAR2,

Line 143: -- Since the directory location for the debug output for UTL_FILE has

139: END IF;
140: g_dirpath := FND_PROFILE.VALUE (p_profile_name);
141:
142: -- ----------------------------------------------------------------------
143: -- Since the directory location for the debug output for UTL_FILE has
144: -- not been setup from the user the utility will not work properly.
145: -- Set the global Debug mode flag to false and return with error message
146: -- added.
147: -- ----------------------------------------------------------------------

Line 162: IF (UTL_FILE.IS_OPEN ( g_file_ptr )) THEN

158: -- ----------------------------------------------------------------------
159: -- Make sure that the file is not open currently. If it is close the
160: -- file before reopening.
161: -- ----------------------------------------------------------------------
162: IF (UTL_FILE.IS_OPEN ( g_file_ptr )) THEN
163: UTL_FILE.FCLOSE ( g_file_ptr );
164: END IF;
165:
166: -- ----------------------------------------------------------------------

Line 163: UTL_FILE.FCLOSE ( g_file_ptr );

159: -- Make sure that the file is not open currently. If it is close the
160: -- file before reopening.
161: -- ----------------------------------------------------------------------
162: IF (UTL_FILE.IS_OPEN ( g_file_ptr )) THEN
163: UTL_FILE.FCLOSE ( g_file_ptr );
164: END IF;
165:
166: -- ----------------------------------------------------------------------
167: -- Assign the global pointer to be used for the debug output.

Line 169: g_file_ptr := UTL_FILE.FOPEN ( g_dirpath, g_filename, 'a' );

165:
166: -- ----------------------------------------------------------------------
167: -- Assign the global pointer to be used for the debug output.
168: -- ----------------------------------------------------------------------
169: g_file_ptr := UTL_FILE.FOPEN ( g_dirpath, g_filename, 'a' );
170:
171: END IF;
172:
173: END IF;

Line 181: WHEN UTL_FILE.INVALID_PATH THEN

177: -- ----------------------------------------------------------------------
178: -- Exception section for the Initialize_Debug procedure.
179: -- ----------------------------------------------------------------------
180: EXCEPTION
181: WHEN UTL_FILE.INVALID_PATH THEN
182: x_return_status := FND_API.G_RET_STS_ERROR;
183: --g_debug_mode := FALSE;
184: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
185: p_msgname => 'IGC_DEBUG_INVALID_PATH'

Line 189: WHEN UTL_FILE.WRITE_ERROR THEN

185: p_msgname => 'IGC_DEBUG_INVALID_PATH'
186: );
187: RETURN;
188:
189: WHEN UTL_FILE.WRITE_ERROR THEN
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: --g_debug_mode := FALSE;
192: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
193: p_msgname => 'IGC_DEBUG_WRITE_ERROR'

Line 197: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

193: p_msgname => 'IGC_DEBUG_WRITE_ERROR'
194: );
195: RETURN;
196:
197: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: --g_debug_mode := FALSE;
200: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
201: p_msgname => 'IGC_DEBUG_FILEHANDLE'

Line 239: l_file_ptr UTL_FILE.FILE_TYPE;

235: ) IS
236:
237: l_dir_loc VARCHAR2(255);
238: l_filename VARCHAR2(255);
239: l_file_ptr UTL_FILE.FILE_TYPE;
240: l_Return_Status VARCHAR2(1);
241: l_debug_mode BOOLEAN;
242:
243: l_api_name CONSTANT VARCHAR2(30) := 'Put_Debug_Msg';

Line 268: IF ( ( NOT UTL_FILE.IS_OPEN (g_file_ptr) ) OR

264: -- Make sure that the initialize routine has been called. The file should
265: -- be open, file name build and it is not null. If either of these cases
266: -- is TRUE then the Initialize routine should be called.
267: -- -----------------------------------------------------------------------
268: IF ( ( NOT UTL_FILE.IS_OPEN (g_file_ptr) ) OR
269: ( g_filename IS NULL ) OR
270: ( g_dirpath IS NULL )) THEN
271:
272: Initialize_Debug (p_profile_name => p_profile_log_name,

Line 288: UTL_FILE.PUT_LINE ( g_file_ptr, p_debug_message );

284:
285: -- -----------------------------------------------------------------------
286: -- Output Debug message to file and flush the output.
287: -- -----------------------------------------------------------------------
288: UTL_FILE.PUT_LINE ( g_file_ptr, p_debug_message );
289: UTL_FILE.FFLUSH ( g_file_ptr );
290:
291: END IF;
292:

Line 289: UTL_FILE.FFLUSH ( g_file_ptr );

285: -- -----------------------------------------------------------------------
286: -- Output Debug message to file and flush the output.
287: -- -----------------------------------------------------------------------
288: UTL_FILE.PUT_LINE ( g_file_ptr, p_debug_message );
289: UTL_FILE.FFLUSH ( g_file_ptr );
290:
291: END IF;
292:
293: -- END IF;

Line 301: WHEN UTL_FILE.INVALID_PATH THEN

297: -- ----------------------------------------------------------------------
298: -- Exception section for the Put_Debug_Msg procedure.
299: -- ----------------------------------------------------------------------
300: EXCEPTION
301: WHEN UTL_FILE.INVALID_PATH THEN
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: --g_debug_mode := FALSE;
304: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
305: p_msgname => 'IGC_DEBUG_INVALID_PATH'

Line 309: WHEN UTL_FILE.WRITE_ERROR THEN

305: p_msgname => 'IGC_DEBUG_INVALID_PATH'
306: );
307: RETURN;
308:
309: WHEN UTL_FILE.WRITE_ERROR THEN
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: --g_debug_mode := FALSE;
312: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
313: p_msgname => 'IGC_DEBUG_WRITE_ERROR'

Line 317: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

313: p_msgname => 'IGC_DEBUG_WRITE_ERROR'
314: );
315: RETURN;
316:
317: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: --g_debug_mode := FALSE;
320: IGC_MSGS_PKG.add_message (p_appname => 'IGC',
321: p_msgname => 'IGC_DEBUG_FILEHANDLE'