[Home] [Help]
PACKAGE BODY: APPS.GL_MESSAGE
Source
1 PACKAGE BODY Gl_Message AS
2 /* $Header: gluplmgb.pls 120.2 2004/10/27 19:07:05 xiwu noship $ */
3
4 FUNCTION Get_Message ( msg_name VARCHAR2,
5 show_num VARCHAR2 ) RETURN VARCHAR2 IS
6 msg_number NUMBER;
7 msg_text VARCHAR2(2000);
8
9 BEGIN
10 FND_MESSAGE.Set_Name('SQLGL', msg_name);
11
12 RETURN (SUBSTRB(FND_MESSAGE.Get, 1, 132));
13
14 END;
15 -- **************************************************************
16
17 FUNCTION Msg_Tkn_Expand(msg VARCHAR2,
18 t1 VARCHAR2,
19 v1 VARCHAR2) RETURN VARCHAR2 IS
20 BEGIN
21 NULL;
22 END;
23
24 -- *************************************************************
25
26 FUNCTION Get_Message(msg_name VARCHAR2,
27 show_num VARCHAR2,
28 t1 VARCHAR2,
29 v1 VARCHAR2) RETURN VARCHAR2 IS
30 BEGIN
31 FND_MESSAGE.Set_Name('SQLGL', msg_name);
32
33 FND_MESSAGE.Set_Token(t1, v1);
34
35 RETURN(SUBSTRB(FND_MESSAGE.Get, 1, 132));
36
37 END;
38
39 -- *************************************************************
40
41 FUNCTION Get_Message (msg_name VARCHAR2,
42 show_num VARCHAR2,
43 t1 VARCHAR2,
44 v1 VARCHAR2,
45 t2 VARCHAR2,
46 v2 VARCHAR2) RETURN VARCHAR2 IS
47 BEGIN
48 FND_MESSAGE.Set_Name('SQLGL', msg_name);
49
50 FND_MESSAGE.Set_Token(t1, v1);
51
52 FND_MESSAGE.Set_Token(t2, v2);
53
54 RETURN(SUBSTRB(FND_MESSAGE.Get, 1, 132));
55
56 END;
57
58 -- ************************************************************
59
60 FUNCTION Get_Message(msg_name VARCHAR2,
61 show_num VARCHAR2,
62 t1 VARCHAR2,
63 v1 VARCHAR2,
64 t2 VARCHAR2,
65 v2 VARCHAR2,
66 t3 VARCHAR2,
67 v3 VARCHAR2) RETURN VARCHAR2 IS
68
69 BEGIN
70 FND_MESSAGE.Set_Name('SQLGL', msg_name);
71
72 FND_MESSAGE.Set_Token(t1, v1);
73
74 FND_MESSAGE.Set_Token(t2, v2);
75
76 FND_MESSAGE.Set_Token(t3, v3);
77
78 RETURN(SUBSTRB(FND_MESSAGE.Get, 1, 132));
79
80 END;
81
82 -- ***************************************************************
83
84 FUNCTION Get_Message(msg_name VARCHAR2,
85 show_num VARCHAR2,
86 t1 VARCHAR2,
87 v1 VARCHAR2,
88 t2 VARCHAR2,
89 v2 VARCHAR2,
90 t3 VARCHAR2,
91 v3 VARCHAR2,
92 t4 VARCHAR2,
93 v4 VARCHAR2) RETURN VARCHAR2 IS
94 BEGIN
95 FND_MESSAGE.Set_Name('SQLGL', msg_name);
96
97 FND_MESSAGE.Set_Token(t1, v1);
98
99 FND_MESSAGE.Set_Token(t2, v2);
100
101 FND_MESSAGE.Set_Token(t3, v3);
102
103 FND_MESSAGE.Set_Token(t4, v4);
104
105 RETURN(SUBSTRB(FND_MESSAGE.Get, 1, 132));
106
107 END;
108
109 -- ******************************************************************
110
111 FUNCTION Write_Buffer(msg_name VARCHAR2,
112 token_num NUMBER DEFAULT 0,
113 t1 VARCHAR2 DEFAULT NULL,
114 v1 VARCHAR2 DEFAULT NULL,
115 t2 VARCHAR2 DEFAULT NULL,
116 v2 VARCHAR2 DEFAULT NULL,
117 t3 VARCHAR2 DEFAULT NULL,
118 v3 VARCHAR2 DEFAULT NULL,
119 t4 VARCHAR2 DEFAULT NULL,
120 v4 VARCHAR2 DEFAULT NULL,
121 t5 VARCHAR2 DEFAULT NULL,
122 v5 VARCHAR2 DEFAULT NULL)
123 RETURN VARCHAR2 IS
124
125 msgbuf VARCHAR2(2000);
126
127 BEGIN
128
129 FND_MESSAGE.Set_Name('SQLGL',msg_name);
130
131 IF (token_num = 1)THEN
132
133 FND_MESSAGE.Set_Token(t1,v1);
134
135 ElSIF (token_num = 2) THEN
136
137 FND_MESSAGE.Set_Token(t1,v1);
138
139 FND_MESSAGE.Set_Token(t2,v2);
140
141 ELSIF (token_num = 3) THEN
142
143 FND_MESSAGE.Set_Token(t1,v1);
144
145 FND_MESSAGE.Set_Token(t2,v2);
146
147 FND_MESSAGE.Set_Token(t3,v3);
148
149 ELSIF (token_num = 4)THEN
150
151 FND_MESSAGE.Set_Token(t1,v1);
152
153 FND_MESSAGE.Set_Token(t2,v2);
154
155 ELSIF (token_num = 3) THEN
156
157 FND_MESSAGE.Set_Token(t1,v1);
158
159 FND_MESSAGE.Set_Token(t2,v2);
160
161 FND_MESSAGE.Set_Token(t3,v3);
162
163 ELSIF (token_num = 4)THEN
164
165 FND_MESSAGE.Set_Token(t1,v1);
166
167 FND_MESSAGE.Set_Token(t2,v2);
168
169 FND_MESSAGE.Set_Token(t3,v3);
170
171 FND_MESSAGE.Set_Token(t4,v4);
172
173 ELSIF (token_num = 5) THEN
174
175 FND_MESSAGE.Set_Token(t1,v1);
176
177 FND_MESSAGE.Set_Token(t2,v2);
178
179 FND_MESSAGE.Set_Token(t3,v3);
180
181 FND_MESSAGE.Set_Token(t4,v4);
182
183 FND_MESSAGE.Set_Token(t5,v5);
184
185 END IF;
186
187 msgbuf := msg_name||': '||FND_MESSAGE.Get;
188
189 RETURN (msgbuf);
190
191 END Write_Buffer;
192
193 -- ******************************************************************
194
195
196 PROCEDURE Set_Language ( lang_id NUMBER ) IS
197
198 BEGIN
199
200 NULL;
201
202 END;
203
204
205 -- *****************************************************************
206
207
208 PROCEDURE Write_Log (msg_name VARCHAR2,
209 token_num NUMBER DEFAULT 0,
210 t1 VARCHAR2 DEFAULT NULL,
211 v1 VARCHAR2 DEFAULT NULL,
212 t2 VARCHAR2 DEFAULT NULL,
213 v2 VARCHAR2 DEFAULT NULL,
214 t3 VARCHAR2 DEFAULT NULL,
215 v3 VARCHAR2 DEFAULT NULL,
216 t4 VARCHAR2 DEFAULT NULL,
217 v4 VARCHAR2 DEFAULT NULL,
218 t5 VARCHAR2 DEFAULT NULL,
219 v5 VARCHAR2 DEFAULT NULL,
220 log_level NUMBER DEFAULT 0,
221 module VARCHAR2 DEFAULT NULL) IS
222
223 textbuf VARCHAR2(2000);
224
225 BEGIN
226
227 FND_MESSAGE.Set_Name('SQLGL',msg_name);
228
229 IF (token_num = 1)THEN
230
231 FND_MESSAGE.Set_Token(t1,v1);
232
233 ElSIF (token_num = 2) THEN
234
235 FND_MESSAGE.Set_Token(t1,v1);
236
237 FND_MESSAGE.Set_Token(t2,v2);
238
239 ELSIF (token_num = 3) THEN
240
241 FND_MESSAGE.Set_Token(t1,v1);
242
243 FND_MESSAGE.Set_Token(t2,v2);
244
245 FND_MESSAGE.Set_Token(t3,v3);
246
247 ELSIF (token_num = 4)THEN
248
249 FND_MESSAGE.Set_Token(t1,v1);
250
251 FND_MESSAGE.Set_Token(t2,v2);
252
253 FND_MESSAGE.Set_Token(t3,v3);
254
255 FND_MESSAGE.Set_Token(t4,v4);
256
257 ELSIF (token_num = 5) THEN
258
259 FND_MESSAGE.Set_Token(t1,v1);
260
261 FND_MESSAGE.Set_Token(t2,v2);
262
263 FND_MESSAGE.Set_Token(t3,v3);
264
265 FND_MESSAGE.Set_Token(t4,v4);
266
267 FND_MESSAGE.Set_Token(t5,v5);
268
269 END IF;
270
271 textbuf := msg_name||': '||FND_MESSAGE.get;
272
273 FND_FILE.Put_Line(FND_FILE.Log,textbuf);
274
275 IF(log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
276 FND_LOG.String(log_level, module, textbuf);
277 END IF;
278 END Write_Log;
279
280 -- *******************************************************************
281
282 PROCEDURE Func_Succ(func_name VARCHAR2,
283 log_level NUMBER DEFAULT 0,
284 module VARCHAR2 DEFAULT NULL) IS
285 textsuc VARCHAR2(2000);
286
287 BEGIN
288
289 SELECT ('<< '||func_name||'() '||TO_CHAR(SYSDATE)||' '||
290 TO_CHAR(SYSDATE,'HH24:MI:SS'))
291 INTO textsuc
292 FROM Dual;
293
294 FND_FILE.Put_Line(FND_FILE.Log,textsuc);
295
296 IF(log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
297 FND_LOG.String(log_level, module, textsuc);
298 END IF;
299 END Func_Succ;
300 -- ******************************************************************
301
302 PROCEDURE Func_Fail(func_name VARCHAR2,
303 log_level NUMBER DEFAULT 0,
304 module VARCHAR2 DEFAULT NULL) IS
305 textfail VARCHAR2(2000);
306
307 BEGIN
308
309 SELECT ('<x '||func_name||'() '||TO_CHAR(SYSDATE)||' '||
310 TO_CHAR(SYSDATE,'HH24:MI:SS'))
311 INTO textfail
312 FROM Dual;
313
314 FND_FILE.Put_Line(FND_FILE.Log,textfail);
315
316 IF(log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
317 FND_LOG.String(log_level, module, textfail);
318 END IF;
319 END Func_Fail;
320
321 -- *****************************************************************
322
323 PROCEDURE Func_Ent(func_name VARCHAR2,
324 log_level NUMBER DEFAULT 0,
325 module VARCHAR2 DEFAULT NULL) IS
326 textent VARCHAR2(2000);
327
328 BEGIN
329
330 SELECT ('>> '||func_name||'() '||TO_CHAR(SYSDATE)||' '||
331 TO_CHAR(SYSDATE,'HH24:MI:SS'))
332 INTO textent
333 FROM Dual;
334
335 FND_FILE.Put_Line(FND_FILE.Log,textent);
336
337 IF(log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
338 FND_LOG.String(log_level, module, textent);
339 END IF;
340
341 END Func_Ent;
342
343
344 -- *****************************************************************
345
346
347 PROCEDURE Write_Output(msg_name VARCHAR2,
348 token_num NUMBER DEFAULT 0,
349 t1 VARCHAR2 DEFAULT NULL,
350 v1 VARCHAR2 DEFAULT NULL,
351 t2 VARCHAR2 DEFAULT NULL,
352 v2 VARCHAR2 DEFAULT NULL,
353 t3 VARCHAR2 DEFAULT NULL,
354 v3 VARCHAR2 DEFAULT NULL,
355 t4 VARCHAR2 DEFAULT NULL,
356 v4 VARCHAR2 DEFAULT NULL,
357 t5 VARCHAR2 DEFAULT NULL,
358 v5 VARCHAR2 DEFAULT NULL) IS
359
360 textbuf VARCHAR2(2000);
361
362 BEGIN
363
364 FND_MESSAGE.Set_Name('SQLGL',msg_name);
365
366 IF (token_num = 1)THEN
367
368 FND_MESSAGE.Set_Token(t1,v1);
369
370 ElSIF (token_num = 2) THEN
371
372 FND_MESSAGE.Set_Token(t1,v1);
373
374 FND_MESSAGE.Set_Token(t2,v2);
375
376 ELSIF (token_num = 3) THEN
377
378 FND_MESSAGE.Set_Token(t1,v1);
379
380 FND_MESSAGE.Set_Token(t2,v2);
381
382 FND_MESSAGE.Set_Token(t3,v3);
383
384 ELSIF (token_num = 4)THEN
385
386 FND_MESSAGE.Set_Token(t1,v1);
387
388 FND_MESSAGE.Set_Token(t2,v2);
389
390 FND_MESSAGE.Set_Token(t3,v3);
391
392 FND_MESSAGE.Set_Token(t4,v4);
393
394 ELSIF (token_num = 5) THEN
395
396 FND_MESSAGE.Set_Token(t1,v1);
397
398 FND_MESSAGE.Set_Token(t2,v2);
399
400 FND_MESSAGE.Set_Token(t3,v3);
401
402 FND_MESSAGE.Set_Token(t4,v4);
403
404 FND_MESSAGE.Set_Token(t5,v5);
405
406 END IF;
407 textbuf := msg_name||': '||FND_MESSAGE.get;
408
409 FND_FILE.Put_Line(FND_FILE.Output, textbuf);
410
411 END Write_Output;
412
413 -- ******************************************************************
414
415 PROCEDURE Write_Fndlog_Msg (msg_name VARCHAR2,
416 token_num NUMBER DEFAULT 0,
417 t1 VARCHAR2 DEFAULT NULL,
418 v1 VARCHAR2 DEFAULT NULL,
419 t2 VARCHAR2 DEFAULT NULL,
420 v2 VARCHAR2 DEFAULT NULL,
421 t3 VARCHAR2 DEFAULT NULL,
422 v3 VARCHAR2 DEFAULT NULL,
423 t4 VARCHAR2 DEFAULT NULL,
424 v4 VARCHAR2 DEFAULT NULL,
425 t5 VARCHAR2 DEFAULT NULL,
426 v5 VARCHAR2 DEFAULT NULL,
427 log_level NUMBER,
428 module VARCHAR2) IS
429
430 textbuf VARCHAR2(2000);
431
432 BEGIN
433
434 FND_MESSAGE.Set_Name('SQLGL',msg_name);
435
436 IF (token_num = 1)THEN
437
438 FND_MESSAGE.Set_Token(t1,v1);
439
440 ElSIF (token_num = 2) THEN
441
442 FND_MESSAGE.Set_Token(t1,v1);
443
444 FND_MESSAGE.Set_Token(t2,v2);
445
446 ELSIF (token_num = 3) THEN
447
448 FND_MESSAGE.Set_Token(t1,v1);
449
450 FND_MESSAGE.Set_Token(t2,v2);
451
452 FND_MESSAGE.Set_Token(t3,v3);
453
454 ELSIF (token_num = 4)THEN
455
456 FND_MESSAGE.Set_Token(t1,v1);
457
458 FND_MESSAGE.Set_Token(t2,v2);
459
460 FND_MESSAGE.Set_Token(t3,v3);
461
462 FND_MESSAGE.Set_Token(t4,v4);
463
464 ELSIF (token_num = 5) THEN
465
466 FND_MESSAGE.Set_Token(t1,v1);
467
468 FND_MESSAGE.Set_Token(t2,v2);
469
470 FND_MESSAGE.Set_Token(t3,v3);
471
472 FND_MESSAGE.Set_Token(t4,v4);
473
474 FND_MESSAGE.Set_Token(t5,v5);
475
476 END IF;
477
478 textbuf := msg_name||': '||FND_MESSAGE.get;
479
480 IF(log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
481 FND_LOG.STRING(log_level, module, textbuf);
482 END IF;
483
484 END Write_Fndlog_Msg;
485
486 -- *****************************************************************
487 PROCEDURE Write_Fndlog_String (log_level NUMBER,
488 module VARCHAR2,
489 message VARCHAR2) IS
490
491 BEGIN
492 IF(log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493 FND_LOG.STRING(log_level, module, message);
494 END IF;
495
496 END Write_Fndlog_String;
497 -- *****************************************************************
498 END GL_MESSAGE;
499