PACKAGE BODY: APPS.EGO_UTIL_PK

Source

1 PACKAGE BODY EGO_UTIL_PK  AS
2 /* $Header: EGOUTILB.pls 120.0.12010000.1 2009/05/19 22:30:45 chulhale noship $ */
3 
4 
5 G_PKG_NAME  CONSTANT VARCHAR2(30) := 'EGO_UTIL_PK';
6 
7 -- ********************** Publication Framework
8   PROCEDURE put_fnd_stack_msg (
9 			p_appln_short_name 	IN VARCHAR2,
10 			p_message 		IN VARCHAR2,
11  			p_token       IN EGO_UTIL_PK.token_tbl default EGO_UTIL_PK.G_MISS_TOKEN_TBL) is
12 
13     i 	number;
14 
15   BEGIN
16     -- First set the message for FND's message stack
17 
18     fnd_message.set_name(p_appln_short_name, p_message);
19 
20     -- set the token if any
21     --
22     i := p_token.first;
23     while i is not null
24     loop
25       fnd_message.set_token(p_token(i).token_name, p_token(i).token_value);
26       i := p_token.next(i);
27     end loop;
28     fnd_msg_pub.add;
29 
30   END put_fnd_stack_msg;
31 
32 
33   PROCEDURE count_and_get ( p_msg_count  OUT NOCOPY NUMBER,
34 			  p_msg_data     OUT NOCOPY VARCHAR2 ) is
35   BEGIN
36 
37     fnd_msg_pub.Count_And_Get (p_count => p_msg_count,
38                                 p_data  => p_msg_data);
39 
40   END count_and_get;
41 
42 -- ********************** Publication Framework
43 
44 END EGO_UTIL_PK;
45