APPS.ECX_CLN_DEBUG_PUB dependencies on UTL_FILE

Line 14: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'a');

10: if G_FILE is null then
11: select substr('cln-' || to_char(sysdate,'dd-mon-yyyy') || '-' || lpad(cln_debug_s.nextval,6,'0'),1,22) || '.dbg'
12: into G_FILE
13: from dual;
14: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'a');
15: end if;
16: rtn_val := G_DIR || '/' || g_file;
17: elsif P_MODE = 'CONC' then
18: G_DEBUG_MODE := 'CONC';

Line 115: utl_file.put_line(G_FILE_PTR, p_debug_msg);

111: Write to concurrent pgm output file and debug log file */
112: l_debug_msg := substr(replace(to_char(sysdate,'dd-mon-yyyy hh24:mi:ss')||':'||p_debug_level||': '||p_debug_msg,l_g_miss_char,l_replace),1,2000);
113: FND_FILE.put_line(FND_FILE.LOG, l_debug_msg);
114: if G_FILE is not null then
115: utl_file.put_line(G_FILE_PTR, p_debug_msg);
116: utl_file.fflush(G_FILE_PTR);
117: end if;
118: else -- debug mode is FILE
119: l_debug_msg := substr(replace(to_char(sysdate,'dd-mon-yyyy hh24:mi:ss')||':'||p_debug_level||': '||p_debug_msg,l_g_miss_char,l_replace),1,2000);

Line 116: utl_file.fflush(G_FILE_PTR);

112: l_debug_msg := substr(replace(to_char(sysdate,'dd-mon-yyyy hh24:mi:ss')||':'||p_debug_level||': '||p_debug_msg,l_g_miss_char,l_replace),1,2000);
113: FND_FILE.put_line(FND_FILE.LOG, l_debug_msg);
114: if G_FILE is not null then
115: utl_file.put_line(G_FILE_PTR, p_debug_msg);
116: utl_file.fflush(G_FILE_PTR);
117: end if;
118: else -- debug mode is FILE
119: l_debug_msg := substr(replace(to_char(sysdate,'dd-mon-yyyy hh24:mi:ss')||':'||p_debug_level||': '||p_debug_msg,l_g_miss_char,l_replace),1,2000);
120: IF G_FILE is null THEN

Line 123: utl_file.put_line(G_FILE_PTR, l_debug_msg);

119: l_debug_msg := substr(replace(to_char(sysdate,'dd-mon-yyyy hh24:mi:ss')||':'||p_debug_level||': '||p_debug_msg,l_g_miss_char,l_replace),1,2000);
120: IF G_FILE is null THEN
121: l_file :=ecx_cln_debug_pub.Set_Debug_Mode('FILE');
122: END IF;
123: utl_file.put_line(G_FILE_PTR, l_debug_msg);
124: utl_file.fflush(G_FILE_PTR);
125: end if;
126: end if; -- p_debug_msg is not null
127: --end if; -- debug on

Line 124: utl_file.fflush(G_FILE_PTR);

120: IF G_FILE is null THEN
121: l_file :=ecx_cln_debug_pub.Set_Debug_Mode('FILE');
122: END IF;
123: utl_file.put_line(G_FILE_PTR, l_debug_msg);
124: utl_file.fflush(G_FILE_PTR);
125: end if;
126: end if; -- p_debug_msg is not null
127: --end if; -- debug on
128: end if;-- debug level is big enough