DBA Data[Home] [Help]

APPS.ERROR_HANDLER dependencies on UTL_FILE

Line 2192: l_utl_file_dir VARCHAR2(2000);

2188: , x_error_mesg IN OUT NOCOPY VARCHAR2
2189: )
2190: IS
2191: l_found NUMBER := 0;
2192: l_utl_file_dir VARCHAR2(2000);
2193: BEGIN
2194:
2195: x_return_status := FND_API.G_RET_STS_SUCCESS;
2196:

Line 2210: INTO l_utl_file_dir

2206: Error_Handler.Set_Debug('Y');
2207: END IF;
2208:
2209: select value
2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213:
2214: l_found := INSTR(l_utl_file_dir, p_output_dir);

Line 2212: WHERE name = 'utl_file_dir';

2208:
2209: select value
2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213:
2214: l_found := INSTR(l_utl_file_dir, p_output_dir);
2215:
2216: IF l_found = 0

Line 2214: l_found := INSTR(l_utl_file_dir, p_output_dir);

2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213:
2214: l_found := INSTR(l_utl_file_dir, p_output_dir);
2215:
2216: IF l_found = 0
2217: THEN
2218: x_error_mesg := 'Debug Session could not be started because the ' ||

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

2217: THEN
2218: x_error_mesg := 'Debug Session could not be started because the ' ||
2219: ' output directory name is invalid. ' ||
2220: ' Output directory must be one of the directory ' ||
2221: ' value in v$parameter for name = utl_file_dir ';
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223: Error_Handler.Set_Debug;
2224: RETURN;
2225: END IF;

Line 2230: Error_Handler.Debug_File := utl_file.fopen( p_output_dir

2226:
2227: --Changed to the *new* call of FOPEN, where we can pass
2228: --the MAXLINESIZE value. If we donot pass the default is
2229: --1023 chars. If we pass, the max value can be 32767 chars.
2230: Error_Handler.Debug_File := utl_file.fopen( p_output_dir
2231: , p_debug_filename
2232: , 'w'
2233: , 32767
2234: );

Line 2237: WHEN UTL_FILE.INVALID_PATH THEN

2233: , 32767
2234: );
2235:
2236: EXCEPTION
2237: WHEN UTL_FILE.INVALID_PATH THEN
2238: x_error_mesg := 'Error opening Debug file . . . ' || sqlerrm;
2239: x_return_status := FND_API.G_RET_STS_ERROR;
2240: Error_Handler.Set_Debug;
2241: END Open_Debug_Session;

Line 2255: l_utl_file_dir VARCHAR2(2000);

2251: IS
2252: l_found NUMBER := 0;
2253: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type :=
2254: p_mesg_token_tbl;
2255: l_utl_file_dir VARCHAR2(2000);
2256: BEGIN
2257:
2258: -- Enhancement
2259: -- If BO is called by Open interface don't call this code.

Line 2264: INTO l_utl_file_dir

2260: IF G_IS_BOM_OI then
2261: null;
2262: else
2263: select value
2264: INTO l_utl_file_dir
2265: FROM v$parameter
2266: WHERE name = 'utl_file_dir';
2267:
2268: l_found := INSTR(l_utl_file_dir, p_output_dir);

Line 2266: WHERE name = 'utl_file_dir';

2262: else
2263: select value
2264: INTO l_utl_file_dir
2265: FROM v$parameter
2266: WHERE name = 'utl_file_dir';
2267:
2268: l_found := INSTR(l_utl_file_dir, p_output_dir);
2269:
2270: IF l_found = 0

Line 2268: l_found := INSTR(l_utl_file_dir, p_output_dir);

2264: INTO l_utl_file_dir
2265: FROM v$parameter
2266: WHERE name = 'utl_file_dir';
2267:
2268: l_found := INSTR(l_utl_file_dir, p_output_dir);
2269:
2270: IF l_found = 0
2271: THEN
2272: Error_Handler.Add_Error_Token

Line 2278: ' value in v$parameter for name = utl_file_dir ' ||

2274: , p_message_text =>
2275: ' Debug Session could not be started because the ' ||
2276: ' output directory name is invalid. ' ||
2277: ' Output directory must be one of the directory ' ||
2278: ' value in v$parameter for name = utl_file_dir ' ||
2279: ' If unsure leave out the value and the log will '||
2280: ' be written to /sqlcom/log '
2281: , x_mesg_token_tbl => l_mesg_token_tbl
2282: );

Line 2287: Error_Handler.Debug_File := utl_file.fopen( p_output_dir

2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: x_mesg_token_tbl := l_mesg_token_tbl;
2285: RETURN;
2286: END IF;
2287: Error_Handler.Debug_File := utl_file.fopen( p_output_dir
2288: , p_debug_filename
2289: , 'w');
2290: end if;
2291: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2294: WHEN UTL_FILE.INVALID_PATH THEN

2290: end if;
2291: x_return_status := FND_API.G_RET_STS_SUCCESS;
2292:
2293: EXCEPTION
2294: WHEN UTL_FILE.INVALID_PATH THEN
2295: Error_Handler.Add_Error_Token
2296: ( p_message_name => NULL
2297: , p_message_text => 'Error opening Debug file . . . ' || sqlerrm
2298: , x_mesg_token_tbl => l_mesg_token_tbl

Line 2317: utl_file.put_line(Error_Handler.Debug_File,p_debug_message);

2313: buff => p_debug_message );
2314: Fnd_File.New_Line ( which => Fnd_File.LOG );
2315: END IF;
2316: ELSE
2317: utl_file.put_line(Error_Handler.Debug_File,p_debug_message);
2318: END IF;
2319:
2320: END IF;
2321: END Write_Debug;

Line 2334: utl_file.fclose(Error_Handler.Debug_File);

2330: IF G_IS_BOM_OI THEN
2331: null;
2332: ELSE
2333: IF Error_Handler.Get_Debug = 'Y' THEN
2334: utl_file.fclose(Error_Handler.Debug_File);
2335: Error_Handler.Set_Debug;
2336: END IF;
2337: END IF;
2338: