64: if (log_module is NOT NULL) then
65: FND_PROFILE.Put('AFLOG_MODULE', log_module);
66: end if;
67:
68: FND_LOG_REPOSITORY.Init();
69:
70: exception
71: when others then
72: wf_core.context('WF_LOG_PKG', 'Init');
87: if (log_level is NOT NULL) then
88: FND_PROFILE.Put('AFLOG_LEVEL', log_level);
89:
90: -- Seems that the change of profile doesn't automatically
91: -- populate the FND_LOG log level.
92: FND_LOG_REPOSITORY.Init();
93:
94: end if;
95: end SET_LEVEL;
88: FND_PROFILE.Put('AFLOG_LEVEL', log_level);
89:
90: -- Seems that the change of profile doesn't automatically
91: -- populate the FND_LOG log level.
92: FND_LOG_REPOSITORY.Init();
93:
94: end if;
95: end SET_LEVEL;
96:
107: )
108: is
109: begin
110:
111: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
112: if (FND_LOG.Test(log_level, module)) then
113: FND_LOG.String(log_level, module, message);
114: end if;
115: end if;
108: is
109: begin
110:
111: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
112: if (FND_LOG.Test(log_level, module)) then
113: FND_LOG.String(log_level, module, message);
114: end if;
115: end if;
116:
109: begin
110:
111: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
112: if (FND_LOG.Test(log_level, module)) then
113: FND_LOG.String(log_level, module, message);
114: end if;
115: end if;
116:
117: exception
121:
122: ------------------------------------------------------------------------------
123: /*
124: ** Test - Check if logging is enabled for the given level and module.
125: ** Better to call FND_LOG.Test directly in order to avoid overhead.
126: */
127: function Test(
128: LOG_LEVEL in number,
129: MODULE in varchar2
131: return boolean
132: is
133: begin
134:
135: return FND_LOG.Test(log_level, module);
136:
137: end Test;
138:
139: /*
137: end Test;
138:
139: /*
140: ** MESSAGE
141: ** Wrapper to FND_LOG.MESSAGE
142: ** Writes a message to the log file if this level and module is enabled
143: ** This requires that the message was set previously with
144: ** WF_LOG_PKG.SET_NAME, WF_LOG_PKG.SET_TOKEN, etc.
145: ** The message is popped off the message dictionary stack, if POP_MESSAGE
153: MODULE in varchar2,
154: POP_MESSAGE in boolean)
155: is
156: begin
157: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
158: FND_LOG.MESSAGE(LOG_LEVEL,
159: MODULE,
160: POP_MESSAGE);
161: end if;
154: POP_MESSAGE in boolean)
155: is
156: begin
157: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
158: FND_LOG.MESSAGE(LOG_LEVEL,
159: MODULE,
160: POP_MESSAGE);
161: end if;
162: end MESSAGE;
229: l_log := ' [End time '||to_char(l_end_time)||']';
230: l_log := l_log||' [Time taken - '||to_char(l_elapsed_time)||' secs]';
231: end if;
232:
233: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
234: if (FND_LOG.Test(log_level, module)) then
235: FND_LOG.String(log_level, module, message||l_log);
236: end if;
237: end if;
230: l_log := l_log||' [Time taken - '||to_char(l_elapsed_time)||' secs]';
231: end if;
232:
233: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
234: if (FND_LOG.Test(log_level, module)) then
235: FND_LOG.String(log_level, module, message||l_log);
236: end if;
237: end if;
238:
231: end if;
232:
233: if( LOG_LEVEL >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
234: if (FND_LOG.Test(log_level, module)) then
235: FND_LOG.String(log_level, module, message||l_log);
236: end if;
237: end if;
238:
239: exception