1857:
1858: CURSOR get_log_file_location IS
1859: SELECT NVL( SUBSTR( value, 1, instr( value, ',')-1), value)
1860: FROM v$parameter
1861: WHERE name = 'utl_file_dir';
1862:
1863: l_api_name CONSTANT VARCHAR2 (30) := 'PrintLn';
1864: l_location VARCHAR2(255);
1865: l_log UTL_FILE.file_type;
1861: WHERE name = 'utl_file_dir';
1862:
1863: l_api_name CONSTANT VARCHAR2 (30) := 'PrintLn';
1864: l_location VARCHAR2(255);
1865: l_log UTL_FILE.file_type;
1866: l_debug_level VARCHAR2(240) := fnd_profile.value ('ONT_DEBUG_LEVEL');
1867: l_time VARCHAR2(10);
1868: l_file_name VARCHAR2(80);
1869:
1890: OPEN get_log_file_location;
1891: FETCH get_log_file_location into l_location;
1892: CLOSE get_log_file_location;
1893:
1894: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1895: IF UTL_FILE.IS_OPEN(l_log) THEN
1896: UTL_FILE.put_line(l_log, p_msg);
1897: UTL_FILE.fflush(l_log);
1898: UTL_FILE.fclose(l_log);
1891: FETCH get_log_file_location into l_location;
1892: CLOSE get_log_file_location;
1893:
1894: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1895: IF UTL_FILE.IS_OPEN(l_log) THEN
1896: UTL_FILE.put_line(l_log, p_msg);
1897: UTL_FILE.fflush(l_log);
1898: UTL_FILE.fclose(l_log);
1899: END IF;
1892: CLOSE get_log_file_location;
1893:
1894: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1895: IF UTL_FILE.IS_OPEN(l_log) THEN
1896: UTL_FILE.put_line(l_log, p_msg);
1897: UTL_FILE.fflush(l_log);
1898: UTL_FILE.fclose(l_log);
1899: END IF;
1900:
1893:
1894: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1895: IF UTL_FILE.IS_OPEN(l_log) THEN
1896: UTL_FILE.put_line(l_log, p_msg);
1897: UTL_FILE.fflush(l_log);
1898: UTL_FILE.fclose(l_log);
1899: END IF;
1900:
1901: IF (p_file_name <> '0') THEN
1894: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1895: IF UTL_FILE.IS_OPEN(l_log) THEN
1896: UTL_FILE.put_line(l_log, p_msg);
1897: UTL_FILE.fflush(l_log);
1898: UTL_FILE.fclose(l_log);
1899: END IF;
1900:
1901: IF (p_file_name <> '0') THEN
1902: l_file_name := p_file_name||FND_GLOBAL.user_id;
1904: OPEN get_log_file_location;
1905: FETCH get_log_file_location into l_location;
1906: CLOSE get_log_file_location;
1907:
1908: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1909: IF UTL_FILE.IS_OPEN(l_log) THEN
1910: UTL_FILE.put_line(l_log, p_msg);
1911: UTL_FILE.fflush(l_log);
1912: UTL_FILE.fclose(l_log);
1905: FETCH get_log_file_location into l_location;
1906: CLOSE get_log_file_location;
1907:
1908: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1909: IF UTL_FILE.IS_OPEN(l_log) THEN
1910: UTL_FILE.put_line(l_log, p_msg);
1911: UTL_FILE.fflush(l_log);
1912: UTL_FILE.fclose(l_log);
1913: END IF;
1906: CLOSE get_log_file_location;
1907:
1908: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1909: IF UTL_FILE.IS_OPEN(l_log) THEN
1910: UTL_FILE.put_line(l_log, p_msg);
1911: UTL_FILE.fflush(l_log);
1912: UTL_FILE.fclose(l_log);
1913: END IF;
1914: END IF;
1907:
1908: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1909: IF UTL_FILE.IS_OPEN(l_log) THEN
1910: UTL_FILE.put_line(l_log, p_msg);
1911: UTL_FILE.fflush(l_log);
1912: UTL_FILE.fclose(l_log);
1913: END IF;
1914: END IF;
1915:
1908: l_log := UTL_FILE.fopen(l_location, l_file_name, 'a');
1909: IF UTL_FILE.IS_OPEN(l_log) THEN
1910: UTL_FILE.put_line(l_log, p_msg);
1911: UTL_FILE.fflush(l_log);
1912: UTL_FILE.fclose(l_log);
1913: END IF;
1914: END IF;
1915:
1916: END IF;