DBA Data[Home] [Help]

APPS.ASO_DEBUG_PUB dependencies on ASO_DEBUG_PUB

Line 1: PACKAGE BODY ASO_DEBUG_PUB as

1: PACKAGE BODY ASO_DEBUG_PUB as
2: /* $Header: asoidbgb.pls 120.2 2009/10/29 14:59:26 rassharm ship $ */
3: -- Start of Comments
4: -- Package name : ASO_DEBUG_PUB
5: -- Purpose :

Line 4: -- Package name : ASO_DEBUG_PUB

1: PACKAGE BODY ASO_DEBUG_PUB as
2: /* $Header: asoidbgb.pls 120.2 2009/10/29 14:59:26 rassharm ship $ */
3: -- Start of Comments
4: -- Package name : ASO_DEBUG_PUB
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

Line 21: --IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'ASO'||FND_GLOBAL.USER_NAME||'.dbg') Then

17:
18: G_DEBUG_MODE := 'FILE';
19: OE_DEBUG_PUB.G_DEBUG_MODE := 'FILE';
20: if G_FILE is null then
21: --IF (ASO_DEBUG_PUB.G_FILE is NULL OR ASO_DEBUG_PUB.G_FILE <> 'ASO'||FND_GLOBAL.USER_NAME||'.dbg') Then
22: select aso_debug_file_s.nextval
23: into l_dbgfile_number
24: from dual;
25:

Line 43: aso_debug_pub.setdebuglevel(G_Debug_Level);

39: --G_DEBUG_MODE := 'TABLE';
40: rtn_val := null;
41: end if;
42:
43: aso_debug_pub.setdebuglevel(G_Debug_Level);
44: aso_debug_pub.debug_on;
45:
46: return(rtn_val);
47: Exception when others then

Line 44: aso_debug_pub.debug_on;

40: rtn_val := null;
41: end if;
42:
43: aso_debug_pub.setdebuglevel(G_Debug_Level);
44: aso_debug_pub.debug_on;
45:
46: return(rtn_val);
47: Exception when others then
48: G_DEBUG_MODE := 'FILE';

Line 65: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;

61:
62: OE_DEBUG_PUB.G_Debug_tbl.DELETE;
63: OE_DEBUG_PUB.G_Debug_count := 0;
64: OE_DEBUG_PUB.G_Debug_index := 0;
65: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;
66: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;
67:
68: END Initialize;
69:

Line 66: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;

62: OE_DEBUG_PUB.G_Debug_tbl.DELETE;
63: OE_DEBUG_PUB.G_Debug_count := 0;
64: OE_DEBUG_PUB.G_Debug_index := 0;
65: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;
66: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;
67:
68: END Initialize;
69:
70:

Line 74: ASO_DEBUG_PUB.G_DEBUG := FND_API.G_TRUE;

70:
71: Procedure Debug_ON
72: IS
73: Begin
74: ASO_DEBUG_PUB.G_DEBUG := FND_API.G_TRUE;
75: -- bug 9040436
76: if OE_DEBUG_PUB.G_DEBUG= FND_API.G_FALSE then
77: OE_DEBUG_PUB.G_DEBUG := FND_API.G_TRUE;
78: end if;

Line 85: ASO_DEBUG_PUB.G_DEBUG := FND_API.G_FALSE;

81:
82: Procedure Debug_OFF
83: IS
84: Begin
85: ASO_DEBUG_PUB.G_DEBUG := FND_API.G_FALSE;
86: OE_DEBUG_PUB.G_DEBUG := FND_API.G_FALSE;
87: End Debug_Off;
88:
89:

Line 93: if ASO_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE then

89:
90: Function ISDebugOn
91: Return Boolean IS
92: Begin
93: if ASO_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE then
94: RETURN(TRUE);
95: else
96: RETURN(FALSE);
97: end if;

Line 132: if ASO_DEBUG_PUB.G_FILE = 'OFF' then

128:
129: BEGIN
130:
131:
132: if ASO_DEBUG_PUB.G_FILE = 'OFF' then
133: return;
134: end if;
135:
136: if ASO_DEBUG_PUB.G_FILE is null then

Line 136: if ASO_DEBUG_PUB.G_FILE is null then

