[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;