1 PACKAGE BODY EDW_MESSAGE_S AS
2 /* $Header: EDWCOMSB.pls 115.4 99/11/01 14:04:31 porting ship $*/
3 PROCEDURE SQL_ERROR(routine IN varchar2 ,
4 location IN varchar2,
5 error_code IN number) IS
6 BEGIN
7 IF (g_routine is NULL) THEN
8 g_routine := routine;
9 g_location := location;
10
11 FND_MESSAGE.set_name('BIS', 'EDW_ALL_SQL_ERROR');
12 FND_MESSAGE.set_token('ROUTINE', g_routine);
13 FND_MESSAGE.set_token('ERR_NUMBER', g_location);
14 FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
15 END IF;
16
17 EXCEPTION
18 WHEN OTHERS THEN RAISE;
19 END SQL_ERROR;
20
21 PROCEDURE APP_ERROR(error_name IN varchar2) IS
22 BEGIN
23 IF (g_routine is NULL) THEN
24 g_routine := 'ERROR';
25 FND_MESSAGE.set_name('BIS',error_name);
26 APP_EXCEPTION.RAISE_EXCEPTION;
27 END IF;
28
29 EXCEPTION
30 WHEN OTHERS THEN RAISE;
31 END APP_ERROR;
32
33 PROCEDURE APP_ERROR(error_name IN varchar2,
34 token1 IN varchar2,
35 value1 IN varchar2) IS
36 BEGIN
37 IF (g_routine is NULL) THEN
38 g_routine := 'ERROR';
39
40 FND_MESSAGE.set_name('BIS',error_name);
41
42 IF (token1 is not NULL and value1 is not null) THEN
43 FND_MESSAGE.SET_TOKEN(token1,value1);
44 END IF;
45
46 APP_EXCEPTION.RAISE_EXCEPTION;
47 END IF;
48
49 EXCEPTION
50 WHEN OTHERS THEN RAISE;
51 END APP_ERROR;
52
53 PROCEDURE APP_ERROR(error_name IN varchar2,
54 token1 IN varchar2,
55 value1 IN varchar2,
56 token2 IN varchar2,
57 value2 IN varchar2) IS
58 BEGIN
59 IF (g_routine is NULL) THEN
60 g_routine := 'ERROR';
61
62 FND_MESSAGE.set_name('BIS',error_name);
63
64 IF (token1 is not NULL and value1 is not null) THEN
65 FND_MESSAGE.SET_TOKEN(token1,value1);
66 END IF;
67
68 IF (token2 is not NULL and value2 is not null) THEN
69 FND_MESSAGE.SET_TOKEN(token2,value2);
70 END IF;
71
72 APP_EXCEPTION.RAISE_EXCEPTION;
73 END IF;
74
75 EXCEPTION
76 WHEN OTHERS THEN RAISE;
77 END APP_ERROR;
78
79 PROCEDURE APP_ERROR(error_name IN varchar2,
80 token1 IN varchar2,
81 value1 IN varchar2,
82 token2 IN varchar2,
83 value2 IN varchar2,
84 token3 IN varchar2,
85 value3 IN varchar2) IS
86 BEGIN
87 IF (g_routine is NULL) THEN
88 g_routine := 'ERROR';
89
90 FND_MESSAGE.set_name('BIS',error_name);
91
92 IF (token1 is not NULL and value1 is not null) THEN
93 FND_MESSAGE.SET_TOKEN(token1,value1);
94 END IF;
95
96 IF (token2 is not NULL and value2 is not null) THEN
97 FND_MESSAGE.SET_TOKEN(token2,value2);
98 END IF;
99
100 IF (token3 is not NULL and value3 is not null) THEN
101 FND_MESSAGE.SET_TOKEN(token3,value3);
102 END IF;
103
104 APP_EXCEPTION.RAISE_EXCEPTION;
105 END IF;
106
107 EXCEPTION
108 WHEN OTHERS THEN RAISE;
109 END APP_ERROR;
110
111 PROCEDURE APP_ERROR(error_name IN varchar2,
112 token1 IN varchar2,
113 value1 IN varchar2,
114 token2 IN varchar2,
115 value2 IN varchar2,
116 token3 IN varchar2,
117 value3 IN varchar2,
118 token4 IN varchar2,
119 value4 IN varchar2) IS
120 BEGIN
121 IF (g_routine is NULL) THEN
122 g_routine := 'ERROR';
123
124 FND_MESSAGE.set_name('BIS',error_name);
125
126 IF (token1 is not NULL and value1 is not null) THEN
127 FND_MESSAGE.SET_TOKEN(token1,value1);
128 END IF;
129
130 IF (token2 is not NULL and value2 is not null) THEN
131 FND_MESSAGE.SET_TOKEN(token2,value2);
132 END IF;
133
134 IF (token3 is not NULL and value3 is not null) THEN
135 FND_MESSAGE.SET_TOKEN(token3,value3);
136 END IF;
137
138 IF (token4 is not NULL and value4 is not null) THEN
139 FND_MESSAGE.SET_TOKEN(token4,value4);
140 END IF;
141
142 APP_EXCEPTION.RAISE_EXCEPTION;
143 END IF;
144
145 EXCEPTION
146 WHEN OTHERS THEN RAISE;
147 END APP_ERROR;
148
149 PROCEDURE APP_SET_NAME(error_name IN varchar2) IS
150 BEGIN
151 IF (g_routine is null) THEN
152 g_routine := 'ERROR';
153 FND_MESSAGE.set_name('BIS',error_name);
154 END IF;
155
156 EXCEPTION
157 WHEN OTHERS THEN RAISE;
158 END APP_SET_NAME;
159
160 PROCEDURE clear IS
161 BEGIN
162 g_routine := NULL;
163 g_location := NULL;
164
165 EXCEPTION
166 WHEN OTHERS THEN RAISE;
167 END CLEAR;
168
169 PROCEDURE SQL_SHOW_ERROR IS
170 BEGIN
171 null;
172 /* dbms_output.put_line ('Error Occured in routine : ' ||
173 g_routine || ' - Location : ' || g_location);
174 */
175 EXCEPTION
176 WHEN OTHERS THEN RAISE;
177 END SQL_SHOW_ERROR;
178
179 END EDW_MESSAGE_S;