4: PROCEDURE STRING(LOG_LEVEL IN NUMBER,
5: MODULE IN VARCHAR2,
6: MESSAGE IN VARCHAR2) IS
7: BEGIN
8: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
9: return;
10: end if;
11: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
12: FND_LOG.STRING(LOG_LEVEL,MODULE,MESSAGE);
7: BEGIN
8: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
9: return;
10: end if;
11: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
12: FND_LOG.STRING(LOG_LEVEL,MODULE,MESSAGE);
13: end if;
14: END STRING;
15:
8: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
9: return;
10: end if;
11: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
12: FND_LOG.STRING(LOG_LEVEL,MODULE,MESSAGE);
13: end if;
14: END STRING;
15:
16: PROCEDURE STRING_WITH_CONTEXT(LOG_LEVEL IN NUMBER,
24: THREAD_ID IN VARCHAR2 DEFAULT NULL,
25: AUDSID IN NUMBER DEFAULT NULL,
26: DB_INSTANCE IN NUMBER DEFAULT NULL) IS
27: BEGIN
28: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
29: return;
30: end if;
31: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
32: FND_LOG.STRING_WITH_CONTEXT(LOG_LEVEL,MODULE,MESSAGE,ENCODED,
27: BEGIN
28: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
29: return;
30: end if;
31: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
32: FND_LOG.STRING_WITH_CONTEXT(LOG_LEVEL,MODULE,MESSAGE,ENCODED,
33: NODE,NODE_IP_ADDRESS,PROCESS_ID,JVM_ID,THREAD_ID,AUDSID,DB_INSTANCE);
34: end if;
35: END STRING_WITH_CONTEXT;
28: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
29: return;
30: end if;
31: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
32: FND_LOG.STRING_WITH_CONTEXT(LOG_LEVEL,MODULE,MESSAGE,ENCODED,
33: NODE,NODE_IP_ADDRESS,PROCESS_ID,JVM_ID,THREAD_ID,AUDSID,DB_INSTANCE);
34: end if;
35: END STRING_WITH_CONTEXT;
36:
37: PROCEDURE MESSAGE(LOG_LEVEL IN NUMBER,
38: MODULE IN VARCHAR2,
39: POP_MESSAGE IN BOOLEAN ) IS
40: BEGIN
41: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
42: return;
43: end if;
44: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
45: FND_LOG.MESSAGE(LOG_LEVEL,MODULE,POP_MESSAGE);
40: BEGIN
41: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
42: return;
43: end if;
44: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
45: FND_LOG.MESSAGE(LOG_LEVEL,MODULE,POP_MESSAGE);
46: end if;
47: END MESSAGE;
48:
41: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
42: return;
43: end if;
44: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
45: FND_LOG.MESSAGE(LOG_LEVEL,MODULE,POP_MESSAGE);
46: end if;
47: END MESSAGE;
48:
49: PROCEDURE MESSAGE_WITH_CONTEXT(LOG_LEVEL IN NUMBER,
56: THREAD_ID IN VARCHAR2 DEFAULT NULL,
57: AUDSID IN NUMBER DEFAULT NULL,
58: DB_INSTANCE IN NUMBER DEFAULT NULL) IS
59: BEGIN
60: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
61: return;
62: end if;
63: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
64:
59: BEGIN
60: if (LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
61: return;
62: end if;
63: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
64:
65: FND_LOG.MESSAGE_WITH_CONTEXT(LOG_LEVEL,MODULE,POP_MESSAGE,
66: NODE,NODE_IP_ADDRESS,PROCESS_ID,JVM_ID,THREAD_ID,AUDSID,DB_INSTANCE);
67: end if;
61: return;
62: end if;
63: if (LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
64:
65: FND_LOG.MESSAGE_WITH_CONTEXT(LOG_LEVEL,MODULE,POP_MESSAGE,
66: NODE,NODE_IP_ADDRESS,PROCESS_ID,JVM_ID,THREAD_ID,AUDSID,DB_INSTANCE);
67: end if;
68: END MESSAGE_WITH_CONTEXT;
69:
69:
70: FUNCTION TEST(LOG_LEVEL IN NUMBER,
71: MODULE IN VARCHAR2) RETURN BOOLEAN IS
72: BEGIN
73: if ( LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
74: return FALSE;
75: end if;
76: return FND_LOG_REPOSITORY.CHECK_ACCESS_INTERNAL (MODULE, LOG_LEVEL);
77: END TEST;
72: BEGIN
73: if ( LOG_LEVEL < FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
74: return FALSE;
75: end if;
76: return FND_LOG_REPOSITORY.CHECK_ACCESS_INTERNAL (MODULE, LOG_LEVEL);
77: END TEST;
78:
79: end MSC_LOG;