114: */
115: IF lengthb(l_line) > 99 OR
116: INSTRB(l_line, '(s)') <> 0
117: THEN
118: l_msg_level := FND_LOG.LEVEL_STATEMENT;
119: l_msg_module := l_msg_prefix || NVL(g_msg_module, 'UNKNOWN');
120:
121: -- This logs the message
122: /* Bug 4361955 */
119: l_msg_module := l_msg_prefix || NVL(g_msg_module, 'UNKNOWN');
120:
121: -- This logs the message
122: /* Bug 4361955 */
123: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
124: THEN
125: FND_LOG.STRING(l_msg_level, l_msg_module, substr(l_line,1,4000));
126: END IF;
127:
121: -- This logs the message
122: /* Bug 4361955 */
123: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
124: THEN
125: FND_LOG.STRING(l_msg_level, l_msg_module, substr(l_line,1,4000));
126: END IF;
127:
128: RETURN;
129: END IF;
132: IF (msg_level IS NULL)
133: THEN
134: IF (INSTRB(upper(l_line), 'EXCEPTION') <> 0)
135: THEN
136: l_msg_level := FND_LOG.LEVEL_EXCEPTION;
137: ELSIF (INSTRB(l_line, ')+') <> 0 OR
138: INSTRB(l_line, '+)') <> 0)
139: THEN
140: l_msg_level := FND_LOG.LEVEL_PROCEDURE;
136: l_msg_level := FND_LOG.LEVEL_EXCEPTION;
137: ELSIF (INSTRB(l_line, ')+') <> 0 OR
138: INSTRB(l_line, '+)') <> 0)
139: THEN
140: l_msg_level := FND_LOG.LEVEL_PROCEDURE;
141: l_beg_end_suffix := '.begin';
142: ELSIF (INSTRB(l_line, ')-') <> 0 OR
143: INSTRB(l_line, '-)') <> 0)
144: THEN
141: l_beg_end_suffix := '.begin';
142: ELSIF (INSTRB(l_line, ')-') <> 0 OR
143: INSTRB(l_line, '-)') <> 0)
144: THEN
145: l_msg_level := FND_LOG.LEVEL_PROCEDURE;
146: l_beg_end_suffix := '.end';
147: ELSE
148: l_msg_level := FND_LOG.LEVEL_STATEMENT;
149: l_beg_end_suffix := NULL;
144: THEN
145: l_msg_level := FND_LOG.LEVEL_PROCEDURE;
146: l_beg_end_suffix := '.end';
147: ELSE
148: l_msg_level := FND_LOG.LEVEL_STATEMENT;
149: l_beg_end_suffix := NULL;
150: END IF;
151: ELSE
152: /* Verify that level is between 1 and 6 */
186: END IF;
187:
188: -- This actually logs the message
189: /* Bug 4361955 */
190: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
191: THEN
192: FND_LOG.STRING(l_msg_level, l_msg_module, l_line);
193: END IF;
194:
188: -- This actually logs the message
189: /* Bug 4361955 */
190: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
191: THEN
192: FND_LOG.STRING(l_msg_level, l_msg_module, l_line);
193: END IF;
194:
195:
196: exception