[Home] [Help]
PACKAGE BODY: APPS.FII_MESSAGE
Source
1 PACKAGE BODY FII_MESSAGE AS
2 /*$Header: FIIUMSGB.pls 115.3 2004/05/18 21:13:01 phu 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('FII', 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('FII', 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('FII', 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('FII', 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('FII', 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,
113 t1 VARCHAR2,
114 v1 VARCHAR2,
115 t2 VARCHAR2,
116 v2 VARCHAR2,
117 t3 VARCHAR2,
118 v3 VARCHAR2,
119 t4 VARCHAR2,
120 v4 VARCHAR2,
121 t5 VARCHAR2,
122 v5 VARCHAR2)
123 RETURN VARCHAR2 IS
124
125 msgbuf VARCHAR2(5000);
126
127 BEGIN
128
129 FND_MESSAGE.Set_Name('FII',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,
210 t1 VARCHAR2,
211 v1 VARCHAR2,
212 t2 VARCHAR2,
213 v2 VARCHAR2,
214 t3 VARCHAR2,
215 v3 VARCHAR2,
216 t4 VARCHAR2,
217 v4 VARCHAR2,
218 t5 VARCHAR2,
219 v5 VARCHAR2) IS
220
221 textbuf VARCHAR2(5000);
222
223 BEGIN
224
225 FND_MESSAGE.Set_Name('FII',msg_name);
226
227 IF (token_num = 1)THEN
228
229 FND_MESSAGE.Set_Token(t1,v1);
230
231 ElSIF (token_num = 2) THEN
232
233 FND_MESSAGE.Set_Token(t1,v1);
234
235 FND_MESSAGE.Set_Token(t2,v2);
236
237 ELSIF (token_num = 3) THEN
238
239 FND_MESSAGE.Set_Token(t1,v1);
240
241 FND_MESSAGE.Set_Token(t2,v2);
242
243 FND_MESSAGE.Set_Token(t3,v3);
244
245 ELSIF (token_num = 4)THEN
246
247 FND_MESSAGE.Set_Token(t1,v1);
248
249 FND_MESSAGE.Set_Token(t2,v2);
250
251 FND_MESSAGE.Set_Token(t3,v3);
252
253 FND_MESSAGE.Set_Token(t4,v4);
254
255 ELSIF (token_num = 5) THEN
256
257 FND_MESSAGE.Set_Token(t1,v1);
258
259 FND_MESSAGE.Set_Token(t2,v2);
260
261 FND_MESSAGE.Set_Token(t3,v3);
262
263 FND_MESSAGE.Set_Token(t4,v4);
264
265 FND_MESSAGE.Set_Token(t5,v5);
266
267 END IF;
268
269 -- textbuf := msg_name||': '||FND_MESSAGE.get;
270 textbuf := FND_MESSAGE.get;
271
272 FND_FILE.Put_Line(FND_FILE.Log,textbuf);
273
274 END Write_Log;
275
276 -- *******************************************************************
277
278 PROCEDURE Func_Succ(func_name VARCHAR2) IS
279
280 textsuc VARCHAR2(2000);
281
282 BEGIN
283
284 SELECT ('<< '||func_name||'() '||TO_CHAR(SYSDATE)||' '||
285 TO_CHAR(SYSDATE,'HH24:MI:SS'))
286 INTO textsuc
287 FROM Dual;
288
289 FND_FILE.Put_Line(FND_FILE.Log,textsuc);
290
291 END Func_Succ;
292 -- ******************************************************************
293
294 PROCEDURE Func_Fail(func_name VARCHAR2) IS
295
296 textfail VARCHAR2(2000);
297
298 BEGIN
299
300 SELECT ('<x '||func_name||'() '||TO_CHAR(SYSDATE)||' '||
301 TO_CHAR(SYSDATE,'HH24:MI:SS'))
302 INTO textfail
303 FROM Dual;
304
305 FND_FILE.Put_Line(FND_FILE.Log,textfail);
306
307 END Func_Fail;
308
309 -- *****************************************************************
310
311 PROCEDURE Func_Ent(func_name VARCHAR2) IS
312
313 textent VARCHAR2(2000);
314
315 BEGIN
316
317 SELECT ('>> '||func_name||'() '||TO_CHAR(SYSDATE)||' '||
318 TO_CHAR(SYSDATE,'HH24:MI:SS'))
319 INTO textent
320 FROM Dual;
321
322 FND_FILE.Put_Line(FND_FILE.Log,textent);
323
324 END Func_Ent;
325
326
327 -- *****************************************************************
328
329
330 PROCEDURE Write_Output(msg_name VARCHAR2,
331 token_num NUMBER,
332 t1 VARCHAR2,
333 v1 VARCHAR2,
334 t2 VARCHAR2,
335 v2 VARCHAR2,
336 t3 VARCHAR2,
337 v3 VARCHAR2,
338 t4 VARCHAR2,
339 v4 VARCHAR2,
340 t5 VARCHAR2,
341 v5 VARCHAR2) IS
342
343 textbuf VARCHAR2(5000);
344
345 BEGIN
346
347 FND_MESSAGE.Set_Name('FII',msg_name);
348
349 IF (token_num = 1)THEN
350
351 FND_MESSAGE.Set_Token(t1,v1);
352
353 ElSIF (token_num = 2) THEN
354
355 FND_MESSAGE.Set_Token(t1,v1);
356
357 FND_MESSAGE.Set_Token(t2,v2);
358
359 ELSIF (token_num = 3) THEN
360
361 FND_MESSAGE.Set_Token(t1,v1);
362
363 FND_MESSAGE.Set_Token(t2,v2);
364
365 FND_MESSAGE.Set_Token(t3,v3);
366
367 ELSIF (token_num = 4)THEN
368
369 FND_MESSAGE.Set_Token(t1,v1);
370
371 FND_MESSAGE.Set_Token(t2,v2);
372
373 FND_MESSAGE.Set_Token(t3,v3);
374
375 FND_MESSAGE.Set_Token(t4,v4);
376
377 ELSIF (token_num = 5) THEN
378
379 FND_MESSAGE.Set_Token(t1,v1);
380
381 FND_MESSAGE.Set_Token(t2,v2);
382
383 FND_MESSAGE.Set_Token(t3,v3);
384
385 FND_MESSAGE.Set_Token(t4,v4);
386
387 FND_MESSAGE.Set_Token(t5,v5);
388
389 END IF;
390
391 FND_FILE.Put_Line(FND_FILE.Output, FND_MESSAGE.get);
392
393 END Write_Output;
394
395 -- ******************************************************************
396
397 END FII_MESSAGE;
398