PACKAGE BODY: APPS.ARP_MESSAGE_PURGE

Source

1 PACKAGE BODY arp_message_purge AS
2 /* $Header: ARPUMSGB.pls 115.1 2002/11/15 02:49:10 anukumar ship $ */
3 
4  PROCEDURE get_message (m_name     Varchar2,
5                         m_appshort Varchar2,
6            	        m_num_of   BINARY_INTEGER,
7                         m_token1   Varchar2,
8                         m_value1   Varchar2,
9                         m_token2   Varchar2,
10                         m_value2   Varchar2,
11                         m_token3   Varchar2,
12                         m_value3   Varchar2,
13                         m_message IN OUT NOCOPY Varchar2)  AS
14 
15     BEGIN
16 
17        FND_MESSAGE.SET_NAME(m_appshort, m_name);
18 
19        IF (m_num_of > 0) THEN
20 
21           FND_MESSAGE.SET_TOKEN(m_token1, m_value1, FALSE);
22 
23           IF (m_num_of > 1) THEN
24 
25              FND_MESSAGE.SET_TOKEN(m_token2, m_value2, FALSE);
26 
27              IF (m_num_of > 2) THEN
28 
29                 FND_MESSAGE.SET_TOKEN(m_token3, m_value3, FALSE);
30 
31              END IF;
32 
33           END IF;
34 
35        END IF;
36 
37        m_message := FND_MESSAGE.GET;
38 
39     END;
40 
41 END arp_message_purge;