PACKAGE BODY: APPS.IGS_GE_MSG_STACK

Source

1 PACKAGE BODY IGS_GE_MSG_STACK AS
2 /* $Header: IGSGE09B.pls 115.4 2002/11/29 00:33:04 nsidana ship $ */
3 
4 Procedure INITIALIZE as
5 Begin
6 FND_MSG_PUB.INITIALIZE;
7 End INITIALIZE;
8 
9 FUNCTION COUNT_MSG
10 Return NUMBER as
11 BEGIN
12 return(FND_MSG_PUB.COUNT_MSG);
13 END COUNT_MSG;
14 PROCEDURE ADD as
15 lv_msg varchar2(2000);
16 ln_index number;
17 Begin
18 FND_MSG_PUB.ADD;
19 fnd_msg_pub.get(-3, 'T', lv_msg, ln_index);
20 fnd_message.set_encoded(lv_msg);
21 End ADD;
22 
23 Procedure DELETE_MSG
24 (   p_msg_index IN    NUMBER	:=	NULL
25 ) AS
26 BEGIN
27 FND_MSG_PUB.DELETE_MSG(p_msg_index);
28 End DELETE_MSG;
29 
30 Procedure GET
31 (   p_msg_index	    IN	NUMBER,
32     p_encoded	    IN	VARCHAR2,
33     p_data	    OUT NOCOPY	VARCHAR2,
34     p_msg_index_out OUT NOCOPY	NUMBER
35 ) AS
36 BEGIN
37 FND_MSG_PUB.GET(p_msg_index, p_encoded, p_data, p_msg_index_out);
38 End GET;
39 
40 Procedure CONC_EXCEPTION_HNDL
41 AS
42 lv_msg_text		VARCHAR2(2000);
43 ln_msg_index	NUMBER;
44 Begin
45   If FND_PROFILE.VALUE('DEBUG_ON') <> 'Y' then
46      While IGS_GE_MSG_STACK.COUNT_MSG <> 0 loop
47 	   IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
48 	   FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
49 	   IGS_GE_MSG_STACK.DELETE_MSG(ln_msg_index);
50 	 END LOOP;
51   else
52      IGS_GE_MSG_STACK.GET(-1, 'F', lv_msg_text, ln_msg_index);
53 	 FND_FILE.PUT_LINE(FND_FILE.LOG, lv_msg_text);
54   End If;
55 End CONC_EXCEPTION_HNDL;
56 
57 End IGS_GE_MSG_STACK;