18: if l_dir is null then
19: l_dir:='/sqlcom/log';
20: end if;
21: end if;
22: FND_FILE.PUT_NAMES(p_log_file,p_out_file,l_dir);
23:
24: --if fnd_profile.value('EDW_DEBUG')='Y' or
25: -- FND_LOG.G_CURRENT_RUNTIME_LEVEL=FND_LOG.LEVEL_STATEMENT
26: if FND_LOG.TEST( FND_LOG.LEVEL_STATEMENT , g_module ) then
47: End;
48:
49: Procedure close is
50: Begin
51: FND_FILE.close;
52: Exception when others then
53: raise;
54: End;
55:
145: if l_end >= l_len then
146: l_end:=l_len;
147: last_reached:=true;
148: end if;
149: FND_FILE.PUT_LINE(FND_FILE.LOG,substr(p_text,l_start,250));
150:
151: if p_severity >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
152: then
153: FND_LOG.STRING( p_severity, g_module, substr(p_text,l_start,250));
191: if l_end >= l_len then
192: l_end:=l_len;
193: last_reached:=true;
194: end if;
195: FND_FILE.PUT(FND_FILE.LOG,substr(p_text,l_start,250));
196:
197: if p_severity >= FND_LOG.G_CURRENT_RUNTIME_LEVEL then
198: FND_LOG.STRING( p_severity, g_module, substr(p_text,l_start,250));
199: end if;
276: if l_end >= l_len then
277: l_end:=l_len;
278: last_reached:=true;
279: end if;
280: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,substr(p_text,l_start,250));
281: l_start:=l_start+250;
282: if last_reached then
283: exit;
284: end if;