1: PACKAGE BODY FTE_FREIGHT_PRICING_UTIL AS
2: /* $Header: FTEFRUTB.pls 120.2 2005/10/25 14:52:41 susurend noship $ */
3:
4: -- package global variables
5: g_utl_file_name VARCHAR2(255);
6: g_utl_file_dir VARCHAR2(255);
7: g_file_ptr utl_file.file_type;
8: g_log_level NUMBER := G_LOG;
9: g_msg_count NUMBER := 0; -- this variable keeps track of how many messages we added to the
2: /* $Header: FTEFRUTB.pls 120.2 2005/10/25 14:52:41 susurend noship $ */
3:
4: -- package global variables
5: g_utl_file_name VARCHAR2(255);
6: g_utl_file_dir VARCHAR2(255);
7: g_file_ptr utl_file.file_type;
8: g_log_level NUMBER := G_LOG;
9: g_msg_count NUMBER := 0; -- this variable keeps track of how many messages we added to the
10: -- fnd message stack
3:
4: -- package global variables
5: g_utl_file_name VARCHAR2(255);
6: g_utl_file_dir VARCHAR2(255);
7: g_file_ptr utl_file.file_type;
8: g_log_level NUMBER := G_LOG;
9: g_msg_count NUMBER := 0; -- this variable keeps track of how many messages we added to the
10: -- fnd message stack
11:
123: END;
124:
125: PROCEDURE printf(p_msg IN VARCHAR2) IS
126: BEGIN
127: IF (utl_file.is_open(g_file_ptr)) THEN
128: utl_file.put_line(g_file_ptr,p_msg);
129: --utl_file.put_line(g_file_ptr,'
130: utl_file.fflush(g_file_ptr);
131: END IF;
124:
125: PROCEDURE printf(p_msg IN VARCHAR2) IS
126: BEGIN
127: IF (utl_file.is_open(g_file_ptr)) THEN
128: utl_file.put_line(g_file_ptr,p_msg);
129: --utl_file.put_line(g_file_ptr,'
130: utl_file.fflush(g_file_ptr);
131: END IF;
132: END printf;
125: PROCEDURE printf(p_msg IN VARCHAR2) IS
126: BEGIN
127: IF (utl_file.is_open(g_file_ptr)) THEN
128: utl_file.put_line(g_file_ptr,p_msg);
129: --utl_file.put_line(g_file_ptr,'
130: utl_file.fflush(g_file_ptr);
131: END IF;
132: END printf;
133:
126: BEGIN
127: IF (utl_file.is_open(g_file_ptr)) THEN
128: utl_file.put_line(g_file_ptr,p_msg);
129: --utl_file.put_line(g_file_ptr,'
130: utl_file.fflush(g_file_ptr);
131: END IF;
132: END printf;
133:
134: PROCEDURE print_msg( p_log_level IN NUMBER DEFAULT G_LOG, p_msg IN VARCHAR2 )
169: -- flushes the log buffers
170: PROCEDURE flush_logs IS
171: BEGIN
172: IF (g_debug_mode = 'FILE') THEN
173: utl_file.fflush(g_file_ptr);
174: END IF;
175: END flush_logs;
176:
177:
183: -- END IF;
184: printf('
185: print_tag(p_msg => '');
186: IF (g_debug_mode = 'FILE') THEN
187: IF (utl_file.is_open(g_file_ptr)) THEN
188: utl_file.fclose(g_file_ptr);
189: END IF;
190: g_utl_file_name := NULL;
191: ELSIF (g_debug_mode = 'CONC') THEN
184: printf('
185: print_tag(p_msg => '');
186: IF (g_debug_mode = 'FILE') THEN
187: IF (utl_file.is_open(g_file_ptr)) THEN
188: utl_file.fclose(g_file_ptr);
189: END IF;
190: g_utl_file_name := NULL;
191: ELSIF (g_debug_mode = 'CONC') THEN
192: -- FND_FILE.close;
186: IF (g_debug_mode = 'FILE') THEN
187: IF (utl_file.is_open(g_file_ptr)) THEN
188: utl_file.fclose(g_file_ptr);
189: END IF;
190: g_utl_file_name := NULL;
191: ELSIF (g_debug_mode = 'CONC') THEN
192: -- FND_FILE.close;
193: null;
194: ELSE
233:
234: l_log_level_prof_val := nvl(FND_PROFILE.value('FTE_PRC_LOG_LEVEL'),'1');
235: g_log_level := TO_NUMBER(l_log_level_prof_val);
236:
237: IF (g_debug_mode = 'FILE' AND g_debug = true AND g_utl_file_name IS NULL) THEN
238:
239:
240: --g_utl_file_dir := nvl(FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR'),'/sqlcom/log/ftewshg');
241: g_utl_file_dir := FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR');
236:
237: IF (g_debug_mode = 'FILE' AND g_debug = true AND g_utl_file_name IS NULL) THEN
238:
239:
240: --g_utl_file_dir := nvl(FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR'),'/sqlcom/log/ftewshg');
241: g_utl_file_dir := FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR');
242: IF g_utl_file_dir IS NULL THEN
243:
244: --set_exception(p_met=>p_met,p_exc=>p_exc);
237: IF (g_debug_mode = 'FILE' AND g_debug = true AND g_utl_file_name IS NULL) THEN
238:
239:
240: --g_utl_file_dir := nvl(FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR'),'/sqlcom/log/ftewshg');
241: g_utl_file_dir := FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR');
242: IF g_utl_file_dir IS NULL THEN
243:
244: --set_exception(p_met=>p_met,p_exc=>p_exc);
245: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_MISSING_LOG_DIR');
238:
239:
240: --g_utl_file_dir := nvl(FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR'),'/sqlcom/log/ftewshg');
241: g_utl_file_dir := FND_PROFILE.value('FTE_PRC_DEBUG_LOG_DIR');
242: IF g_utl_file_dir IS NULL THEN
243:
244: --set_exception(p_met=>p_met,p_exc=>p_exc);
245: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_MISSING_LOG_DIR');
246: FND_MSG_PUB.ADD;
249: RETURN;
250:
251: END IF;
252: SELECT 'prc_'||to_char(sysdate,'MMDDYYHH24MISS')||'-'||fte_prc_debug_s.nextval|| '.dbg'
253: INTO g_utl_file_name
254: FROM dual;
255: g_file_ptr := utl_file.fopen(g_utl_file_dir, g_utl_file_name, 'w');
256:
257: print_tag(p_msg => '
251: END IF;
252: SELECT 'prc_'||to_char(sysdate,'MMDDYYHH24MISS')||'-'||fte_prc_debug_s.nextval|| '.dbg'
253: INTO g_utl_file_name
254: FROM dual;
255: g_file_ptr := utl_file.fopen(g_utl_file_dir, g_utl_file_name, 'w');
256:
257: print_tag(p_msg => '
258: printf('
259:
282: FUNCTION get_log_file_name RETURN VARCHAR2
283: IS
284: l_ret_val VARCHAR2(255);
285: BEGIN
286: IF (g_utl_file_name is NOT NULL) THEN
287: l_ret_val := g_utl_file_dir||'/'||g_utl_file_name;
288: END IF;
289: RETURN l_ret_val;
290: END get_log_file_name;
283: IS
284: l_ret_val VARCHAR2(255);
285: BEGIN
286: IF (g_utl_file_name is NOT NULL) THEN
287: l_ret_val := g_utl_file_dir||'/'||g_utl_file_name;
288: END IF;
289: RETURN l_ret_val;
290: END get_log_file_name;
291: