DBA Data[Home] [Help]

APPS.ERROR_HANDLER dependencies on UTL_FILE

Line 2192: l_utl_file_dir v$parameter.value%TYPE; --bug 16265816/16449758, fix ora-6502 error

2188: , x_error_mesg IN OUT NOCOPY VARCHAR2
2189: )
2190: IS
2191: l_found NUMBER := 0;
2192: l_utl_file_dir v$parameter.value%TYPE; --bug 16265816/16449758, fix ora-6502 error
2193: BEGIN
2194:
2195: x_return_status := FND_API.G_RET_STS_SUCCESS;
2196:

Line 2208: if G_HAS_UTL_FILE_DIR = 'N' then

2204: -- Issue 3323376. The Get_Debug could be used as an indicator to identify
2205: -- if the debug session is opened or not rather than using it as a prereq setup
2206: Error_Handler.Set_Debug('Y');
2207: END IF;
2208: if G_HAS_UTL_FILE_DIR = 'N' then
2209: select value
2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';

Line 2210: INTO l_utl_file_dir

2206: Error_Handler.Set_Debug('Y');
2207: END IF;
2208: if G_HAS_UTL_FILE_DIR = 'N' then
2209: select value
2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213: G_HAS_UTL_FILE_DIR := 'Y';
2214: G_UTL_FILE_DIR := l_utl_file_dir;

Line 2212: WHERE name = 'utl_file_dir';

2208: if G_HAS_UTL_FILE_DIR = 'N' then
2209: select value
2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213: G_HAS_UTL_FILE_DIR := 'Y';
2214: G_UTL_FILE_DIR := l_utl_file_dir;
2215: else
2216: l_utl_file_dir := G_UTL_FILE_DIR;

Line 2213: G_HAS_UTL_FILE_DIR := 'Y';

2209: select value
2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213: G_HAS_UTL_FILE_DIR := 'Y';
2214: G_UTL_FILE_DIR := l_utl_file_dir;
2215: else
2216: l_utl_file_dir := G_UTL_FILE_DIR;
2217: end if;

Line 2214: G_UTL_FILE_DIR := l_utl_file_dir;

2210: INTO l_utl_file_dir
2211: FROM v$parameter
2212: WHERE name = 'utl_file_dir';
2213: G_HAS_UTL_FILE_DIR := 'Y';
2214: G_UTL_FILE_DIR := l_utl_file_dir;
2215: else
2216: l_utl_file_dir := G_UTL_FILE_DIR;
2217: end if;
2218:

Line 2216: l_utl_file_dir := G_UTL_FILE_DIR;

2212: WHERE name = 'utl_file_dir';
2213: G_HAS_UTL_FILE_DIR := 'Y';
2214: G_UTL_FILE_DIR := l_utl_file_dir;
2215: else
2216: l_utl_file_dir := G_UTL_FILE_DIR;
2217: end if;
2218:
2219: l_found := INSTR(l_utl_file_dir, p_output_dir);
2220:

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

2215: else
2216: l_utl_file_dir := G_UTL_FILE_DIR;
2217: end if;
2218:
2219: l_found := INSTR(l_utl_file_dir, p_output_dir);
2220:
2221: IF l_found = 0
2222: THEN
2223: x_error_mesg := 'Debug Session could not be started because the ' ||

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

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

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

2232:
2233: --Changed to the *new* call of FOPEN, where we can pass
2234: --the MAXLINESIZE value. If we donot pass the default is
2235: --1023 chars. If we pass, the max value can be 32767 chars.
2236: Error_Handler.Debug_File := utl_file.fopen( p_output_dir
2237: , p_debug_filename
2238: , 'w'
2239: , 32767
2240: );

Line 2243: WHEN UTL_FILE.INVALID_PATH THEN

2239: , 32767
2240: );
2241:
2242: EXCEPTION
2243: WHEN UTL_FILE.INVALID_PATH THEN
2244: x_error_mesg := 'Error opening Debug file . . . ' || sqlerrm;
2245: x_return_status := FND_API.G_RET_STS_ERROR;
2246: Error_Handler.Set_Debug;
2247: END Open_Debug_Session;

Line 2261: l_utl_file_dir v$parameter.value%TYPE; --bug 16265816/16449758, fix ora-6502 error

2257: IS
2258: l_found NUMBER := 0;
2259: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type :=
2260: p_mesg_token_tbl;
2261: l_utl_file_dir v$parameter.value%TYPE; --bug 16265816/16449758, fix ora-6502 error
2262: BEGIN
2263:
2264: -- Enhancement
2265: -- If BO is called by Open interface don't call this code.

Line 2269: if G_HAS_UTL_FILE_DIR = 'N' then

