[Home] [Help]
12: PROCEDURE PUT_LINE (v_line in varchar2,v_level in varchar2, v_inv_debug_level in NUMBER) IS /* lcm changes */
13:
14: --x_TRACE_ENABLE_FLAG VARCHAR2(1) := 'N';
15: /* FPJ WMS.
16: * Insert into fnd_log_messages for online mode.
17: */
18: l_processing_mode rcv_transactions_interface.processing_mode_code%type ;
19: l_api_name CONSTANT VARCHAR2(40) := 'PUT_LINE';
20: p_module VARCHAR2(255);
119: /* the unknown procedure. */
120: PROCEDURE start_procedure( procedure_name in varchar2) is
121: BEGIN
122: g_current_procedure := rpad(upper(nvl(substrb(procedure_name,0,20),'?')),20,' ');
123: debug_msg(RPAD('v--------Procedure Started',37,'-')||'v',FND_LOG.LEVEL_PROCEDURE,'begin');
124: g_level := g_level+1;
125: g_procedure_stack := g_procedure_stack||g_current_procedure;
126: EXCEPTION
127: WHEN OTHERS THEN
150: IF (g_current_procedure <> l_temp_name) THEN -- we need to jump back on the stack
151: l_temp_level := (INSTRB(g_procedure_stack,l_temp_name)-1)/20;
152: WHILE (g_level > l_temp_level) LOOP -- to pop off the procedure that didn't get exited
153: g_level := g_level - 1;
154: debug_msg(RPAD('^--------Implicit Procedure Exit',37,'-')||'^',FND_LOG.LEVEL_PROCEDURE,'end_implicit');
155: g_current_procedure := SUBSTRB(g_procedure_stack,g_level*20+1,20);
156: END LOOP;
157: END IF;
158: if (pop_this_procedure = TRUE) then
157: END IF;
158: if (pop_this_procedure = TRUE) then
159: IF (g_current_procedure = l_temp_name) then -- now pop off the called procedure
160: g_level := g_level-1;
161: debug_msg(RPAD('^--------Procedure Ended',37,'-')||'^',FND_LOG.LEVEL_PROCEDURE,'end');
162: IF (g_level<0) THEN -- shouldn't happen unless you call stop_procedure('?'), but just to be safe
163: g_level := 0;
164: g_current_procedure := RPAD('?',20,' ');
165: ELSE -- the normal situation, reset the current procedure to the previous procedure on the stack
165: ELSE -- the normal situation, reset the current procedure to the previous procedure on the stack
166: g_current_procedure := SUBSTRB(g_procedure_stack,g_level*20+1,20);
167: END IF;
168: ELSE -- the name given wasn't anywhere on the stack
169: debug_msg(RPAD('^--------Unknown Procedure ['||procedure_name||'] Ended',37,'-')||'^',FND_LOG.LEVEL_PROCEDURE,'end_unknown');
170: END IF;
171: end if;
172: g_procedure_stack := substrb(g_procedure_stack,1,(g_level+1)*20);
173: EXCEPTION
181: -- if there is no last module specified then it Will default to module name: RCV
182: v_level NUMBER;
183: BEGIN
184: if ( g_debugging_enabled = 'Y' ) then
185: v_level := nvl(level,FND_LOG.LEVEL_STATEMENT);
186:
187: -- GSCC HACK: need redundant v_level >= FND_CUR_LEVEL check do not remove
188: if( v_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL AND FND_LOG.TEST(v_level, G_CURRENT_MODULE )) then
189: FND_LOG.STRING(v_level,
184: if ( g_debugging_enabled = 'Y' ) then
185: v_level := nvl(level,FND_LOG.LEVEL_STATEMENT);
186:
187: -- GSCC HACK: need redundant v_level >= FND_CUR_LEVEL check do not remove
188: if( v_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL AND FND_LOG.TEST(v_level, G_CURRENT_MODULE )) then
189: FND_LOG.STRING(v_level,
190: substrb(G_CURRENT_MODULE||'.'
191: ||trim(nvl(G_CURRENT_PROCEDURE,'?'))||'.'
192: ||trim(nvl(label,'-1'))
185: v_level := nvl(level,FND_LOG.LEVEL_STATEMENT);
186:
187: -- GSCC HACK: need redundant v_level >= FND_CUR_LEVEL check do not remove
188: if( v_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL AND FND_LOG.TEST(v_level, G_CURRENT_MODULE )) then
189: FND_LOG.STRING(v_level,
190: substrb(G_CURRENT_MODULE||'.'
191: ||trim(nvl(G_CURRENT_PROCEDURE,'?'))||'.'
192: ||trim(nvl(label,'-1'))
193: ,0,255)