PACKAGE BODY: APPS.INV_KANBAN_PUB

Source

1 PACKAGE BODY INV_Kanban_PUB as
2 /* $Header: INVPKBNB.pls 120.1 2005/06/14 06:10:16 appldev  $ */
3 
4 G_PKG_NAME                    CONSTANT VARCHAR2(30) := 'INV_Kanban_PUB';
5 
6 --  Start of Comments
7 --  API name    Update_Card_Supply_Status
8 --  Type        Public
9 --  Function
10 --
11 --  Pre-reqs
12 --
13 --  Parameters
14 --
15 --  Version     Current version = 1.0
16 --              Initial version = 1.0
17 --
18 --  Notes
19 --
20 --  End of Comments
21 
22 Procedure Update_Card_Supply_Status
23 (p_api_version_number            IN  NUMBER,
24  p_init_msg_list                 IN  VARCHAR2 := FND_API.G_FALSE,
25  p_commit                        IN  VARCHAR2 := FND_API.G_FALSE,
26  x_msg_count                     OUT NOCOPY NUMBER,
27  x_msg_data                      OUT NOCOPY VARCHAR2,
28  X_Return_Status      		 OUT NOCOPY Varchar2,
29  p_Kanban_Card_Id        	     Number,
30  p_Supply_Status                     Number)
31 IS
32 
33 l_api_version_number          CONSTANT NUMBER := 1.0;
34 l_api_name                    CONSTANT VARCHAR2(30):= 'Update_Card_Supply_Status';
35 
36 Begin
37 
38 
39     --  Standard call to check for call compatibility
40 
41     IF NOT FND_API.Compatible_API_Call
42            (   l_api_version_number
43            ,   p_api_version_number
44            ,   l_api_name
45            ,   G_PKG_NAME
46            )
47     THEN
48         RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49     END IF;
50 
51 	INV_Kanban_PVT.Update_Card_Supply_Status
52     (   p_api_version_number          => 1.0
53     ,   p_init_msg_list               => p_init_msg_list
54     ,   p_validation_level            => FND_API.G_VALID_LEVEL_FULL
55     ,   p_commit                      => p_commit
56     ,   x_return_status               => x_return_status
57     ,   x_msg_count                   => x_msg_count
58     ,   x_msg_data                    => x_msg_data
59     ,   p_Kanban_card_Id              => p_Kanban_card_Id
60     ,   p_Supply_Status               => p_Supply_Status);
61 
62 
63 EXCEPTION
64 
65     WHEN FND_API.G_EXC_ERROR THEN
66 
67         x_return_status := FND_API.G_RET_STS_ERROR;
68 
69         --  Get message count and data
70 
71         FND_MSG_PUB.Count_And_Get
72         (   p_count                       => x_msg_count
73         ,   p_data                        => x_msg_data
74         );
75 
76     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77 
78         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79 
80         --  Get message count and data
81 
82         FND_MSG_PUB.Count_And_Get
83         (   p_count                       => x_msg_count
84         ,   p_data                        => x_msg_data
85         );
86 
87     WHEN OTHERS THEN
88 
89         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90 
91         IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
92         THEN
93             FND_MSG_PUB.Add_Exc_Msg
94             (   G_PKG_NAME
95             ,   'Update_Card_Supply_Status'
96             );
97         END IF;
98 
99         --  Get message count and data
100 
101         FND_MSG_PUB.Count_And_Get
102         (   p_count                       => x_msg_count
103         ,   p_data                        => x_msg_data
104         );
105 
106 END Update_Card_Supply_Status;
107 
108 END INV_Kanban_PUB;