[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_DEBUG_PKG
Source
1 PACKAGE BODY IGI_IAC_DEBUG_PKG AS
2 /* $Header: igiiadeb.pls 120.5.12000000.1 2007/08/01 16:14:38 npandya ship $ */
3
4 /*=========================================================================+
5 | Function Name: |
6 | debug |
7 | |
8 | Description: |
9 | This function is for debug purpose writes inmto temperaory file |
10 | or writes to log or output file |
11 | |
12 +=========================================================================*/
13
14 l_debug_log varchar2(255);
15 l_debug_output varchar2(255);
16 l_output_dir varchar2(255);
17 chr_newline VARCHAR2(8);
18 l_calling_function varchar2(250);
19 l_debug_switch boolean;
20 PROCEDURE debug(p_debug_type Number,p_debug IN VARCHAR2)
21 IS
22 l_vc2 VARCHAR2(32000);
23 l_line_size NUMBER;
24 l_pos NUMBER;
25
26 BEGIN
27 l_vc2 := p_debug || chr_newline;
28 l_line_size := 75;
29 IF (l_debug_switch) THEN
30 fnd_file.put_names(l_debug_log,l_debug_output,l_output_dir);
31 fnd_file.put_line(fnd_file.output,p_debug);
32 END IF;
33 IF p_debug_type = 1 then
34 Fnd_file.put_line(fnd_file.log,p_debug);
35 ELSIF p_debug_type = 2 then
36 Fnd_file.put_line(fnd_file.output,p_debug);
37 END IF;
38 EXCEPTION
39 WHEN OTHERS THEN
40 NULL;
41 END debug;
42 /*
43 * BOOLTOCHAR
44 *
45 * A utility function to convert boolean values to char to print in
46 * debug statements
47 */
48 FUNCTION BOOLTOCHAR(value IN BOOLEAN) RETURN VARCHAR2
49 IS
50 BEGIN
51 IF (value) THEN
52 RETURN 'TRUE';
53 ELSE
54 RETURN 'FALSE';
55 END IF;
56 END BOOLTOCHAR;
57
58
59 /*
60 * Set the debug mode on
61 */
62 PROCEDURE debug_on(p_calling_function varchar2) IS
63 BEGIN
64 l_debug_switch := FALSE;
65 select substr(value,1,decode ((INSTR(value,',', 1, 1)-1),0,length(value),(INSTR(value,',', 1, 1)-1)))
66 into l_output_dir
67 from v$parameter
68 where name like 'utl%';
69
70 l_calling_function := P_calling_function;
71 l_debug_log := P_calling_function || '.log';
72 l_debug_output := P_calling_function || '.out';
73 IF FND_PROFILE.VALUE('IGI_DEBUG_OPTION') = 'Y' THEN
74 l_debug_switch := TRUE;
75 ELSE
76 l_debug_switch := FALSE;
77 END IF;
78 EXCEPTION
79 WHEN OTHERS THEN
80 NULL;
81 END debug_on;
82
83 /*
84 * Set the debug mode off
85 */
86 PROCEDURE debug_off IS
87 BEGIN
88 If l_debug_switch then
89 fnd_file.close;
90 end if;
91 l_debug_switch := FALSE;
92 END debug_off;
93
94 -- ============================FND LOG START===============================
95
96
97 PROCEDURE debug_unexpected_msg(p_full_path IN VARCHAR2) IS
98 BEGIN
99 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
100 FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
101 FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
102 FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
103 FND_LOG.MESSAGE (FND_LOG.LEVEL_UNEXPECTED,p_full_path, TRUE);
104 END IF;
105 END;
106
107 PROCEDURE debug_other_msg(p_level IN NUMBER,
108 p_full_path IN VARCHAR2,
109
110 p_remove_from_stack IN BOOLEAN) IS
111
112
113 BEGIN
114 IF (p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
115 fnd_log.message(p_level,p_full_path,p_remove_from_stack);
116 END IF;
117 END;
118
119 PROCEDURE debug_other_string(p_level IN NUMBER,
120 p_full_path IN VARCHAR2,
121 p_string IN VARCHAR2) IS
122 BEGIN
123
124 IF (p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
125 fnd_log.string(p_level,p_full_path,p_string);
126 END IF;
127 END;
128
129
130 -- ============================FND LOG END ==================================
131
132 -- Enter further code below as specified in the Package spec.
133 BEGIN
134 chr_newline := fnd_global.newline;
135
136 END;
137