1861:
1862: CURSOR get_log_file_location IS
1863: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
1864: FROM v$parameter
1865: WHERE name = 'utl_file_dir';
1866:
1867: l_api_name CONSTANT VARCHAR2 (30) := 'PrintLn';
1868: l_location VARCHAR2(255);
1869: l_log UTL_FILE.file_type;
1865: WHERE name = 'utl_file_dir';
1866:
1867: l_api_name CONSTANT VARCHAR2 (30) := 'PrintLn';
1868: l_location VARCHAR2(255);
1869: l_log UTL_FILE.file_type;
1870: l_debug_level VARCHAR2(240) := fnd_profile.value ('ONT_DEBUG_LEVEL');
1871: l_time VARCHAR2(10);
1872: l_file_name VARCHAR2(80);
1873:
1900: OPEN get_log_file_location;
1901: FETCH get_log_file_location into l_location;
1902: CLOSE get_log_file_location;
1903:
1904: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1905: IF UTL_FILE.IS_OPEN(l_log) THEN
1906: UTL_FILE.put_line(l_log, p_msg);
1907: UTL_FILE.fflush(l_log);
1908: UTL_FILE.fclose(l_log);
1901: FETCH get_log_file_location into l_location;
1902: CLOSE get_log_file_location;
1903:
1904: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1905: IF UTL_FILE.IS_OPEN(l_log) THEN
1906: UTL_FILE.put_line(l_log, p_msg);
1907: UTL_FILE.fflush(l_log);
1908: UTL_FILE.fclose(l_log);
1909: END IF;
1902: CLOSE get_log_file_location;
1903:
1904: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1905: IF UTL_FILE.IS_OPEN(l_log) THEN
1906: UTL_FILE.put_line(l_log, p_msg);
1907: UTL_FILE.fflush(l_log);
1908: UTL_FILE.fclose(l_log);
1909: END IF;
1910:
1903:
1904: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1905: IF UTL_FILE.IS_OPEN(l_log) THEN
1906: UTL_FILE.put_line(l_log, p_msg);
1907: UTL_FILE.fflush(l_log);
1908: UTL_FILE.fclose(l_log);
1909: END IF;
1910:
1911: IF (p_file_name <> '0') THEN
1904: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1905: IF UTL_FILE.IS_OPEN(l_log) THEN
1906: UTL_FILE.put_line(l_log, p_msg);
1907: UTL_FILE.fflush(l_log);
1908: UTL_FILE.fclose(l_log);
1909: END IF;
1910:
1911: IF (p_file_name <> '0') THEN
1912: l_file_name := p_file_name||FND_GLOBAL.user_id;
1914: OPEN get_log_file_location;
1915: FETCH get_log_file_location into l_location;
1916: CLOSE get_log_file_location;
1917:
1918: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1919: IF UTL_FILE.IS_OPEN(l_log) THEN
1920: UTL_FILE.put_line(l_log, p_msg);
1921: UTL_FILE.fflush(l_log);
1922: UTL_FILE.fclose(l_log);
1915: FETCH get_log_file_location into l_location;
1916: CLOSE get_log_file_location;
1917:
1918: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1919: IF UTL_FILE.IS_OPEN(l_log) THEN
1920: UTL_FILE.put_line(l_log, p_msg);
1921: UTL_FILE.fflush(l_log);
1922: UTL_FILE.fclose(l_log);
1923: END IF;
1916: CLOSE get_log_file_location;
1917:
1918: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1919: IF UTL_FILE.IS_OPEN(l_log) THEN
1920: UTL_FILE.put_line(l_log, p_msg);
1921: UTL_FILE.fflush(l_log);
1922: UTL_FILE.fclose(l_log);
1923: END IF;
1924: END IF;
1917:
1918: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1919: IF UTL_FILE.IS_OPEN(l_log) THEN
1920: UTL_FILE.put_line(l_log, p_msg);
1921: UTL_FILE.fflush(l_log);
1922: UTL_FILE.fclose(l_log);
1923: END IF;
1924: END IF;
1925:
1918: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1919: IF UTL_FILE.IS_OPEN(l_log) THEN
1920: UTL_FILE.put_line(l_log, p_msg);
1921: UTL_FILE.fflush(l_log);
1922: UTL_FILE.fclose(l_log);
1923: END IF;
1924: END IF;
1925:
1926: END IF;