APPS.BIS_DEBUG_PUB dependencies on UTL_FILE

Line 15: from v$PARAMETER where name = 'utl_file_dir';

11:
12: if G_DIR is null then
13: select value
14: INTO G_DIR
15: from v$PARAMETER where name = 'utl_file_dir';
16: if instr(G_DIR,',') > 0 then
17: G_DIR := substr(G_DIR,1,instr(G_DIR,',')-1);
18: end if;
19: END IF;

Line 26: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'w');

22: select substr('l'|| substr(to_char(sysdate,'MI'),1,1)
23: || lpad(BIS_debug_s.nextval,6,'0'),1,8) || '.BIS'
24: into G_FILE
25: from dual;
26: G_FILE_PTR := utl_file.fopen(G_DIR, G_FILE, 'w');
27: end if;
28: rtn_val := G_DIR || '/' || g_file;
29: else
30: G_DEBUG_MODE := 'TABLE';

Line 106: utl_file.put_line(G_FILE_PTR, debug_msg);

102: G_Debug_count := G_debug_count + 1;
103: -- Write Debug.
104: G_Debug_tbl(G_debug_count) := substr(debug_msg,1,G_DEBUG_LEN);
105: else -- debug mode
106: utl_file.put_line(G_FILE_PTR, debug_msg);
107: utl_file.fflush(G_FILE_PTR);
108: end if;
109: end if; -- debug_msg is not null
110: end if; -- debug on

Line 107: utl_file.fflush(G_FILE_PTR);

103: -- Write Debug.
104: G_Debug_tbl(G_debug_count) := substr(debug_msg,1,G_DEBUG_LEN);
105: else -- debug mode
106: utl_file.put_line(G_FILE_PTR, debug_msg);
107: utl_file.fflush(G_FILE_PTR);
108: end if;
109: end if; -- debug_msg is not null
110: end if; -- debug on
111: end if;-- debug level is big enough