132: if ASO_DEBUG_PUB.G_FILE = 'OFF' then
133: return;
134: end if;
135:
136: if ASO_DEBUG_PUB.G_FILE is null then
137: if nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N') = 'Y' then
138: aso_debug_pub.SetDebugLevel(10);
139: l_fname := set_debug_mode('FILE');
140: -- I could not test this, But this is the problem. This should be set after

Line 138: aso_debug_pub.SetDebugLevel(10);

134: end if;
135:
136: if ASO_DEBUG_PUB.G_FILE is null then
137: if nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N') = 'Y' then
138: aso_debug_pub.SetDebugLevel(10);
139: l_fname := set_debug_mode('FILE');
140: -- I could not test this, But this is the problem. This should be set after
141: -- set_debug_mode call, other G_FILE will be null
142: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;

Line 142: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;

138: aso_debug_pub.SetDebugLevel(10);
139: l_fname := set_debug_mode('FILE');
140: -- I could not test this, But this is the problem. This should be set after
141: -- set_debug_mode call, other G_FILE will be null
142: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;
143: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;
144: utl_file.put_line(G_FILE_PTR, 'Hello Sir, U have Opened a New Session');
145: else
146: ASO_DEBUG_PUB.G_FILE := 'OFF';

Line 143: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;

139: l_fname := set_debug_mode('FILE');
140: -- I could not test this, But this is the problem. This should be set after
141: -- set_debug_mode call, other G_FILE will be null
142: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;
143: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;
144: utl_file.put_line(G_FILE_PTR, 'Hello Sir, U have Opened a New Session');
145: else
146: ASO_DEBUG_PUB.G_FILE := 'OFF';
147: return;

Line 146: ASO_DEBUG_PUB.G_FILE := 'OFF';

142: OE_DEBUG_PUB.G_DIR := ASO_DEBUG_PUB.G_DIR;
143: OE_DEBUG_PUB.G_FILE := ASO_DEBUG_PUB.G_FILE;
144: utl_file.put_line(G_FILE_PTR, 'Hello Sir, U have Opened a New Session');
145: else
146: ASO_DEBUG_PUB.G_FILE := 'OFF';
147: return;
148: end if;
149: end if;
150:

Line 297: ASO_DEBUG_PUB.G_DEBUG_LEVEL := p_debug_level;

293:
294: Procedure SetDebugLevel(p_debug_level in number)
295: IS
296: Begin
297: ASO_DEBUG_PUB.G_DEBUG_LEVEL := p_debug_level;
298: OE_DEBUG_PUB.G_DEBUG_LEVEL := p_debug_level;
299: End SetDebugLevel;
300:
301: procedure disable_debug_pvt is

Line 303: ASO_DEBUG_PUB.Debug_off;

299: End SetDebugLevel;
300:
301: procedure disable_debug_pvt is
302: begin
303: ASO_DEBUG_PUB.Debug_off;
304: ASO_DEBUG_PUB.G_FILE := null;
305: OE_DEBUG_PUB.Debug_off;
306: OE_DEBUG_PUB.G_FILE := null;
307: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then

Line 304: ASO_DEBUG_PUB.G_FILE := null;

300:
301: procedure disable_debug_pvt is
302: begin
303: ASO_DEBUG_PUB.Debug_off;
304: ASO_DEBUG_PUB.G_FILE := null;
305: OE_DEBUG_PUB.Debug_off;
306: OE_DEBUG_PUB.G_FILE := null;
307: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
308: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);

Line 307: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then

303: ASO_DEBUG_PUB.Debug_off;
304: ASO_DEBUG_PUB.G_FILE := null;
305: OE_DEBUG_PUB.Debug_off;
306: OE_DEBUG_PUB.G_FILE := null;
307: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
308: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);
309: End If;
310: exception
311: When Others Then

Line 308: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);

304: ASO_DEBUG_PUB.G_FILE := null;
305: OE_DEBUG_PUB.Debug_off;
306: OE_DEBUG_PUB.G_FILE := null;
307: If utl_file.is_Open(ASO_DEBUG_PUB.G_FILE_PTR) Then
308: utl_file.fclose(ASO_DEBUG_PUB.G_FILE_PTR);
309: End If;
310: exception
311: When Others Then
312: null;

Line 315: END ASO_DEBUG_PUB;

311: When Others Then
312: null;
313: end;
314:
315: END ASO_DEBUG_PUB;