DBA Data[Home] [Help]

APPS.GL_AUTO_ALLOC_WF_PKG dependencies on UTL_FILE

Line 4081: If utl_file.Is_Open(G_FILE_PTR) Then

4077:
4078: Procedure initialize_debug IS
4079: Begin
4080: G_FILE := GL_AUTO_ALLOC_WF_PKG.p_item_key ||'.dbg';
4081: If utl_file.Is_Open(G_FILE_PTR) Then
4082: utl_file.fclose(G_FILE_PTR);
4083: End If;
4084: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'a');
4085: Exception

Line 4082: utl_file.fclose(G_FILE_PTR);

4078: Procedure initialize_debug IS
4079: Begin
4080: G_FILE := GL_AUTO_ALLOC_WF_PKG.p_item_key ||'.dbg';
4081: If utl_file.Is_Open(G_FILE_PTR) Then
4082: utl_file.fclose(G_FILE_PTR);
4083: End If;
4084: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'a');
4085: Exception
4086: When Others Then

Line 4084: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'a');

4080: G_FILE := GL_AUTO_ALLOC_WF_PKG.p_item_key ||'.dbg';
4081: If utl_file.Is_Open(G_FILE_PTR) Then
4082: utl_file.fclose(G_FILE_PTR);
4083: End If;
4084: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'a');
4085: Exception
4086: When Others Then
4087: Wf_Core.Context('GL_AUTO_ALLOCATION_WF_PKG',
4088: 'initialize_debug', 'GLALLOC', p_item_key);

Line 4098: If NOT utl_file.Is_Open(G_FILE_PTR) OR

4094: Procedure diagn_debug_msg(debug_message in Varchar2) Is
4095: Begin
4096: If (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) then
4097: If debug_message is not null then
4098: If NOT utl_file.Is_Open(G_FILE_PTR) OR
4099: G_FILE <> GL_AUTO_ALLOC_WF_PKG.p_item_key ||'.dbg' OR
4100: G_FILE IS NULL Then
4101: initialize_debug;
4102: End If;

Line 4103: utl_file.put_line(G_FILE_PTR, debug_message);

4099: G_FILE <> GL_AUTO_ALLOC_WF_PKG.p_item_key ||'.dbg' OR
4100: G_FILE IS NULL Then
4101: initialize_debug;
4102: End If;
4103: utl_file.put_line(G_FILE_PTR, debug_message);
4104: utl_file.fflush(G_FILE_PTR);
4105: End if;
4106: End If;
4107: Exception

Line 4104: utl_file.fflush(G_FILE_PTR);

4100: G_FILE IS NULL Then
4101: initialize_debug;
4102: End If;
4103: utl_file.put_line(G_FILE_PTR, debug_message);
4104: utl_file.fflush(G_FILE_PTR);
4105: End if;
4106: End If;
4107: Exception
4108: WHEN UTL_FILE.INVALID_PATH OR

Line 4108: WHEN UTL_FILE.INVALID_PATH OR

4104: utl_file.fflush(G_FILE_PTR);
4105: End if;
4106: End If;
4107: Exception
4108: WHEN UTL_FILE.INVALID_PATH OR
4109: UTL_FILE.WRITE_ERROR OR
4110: UTL_FILE.INVALID_FILEHANDLE THEN
4111: diagn_debug_msg_flag := FALSE;
4112: null;

Line 4109: UTL_FILE.WRITE_ERROR OR

4105: End if;
4106: End If;
4107: Exception
4108: WHEN UTL_FILE.INVALID_PATH OR
4109: UTL_FILE.WRITE_ERROR OR
4110: UTL_FILE.INVALID_FILEHANDLE THEN
4111: diagn_debug_msg_flag := FALSE;
4112: null;
4113: WHEN OTHERS THEN

Line 4110: UTL_FILE.INVALID_FILEHANDLE THEN

4106: End If;
4107: Exception
4108: WHEN UTL_FILE.INVALID_PATH OR
4109: UTL_FILE.WRITE_ERROR OR
4110: UTL_FILE.INVALID_FILEHANDLE THEN
4111: diagn_debug_msg_flag := FALSE;
4112: null;
4113: WHEN OTHERS THEN
4114: Wf_Core.Context('GL_AUTO_ALLOCATION_WF_PKG',