PACKAGE BODY: APPS.EGO_DOM_UTIL_PUB

Source

1 PACKAGE BODY EGO_DOM_UTIL_PUB AS
2 /* $Header: EGOPDUTB.pls 120.1 2005/07/06 11:05:53 dedatta noship $ */
3 
4 G_SUCCESS            CONSTANT  NUMBER  :=  0;
5 G_WARNING            CONSTANT  NUMBER  :=  1;
6 G_ERROR              CONSTANT  NUMBER  :=  2;
7 
8 G_PKG_NAME           CONSTANT  VARCHAR2(30)  := 'EGO_DOM_UTIL_PUB';
9 G_APP_NAME           CONSTANT  VARCHAR2(3)   := 'DOM';
10 G_PKG_NAME_TOKEN     CONSTANT  VARCHAR2(8)   := 'PKG_NAME';
11 G_API_NAME_TOKEN     CONSTANT  VARCHAR2(8)   := 'API_NAME';
12 G_SQL_ERR_MSG_TOKEN  CONSTANT  VARCHAR2(11)  := 'SQL_ERR_MSG';
13 G_PLSQL_ERR          CONSTANT  VARCHAR2(17)  := 'EGO_PLSQL_ERR';
14 
15 
16 
17 PROCEDURE check_floating_attachments (
18                                         p_inventory_item_id     IN NUMBER
19                                        ,p_revision_id           IN NUMBER
20                                        ,p_organization_id       IN NUMBER
21                                        ,p_lifecycle_id          IN NUMBER
22                                        ,p_new_phase_id          IN NUMBER
23                                        ,x_return_status         OUT NOCOPY  VARCHAR2
24                                        ,x_msg_count             OUT NOCOPY  NUMBER
25                                        ,x_msg_data              OUT NOCOPY VARCHAR2
26 ) IS
27 l_return_val VARCHAR2(10);
28 BEGIN
29         EXECUTE IMMEDIATE      'SELECT ENG_DOM_UTIL_PUB.Check_floating_attachments( :1,
30                                                                                     :2,
31                                                                                     :3,
32                                                                                     :4,
33                                                                                     :5
34                                                                       )
35         FROM dual' INTO l_return_val USING IN p_inventory_item_id,
36                                    IN p_revision_id ,
37                                    IN p_organization_id,
38                                    IN p_lifecycle_id,
39                                    IN p_new_phase_id ;
40 
41 IF l_return_val = 'N' THEN
42    x_return_status := FND_API.G_RET_STS_SUCCESS;
43 ELSE
44    x_return_status := FND_API.G_RET_STS_ERROR;
45    x_msg_count := 1;
46    FND_MESSAGE.set_name('EGO', 'EGO_FLOAT_ATTACH_EXIST');
47    x_msg_data := FND_MESSAGE.GET;
48 END IF;
49 
50 END;
51 END ego_dom_util_pub;