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