APPS.EAM_ERROR_MESSAGE_PVT dependencies on UTL_FILE

Line 1899: * utl_file.

1895: /*********************************************************************
1896: * Function : Dump_Message_List
1897: * Parameters : None
1898: * Purpose : Will generate a dump of the message list using
1899: * utl_file.
1900: **********************************************************************/
1901: PROCEDURE Dump_Message_List
1902: IS
1903: l_idx NUMBER;

Line 1932: l_utl_file_dir VARCHAR2(2000);

1928: IS
1929: l_found NUMBER := 0;
1930: l_mesg_token_tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type :=
1931: p_mesg_token_tbl;
1932: l_utl_file_dir VARCHAR2(2000);
1933: l_debug_file_mode VARCHAR2(1) := p_debug_file_mode;
1934: BEGIN
1935: IF(p_output_dir IS NULL) THEN
1936: EAM_ERROR_MESSAGE_PVT.Add_Error_Token

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

1938: , p_message_text =>
1939: ' Debug Session could not be started because the ' ||
1940: ' output directory name is invalid. ' ||
1941: ' Output directory must be one of the directory ' ||
1942: ' value in v$parameter for name = utl_file_dir ' ||
1943: ' If unsure leave out the value and the log will '||
1944: ' be written to /sqlcom/log '
1945: , x_mesg_token_tbl => l_mesg_token_tbl
1946: );

Line 1953: INTO l_utl_file_dir

1949: RETURN;
1950: END IF;
1951:
1952: select value
1953: INTO l_utl_file_dir
1954: FROM v$parameter
1955: WHERE name = 'utl_file_dir';
1956:
1957: l_found := INSTR(l_utl_file_dir, p_output_dir);

Line 1955: WHERE name = 'utl_file_dir';

1951:
1952: select value
1953: INTO l_utl_file_dir
1954: FROM v$parameter
1955: WHERE name = 'utl_file_dir';
1956:
1957: l_found := INSTR(l_utl_file_dir, p_output_dir);
1958:
1959: IF l_found = 0

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

1953: INTO l_utl_file_dir
1954: FROM v$parameter
1955: WHERE name = 'utl_file_dir';
1956:
1957: l_found := INSTR(l_utl_file_dir, p_output_dir);
1958:
1959: IF l_found = 0
1960: THEN
1961: EAM_ERROR_MESSAGE_PVT.Add_Error_Token

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

1963: , p_message_text =>
1964: ' Debug Session could not be started because the ' ||
1965: ' output directory name is invalid. ' ||
1966: ' Output directory must be one of the directory ' ||
1967: ' value in v$parameter for name = utl_file_dir ' ||
1968: ' If unsure leave out the value and the log will '||
1969: ' be written to /sqlcom/log '
1970: , x_mesg_token_tbl => l_mesg_token_tbl
1971: );

Line 1984: EAM_ERROR_MESSAGE_PVT.Debug_File := utl_file.fopen( p_output_dir

1980: l_debug_file_mode <> 'A' then
1981: l_debug_file_mode := 'w';
1982: end if;
1983:
1984: EAM_ERROR_MESSAGE_PVT.Debug_File := utl_file.fopen( p_output_dir
1985: , p_debug_filename
1986: , p_debug_file_mode);
1987:
1988: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1991: WHEN UTL_FILE.INVALID_PATH THEN

1987:
1988: x_return_status := FND_API.G_RET_STS_SUCCESS;
1989:
1990: EXCEPTION
1991: WHEN UTL_FILE.INVALID_PATH THEN
1992: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1993: ( p_message_name => NULL
1994: , p_message_text => 'Error opening Debug file . . . ' || sqlerrm
1995: , x_mesg_token_tbl => l_mesg_token_tbl

Line 2007: utl_file.put_line(EAM_ERROR_MESSAGE_PVT.Debug_File, p_debug_message);

2003: IS
2004: BEGIN
2005: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
2006: THEN
2007: utl_file.put_line(EAM_ERROR_MESSAGE_PVT.Debug_File, p_debug_message);
2008:
2009: END IF;
2010: END Write_Debug;
2011:

Line 2017: utl_file.fclose(EAM_ERROR_MESSAGE_PVT.Debug_File);

2013: IS
2014: BEGIN
2015: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y'
2016: THEN
2017: utl_file.fclose(EAM_ERROR_MESSAGE_PVT.Debug_File);
2018: -- set debug to NO once debug session is closed
2019: EAM_PROCESS_WO_PVT.Set_Debug('N');
2020: END IF;
2021: END Close_Debug_Session;