APPS.AHL_EAM_JOB_PVT dependencies on UTL_FILE

Line 17: fileHandler UTL_FILE.FILE_TYPE;

13: l_full_path VARCHAR2(512);
14: l_new_full_path VARCHAR2(512);
15: l_file_dir VARCHAR2(512);
16:
17: fileHandler UTL_FILE.FILE_TYPE;
18: fileName VARCHAR2(50);
19:
20: l_flag NUMBER;
21: BEGIN

Line 29: WHERE name = 'utl_file_dir';

25: /* get output directory path from database */
26: SELECT value
27: INTO l_full_path
28: FROM v$parameter
29: WHERE name = 'utl_file_dir';
30:
31: l_flag := 0;
32: --l_full_path contains a list of comma-separated directories
33: WHILE(TRUE)

Line 47: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');

43: FROM dual;
44:
45: -- check if the dir is valid
46: BEGIN
47: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');
48: l_flag := 1;
49: EXCEPTION
50: WHEN utl_file.invalid_path THEN
51: l_flag := 0;

Line 50: WHEN utl_file.invalid_path THEN

46: BEGIN
47: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');
48: l_flag := 1;
49: EXCEPTION
50: WHEN utl_file.invalid_path THEN
51: l_flag := 0;
52: WHEN utl_file.invalid_operation THEN
53: l_flag := 0;
54: END;

Line 52: WHEN utl_file.invalid_operation THEN

48: l_flag := 1;
49: EXCEPTION
50: WHEN utl_file.invalid_path THEN
51: l_flag := 0;
52: WHEN utl_file.invalid_operation THEN
53: l_flag := 0;
54: END;
55:
56: IF l_flag = 1 THEN --got a valid directory

Line 57: utl_file.fclose(fileHandler);

53: l_flag := 0;
54: END;
55:
56: IF l_flag = 1 THEN --got a valid directory
57: utl_file.fclose(fileHandler);
58: EXIT;
59: END IF;
60:
61: --earlier found dir was not a valid dir,

Line 103: -- WHERE NAME = 'utl_file_dir';

99:
100: -- SELECT trim(substr(VALUE, 1, DECODE( instr( VALUE, ','), 0, length( VALUE), instr( VALUE, ',') -1 ) ) )
101: -- INTO x_output_dir
102: -- FROM V$PARAMETER
103: -- WHERE NAME = 'utl_file_dir';
104: --Call log path
105: log_path( x_output_dir => l_output_dir);
106: --
107: x_output_dir := l_output_dir;