1: PACKAGE BODY BIS_FND_LOG_ADAPTER AS
2: /* $Header: BISMGPKB.pls 120.0 2005/06/01 16:09:39 appldev noship $ */
3:
4: TYPE T_PROGRESS_REC_TYPE IS RECORD(
5: object_key FND_LOG_MESSAGES.MODULE%TYPE,
1: PACKAGE BODY BIS_FND_LOG_ADAPTER AS
2: /* $Header: BISMGPKB.pls 120.0 2005/06/01 16:09:39 appldev noship $ */
3:
4: TYPE T_PROGRESS_REC_TYPE IS RECORD(
5: object_key FND_LOG_MESSAGES.MODULE%TYPE,
6: progress_name FND_LOG_MESSAGES.MODULE%TYPE,
7: progress_start NUMBER,
8: progress_end NUMBER,
9: progress_start_time Date,
2: /* $Header: BISMGPKB.pls 120.0 2005/06/01 16:09:39 appldev noship $ */
3:
4: TYPE T_PROGRESS_REC_TYPE IS RECORD(
5: object_key FND_LOG_MESSAGES.MODULE%TYPE,
6: progress_name FND_LOG_MESSAGES.MODULE%TYPE,
7: progress_start NUMBER,
8: progress_end NUMBER,
9: progress_start_time Date,
10: progress_end_time Date
43: module varchar2(2000):= NULL;
44: BEGIN
45: --module := UPPER(SUBSTR(FND_PROFILE.VALUE('AFLOG_MODULE'), 1, 2000));
46: enable := --(module is NULL OR module ='%') OR
47: FND_LOG.TEST(p_servirity, g_module_prefix||'.' ) OR
48: FND_LOG.TEST(p_servirity, g_module_prefix ) OR
49: FND_LOG.TEST(p_servirity, '%' );
50: RETURN enable;
51: END;
44: BEGIN
45: --module := UPPER(SUBSTR(FND_PROFILE.VALUE('AFLOG_MODULE'), 1, 2000));
46: enable := --(module is NULL OR module ='%') OR
47: FND_LOG.TEST(p_servirity, g_module_prefix||'.' ) OR
48: FND_LOG.TEST(p_servirity, g_module_prefix ) OR
49: FND_LOG.TEST(p_servirity, '%' );
50: RETURN enable;
51: END;
52:
45: --module := UPPER(SUBSTR(FND_PROFILE.VALUE('AFLOG_MODULE'), 1, 2000));
46: enable := --(module is NULL OR module ='%') OR
47: FND_LOG.TEST(p_servirity, g_module_prefix||'.' ) OR
48: FND_LOG.TEST(p_servirity, g_module_prefix ) OR
49: FND_LOG.TEST(p_servirity, '%' );
50: RETURN enable;
51: END;
52:
53:
55: FUNCTION GET_LEVEL_STRING( p_level number )
56: RETURN VARCHAR2
57: IS
58: BEGIN
59: IF( p_level = FND_LOG.LEVEL_UNEXPECTED) then
60: return STRING_UNEXPECTED;
61: ELSIF ( p_level = FND_LOG.LEVEL_ERROR) then
62: return STRING_ERROR;
63: ELSIF ( p_level = FND_LOG.LEVEL_EXCEPTION) then
57: IS
58: BEGIN
59: IF( p_level = FND_LOG.LEVEL_UNEXPECTED) then
60: return STRING_UNEXPECTED;
61: ELSIF ( p_level = FND_LOG.LEVEL_ERROR) then
62: return STRING_ERROR;
63: ELSIF ( p_level = FND_LOG.LEVEL_EXCEPTION) then
64: return STRING_EXCEPTION;
65: ELSIF ( p_level = FND_LOG.LEVEL_EVENT) then
59: IF( p_level = FND_LOG.LEVEL_UNEXPECTED) then
60: return STRING_UNEXPECTED;
61: ELSIF ( p_level = FND_LOG.LEVEL_ERROR) then
62: return STRING_ERROR;
63: ELSIF ( p_level = FND_LOG.LEVEL_EXCEPTION) then
64: return STRING_EXCEPTION;
65: ELSIF ( p_level = FND_LOG.LEVEL_EVENT) then
66: return STRING_EVENT;
67: ELSIF ( p_level = FND_LOG.LEVEL_PROCEDURE) then
61: ELSIF ( p_level = FND_LOG.LEVEL_ERROR) then
62: return STRING_ERROR;
63: ELSIF ( p_level = FND_LOG.LEVEL_EXCEPTION) then
64: return STRING_EXCEPTION;
65: ELSIF ( p_level = FND_LOG.LEVEL_EVENT) then
66: return STRING_EVENT;
67: ELSIF ( p_level = FND_LOG.LEVEL_PROCEDURE) then
68: return STRING_PROCEDURE;
69: ELSIF ( p_level = FND_LOG.LEVEL_STATEMENT) then
63: ELSIF ( p_level = FND_LOG.LEVEL_EXCEPTION) then
64: return STRING_EXCEPTION;
65: ELSIF ( p_level = FND_LOG.LEVEL_EVENT) then
66: return STRING_EVENT;
67: ELSIF ( p_level = FND_LOG.LEVEL_PROCEDURE) then
68: return STRING_PROCEDURE;
69: ELSIF ( p_level = FND_LOG.LEVEL_STATEMENT) then
70: return STRING_STATEMENT;
71: ELSE
65: ELSIF ( p_level = FND_LOG.LEVEL_EVENT) then
66: return STRING_EVENT;
67: ELSIF ( p_level = FND_LOG.LEVEL_PROCEDURE) then
68: return STRING_PROCEDURE;
69: ELSIF ( p_level = FND_LOG.LEVEL_STATEMENT) then
70: return STRING_STATEMENT;
71: ELSE
72: return STRING_UNKNOWN;
73: end if;
133: l_chunk number := 0;
134: BEGIN
135: WHILE( l_chunk*MAX_STRING_SIZE < length(p_msg_txt) )
136: LOOP
137: FND_LOG_REPOSITORY.STR_UNCHKED_INT_WITH_CONTEXT(
138: LOG_LEVEL=> p_level,
139: MODULE=> p_module,
140: MESSAGE_TEXT=> substr(p_msg_txt, l_chunk*MAX_STRING_SIZE + 1, MAX_STRING_SIZE),
141: SESSION_ID=> p_session_id,
168:
169: PROCEDURE DEBUG(msg varchar2)
170: IS
171: BEGIN
172: if FND_LOG.LEVEL_UNEXPECTED>= FND_LOG.G_CURRENT_RUNTIME_LEVEL then
173: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, 'bis.plsql.BIS_FND_LOG_ADAPTER.DEBUG', msg);
174: end if;
175: EXCEPTION
176: WHEN OTHERS THEN NULL;
169: PROCEDURE DEBUG(msg varchar2)
170: IS
171: BEGIN
172: if FND_LOG.LEVEL_UNEXPECTED>= FND_LOG.G_CURRENT_RUNTIME_LEVEL then
173: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, 'bis.plsql.BIS_FND_LOG_ADAPTER.DEBUG', msg);
174: end if;
175: EXCEPTION
176: WHEN OTHERS THEN NULL;
177: END;
275: get_mili(G_PROGRESS_TABLE(l_index).progress_start) ||'#'||
276: to_char(G_PROGRESS_TABLE(l_index).progress_end_time, 'yyyy-mm-dd hh24:mi:ss') || '.' ||
277: get_mili(G_PROGRESS_TABLE(l_index).progress_end)||'#' ||
278: duration(G_PROGRESS_TABLE(l_index).progress_end - G_PROGRESS_TABLE(l_index).progress_start);
279: WRITE(FND_LOG.LEVEL_UNEXPECTED , l_message, l_module);
280: EXIT;
281: END IF;
282: END LOOP;
283:
287: DEBUG(l_errbuf);
288: END;
289:
290:
291: END BIS_FND_LOG_ADAPTER;