DBA Data[Home] [Help]

PACKAGE BODY: APPS.FLM_SEQ_CUSTOM

Source


1 PACKAGE BODY FLM_SEQ_CUSTOM AS
2 /* $Header: FLMSQCPB.pls 115.1 2004/05/21 00:55:12 sshi noship $  */
3 
4 G_PKG_NAME		CONSTANT VARCHAR2(30) := 'FLM_SEQ_CUSTOM';
5 
6 PROCEDURE Get_Attribute_Value (
7                 p_api_version_number    IN      NUMBER,
8                 p_org_id                IN      NUMBER,
9                 p_id                    IN      NUMBER,
10                 p_attribute_id          IN      NUMBER,
11                 p_attribute_type        IN      NUMBER,
12                 p_other_id              IN      NUMBER,
13                 p_other_name            IN      VARCHAR2,
14                 x_value_num             OUT     NOCOPY NUMBER,
15                 x_value_name            OUT     NOCOPY VARCHAR2,
16                 x_return_status         OUT     NOCOPY  VARCHAR2,
17                 x_msg_count             OUT     NOCOPY  NUMBER,
18                 x_msg_data              OUT     NOCOPY  VARCHAR2) IS
19 
20   l_api_version_number          CONSTANT NUMBER := 1.0;
21   l_api_name                    CONSTANT VARCHAR2(30) := 'Get_Attribute';
22 
23 BEGIN
24 
25   IF NOT FND_API.Compatible_API_Call
26         (       l_api_version_number,
27                 p_api_version_number,
28                 l_api_name,
29                 G_PKG_NAME)
30   THEN
31         RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32   END IF;
33 
34   x_value_num := -1;
35   x_value_name := NULL;
36   x_return_status := FND_API.G_RET_STS_SUCCESS;
37 
38   /* Add code here */
39 
40   --  Get message count and data
41   FND_MSG_PUB.Count_And_Get
42   (   p_count   => x_msg_count,
43       p_data    => x_msg_data
44   );
45 
46 
47 EXCEPTION
48   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
49     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
50 
51     --  Get message count and data
52     FND_MSG_PUB.Count_And_Get
53     (   p_count                       => x_msg_count
54     ,   p_data                        => x_msg_data
55     );
56 
57   WHEN OTHERS THEN
58     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
59     IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
60             FND_MSG_PUB.Add_Exc_Msg
61             (   G_PKG_NAME
62             ,   'Get_Attribute'
63             );
64     END IF;
65 
66     --  Get message count and data
67     FND_MSG_PUB.Count_And_Get
68     (   p_count                       => x_msg_count
69     ,   p_data                        => x_msg_data
70     );
71 
72 END Get_Attribute_Value;
73 
74 PROCEDURE Post_Process_demand (
75                 p_api_version_number    IN      NUMBER,
76                 p_seq_task_id           IN      NUMBER,
77                 x_return_status         OUT     NOCOPY  VARCHAR2,
78                 x_msg_count             OUT     NOCOPY  NUMBER,
79                 x_msg_data              OUT     NOCOPY  VARCHAR2) IS
80 
81   l_api_version_number          CONSTANT NUMBER := 1.0;
82   l_api_name                    CONSTANT VARCHAR2(30) := 'Post_Process_demand';
83 
84 BEGIN
85 
86   IF NOT FND_API.Compatible_API_Call
87         (       l_api_version_number,
88                 p_api_version_number,
89                 l_api_name,
90                 G_PKG_NAME)
91   THEN
92         RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93   END IF;
94 
95   x_return_status := FND_API.G_RET_STS_SUCCESS;
96 
97   /* Add code here */
98 
99   --  Get message count and data
100   FND_MSG_PUB.Count_And_Get
101   (   p_count   => x_msg_count,
102       p_data    => x_msg_data
103   );
104 
105 
106 EXCEPTION
107   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
108     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
109 
110     --  Get message count and data
111     FND_MSG_PUB.Count_And_Get
112     (   p_count                       => x_msg_count
113     ,   p_data                        => x_msg_data
114     );
115 
116   WHEN OTHERS THEN
117     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
118     IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
119             FND_MSG_PUB.Add_Exc_Msg
120             (   G_PKG_NAME
121             ,   'Post_Process_demand'
122             );
123     END IF;
124 
125     --  Get message count and data
126     FND_MSG_PUB.Count_And_Get
127     (   p_count                       => x_msg_count
128     ,   p_data                        => x_msg_data
129     );
130 
131 END Post_Process_demand;
132 
133 
134 END FLM_SEQ_CUSTOM;