48: g_log_row := g_log_row + 1;
49: if (g_log_file_name is null) then
50: select ltrim(rtrim(value))
51: into g_log_file_dir
52: from (select value from v$parameter2 where name='utl_file_dir'
53: order by rownum desc)
54: where rownum <2;
55: g_log_file_name := 'msc-phub.txt';
56: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
52: from (select value from v$parameter2 where name='utl_file_dir'
53: order by rownum desc)
54: where rownum <2;
55: g_log_file_name := 'msc-phub.txt';
56: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
57: end if;
58:
59: if (utl_file.is_open(g_log_file_handle)) then
60: utl_file.put_line(g_log_file_handle, p_msg);
55: g_log_file_name := 'msc-phub.txt';
56: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
57: end if;
58:
59: if (utl_file.is_open(g_log_file_handle)) then
60: utl_file.put_line(g_log_file_handle, p_msg);
61: utl_file.fflush(g_log_file_handle);
62: utl_file.fclose(g_log_file_handle);
63: else
56: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'w');
57: end if;
58:
59: if (utl_file.is_open(g_log_file_handle)) then
60: utl_file.put_line(g_log_file_handle, p_msg);
61: utl_file.fflush(g_log_file_handle);
62: utl_file.fclose(g_log_file_handle);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
57: end if;
58:
59: if (utl_file.is_open(g_log_file_handle)) then
60: utl_file.put_line(g_log_file_handle, p_msg);
61: utl_file.fflush(g_log_file_handle);
62: utl_file.fclose(g_log_file_handle);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
65: utl_file.put_line(g_log_file_handle, p_msg);
58:
59: if (utl_file.is_open(g_log_file_handle)) then
60: utl_file.put_line(g_log_file_handle, p_msg);
61: utl_file.fflush(g_log_file_handle);
62: utl_file.fclose(g_log_file_handle);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
65: utl_file.put_line(g_log_file_handle, p_msg);
66: utl_file.fflush(g_log_file_handle);
60: utl_file.put_line(g_log_file_handle, p_msg);
61: utl_file.fflush(g_log_file_handle);
62: utl_file.fclose(g_log_file_handle);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
65: utl_file.put_line(g_log_file_handle, p_msg);
66: utl_file.fflush(g_log_file_handle);
67: utl_file.fclose(g_log_file_handle);
68: end if;
61: utl_file.fflush(g_log_file_handle);
62: utl_file.fclose(g_log_file_handle);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
65: utl_file.put_line(g_log_file_handle, p_msg);
66: utl_file.fflush(g_log_file_handle);
67: utl_file.fclose(g_log_file_handle);
68: end if;
69: elsif ( g_log_flag = 2 ) then
62: utl_file.fclose(g_log_file_handle);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
65: utl_file.put_line(g_log_file_handle, p_msg);
66: utl_file.fflush(g_log_file_handle);
67: utl_file.fclose(g_log_file_handle);
68: end if;
69: elsif ( g_log_flag = 2 ) then
70: fnd_file.put_line(fnd_file.log, p_msg);
63: else
64: g_log_file_handle := utl_file.fopen(g_log_file_dir, g_log_file_name, 'a');
65: utl_file.put_line(g_log_file_handle, p_msg);
66: utl_file.fflush(g_log_file_handle);
67: utl_file.fclose(g_log_file_handle);
68: end if;
69: elsif ( g_log_flag = 2 ) then
70: fnd_file.put_line(fnd_file.log, p_msg);
71: end if;