[Home] [Help]
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;