eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.WSH_DEBUG_SV dependencies on WSH_DEBUG_INTERFACE

Line 67: IF wsh_debug_interface.g_Debug THEN

63: PROCEDURE tstart(x_Marker IN VARCHAR2)
64: IS
65: v_Position NUMBER := 0;
66: BEGIN
67: IF wsh_debug_interface.g_Debug THEN
68: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
69: IF g_TimeStack(v_Count).Marker = x_Marker THEN
70: v_Position := v_Count;
71: EXIT;

Line 86: wsh_debug_interface.g_Debug := FALSE;

82: END IF;
83: EXCEPTION
84: WHEN OTHERS THEN
85: --dbg_file.log('err in tstart:'||substrb(sqlerrm,1,200));
86: wsh_debug_interface.g_Debug := FALSE;
87: --raise;
88: END tstart;
89:
90: /*===========================================================================

Line 96: IF wsh_debug_interface.g_Debug THEN

92: ===========================================================================*/
93: PROCEDURE tstop(x_Marker IN VARCHAR2)
94: IS
95: BEGIN
96: IF wsh_debug_interface.g_Debug THEN
97: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
98: IF g_TimeStack(v_Count).Marker = x_Marker THEN
99: g_TimeStack(v_Count).TotalTime := g_TimeStack(v_Count).TotalTime +
100: ((( dbms_utility.get_time -

Line 108: wsh_debug_interface.g_Debug := FALSE;

104: END LOOP;
105: END IF;
106: EXCEPTION
107: WHEN OTHERS THEN
108: wsh_debug_interface.g_Debug := FALSE;
109: --raise;
110: END tstop;
111:
112: /*===========================================================================

Line 118: IF wsh_debug_interface.g_Debug THEN

114: ===========================================================================*/
115: FUNCTION tprint(x_Marker IN VARCHAR2) RETURN VARCHAR2
116: IS
117: BEGIN
118: IF wsh_debug_interface.g_Debug THEN
119: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
120: IF g_TimeStack(v_Count).Marker = x_Marker THEN
121: RETURN(ROUND(((dbms_utility.get_time - g_TimeStack(v_Count).Time)/100),2)||' seconds');
122:

Line 129: wsh_debug_interface.g_Debug := FALSE;

125: RETURN(NULL);
126: END IF;
127: EXCEPTION
128: WHEN OTHERS THEN
129: wsh_debug_interface.g_Debug := FALSE;
130: --raise;
131: END tprint;
132:
133: /*===========================================================================

Line 140: IF wsh_debug_interface.g_Debug THEN

136: --PROCEDURE tdump(x_Context IN VARCHAR2 DEFAULT NULL)
137: PROCEDURE tdump(x_Context IN VARCHAR2)
138: IS
139: BEGIN
140: IF wsh_debug_interface.g_Debug THEN
141: --write_output(make_space||'Time Dump ('||x_Context||')');
142: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
143: write_output(make_space||g_TimeStack(v_Count).Marker||' : '||
144: g_TimeStack(v_Count).CallCount||' calls : '||

Line 151: wsh_debug_interface.g_Debug := FALSE;

147: g_TimeStack.DELETE;
148: END IF;
149: EXCEPTION
150: WHEN OTHERS THEN
151: wsh_debug_interface.g_Debug := FALSE;
152: --raise;
153: END tdump;
154:
155: PROCEDURE print_mesg(x_Mesg IN VARCHAR2)

Line 195: wsh_debug_interface.g_Debug := FALSE;

191: --dbg_file.log('err in print_mesg-2:'||substrb(x_mesg,201,200));
192: --dbg_file.log('err in print_mesg-3:'||substrb(x_mesg,401,200));
193: --dbg_file.log('err in print_mesg-4:'||substrb(x_mesg,601,200));
194: --dbg_file.log('err in print_mesg-5:'||substrb(x_mesg,801,200));
195: wsh_debug_interface.g_Debug := FALSE;
196: END print_mesg;
197:
198: /*===========================================================================
199:

Line 229: wsh_debug_interface.g_Debug := FALSE;

225:
226: EXCEPTION
227: WHEN OTHERS THEN
228: --dbg_file.log('err in write_output:'||substrb(sqlerrm,1,200));
229: wsh_debug_interface.g_Debug := FALSE;
230: END write_output;
231:
232: /*===========================================================================
233: FUNCTION NAME: make_space

Line 252: wsh_debug_interface.g_Debug := FALSE;

248:
249: EXCEPTION
250: WHEN OTHERS THEN
251: --dbg_file.log('err in make_space:'||substrb(sqlerrm,1,200));
252: wsh_debug_interface.g_Debug := FALSE;
253: END make_space;
254:
255: /*===========================================================================
256: PROCEDURE NAME: logmsg

Line 267: IF wsh_debug_interface.g_Debug THEN

263: --PROCEDURE logmsg(x_Module IN VARCHAR2, x_Text IN VARCHAR2, x_Level IN NUMBER DEFAULT C_STMT_LEVEL)
264: PROCEDURE logmsg(x_Module IN VARCHAR2, x_Text IN VARCHAR2, x_Level IN NUMBER)
265: IS
266: BEGIN
267: IF wsh_debug_interface.g_Debug THEN
268: IF upper(x_Module) like g_Module AND ( g_DebugAll OR level_defined(x_Level) )
269: THEN
270: -- changed to fix bug 2743947
271: -- replacing occurences of g_miss_char in string

Line 287: wsh_debug_interface.g_Debug := FALSE;

283: END IF;
284:
285: EXCEPTION
286: WHEN OTHERS THEN
287: wsh_debug_interface.g_Debug := FALSE;
288: --raise;
289: END logmsg;
290:
291: /*===========================================================================

Line 302: IF wsh_debug_interface.g_Debug THEN

298: IS
299: --v_NullValue VARCHAR2(10) := 'is NULL';
300: v_MISS_CHAR VARCHAR2(30) := 'is FND_API.G_MISS_CHAR';
301: BEGIN
302: IF wsh_debug_interface.g_Debug THEN
303: IF upper(x_Module) like g_Module AND ( g_DebugAll OR level_defined(x_Level) ) THEN
304: IF x_Value IS NULL THEN
305: write_output(make_space||x_Text||C_DELIMITER);
306: ELSIF x_Value = FND_API.G_MISS_CHAR THEN

Line 316: wsh_debug_interface.g_Debug := FALSE;

312: END IF;
313:
314: EXCEPTION
315: WHEN OTHERS THEN
316: wsh_debug_interface.g_Debug := FALSE;
317: --raise;
318: END log;
319:
320: /*===========================================================================

Line 334: IF wsh_debug_interface.g_Debug THEN

330:
331: v_NullValue VARCHAR2(10) := 'is NULL';
332: v_MISS_NUM VARCHAR2(30) := 'is FND_API.G_MISS_NUM';
333: BEGIN
334: IF wsh_debug_interface.g_Debug THEN
335: IF upper(x_Module) like g_Module AND ( g_DebugAll OR level_defined(x_Level) ) THEN
336: IF x_Value IS NULL THEN
337: write_output(make_space||x_Text||C_DELIMITER||v_NullValue);
338: ELSIF x_Value = FND_API.G_MISS_NUM THEN

Line 348: wsh_debug_interface.g_Debug := FALSE;

344: END IF;
345:
346: EXCEPTION
347: WHEN OTHERS THEN
348: wsh_debug_interface.g_Debug := FALSE;
349: --raise;
350: END log;
351:
352: /*===========================================================================

Line 366: IF wsh_debug_interface.g_Debug THEN

362:
363: v_NullValue VARCHAR2(10) := 'is NULL';
364: v_MISS_DATE VARCHAR2(30) := 'is FND_API.G_MISS_DATE';
365: BEGIN
366: IF wsh_debug_interface.g_Debug THEN
367: IF upper(x_Module) like g_Module AND ( g_DebugAll OR level_defined(x_Level) ) THEN
368: IF x_Value IS NULL THEN
369: write_output(make_space||x_Text||C_DELIMITER||v_NullValue);
370: ELSIF x_Value = FND_API.G_MISS_DATE THEN

Line 381: wsh_debug_interface.g_Debug := FALSE;

377: END IF;
378:
379: EXCEPTION
380: WHEN OTHERS THEN
381: wsh_debug_interface.g_Debug := FALSE;
382: --raise;
383: END log;
384:
385: /*===========================================================================

Line 398: IF wsh_debug_interface.g_Debug THEN

394:
395: v_Value VARCHAR2(10);
396: v_NullValue VARCHAR2(10) := 'is NULL';
397: BEGIN
398: IF wsh_debug_interface.g_Debug THEN
399: IF upper(x_Module) like g_Module AND ( g_DebugAll OR level_defined(x_Level) ) THEN
400: IF x_Value IS NULL THEN
401: v_Value := v_NullValue;
402: ELSIF x_Value THEN

Line 413: wsh_debug_interface.g_Debug := FALSE;

409: END IF;
410:
411: EXCEPTION
412: WHEN OTHERS THEN
413: wsh_debug_interface.g_Debug := FALSE;
414: --raise;
415: END log;
416:
417: /*===========================================================================

Line 429: IF WSH_DEBUG_INTERFACE.g_file IS NOT NULL

425: v_file_name VARCHAR2(255);
426: v_suffix VARCHAR2(100);
427:
428: BEGIN
429: IF WSH_DEBUG_INTERFACE.g_file IS NOT NULL
430: THEN
431: RETURN(WSH_DEBUG_INTERFACE.g_file);
432: END IF;
433: --

Line 431: RETURN(WSH_DEBUG_INTERFACE.g_file);

427:
428: BEGIN
429: IF WSH_DEBUG_INTERFACE.g_file IS NOT NULL
430: THEN
431: RETURN(WSH_DEBUG_INTERFACE.g_file);
432: END IF;
433: --
434: --
435: IF g_session_id is NULL THEN

Line 461: wsh_debug_interface.g_Debug := FALSE;

457: WHEN OTHERS THEN
458: --IF utl_file.is_open(g_FileHandle) THEN
459: --utl_file.fclose(g_FileHandle);
460: --END IF;
461: wsh_debug_interface.g_Debug := FALSE;
462:
463: END get_file_name;
464:
465: /*===========================================================================

Line 526: IF wsh_debug_interface.g_Debug AND level_defined(C_PERF_LEVEL) THEN

522: --End of fix for bug 6215206
523: --
524: --
525: --get_debug_levels(g_Level);
526: IF wsh_debug_interface.g_Debug AND level_defined(C_PERF_LEVEL) THEN
527: g_DebugAll := TRUE; -- so that we do not have to modify other procedures.
528: END IF;
529: --
530: --

Line 539: IF wsh_debug_interface.g_Debug THEN

535: nvl(g_Dir_bak, '!') <> nvl(g_Dir,'!')
536: )
537: THEN
538: --dbg_file.log('new file name');
539: IF wsh_debug_interface.g_Debug THEN
540: IF g_RunMode <> 'CONC'
541: THEN
542: IF g_dir IS NOT NULL
543: THEN

Line 544: IF utl_file.is_open(wsh_debug_interface.g_file_handle)

540: IF g_RunMode <> 'CONC'
541: THEN
542: IF g_dir IS NOT NULL
543: THEN
544: IF utl_file.is_open(wsh_debug_interface.g_file_handle)
545: then
546: g_FileHandle := wsh_debug_interface.g_file_handle;
547: else
548: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');

Line 546: g_FileHandle := wsh_debug_interface.g_file_handle;

542: IF g_dir IS NOT NULL
543: THEN
544: IF utl_file.is_open(wsh_debug_interface.g_file_handle)
545: then
546: g_FileHandle := wsh_debug_interface.g_file_handle;
547: else
548: g_FileHandle := utl_file.fopen(g_Dir, g_File, 'a');
549: end if;
550: /*

Line 564: wsh_debug_interface.g_debug := FALSE;

560: g_File_bak := g_File;
561: g_Dir_bak := g_Dir;
562: l_newFile := TRUE;
563: ELSE
564: wsh_debug_interface.g_debug := FALSE;
565: END IF;
566: END IF;
567: END IF;
568: END IF;

Line 653: IF WSH_DEBUG_INTERFACE.g_file IS NULL

649: log(x_Module,'File Name',g_File,C_UNEXPEC_ERR_LEVEL);
650: END IF;
651: */
652: --
653: IF WSH_DEBUG_INTERFACE.g_file IS NULL
654: THEN
655: Start_Other_App_Debug(
656: p_application => 'OE' ,
657: x_debug_directory => v_otherapp_dir,

Line 680: wsh_debug_interface.g_Debug := FALSE;

676: --IF utl_file.is_open(g_FileHandle) THEN
677: --utl_file.fclose(g_FileHandle);
678: --END IF;
679: --dbg_file.log('err in start_dbg:'||substrb(sqlerrm,1,200));
680: wsh_debug_interface.g_Debug := FALSE;
681:
682: END start_dbg;
683:
684: /*===========================================================================

Line 732: IF WSH_DEBUG_INTERFACE.g_file IS NULL

728: end if;
729: END IF;
730: --
731: --
732: IF WSH_DEBUG_INTERFACE.g_file IS NULL
733: AND p_otherApp_Debug
734: THEN
735: stop_Other_App_Debug(
736: p_application => 'OE' ,

Line 746: wsh_debug_interface.g_Debug := FALSE;

742: --
743: --
744: g_debugger_initialized := FALSE;
745: /*
746: wsh_debug_interface.g_Debug := FALSE;
747: g_DebugAll := FALSE;
748: IF utl_file.is_open(g_FileHandle) THEN
749: utl_file.fclose(g_FileHandle);
750: END IF;

Line 755: wsh_debug_interface.g_Debug := FALSE;

751: */
752: EXCEPTION
753: WHEN OTHERS THEN
754: --dbg_file.log('err in stop_dbg:'||substrb(sqlerrm,1,200));
755: wsh_debug_interface.g_Debug := FALSE;
756: END stop_dbg;
757:
758: /*===========================================================================
759: FUNCTION NAME: get_pkg_version

Line 817: wsh_debug_interface.g_Debug := is_debug_enabled;

813: --dbg_file.log('x_module='||x_module);
814: --dbg_file.log('g_debugcount='||g_debugCount);
815: IF g_DebugCount = 0 THEN
816: --
817: wsh_debug_interface.g_Debug := is_debug_enabled;
818: --
819: --
820: IF wsh_debug_interface.g_debug
821: THEN

Line 820: IF wsh_debug_interface.g_debug

816: --
817: wsh_debug_interface.g_Debug := is_debug_enabled;
818: --
819: --
820: IF wsh_debug_interface.g_debug
821: THEN
822: --dbg_file.log('wsh_debug_interface.g_debug is true');
823: start_dbg(x_Module,FALSE);
824: --ELSE

Line 822: --dbg_file.log('wsh_debug_interface.g_debug is true');

818: --
819: --
820: IF wsh_debug_interface.g_debug
821: THEN
822: --dbg_file.log('wsh_debug_interface.g_debug is true');
823: start_dbg(x_Module,FALSE);
824: --ELSE
825: -- stop_dbg(x_Module,TRUE);
826: END IF;

Line 834: IF wsh_debug_interface.g_Debug THEN

830: --
831: g_DebugCount := g_DebugCount + 1;
832: --
833: --
834: IF wsh_debug_interface.g_Debug THEN
835: --dbg_file.log('wsh_debug_interface.g_debug is true-1');
836: IF ( upper(x_Module) like g_Module ) THEN
837: IF g_DebugAll OR level_defined(C_PROC_LEVEL) THEN
838: v_Name := UPPER(SUBSTRB (x_Module,INSTRB(x_Module, '.',1,2) + 1));

Line 835: --dbg_file.log('wsh_debug_interface.g_debug is true-1');

831: g_DebugCount := g_DebugCount + 1;
832: --
833: --
834: IF wsh_debug_interface.g_Debug THEN
835: --dbg_file.log('wsh_debug_interface.g_debug is true-1');
836: IF ( upper(x_Module) like g_Module ) THEN
837: IF g_DebugAll OR level_defined(C_PROC_LEVEL) THEN
838: v_Name := UPPER(SUBSTRB (x_Module,INSTRB(x_Module, '.',1,2) + 1));
839: v_Pkg := UPPER(SUBSTRB (v_Name,1,INSTRB(v_Name,'.',1,1)-1));

Line 852: wsh_debug_interface.g_Debug := FALSE;

848: END IF;
849: EXCEPTION
850: WHEN OTHERS THEN
851: --dbg_file.log('err in push:'||substrb(sqlerrm,1,200));
852: wsh_debug_interface.g_Debug := FALSE;
853: --raise;
854: END push;
855:
856: /*===========================================================================

Line 871: IF wsh_debug_interface.g_Debug THEN

867: BEGIN
868:
869: g_DebugCount := g_DebugCount - 1;
870: --
871: IF wsh_debug_interface.g_Debug THEN
872: IF ( upper(x_Module) like g_Module ) THEN
873: IF g_DebugAll OR level_defined(C_PROC_LEVEL) THEN
874:
875: v_Name := UPPER(SUBSTRB (x_Module,INSTRB(x_Module, '.',1,2) + 1));

Line 912: wsh_debug_interface.g_Debug := FALSE;

908:
909: EXCEPTION
910: WHEN OTHERS THEN
911: --dbg_file.log('err in pop:'||substrb(sqlerrm,1,200));
912: wsh_debug_interface.g_Debug := FALSE;
913:
914: END pop;
915:
916: /*===========================================================================

Line 951: wsh_debug_interface.g_debug := TRUE;

947: v_dir_separator := '\';
948: END IF;
949: --
950: --
951: wsh_debug_interface.g_debug := TRUE;
952: --
953: start_dbg('',TRUE);
954:
955: l_Debug_File := g_Dir || v_dir_separator|| g_file; --get_file_name;

Line 1003: --IF NVL(wsh_debug_interface.g_debug,FALSE)

999: v_dir_separator VARCHAR2(1);
1000: l_debug_file varchar2(32767);
1001: BEGIN
1002:
1003: --IF NVL(wsh_debug_interface.g_debug,FALSE)
1004: --THEN
1005: --stop_dbg('', true);
1006: stop_dbg('', false);
1007: --END IF;

Line 1011: wsh_debug_interface.g_debug := FALSE;

1007: --END IF;
1008: --
1009: fnd_profile.put('WSH_DEBUG_MODE','F');
1010: --
1011: wsh_debug_interface.g_debug := FALSE;
1012:
1013: EXCEPTION
1014: WHEN OTHERS THEN
1015: wsh_debug_interface.g_debug:= FALSE;

Line 1015: wsh_debug_interface.g_debug:= FALSE;

1011: wsh_debug_interface.g_debug := FALSE;
1012:
1013: EXCEPTION
1014: WHEN OTHERS THEN
1015: wsh_debug_interface.g_debug:= FALSE;
1016: END stop_debugger;
1017:
1018:
1019:

Line 1035: IF wsh_debug_interface.g_debug IS NOT NULL

1031: v_debug_enabled varchar2(100);
1032:
1033: BEGIN
1034:
1035: IF wsh_debug_interface.g_debug IS NOT NULL
1036: THEN
1037: RETURN(wsh_debug_interface.g_debug);
1038: END IF;
1039: --

Line 1037: RETURN(wsh_debug_interface.g_debug);

1033: BEGIN
1034:
1035: IF wsh_debug_interface.g_debug IS NOT NULL
1036: THEN
1037: RETURN(wsh_debug_interface.g_debug);
1038: END IF;
1039: --
1040: fnd_profile.get('WSH_DEBUG_MODE',v_debug_enabled);
1041: IF nvl(v_debug_enabled,'!') = 'T' THEN

Line 1042: wsh_debug_interface.g_debug := TRUE;

1038: END IF;
1039: --
1040: fnd_profile.get('WSH_DEBUG_MODE',v_debug_enabled);
1041: IF nvl(v_debug_enabled,'!') = 'T' THEN
1042: wsh_debug_interface.g_debug := TRUE;
1043: RETURN TRUE;
1044: ELSIF nvl(v_debug_enabled,'!') = 'F' THEN
1045: wsh_debug_interface.g_debug := FALSE;
1046: RETURN FALSE;

Line 1045: wsh_debug_interface.g_debug := FALSE;

1041: IF nvl(v_debug_enabled,'!') = 'T' THEN
1042: wsh_debug_interface.g_debug := TRUE;
1043: RETURN TRUE;
1044: ELSIF nvl(v_debug_enabled,'!') = 'F' THEN
1045: wsh_debug_interface.g_debug := FALSE;
1046: RETURN FALSE;
1047: ELSIF to_number(v_debug_enabled) >= 0 THEN
1048: wsh_debug_interface.g_debug := TRUE;
1049: RETURN TRUE;

Line 1048: wsh_debug_interface.g_debug := TRUE;

1044: ELSIF nvl(v_debug_enabled,'!') = 'F' THEN
1045: wsh_debug_interface.g_debug := FALSE;
1046: RETURN FALSE;
1047: ELSIF to_number(v_debug_enabled) >= 0 THEN
1048: wsh_debug_interface.g_debug := TRUE;
1049: RETURN TRUE;
1050: ELSE
1051: wsh_debug_interface.g_debug := FALSE;
1052: RETURN FALSE;

Line 1051: wsh_debug_interface.g_debug := FALSE;

1047: ELSIF to_number(v_debug_enabled) >= 0 THEN
1048: wsh_debug_interface.g_debug := TRUE;
1049: RETURN TRUE;
1050: ELSE
1051: wsh_debug_interface.g_debug := FALSE;
1052: RETURN FALSE;
1053: END IF;
1054: RETURN FALSE;
1055:

Line 1240: IF wsh_debug_interface.g_Debug THEN

1236: v_Position NUMBER := 0;
1237:
1238: BEGIN
1239:
1240: IF wsh_debug_interface.g_Debug THEN
1241: IF g_DebugAll OR level_defined(x_Level) THEN
1242: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1243: IF g_TimeStack(v_Count).Marker = UPPER(x_Marker) THEN
1244: v_Position := v_Count;

Line 1263: wsh_debug_interface.g_Debug := FALSE;

1259: END IF;
1260:
1261: EXCEPTION
1262: WHEN OTHERS THEN
1263: wsh_debug_interface.g_Debug := FALSE;
1264: --raise;
1265:
1266: END tstart;
1267:

Line 1281: IF wsh_debug_interface.g_Debug THEN

1277: v_Context VARCHAR2(100);
1278:
1279: BEGIN
1280:
1281: IF wsh_debug_interface.g_Debug THEN
1282: IF g_DebugAll OR level_defined(x_Level) THEN
1283: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1284: IF g_TimeStack(v_Count).Marker = UPPER(x_Marker) THEN
1285: g_TimeStack(v_Count).TotalTime := g_TimeStack(v_Count).TotalTime +

Line 1296: wsh_debug_interface.g_Debug := FALSE;

1292: END IF;
1293:
1294: EXCEPTION
1295: WHEN OTHERS THEN
1296: wsh_debug_interface.g_Debug := FALSE;
1297: --raise;
1298:
1299: END tstop;
1300:

Line 1314: IF wsh_debug_interface.g_Debug THEN

1310:
1311: BEGIN
1312:
1313:
1314: IF wsh_debug_interface.g_Debug THEN
1315: IF g_DebugAll OR level_defined(x_Level) THEN
1316: --write_output(make_space||'Time Dump ('||x_Context||')');
1317: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1318: write_output(make_space||g_TimeStack(v_Count).Marker||' : '||

Line 1328: wsh_debug_interface.g_Debug := FALSE;

1324: END IF;
1325:
1326: EXCEPTION
1327: WHEN OTHERS THEN
1328: wsh_debug_interface.g_Debug := FALSE;
1329: --raise;
1330: END tdump;
1331:
1332:

Line 1348: IF wsh_debug_interface.g_Debug THEN

1344: v_Position NUMBER := 0;
1345:
1346: BEGIN
1347:
1348: IF wsh_debug_interface.g_Debug THEN
1349: IF g_DebugAll OR level_defined(x_Level) THEN
1350: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1351: IF g_TimeStack(v_Count).Marker = UPPER(x_Marker) THEN
1352: v_Position := v_Count;

Line 1374: wsh_debug_interface.g_Debug := FALSE;

1370: END IF;
1371:
1372: EXCEPTION
1373: WHEN OTHERS THEN
1374: wsh_debug_interface.g_Debug := FALSE;
1375: --raise;
1376:
1377: END start_time;
1378:

Line 1393: IF wsh_debug_interface.g_Debug THEN

1389: v_Position NUMBER := 0;
1390:
1391: BEGIN
1392:
1393: IF wsh_debug_interface.g_Debug THEN
1394: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1395: IF g_TimeStack(v_Count).Marker = UPPER(x_Marker) THEN
1396: v_Position := v_Count;
1397: EXIT;

Line 1417: wsh_debug_interface.g_Debug := FALSE;

1413: END IF;
1414:
1415: EXCEPTION
1416: WHEN OTHERS THEN
1417: wsh_debug_interface.g_Debug := FALSE;
1418: --raise;
1419:
1420: END start_time;
1421:

Line 1436: IF wsh_debug_interface.g_Debug THEN

1432: v_Context VARCHAR2(100);
1433:
1434: BEGIN
1435:
1436: IF wsh_debug_interface.g_Debug THEN
1437: IF g_DebugAll OR level_defined(x_Level) THEN
1438: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1439: IF g_TimeStack(v_Count).Marker = UPPER(x_Marker) THEN
1440: v_Context := x_Context;

Line 1458: wsh_debug_interface.g_Debug := FALSE;

1454: END IF;
1455:
1456: EXCEPTION
1457: WHEN OTHERS THEN
1458: wsh_debug_interface.g_Debug := FALSE;
1459: --raise;
1460:
1461: END stop_time;
1462:

Line 1476: IF wsh_debug_interface.g_Debug THEN

1472: v_Context VARCHAR2(100);
1473:
1474: BEGIN
1475:
1476: IF wsh_debug_interface.g_Debug THEN
1477: FOR v_Count IN 1..g_TimeStack.COUNT LOOP
1478: IF g_TimeStack(v_Count).Marker = UPPER(x_Marker) THEN
1479: v_Context := x_Context;
1480: IF v_Context IS NULL THEN

Line 1496: wsh_debug_interface.g_Debug := FALSE;

1492: END IF;
1493:
1494: EXCEPTION
1495: WHEN OTHERS THEN
1496: wsh_debug_interface.g_Debug := FALSE;
1497: --raise;
1498:
1499: END stop_time;
1500:

Line 1676: IF wsh_debug_interface.g_Debug THEN

1672: BEGIN
1673:
1674: log(g_Module,x_Text, x_Value,x_Level);
1675: /*
1676: IF wsh_debug_interface.g_Debug THEN
1677: IF g_DebugAll OR level_defined(x_Level) THEN
1678: IF x_Value IS NULL THEN
1679: write_output(make_space||x_Text);
1680: ELSE

Line 1689: wsh_debug_interface.g_Debug := FALSE;

1685: */
1686:
1687: EXCEPTION
1688: WHEN OTHERS THEN
1689: wsh_debug_interface.g_Debug := FALSE;
1690: END dlog;
1691:
1692:
1693: /*===========================================================================

Line 1706: IF wsh_debug_interface.g_Debug THEN

1702: BEGIN
1703:
1704: log(g_Module,x_Text, x_Value,x_Level);
1705: /*
1706: IF wsh_debug_interface.g_Debug THEN
1707: IF g_DebugAll OR level_defined(x_Level) THEN
1708: write_output(make_space||x_Text||C_DELIMITER||x_Value);
1709: END IF;
1710: END IF;

Line 1715: wsh_debug_interface.g_Debug := FALSE;

1711: */
1712:
1713: EXCEPTION
1714: WHEN OTHERS THEN
1715: wsh_debug_interface.g_Debug := FALSE;
1716:
1717: END dlog;
1718:
1719:

Line 1734: IF wsh_debug_interface.g_Debug THEN

1730: BEGIN
1731:
1732: log(g_Module,x_Text, x_Value,x_Level);
1733: /*
1734: IF wsh_debug_interface.g_Debug THEN
1735: IF g_DebugAll OR level_defined(x_Level) THEN
1736: IF x_Value THEN
1737: v_Temp := 'TRUE';
1738: ELSIF NOT x_Value THEN

Line 1748: wsh_debug_interface.g_Debug := FALSE;

1744: */
1745:
1746: EXCEPTION
1747: WHEN OTHERS THEN
1748: wsh_debug_interface.g_Debug := FALSE;
1749:
1750: END dlog;
1751:
1752:

Line 1767: IF wsh_debug_interface.g_Debug THEN

1763: BEGIN
1764:
1765: log(g_Module,x_Text, x_Value,x_Level);
1766: /*
1767: IF wsh_debug_interface.g_Debug THEN
1768: IF g_DebugAll OR level_defined(x_Level) THEN
1769: write_output(make_space||x_Text||C_DELIMITER||TO_CHAR(x_Value, x_Mask));
1770: END IF;
1771: END IF;

Line 1776: wsh_debug_interface.g_Debug := FALSE;

1772: */
1773:
1774: EXCEPTION
1775: WHEN OTHERS THEN
1776: wsh_debug_interface.g_Debug := FALSE;
1777:
1778: END dlog;
1779:
1780:

Line 1794: IF wsh_debug_interface.g_Debug THEN

1790: BEGIN
1791:
1792: log(g_Module,x_Text, x_Value);
1793: /*
1794: IF wsh_debug_interface.g_Debug THEN
1795: IF x_Value IS NULL THEN
1796: write_output(make_space||x_Text);
1797: ELSE
1798: write_output(make_space||x_Text||C_DELIMITER||x_Value);

Line 1805: wsh_debug_interface.g_Debug := FALSE;

1801: */
1802:
1803: EXCEPTION
1804: WHEN OTHERS THEN
1805: wsh_debug_interface.g_Debug := FALSE;
1806:
1807: END dlog;
1808:
1809:

Line 1823: IF wsh_debug_interface.g_Debug THEN

1819: BEGIN
1820:
1821: log(g_Module,x_Text, x_Value);
1822: /*
1823: IF wsh_debug_interface.g_Debug THEN
1824: write_output(make_space||x_Text||C_DELIMITER||x_Value);
1825: END IF;
1826: */
1827:

Line 1830: wsh_debug_interface.g_Debug := FALSE;

1826: */
1827:
1828: EXCEPTION
1829: WHEN OTHERS THEN
1830: wsh_debug_interface.g_Debug := FALSE;
1831:
1832: END dlog;
1833:
1834:

Line 1849: IF wsh_debug_interface.g_Debug THEN

1845: BEGIN
1846:
1847: log(g_Module,x_Text, x_Value);
1848: /*
1849: IF wsh_debug_interface.g_Debug THEN
1850: IF x_Value THEN
1851: v_Temp := 'TRUE';
1852: ELSIF NOT x_Value THEN
1853: v_Temp := 'FALSE';

Line 1861: wsh_debug_interface.g_Debug := FALSE;

1857: */
1858:
1859: EXCEPTION
1860: WHEN OTHERS THEN
1861: wsh_debug_interface.g_Debug := FALSE;
1862:
1863: END dlog;
1864:
1865:

Line 1880: IF wsh_debug_interface.g_Debug THEN

1876: BEGIN
1877:
1878: log(g_Module,x_Text, x_Value);
1879: /*
1880: IF wsh_debug_interface.g_Debug THEN
1881: write_output(make_space||x_Text||C_DELIMITER||TO_CHAR(x_Value, x_Mask));
1882: END IF;
1883: */
1884:

Line 1887: wsh_debug_interface.g_Debug := FALSE;

1883: */
1884:
1885: EXCEPTION
1886: WHEN OTHERS THEN
1887: wsh_debug_interface.g_Debug := FALSE;
1888:
1889: END dlog;
1890:
1891: /*===========================================================================

Line 1904: IF wsh_debug_interface.g_Debug THEN

1900:
1901:
1902: BEGIN
1903:
1904: IF wsh_debug_interface.g_Debug THEN
1905: IF g_DebugAll OR level_defined(x_Level) THEN
1906: IF (x_Index IS NULL) AND (x_Text2 IS NULL) AND
1907: (x_Value IS NULL) THEN
1908: write_output(make_space||x_Text1);

Line 1918: wsh_debug_interface.g_Debug := FALSE;

1914: END IF;
1915:
1916: EXCEPTION
1917: WHEN OTHERS THEN
1918: wsh_debug_interface.g_Debug := FALSE;
1919:
1920: END dlogd;
1921:
1922: /*===========================================================================

Line 1935: IF wsh_debug_interface.g_Debug THEN

1931:
1932:
1933: BEGIN
1934:
1935: IF wsh_debug_interface.g_Debug THEN
1936: IF g_DebugAll OR level_defined(x_Level) THEN
1937: IF (x_Index IS NULL) AND (x_Text2 IS NULL) AND
1938: (x_Value IS NULL) THEN
1939: write_output(make_space||x_Text1);

Line 1964: wsh_debug_interface.g_Debug := FALSE;

1960: BEGIN
1961: push(x_Module); -- for backward compatibility.
1962: EXCEPTION
1963: WHEN OTHERS THEN
1964: wsh_debug_interface.g_Debug := FALSE;
1965: END push;
1966:
1967: /*===========================================================================
1968:

Line 1980: wsh_debug_interface.g_Debug := FALSE;

1976: BEGIN
1977: push(v_Module); -- for backward compatibility.
1978: EXCEPTION
1979: WHEN OTHERS THEN
1980: wsh_debug_interface.g_Debug := FALSE;
1981: END dpush;
1982:
1983: /*===========================================================================
1984: PROCEDURE NAME: dpush -- Obsoleted

Line 1991: IF wsh_debug_interface.g_Debug THEN

1987: /*
1988: PROCEDURE dpush(x_Name IN VARCHAR2)
1989: IS
1990: BEGIN
1991: IF wsh_debug_interface.g_Debug THEN
1992: g_CallStack(g_CallStack.COUNT) := UPPER(x_Name);
1993: tstart(x_Name);
1994: write_output(make_space(1)||'Entering '||UPPER(x_Name)||' ('||TO_CHAR(sysdate,'MM/DD/YYYY HH24:MI')||')');
1995:

Line 2022: IF wsh_debug_interface.g_Debug THEN

2018: END IF;
2019:
2020: pop(v_Module,x_Context); -- for backward compatibility.
2021: /*
2022: IF wsh_debug_interface.g_Debug THEN
2023: IF g_DebugAll OR level_defined(x_Level) THEN
2024: IF x_Context IS NOT NULL THEN
2025: write_output(make_space(1)||'Exiting '||g_CallStack(g_CallStack.COUNT-1) ||' - '||x_Context
2026: ||' ('||tprint(g_CallStack(g_CallStack.COUNT-1))||')');

Line 2038: wsh_debug_interface.g_Debug := FALSE;

2034: END IF;
2035: */
2036: EXCEPTION
2037: WHEN OTHERS THEN
2038: wsh_debug_interface.g_Debug := FALSE;
2039: END dpop;
2040:
2041: /*===========================================================================
2042: PROCEDURE NAME: dpop

Line 2046: IF wsh_debug_interface.g_Debug THEN

2042: PROCEDURE NAME: dpop
2043: PROCEDURE dpop(x_Context IN VARCHAR2 := NULL)
2044: IS
2045: BEGIN
2046: IF wsh_debug_interface.g_Debug THEN
2047: IF x_Context IS NOT NULL THEN
2048: write_output(make_space(1)||'Exiting '||g_CallStack(g_CallStack.COUNT-1)||
2049: ' - '||x_Context
2050: ||' ('||tprint(g_CallStack(g_CallStack.COUNT-1))||')');