2265: -- If BO is called by Open interface don't call this code.
2266: IF G_IS_BOM_OI then
2267: null;
2268: else
2269: if G_HAS_UTL_FILE_DIR = 'N' then
2270: select value
2271: INTO l_utl_file_dir
2272: FROM v$parameter
2273: WHERE name = 'utl_file_dir';

Line 2271: INTO l_utl_file_dir

2267: null;
2268: else
2269: if G_HAS_UTL_FILE_DIR = 'N' then
2270: select value
2271: INTO l_utl_file_dir
2272: FROM v$parameter
2273: WHERE name = 'utl_file_dir';
2274: G_HAS_UTL_FILE_DIR := 'Y';
2275: G_UTL_FILE_DIR := l_utl_file_dir;

Line 2273: WHERE name = 'utl_file_dir';

2269: if G_HAS_UTL_FILE_DIR = 'N' then
2270: select value
2271: INTO l_utl_file_dir
2272: FROM v$parameter
2273: WHERE name = 'utl_file_dir';
2274: G_HAS_UTL_FILE_DIR := 'Y';
2275: G_UTL_FILE_DIR := l_utl_file_dir;
2276: else
2277: l_utl_file_dir := G_UTL_FILE_DIR;

Line 2274: G_HAS_UTL_FILE_DIR := 'Y';

2270: select value
2271: INTO l_utl_file_dir
2272: FROM v$parameter
2273: WHERE name = 'utl_file_dir';
2274: G_HAS_UTL_FILE_DIR := 'Y';
2275: G_UTL_FILE_DIR := l_utl_file_dir;
2276: else
2277: l_utl_file_dir := G_UTL_FILE_DIR;
2278: end if;

Line 2275: G_UTL_FILE_DIR := l_utl_file_dir;

2271: INTO l_utl_file_dir
2272: FROM v$parameter
2273: WHERE name = 'utl_file_dir';
2274: G_HAS_UTL_FILE_DIR := 'Y';
2275: G_UTL_FILE_DIR := l_utl_file_dir;
2276: else
2277: l_utl_file_dir := G_UTL_FILE_DIR;
2278: end if;
2279:

Line 2277: l_utl_file_dir := G_UTL_FILE_DIR;

2273: WHERE name = 'utl_file_dir';
2274: G_HAS_UTL_FILE_DIR := 'Y';
2275: G_UTL_FILE_DIR := l_utl_file_dir;
2276: else
2277: l_utl_file_dir := G_UTL_FILE_DIR;
2278: end if;
2279:
2280: l_found := INSTR(l_utl_file_dir, p_output_dir);
2281:

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

2276: else
2277: l_utl_file_dir := G_UTL_FILE_DIR;
2278: end if;
2279:
2280: l_found := INSTR(l_utl_file_dir, p_output_dir);
2281:
2282: IF l_found = 0
2283: THEN
2284: Error_Handler.Add_Error_Token

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

2286: , p_message_text =>
2287: ' Debug Session could not be started because the ' ||
2288: ' output directory name is invalid. ' ||
2289: ' Output directory must be one of the directory ' ||
2290: ' value in v$parameter for name = utl_file_dir ' ||
2291: ' If unsure leave out the value and the log will '||
2292: ' be written to /sqlcom/log '
2293: , x_mesg_token_tbl => l_mesg_token_tbl
2294: );

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

2295: x_return_status := FND_API.G_RET_STS_ERROR;
2296: x_mesg_token_tbl := l_mesg_token_tbl;
2297: RETURN;
2298: END IF;
2299: Error_Handler.Debug_File := utl_file.fopen( p_output_dir
2300: , p_debug_filename
2301: , 'w');
2302: end if;
2303: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2306: WHEN UTL_FILE.INVALID_PATH THEN

2302: end if;
2303: x_return_status := FND_API.G_RET_STS_SUCCESS;
2304:
2305: EXCEPTION
2306: WHEN UTL_FILE.INVALID_PATH THEN
2307: Error_Handler.Add_Error_Token
2308: ( p_message_name => NULL
2309: , p_message_text => 'Error opening Debug file . . . ' || sqlerrm
2310: , x_mesg_token_tbl => l_mesg_token_tbl

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

2325: buff => p_debug_message );
2326: Fnd_File.New_Line ( which => Fnd_File.LOG );
2327: END IF;
2328: ELSE
2329: utl_file.put_line(Error_Handler.Debug_File,p_debug_message);
2330: END IF;
2331:
2332: END IF;
2333: END Write_Debug;

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

2342: IF G_IS_BOM_OI THEN
2343: null;
2344: ELSE
2345: IF Error_Handler.Get_Debug = 'Y' THEN
2346: utl_file.fclose(Error_Handler.Debug_File);
2347: Error_Handler.Set_Debug;
2348: END IF;
2349: END IF;
2350: