[Home] [Help]
PACKAGE BODY: APPS.BIS_ERROR_MESSAGE_FORM_PVT
Source
1 package BODY BIS_ERROR_MESSAGE_FORM_PVT AS
2 /* $Header: BISVERFB.pls 115.10 1999/12/14 08:32:09 pkm ship $ */
3 -- +=======================================================================+
4 -- | Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA |
5 -- | All rights reserved. |
6 -- +=======================================================================+
7 -- | FILENAME |
8 -- | BISVERFB.pls |
9 -- | |
10 -- | DESCRIPTION |
11 -- | Private API for displaying errors
12 -- | NOTES |
13 -- | |
14 -- | HISTORY |
15 -- | 15-APR-99 ansingha Creation
16 -- |
17 -- +=======================================================================+
18
19
20 -- Data Types: Records
21 G_PKG_NAME CONSTANT VARCHAR2(30) := 'BIS_ERROR_MESSAGE_FORM_PVT';
22 G_WINDOW_NAME CONSTANT VARCHAR2(30) := 'Error Window';
23 -- Procedure just puts the relevant function in the javascript
24 -- with all the messages displayed as specified in the p_msg_window_text
25 PROCEDURE Put_Errors
26 ( p_api_version IN NUMBER
27 , p_msg_window_text IN VARCHAR2
28 , x_return_status OUT VARCHAR2
29 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
30 )
31 IS
32 BEGIN
33
34 htp.p('<SCRIPT LANGUAGE="JavaScript">');
35
36 htp.p('FUNCTION '||BIS_ERROR_MESSAGE_FORM_PVT.G_ONLOAD_FUNCTION_NAME||'(){');
37 -- htp.p('alert("'|| p_msg_window_text||'");');
38 htp.p('
39 popupWin = window.open( ""
40 ,"'||G_WINDOW_NAME||'"
41 , "width=350,height=400,status=no,toolbar=no,
42 menubar=no,scrollbars=yes,resizable=yes,
43 titlebar=no"
44 );
45
46 popupWin.document.open();
47 popupWin.document.title = '||BIS_UTILITIES_PVT.getPrompt
48 ('BIS_ERROR_WINDOW_TITLE')||';
49 popupWin.document.write("'||p_msg_window_text||'");
50 popupWin.document.close();
51
52 }');
53 htp.p('</SCRIPT>');
54
55 EXCEPTION
56 WHEN NO_DATA_FOUND THEN
57 x_return_status := FND_API.G_RET_STS_ERROR ;
58 RAISE FND_API.G_EXC_ERROR;
59 when FND_API.G_EXC_ERROR then
60 x_return_status := FND_API.G_RET_STS_ERROR ;
61 RAISE FND_API.G_EXC_ERROR;
62 when FND_API.G_EXC_UNEXPECTED_ERROR then
63 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
64 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65 when others then
66 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
67 BIS_UTILITIES_PVT.Add_Error_Message
68 ( p_error_msg_id => SQLCODE
69 , p_error_description => SQLERRM
70 , p_error_proc_name => G_PKG_NAME||'.Put_Errors'
71 , p_error_table => x_error_tbl
72 , x_error_table => x_error_tbl
73 );
74 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75
76 END Put_Errors;
77 --
78 -- Procedure just puts the relevant function in the javascript
79 -- with all the messages displayed as specified by caption and error table
80 PROCEDURE Put_Errors
81 ( p_api_version IN NUMBER
82 , p_caption IN VARCHAR2
83 , p_error_Tbl IN BIS_UTILITIES_PUB.Error_Tbl_Type
84 , x_return_status OUT VARCHAR2
85 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
86 )
87 IS
88 l_str VARCHAR2(32000);
89 BEGIN
90
91 Put_Errors( p_api_version
92 , p_caption
93 , p_error_Tbl
94 , NULL
95 , x_return_status
96 , x_error_Tbl
97 );
98 /* BIS_ERROR_MESSAGE_FORM_PVT.Get_Error_String
99 ( p_api_version => p_api_version
100 , p_caption => p_caption
101 , p_error_Tbl => p_error_Tbl
102 , x_msg_window_text => l_str
103 , x_return_status => x_return_status
104 , x_error_Tbl => x_error_Tbl
105 );
106 -- htp.header(3, l_str);
107 BIS_ERROR_MESSAGE_FORM_PVT.Put_Errors
108 ( p_api_version => p_api_version
109 , p_msg_window_text => l_str
110 , x_return_status => x_return_status
111 , x_error_Tbl => x_error_Tbl
112 );
113
114 end if;
115 */
116 EXCEPTION
117 WHEN NO_DATA_FOUND THEN
118 x_return_status := FND_API.G_RET_STS_ERROR ;
119 RAISE FND_API.G_EXC_ERROR;
120 when FND_API.G_EXC_ERROR then
121 x_return_status := FND_API.G_RET_STS_ERROR ;
122 RAISE FND_API.G_EXC_ERROR;
123 when FND_API.G_EXC_UNEXPECTED_ERROR then
124 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
125 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
126 when others then
127 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
128 BIS_UTILITIES_PVT.Add_Error_Message
129 ( p_error_msg_id => SQLCODE
130 , p_error_description => SQLERRM
131 , p_error_proc_name => G_PKG_NAME||'.Put_Errors'
132 , p_error_table => x_error_tbl
133 , x_error_table => x_error_tbl
134 );
135 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136
137 END Put_Errors;
138 --
139 PROCEDURE Put_Errors
140 ( p_api_version IN NUMBER
141 , p_caption IN VARCHAR2
142 , p_error_Tbl IN BIS_UTILITIES_PUB.Error_Tbl_Type
143 , p_form_name IN VARCHAR2
144 , x_return_status OUT VARCHAR2
145 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
146 )
147 IS
148 l_str VARCHAR2(32000);
149 BEGIN
150
151 htp.p('<SCRIPT LANGUAGE="JavaScript">');
152 htp.p('function '||G_ONLOAD_FUNCTION_NAME||'(){');
153
154 if (p_form_name is NOT NULL) then
155 htp.p('if (document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value==1){');
156 end if;
157
158 if (p_error_Tbl.COUNT > 0) then
159 htp.p('alert("'||p_error_Tbl(1).Error_Description||'");');
160 elsif (p_caption IS NOT NULL) then
161 htp.p('alert("'||p_caption||'");');
162 else
163 htp.p('null;');
164 end if;
165
166 if (p_form_name is NOT NULL) then
167 htp.p('}');
168 htp.p('document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value=0;');
169 htp.p('alert(document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value);');
170 end if;
171
172 htp.p('}');
173 htp.p('</SCRIPT>');
174 EXCEPTION
175 WHEN NO_DATA_FOUND THEN
176 x_return_status := FND_API.G_RET_STS_ERROR ;
177 RAISE FND_API.G_EXC_ERROR;
178 when FND_API.G_EXC_ERROR then
179 x_return_status := FND_API.G_RET_STS_ERROR ;
180 RAISE FND_API.G_EXC_ERROR;
181 when FND_API.G_EXC_UNEXPECTED_ERROR then
182 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184 when others then
185 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
186 BIS_UTILITIES_PVT.Add_Error_Message
187 ( p_error_msg_id => SQLCODE
188 , p_error_description => SQLERRM
189 , p_error_proc_name => G_PKG_NAME||'.Put_Errors'
190 , p_error_table => x_error_tbl
191 , x_error_table => x_error_tbl
192 );
193 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194
195 END Put_Errors;
196 ----
197 ---- Walid's verion: reads the error message form the form variable
198 ----
199 PROCEDURE Put_Errors
200 ( p_api_version IN NUMBER
201 , p_form_name IN VARCHAR2
202 , x_return_status OUT VARCHAR2
203 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
204 )
205 IS
206 l_str VARCHAR2(32000);
207 BEGIN
208
209 htp.p('<SCRIPT LANGUAGE="JavaScript">');
210 htp.p('function '||G_ONLOAD_FUNCTION_NAME||'(){');
211
212 if (p_form_name is NULL)
213 then
214 htp.p('null
215 }'
216 );
217 return;
218 end if;
219
220 ---- form is OK
221
222 htp.p('if (LB_isChanged())
223 {CF_setChanged();'
224 -- document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value="";
225 || '
226 };
227 if (document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value!=""
228 &&
229 !CF_isChanged())
230 {'
231 );
232 htp.p('alert(document.'||p_form_name||'.'
233 ||G_ERROR_VARIABLE_NAME||'.value)'
234 );
235
236 -- htp.p('document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value="";');
237 -- htp.p('alert("BEFORE : " + document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value);');
238 -- htp.p('history.go(-1);');
239 --htp.p('location.reload(true);');
240 -- htp.p('alert("AFTER : " + document.'||p_form_name||'.'||G_ERROR_VARIABLE_NAME||'.value);');
241
242 htp.p('}'); --- closes the javascript if
243 htp.p('}'); --- closes the function definition
244 htp.p('</SCRIPT>');
245 EXCEPTION
246 WHEN NO_DATA_FOUND THEN
247 x_return_status := FND_API.G_RET_STS_ERROR ;
248 RAISE FND_API.G_EXC_ERROR;
249 when FND_API.G_EXC_ERROR then
250 x_return_status := FND_API.G_RET_STS_ERROR ;
251 RAISE FND_API.G_EXC_ERROR;
252 when FND_API.G_EXC_UNEXPECTED_ERROR then
253 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
254 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
255 when others then
256 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257 BIS_UTILITIES_PVT.Add_Error_Message
258 ( p_error_msg_id => SQLCODE
259 , p_error_description => SQLERRM
260 , p_error_proc_name => G_PKG_NAME||'.Put_Errors'
261 , p_error_table => x_error_tbl
262 , x_error_table => x_error_tbl
263 );
264 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265
266 END Put_Errors;
267 --
268 -- Just alerts the SQLERRM and go back 1 page.
269 --
270 Procedure Put_Errors
271 ( p_error VARCHAR2
272 )
273 IS
274 BEGIN
275 htp.p('<SCRIPT LANGUAGE="JavaScript">');
276 htp.p('alert("'||p_error||'");');
277 htp.p('history.go(-1)');
278 htp.p('</SCRIPT>');
279
280 END Put_Errors;
281
282 ----
283 ----
284 ---- Walid's verions: stores the error mesage in the form field.
285 ----
286 PROCEDURE Put_Error_Variable
287 ( p_api_version IN NUMBER
288 , p_form_name IN VARCHAR2
289 , p_error_message IN VARCHAR2
290 , x_return_status OUT VARCHAR2
291 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
292 )
293 IS
294 BEGIN
295
296 BIS_UTILITIES_PVT.PutHtmlVarcharHiddenField
297 ( G_ERROR_VARIABLE_NAME
298 , p_error_message
299 );
300
301 EXCEPTION
302 WHEN NO_DATA_FOUND THEN
303 x_return_status := FND_API.G_RET_STS_ERROR ;
304 RAISE FND_API.G_EXC_ERROR;
305 when FND_API.G_EXC_ERROR then
306 x_return_status := FND_API.G_RET_STS_ERROR ;
307 RAISE FND_API.G_EXC_ERROR;
308 when FND_API.G_EXC_UNEXPECTED_ERROR then
309 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
310 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311 when others then
312 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
313 BIS_UTILITIES_PVT.Add_Error_Message
314 ( p_error_msg_id => SQLCODE
315 , p_error_description => SQLERRM
316 , p_error_proc_name => G_PKG_NAME||'.Put_Error_Variable'
317 , p_error_table => x_error_tbl
318 , x_error_table => x_error_tbl
319 );
320 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321
322 END Put_Error_Variable;
323
324 PROCEDURE Put_Error_Variable
325 ( p_api_version IN NUMBER
326 , p_form_name IN VARCHAR2
327 , x_return_status OUT VARCHAR2
328 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
329 )
330 IS
331 BEGIN
332
333 BIS_UTILITIES_PVT.PutHtmlNumberHiddenField
334 ( G_ERROR_VARIABLE_NAME
335 , 1
336 );
337
338 EXCEPTION
339 WHEN NO_DATA_FOUND THEN
340 x_return_status := FND_API.G_RET_STS_ERROR ;
341 RAISE FND_API.G_EXC_ERROR;
342 when FND_API.G_EXC_ERROR then
343 x_return_status := FND_API.G_RET_STS_ERROR ;
344 RAISE FND_API.G_EXC_ERROR;
345 when FND_API.G_EXC_UNEXPECTED_ERROR then
346 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
347 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348 when others then
349 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
350 BIS_UTILITIES_PVT.Add_Error_Message
351 ( p_error_msg_id => SQLCODE
352 , p_error_description => SQLERRM
353 , p_error_proc_name => G_PKG_NAME||'.Put_Error_Variable'
354 , p_error_table => x_error_tbl
355 , x_error_table => x_error_tbl
356 );
357 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358
359 END Put_Error_Variable;
360
361 -- Procedure returns a window_text_string to be used in any manner
362 PROCEDURE Get_Error_String
363 ( p_api_version IN NUMBER
364 , p_caption IN VARCHAR2
365 , p_error_Tbl IN BIS_UTILITIES_PUB.Error_Tbl_Type
366 , x_msg_window_text OUT VARCHAR2
367 , x_return_status OUT VARCHAR2
368 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
369 )
370 IS
371 l_str VARCHAR2(32000) := NULL;
372 l_msg VARCHAR2(2000);
373 BEGIN
374
375 l_str := htf.tableOpen;
376
377 if (BIS_UTILITIES_PUB.Value_Not_NULL(p_caption) = FND_API.G_TRUE) then
378 -- put main message
379 l_str := l_str || htf.tableRowOpen;
380 -- l_str := l_str || BIS_UTILITIES_PVT.PutNullString(p_caption, 'LEFT',1,5);
381 l_str := l_str || BIS_UTILITIES_PVT.PutNullString(htf.bold(p_caption), 'LEFT',1,5);
382 l_str := l_str || htf.tableRowClose;
383 -- put spacing line
384 l_str := l_str || htf.tableRowOpen;
385 l_str := l_str || BIS_UTILITIES_PVT.PutNullString(NULL, 'LEFT',1,5);
386 l_str := l_str || htf.tableRowClose;
387 end if;
388
389 if (p_error_Tbl.COUNT > 0) then
390
391 l_str := l_str || htf.tableRowOpen;
392 l_msg := BIS_UTILITIES_PVT.getPrompt('BIS_ERROR_MSG_ID');
393 l_str := l_str || htf.tableHeader(l_msg);
394 l_msg := BIS_UTILITIES_PVT.getPrompt('BIS_ERROR_MSG_NAME');
395 l_str := l_str || htf.tableHeader(l_msg);
396 l_msg := BIS_UTILITIES_PVT.getPrompt('BIS_ERROR_DESCRIPTION');
397 l_str := l_str || htf.tableHeader(l_msg);
398 l_msg := BIS_UTILITIES_PVT.getPrompt('BIS_ERROR_PROC_NAME');
399 l_str := l_str || htf.tableHeader(l_msg);
400 l_msg := BIS_UTILITIES_PVT.getPrompt('BIS_ERROR_TYPE');
401 l_str := l_str || htf.tableHeader(l_msg);
402 l_str := l_str || htf.tableRowClose;
403
404 FOR i in 1 .. p_error_Tbl.COUNT loop
405 l_str := l_str || htf.tableRowOpen;
406 -- l_str := l_str || htf.tableData(p_error_tbl(i).Error_Msg_ID );
407 -- l_str := l_str || htf.tableData(p_error_tbl(i).Error_Msg_Name );
408 -- l_str := l_str || htf.tableData(p_error_tbl(i).Error_Description );
409 -- l_str := l_str || htf.tableData(p_error_tbl(i).Error_Proc_Name );
410 -- l_str := l_str || htf.tableData(p_error_tbl(i).Error_Type );
411 l_str := l_str || htf.tableData(htf.bold(p_error_tbl(i).Error_Msg_ID) );
412 l_str := l_str || htf.tableData(htf.bold(p_error_tbl(i).Error_Msg_Name) );
413 l_str := l_str || htf.tableData(htf.bold(p_error_tbl(i).Error_Description) );
414 l_str := l_str || htf.tableData(htf.bold(p_error_tbl(i).Error_Proc_Name) );
415 l_str := l_str || htf.tableData(htf.bold(p_error_tbl(i).Error_Type) );
416 l_str := l_str || htf.tableRowClose;
417 end LOOP;
418 end if;
419 l_str := l_str || htf.tableClose;
420
421 x_msg_window_text := l_str;
422
423 EXCEPTION
424 WHEN NO_DATA_FOUND THEN
425 x_return_status := FND_API.G_RET_STS_ERROR ;
426 RAISE FND_API.G_EXC_ERROR;
427 when FND_API.G_EXC_ERROR then
428 x_return_status := FND_API.G_RET_STS_ERROR ;
429 RAISE FND_API.G_EXC_ERROR;
430 when FND_API.G_EXC_UNEXPECTED_ERROR then
431 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
432 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433 when others then
434 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
435 BIS_UTILITIES_PVT.Add_Error_Message
436 ( p_error_msg_id => SQLCODE
437 , p_error_description => SQLERRM
438 , p_error_proc_name => G_PKG_NAME||'.Get_Error_String'
439 , p_error_table => x_error_tbl
440 , x_error_table => x_error_tbl
441 );
442 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443
444 END Get_Error_String;
445 --
446 END BIS_ERROR_MESSAGE_FORM_PVT;