APPS.GME_DEBUG dependencies on UTL_FILE

Line 48: LOG UTL_FILE.file_type;

44: p_file_name IN VARCHAR2 DEFAULT '0'
45: ,p_override IN NUMBER DEFAULT 0)
46: IS
47: l_location VARCHAR2 (500);
48: LOG UTL_FILE.file_type;
49: l_api_name CONSTANT VARCHAR2 (30) := 'log_initialize';
50:
51: CURSOR c_get_1st_location
52: IS

Line 55: WHERE NAME = 'utl_file_dir';

51: CURSOR c_get_1st_location
52: IS
53: SELECT NVL (SUBSTRB (VALUE, 1, INSTR (VALUE, ',') - 1), VALUE)
54: FROM v$parameter
55: WHERE NAME = 'utl_file_dir';
56: BEGIN
57: IF g_debug = -1 THEN
58: g_log_mode := 'OFF';
59: ELSE

Line 85: UTL_FILE.fopen (g_log_location

81:
82: CLOSE c_get_1st_location;
83:
84: LOG :=
85: UTL_FILE.fopen (g_log_location
86: , g_log_username || p_file_name
87: ,'w'
88: ,32767);
89: UTL_FILE.put_line (LOG

Line 89: UTL_FILE.put_line (LOG

85: UTL_FILE.fopen (g_log_location
86: , g_log_username || p_file_name
87: ,'w'
88: ,32767);
89: UTL_FILE.put_line (LOG
90: , 'Log file opened at '
91: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
92: || ' With log mode: '
93: || g_log_mode);

Line 94: UTL_FILE.fflush (LOG);

90: , 'Log file opened at '
91: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
92: || ' With log mode: '
93: || g_log_mode);
94: UTL_FILE.fflush (LOG);
95: UTL_FILE.fclose (LOG);
96: g_file_name := p_file_name;
97: END IF;
98: EXCEPTION

Line 95: UTL_FILE.fclose (LOG);

91: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
92: || ' With log mode: '
93: || g_log_mode);
94: UTL_FILE.fflush (LOG);
95: UTL_FILE.fclose (LOG);
96: g_file_name := p_file_name;
97: END IF;
98: EXCEPTION
99: WHEN OTHERS THEN

Line 126: LOG UTL_FILE.file_type;

122: p_msg IN VARCHAR2
123: ,p_priority IN NUMBER DEFAULT 100
124: ,p_file_name IN VARCHAR2 DEFAULT '0')
125: IS
126: LOG UTL_FILE.file_type;
127: l_file_name VARCHAR2 (50);
128: l_api_name CONSTANT VARCHAR2 (30) := 'PUT_LINE';
129:
130: CURSOR c_get_1st_location

Line 134: WHERE NAME = 'utl_file_dir';

130: CURSOR c_get_1st_location
131: IS
132: SELECT NVL (SUBSTR (VALUE, 1, INSTR (VALUE, ',') - 1), VALUE)
133: FROM v$parameter
134: WHERE NAME = 'utl_file_dir';
135: BEGIN
136: IF ( (g_log_mode <> 'OFF') AND (NVL (p_priority, 100) >= g_debug) ) THEN
137: IF g_log_mode = 'LOG' THEN
138: IF p_file_name = '0' THEN

Line 145: UTL_FILE.fopen (g_log_location

141: l_file_name := p_file_name;
142: END IF;
143:
144: LOG :=
145: UTL_FILE.fopen (g_log_location
146: , g_log_username || l_file_name
147: ,'a'
148: ,32767);
149: UTL_FILE.put_line (LOG, p_msg);

Line 149: UTL_FILE.put_line (LOG, p_msg);

145: UTL_FILE.fopen (g_log_location
146: , g_log_username || l_file_name
147: ,'a'
148: ,32767);
149: UTL_FILE.put_line (LOG, p_msg);
150: UTL_FILE.fflush (LOG);
151: UTL_FILE.fclose (LOG);
152: ELSIF (g_log_mode = 'SQL') THEN
153: -- SQL*Plus session: uncomment the next line during unit test

Line 150: UTL_FILE.fflush (LOG);

146: , g_log_username || l_file_name
147: ,'a'
148: ,32767);
149: UTL_FILE.put_line (LOG, p_msg);
150: UTL_FILE.fflush (LOG);
151: UTL_FILE.fclose (LOG);
152: ELSIF (g_log_mode = 'SQL') THEN
153: -- SQL*Plus session: uncomment the next line during unit test
154: --DBMS_OUTPUT.put_line(p_msg);

Line 151: UTL_FILE.fclose (LOG);

147: ,'a'
148: ,32767);
149: UTL_FILE.put_line (LOG, p_msg);
150: UTL_FILE.fflush (LOG);
151: UTL_FILE.fclose (LOG);
152: ELSIF (g_log_mode = 'SQL') THEN
153: -- SQL*Plus session: uncomment the next line during unit test
154: --DBMS_OUTPUT.put_line(p_msg);
155: NULL;