1: PACKAGE BODY DOM_LOG as
2: /*$Header: DOMULOGB.pls 120.0 2006/07/14 22:32:35 mkimizuk noship $*/
3:
4: --------------------------------------------
5: -- This is Database Session Language. --
1: PACKAGE BODY DOM_LOG as
2: /*$Header: DOMULOGB.pls 120.0 2006/07/14 22:32:35 mkimizuk noship $*/
3:
4: --------------------------------------------
5: -- This is Database Session Language. --
6: --------------------------------------------
91: BEGIN
92:
93: IF (CHECK_LOG_LEVEL)
94: THEN
95: l_module := DOM_LOG_PREFIX || PKG_NAME || '.' || API_NAME ;
96:
97: IF LABEL IS NOT NULL THEN
98: l_module := l_module || '.' || LABEL ;
99: END IF ;
97: IF LABEL IS NOT NULL THEN
98: l_module := l_module || '.' || LABEL ;
99: END IF ;
100:
101: IF ( DOM_LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
102: FND_LOG.STRING(DOM_LOG_LEVEL,
103: l_module,
104: MESSAGE );
105:
98: l_module := l_module || '.' || LABEL ;
99: END IF ;
100:
101: IF ( DOM_LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
102: FND_LOG.STRING(DOM_LOG_LEVEL,
103: l_module,
104: MESSAGE );
105:
106: END IF ;
109: END IF ;
110:
111:
112: IF (TO_NUMBER(G_DEV_DEBUG) > 0) THEN
113: l_module := DOM_LOG_PREFIX || PKG_NAME || '.' || API_NAME ;
114:
115: IF LABEL IS NOT NULL THEN
116: l_module := l_module || '.' || LABEL ;
117: END IF ;
144: -- FND_LOG:
145: -- FUNCTION TEST(LOG_LEVEL IN NUMBER, MODULE IN VARCHAR2)
146: -- RETURN BOOLEAN;
147: --
148: RETURN FND_LOG.TEST(DOM_LOG_LEVEL, DOM_LOG_PREFIX || PKG_NAME || '.' || API_NAME ) ;
149:
150: END TEST ;
151:
152:
150: END TEST ;
151:
152:
153: --
154: -- Tests whether DOM logging is enabled for this level
155: --
156: FUNCTION CHECK_LOG_LEVEL
157: RETURN BOOLEAN
158: IS
161:
162:
163: IF (TO_NUMBER(G_DEV_DEBUG) > 0) THEN
164: return TRUE ;
165: ELSIF ( DOM_LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
166: return TRUE ;
167: ELSE
168: return FALSE ;
169: END IF ;
369:
370: END Escape_Single_Quote;
371:
372:
373: END DOM_LOG ;