1 package body MSC_LOG as
2 /* $Header: MSCLOGB.pls 120.0 2005/05/25 19:01:57 appldev noship $ */
3
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);
13 end if;
14 END STRING;
15
16 PROCEDURE STRING_WITH_CONTEXT(LOG_LEVEL IN NUMBER,
17 MODULE IN VARCHAR2,
18 MESSAGE IN VARCHAR2,
19 ENCODED IN VARCHAR2 DEFAULT NULL,
20 NODE IN VARCHAR2 DEFAULT NULL,
21 NODE_IP_ADDRESS IN VARCHAR2 DEFAULT NULL,
22 PROCESS_ID IN VARCHAR2 DEFAULT NULL,
23 JVM_ID IN VARCHAR2 DEFAULT NULL,
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,
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);
46 end if;
47 END MESSAGE;
48
49 PROCEDURE MESSAGE_WITH_CONTEXT(LOG_LEVEL IN NUMBER,
50 MODULE IN VARCHAR2,
51 POP_MESSAGE IN BOOLEAN DEFAULT NULL, --Default FALSE
52 NODE IN VARCHAR2 DEFAULT NULL,
53 NODE_IP_ADDRESS IN VARCHAR2 DEFAULT NULL,
54 PROCESS_ID IN VARCHAR2 DEFAULT NULL,
55 JVM_ID IN VARCHAR2 DEFAULT NULL,
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
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
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;
78
79 end MSC_LOG;