PACKAGE BODY: APPS.WSH_DEBUG_INTERFACE

Source

1 PACKAGE BODY WSH_DEBUG_INTERFACE as
2 /* $Header: WSHDBGIB.pls 115.5 2003/09/11 23:07:24 nparikh ship $ */
3 
4 /*===========================================================================
5 
6 PROCEDURE NAME:	start_debugger
7 
8 DESCRIPTION	This procedure is used to turn on the Shipping Debugger by other
9 	        products
10 
11 ============================================================================*/
12 PROCEDURE start_debugger
13 	    (
14 	      p_dir_name IN VARCHAR2,
15 	      p_file_name IN VARCHAR2,
16 	      p_file_handle IN utl_file.file_type
17 	    )
18 IS
19 l_code_release_level VARCHAR2(30);
20 BEGIN
21 
22   l_code_release_level := WSH_CODE_CONTROL.Get_Code_Release_Level;
23   --
24   IF ( nvl(fnd_global.conc_request_id, -1)  > 0 )
25   THEN
26     If l_code_release_level >= '110509'
27     THEN
28         fnd_profile.put('WSH_DEBUG_MODE','T');
29     ELSE
30         fnd_profile.put('WSH_DEBUG_MODE','1');
31     END IF;
32     --
33     g_debug := TRUE;
34     g_file := NVL(p_file_name,'Dummy');
35     --RETURN;
36   END IF;
37   --
38   IF  p_dir_name  IS NOT NULL
39   AND p_file_name IS NOT NULL
40   AND utl_file.is_open(p_file_handle)
41   THEN
42     If l_code_release_level >= '110509'
43     THEN
44         fnd_profile.put('WSH_DEBUG_MODE','T');
45     ELSE
46         fnd_profile.put('WSH_DEBUG_MODE','1');
47     END IF;
48     fnd_profile.put('WSH_DEBUG_DIR',p_dir_name);
49     g_file := p_file_name;
50     g_file_handle := p_file_handle;
51     g_debug := TRUE;
52     --
53   END IF;
54 
55 EXCEPTION
56   WHEN OTHERS THEN
57     NULL;
58 END start_debugger;
59 
60 
61 /*===========================================================================
62 
63 PROCEDURE NAME:	stop_debugger
64 
65 DESCRIPTION	This procedure is used to turn off the Shipping Debugger by other
66 	        products
67 
68 ============================================================================*/
69 PROCEDURE stop_debugger
70 IS
71 l_code_release_level VARCHAR2(30);
72 BEGIN
73 
74   l_code_release_level := WSH_CODE_CONTROL.Get_Code_Release_Level;
75   --
76   /*
77   IF ( nvl(fnd_global.conc_request_id, -1)  > 0 )
78   THEN
79     fnd_profile.put('WSH_DEBUG_MODE','F');
80     g_debug := FALSE;
81     g_file := NULL;
82     RETURN;
83   END IF;
84   --
85   */
86 
87     If l_code_release_level >= '110509'
88     THEN
89         fnd_profile.put('WSH_DEBUG_MODE','F');
90     ELSE
91         fnd_profile.put('WSH_DEBUG_MODE','0');
92     END IF;
93     --fnd_profile.put('WSH_DEBUG_MODE','F');
94     g_file := NULL;
95     g_file_handle := NULL;
96     g_debug := FALSE;
97 
98 EXCEPTION
99   WHEN OTHERS THEN
100      NULL;
101 END stop_debugger;
102 
103 END WSH_DEBUG_INTERFACE;