APPS.GME_DEBUG dependencies on UTL_FILE

Line 49: LOG UTL_FILE.file_type;

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

Line 56: WHERE NAME = 'utl_file_dir';

52: CURSOR c_get_1st_location
53: IS
54: SELECT NVL (SUBSTRB (VALUE, 1, INSTR (VALUE, ',') - 1), VALUE)
55: FROM v$parameter
56: WHERE NAME = 'utl_file_dir';
57: BEGIN
58: -- Bug 6789809
59: -- Set debug log mode to off and do not proceed with initialize if
60: -- FND Debug log enabled is set to No.

Line 94: UTL_FILE.fopen (g_log_location

90:
91: CLOSE c_get_1st_location;
92:
93: LOG :=
94: UTL_FILE.fopen (g_log_location
95: , g_log_username || p_file_name
96: ,'w'
97: ,32767);
98: UTL_FILE.put_line (LOG

Line 98: UTL_FILE.put_line (LOG

94: UTL_FILE.fopen (g_log_location
95: , g_log_username || p_file_name
96: ,'w'
97: ,32767);
98: UTL_FILE.put_line (LOG
99: , 'Log file opened at '
100: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
101: || ' With log mode: '
102: || g_log_mode);

Line 103: UTL_FILE.fflush (LOG);

99: , 'Log file opened at '
100: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
101: || ' With log mode: '
102: || g_log_mode);
103: UTL_FILE.fflush (LOG);
104: UTL_FILE.fclose (LOG);
105: g_file_name := p_file_name;
106: END IF;
107: END IF;

Line 104: UTL_FILE.fclose (LOG);

100: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
101: || ' With log mode: '
102: || g_log_mode);
103: UTL_FILE.fflush (LOG);
104: UTL_FILE.fclose (LOG);
105: g_file_name := p_file_name;
106: END IF;
107: END IF;
108: EXCEPTION

Line 136: LOG UTL_FILE.file_type;

132: p_msg IN VARCHAR2
133: ,p_priority IN NUMBER DEFAULT 100
134: ,p_file_name IN VARCHAR2 DEFAULT '0')
135: IS
136: LOG UTL_FILE.file_type;
137: l_file_name VARCHAR2 (50);
138: l_api_name CONSTANT VARCHAR2 (30) := 'PUT_LINE';
139:
140: CURSOR c_get_1st_location

Line 144: WHERE NAME = 'utl_file_dir';

140: CURSOR c_get_1st_location
141: IS
142: SELECT NVL (SUBSTR (VALUE, 1, INSTR (VALUE, ',') - 1), VALUE)
143: FROM v$parameter
144: WHERE NAME = 'utl_file_dir';
145: BEGIN
146: IF ( (g_log_mode <> 'OFF') AND (NVL (p_priority, 100) >= g_debug) ) THEN
147: IF g_log_mode = 'LOG' THEN
148: IF p_file_name = '0' THEN

Line 155: UTL_FILE.fopen (g_log_location

151: l_file_name := p_file_name;
152: END IF;
153:
154: LOG :=
155: UTL_FILE.fopen (g_log_location
156: , g_log_username || l_file_name
157: ,'a'
158: ,32767);
159: UTL_FILE.put_line (LOG, p_msg);

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

155: UTL_FILE.fopen (g_log_location
156: , g_log_username || l_file_name
157: ,'a'
158: ,32767);
159: UTL_FILE.put_line (LOG, p_msg);
160: UTL_FILE.fflush (LOG);
161: UTL_FILE.fclose (LOG);
162: ELSIF (g_log_mode = 'SQL') THEN
163: -- SQL*Plus session: uncomment the next line during unit test

Line 160: UTL_FILE.fflush (LOG);

156: , g_log_username || l_file_name
157: ,'a'
158: ,32767);
159: UTL_FILE.put_line (LOG, p_msg);
160: UTL_FILE.fflush (LOG);
161: UTL_FILE.fclose (LOG);
162: ELSIF (g_log_mode = 'SQL') THEN
163: -- SQL*Plus session: uncomment the next line during unit test
164: --DBMS_OUTPUT.put_line(p_msg);

Line 161: UTL_FILE.fclose (LOG);

157: ,'a'
158: ,32767);
159: UTL_FILE.put_line (LOG, p_msg);
160: UTL_FILE.fflush (LOG);
161: UTL_FILE.fclose (LOG);
162: ELSIF (g_log_mode = 'SQL') THEN
163: -- SQL*Plus session: uncomment the next line during unit test
164: --DBMS_OUTPUT.put_line(p_msg);
165: NULL;