124: - achalana 07/29
125: **/
126: -- If fnd_profile.value_specific('IBE_DEBUG',FND_GLOBAL.USER_ID,null,null) = 'Y' Then
127: If IBE_UTIL.G_DEBUGON = FND_API.G_TRUE Then
128: -- utl_file.put_line(ASO_DEBUG_PUB.G_FILE_PTR, to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||'IBE IBE_UTIL:Using New Debugging');
129: enable_debug_pvt();
130: x_rest := p_line;
131: loop
132: if (x_rest is null) then
133: exit;
134: else
135: --OE_DEBUG_PUB.ADD(to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' '||substr(x_rest,1,255));
136: debug_msg := to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' IBE '||substr(x_rest,1,255);
137: utl_file.put_line(ASO_DEBUG_PUB.G_FILE_PTR, debug_msg);
138: utl_file.fflush(ASO_DEBUG_PUB.G_FILE_PTR);
139: x_rest := substr(x_rest,256);
140: end if;
141: end loop;
134: else
135: --OE_DEBUG_PUB.ADD(to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' '||substr(x_rest,1,255));
136: debug_msg := to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' IBE '||substr(x_rest,1,255);
137: utl_file.put_line(ASO_DEBUG_PUB.G_FILE_PTR, debug_msg);
138: utl_file.fflush(ASO_DEBUG_PUB.G_FILE_PTR);
139: x_rest := substr(x_rest,256);
140: end if;
141: end loop;
142:
155: exit;
156: else
157: --OE_DEBUG_PUB.ADD(to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' '||substr(x_rest,1,255));
158: debug_msg := to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' IBE '||substr(x_rest,1,255);
159: utl_file.put_line(ASO_DEBUG_PUB.G_FILE_PTR, debug_msg);
160: utl_file.fflush(ASO_DEBUG_PUB.G_FILE_PTR);
161: x_rest := substr(x_rest,256);
162: end if;
163: end loop;
156: else
157: --OE_DEBUG_PUB.ADD(to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' '||substr(x_rest,1,255));
158: debug_msg := to_char(sysdate,'DD-MON-YYYY:HH24:MI:SS')||' IBE '||substr(x_rest,1,255);
159: utl_file.put_line(ASO_DEBUG_PUB.G_FILE_PTR, debug_msg);
160: utl_file.fflush(ASO_DEBUG_PUB.G_FILE_PTR);
161: x_rest := substr(x_rest,256);
162: end if;
163: end loop;
164: End If;
213: /* Modified the procedure so that we can enable debug at user level. If the
214: profile IBE: Enable Debug is Set to 'Yes' for a User, we will start writing
215: the debug messages into a file. */
216:
217: IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'IBE_'||FND_GLOBAL.USER_NAME||'.log') Then
218: ASO_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
219: ASO_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
220: ASO_DEBUG_PUB.G_FILE_PTR := utl_file.fopen(ASO_DEBUG_PUB.G_DIR,ASO_DEBUG_PUB.G_FILE,'a');
221: ASO_DEBUG_PUB.debug_on;
214: profile IBE: Enable Debug is Set to 'Yes' for a User, we will start writing
215: the debug messages into a file. */
216:
217: IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'IBE_'||FND_GLOBAL.USER_NAME||'.log') Then
218: ASO_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
219: ASO_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
220: ASO_DEBUG_PUB.G_FILE_PTR := utl_file.fopen(ASO_DEBUG_PUB.G_DIR,ASO_DEBUG_PUB.G_FILE,'a');
221: ASO_DEBUG_PUB.debug_on;
222: ASO_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
215: the debug messages into a file. */
216:
217: IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'IBE_'||FND_GLOBAL.USER_NAME||'.log') Then
218: ASO_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
219: ASO_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
220: ASO_DEBUG_PUB.G_FILE_PTR := utl_file.fopen(ASO_DEBUG_PUB.G_DIR,ASO_DEBUG_PUB.G_FILE,'a');
221: ASO_DEBUG_PUB.debug_on;
222: ASO_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
223: /* Setting OM Debug variables on */
216:
217: IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'IBE_'||FND_GLOBAL.USER_NAME||'.log') Then
218: ASO_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
219: ASO_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
220: ASO_DEBUG_PUB.G_FILE_PTR := utl_file.fopen(ASO_DEBUG_PUB.G_DIR,ASO_DEBUG_PUB.G_FILE,'a');
221: ASO_DEBUG_PUB.debug_on;
222: ASO_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
223: /* Setting OM Debug variables on */
224: OE_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
217: IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'IBE_'||FND_GLOBAL.USER_NAME||'.log') Then
218: ASO_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
219: ASO_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
220: ASO_DEBUG_PUB.G_FILE_PTR := utl_file.fopen(ASO_DEBUG_PUB.G_DIR,ASO_DEBUG_PUB.G_FILE,'a');
221: ASO_DEBUG_PUB.debug_on;
222: ASO_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
223: /* Setting OM Debug variables on */
224: OE_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
225: OE_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
218: ASO_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
219: ASO_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
220: ASO_DEBUG_PUB.G_FILE_PTR := utl_file.fopen(ASO_DEBUG_PUB.G_DIR,ASO_DEBUG_PUB.G_FILE,'a');
221: ASO_DEBUG_PUB.debug_on;
222: ASO_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
223: /* Setting OM Debug variables on */
224: OE_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
225: OE_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
226: OE_DEBUG_PUB.G_FILE_PTR := ASO_DEBUG_PUB.G_FILE_PTR;
222: ASO_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
223: /* Setting OM Debug variables on */
224: OE_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
225: OE_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
226: OE_DEBUG_PUB.G_FILE_PTR := ASO_DEBUG_PUB.G_FILE_PTR;
227: OE_DEBUG_PUB.debug_on;
228: OE_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
229:
230: END IF;
224: OE_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
225: OE_DEBUG_PUB.G_FILE := 'IBE_'||FND_GLOBAL.USER_NAME||'.log';
226: OE_DEBUG_PUB.G_FILE_PTR := ASO_DEBUG_PUB.G_FILE_PTR;
227: OE_DEBUG_PUB.debug_on;
228: OE_DEBUG_PUB.setdebuglevel(ASO_DEBUG_PUB.G_DEBUG_LEVEL);
229:
230: END IF;
231: end;
232:
250: end;
251:
252: procedure disable_debug_pvt is
253: begin
254: ASO_DEBUG_PUB.Debug_off;
255: ASO_DEBUG_PUB.G_FILE := null;
256: OE_DEBUG_PUB.Debug_off;
257: OE_DEBUG_PUB.G_FILE := null;
258: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
251:
252: procedure disable_debug_pvt is
253: begin
254: ASO_DEBUG_PUB.Debug_off;
255: ASO_DEBUG_PUB.G_FILE := null;
256: OE_DEBUG_PUB.Debug_off;
257: OE_DEBUG_PUB.G_FILE := null;
258: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
259: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);
254: ASO_DEBUG_PUB.Debug_off;
255: ASO_DEBUG_PUB.G_FILE := null;
256: OE_DEBUG_PUB.Debug_off;
257: OE_DEBUG_PUB.G_FILE := null;
258: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
259: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);
260: End If;
261: exception
262: When Others Then
255: ASO_DEBUG_PUB.G_FILE := null;
256: OE_DEBUG_PUB.Debug_off;
257: OE_DEBUG_PUB.G_FILE := null;
258: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
259: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);
260: End If;
261: exception
262: When Others Then
263: null;