PACKAGE BODY: APPS.PJM_DEBUG

Source

1 PACKAGE BODY PJM_DEBUG AS
2 /* $Header: PJMDBGB.pls 115.3 2003/07/09 22:09:07 alaw noship $ */
3 
4 --
5 -- Debugger Globals
6 --
7 G_User_ID        NUMBER          := NULL;
8 G_Debug_Mode     VARCHAR2(1)     := NULL;
9 G_Module         VARCHAR2(240);
10 G_Log_Level      NUMBER;
11 G_Runtime_Level  NUMBER          := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
12 
13 -- -------------------------------------------------------------------
14 -- PL/SQL Server Debugger
15 -- -------------------------------------------------------------------
16 
17 --
18 -- This procedure forces the current session into debug mode regardless
19 -- of the user profile setting
20 --
21 PROCEDURE Enable_Debug IS
22 BEGIN
23   G_User_ID    := FND_GLOBAL.User_ID;
24   G_Debug_Mode := 'Y';
25 END Enable_Debug;
26 
27 
28 --
29 -- This procedure forces the current session out of debug mode regardless
30 -- of the user profile setting
31 --
32 PROCEDURE Disable_Debug IS
33 BEGIN
34   G_User_ID    := FND_GLOBAL.User_ID;
35   G_Debug_Mode := 'N';
36 END Disable_Debug;
37 
38 
39 --
40 -- This function checks for debug mode setting.
41 --
42 FUNCTION Debug_Mode
43 RETURN VARCHAR2 IS
44 BEGIN
45 
46   IF (  G_Debug_Mode IS NULL
47      OR G_User_ID <> FND_GLOBAL.User_ID ) THEN
48 
49     G_Debug_Mode := NVL( FND_PROFILE.VALUE('PJM_DEBUG_MODE') , 'N' );
50     G_User_ID := FND_GLOBAL.User_ID;
51 
52   END IF;
53 
54   RETURN ( G_Debug_Mode );
55 
56 EXCEPTION
57   WHEN OTHERS THEN
58     RETURN ( 'N' );
59 
60 END Debug_Mode;
61 
62 
63 PROCEDURE Debug
64 ( text       IN  VARCHAR2
65 , module     IN  VARCHAR2
66 , log_level  IN  NUMBER
67 ) IS
68 
69 BEGIN
70 
71   G_Log_Level := nvl( log_level , FND_LOG.LEVEL_STATEMENT );
72 
73   IF ( G_Log_Level >= G_Runtime_Level OR Debug_Mode = 'Y' ) THEN
74 
75     G_Module := nvl( module , nvl( G_Module , 'pjm.plsql.generic' ) );
76 
77     FND_LOG.STRING( G_Log_Level , G_Module , text );
78 
79   END IF;
80 
81 EXCEPTION
82 WHEN OTHERS THEN
83   NULL;
84 END Debug;
85 
86 
87 --
88 -- This procedure is obsolete and will do nothing
89 --
90 PROCEDURE Indent ( level IN  NUMBER ) IS
91 BEGIN
92   NULL;
93 END Indent;
94 
95 END PJM_DEBUG;