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.1 2005/06/29 12:33:02 appldev 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.1 2005/06/29 12:33:02 appldev 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: --OE_DEBUG_PUB.G_DEBUG := FND_API.G_TRUE;
76: End Debug_On;
77:
78:

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

78:
79: Procedure Debug_OFF
80: IS
81: Begin
82: ASO_DEBUG_PUB.G_DEBUG := FND_API.G_FALSE;
83: OE_DEBUG_PUB.G_DEBUG := FND_API.G_FALSE;
84: End Debug_Off;
85:
86:

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

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

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

125:
126: BEGIN
127:
128:
129: if ASO_DEBUG_PUB.G_FILE = 'OFF' then
130: return;
131: end if;
132:
133: if ASO_DEBUG_PUB.G_FILE is null then

Line 133: if ASO_DEBUG_PUB.G_FILE is null then

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

Line 135: aso_debug_pub.SetDebugLevel(10);

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

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

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

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

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

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

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

Line 294: ASO_DEBUG_PUB.G_DEBUG_LEVEL := p_debug_level;

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

Line 300: ASO_DEBUG_PUB.Debug_off;

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

Line 301: ASO_DEBUG_PUB.G_FILE := null;

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

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

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

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

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

Line 312: END ASO_DEBUG_PUB;

308: When Others Then
309: null;
310: end;
311:
312: END ASO_DEBUG_PUB;