[Home] [Help]
PACKAGE BODY: APPS.CSP_REQUIREMENT_LINES_CUHK
Source
1 PACKAGE BODY csp_requirement_lines_cuhk AS
2 /* $Header: cspcrqlb.pls 115.3 2002/11/26 08:01:16 hhaugeru noship $ */
3
4 /*****************************************************************************************
5 This is the Vertical Industry User Hook API.
6 The Vertical Industry can add customization procedures here for Pre and Post Processing.
7 ******************************************************************************************/
8
9 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspcrqlb.pls';
10 PROCEDURE Create_requirement_line_Pre
11 (
12 px_requirement_line IN OUT NOCOPY CSP_REQUIREMENT_LINES_PVT.Requirement_Line_Rec_Type,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2
16 ) IS
17 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
18 BEGIN
19 Savepoint csp_requirement_lines_cuhk;
20
21 x_return_status := fnd_api.g_ret_sts_success;
22 NULL;
23 -- Standard call to get message count and if count is 1, get message info
24 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
25 p_data => x_msg_data );
26
27 EXCEPTION
28 WHEN FND_API.G_EXC_ERROR THEN
29 ROLLBACK TO csp_requirement_lines_cuhk;
30 x_return_status := FND_API.G_RET_STS_ERROR;
31 FND_MSG_PUB.Count_And_Get
32 ( p_count => x_msg_count,
33 p_data => x_msg_data );
34 WHEN OTHERS THEN
35 ROLLBACK TO csp_requirement_lines_cuhk;
36 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
38 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
39 END IF;
40 FND_MSG_PUB.Count_And_Get
41 ( p_count => x_msg_count,
42 p_data => x_msg_data
43 );
44
45 END Create_requirement_line_Pre;
46
47
48
49 PROCEDURE Create_requirement_line_post
50 (
51 px_requirement_line IN OUT NOCOPY CSP_REQUIREMENT_LINES_PVT.Requirement_Line_Rec_Type,
52 x_return_status OUT NOCOPY VARCHAR2,
53 x_msg_count OUT NOCOPY NUMBER,
54 x_msg_data OUT NOCOPY VARCHAR2
55 ) IS
56 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
57 BEGIN
58 Savepoint csp_requirement_lines_cuhk;
59
60 x_return_status := fnd_api.g_ret_sts_success;
61 NULL;
62 -- Standard call to get message count and if count is 1, get message info
63 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
64 p_data => x_msg_data );
65
66 EXCEPTION
67 WHEN FND_API.G_EXC_ERROR THEN
68 ROLLBACK TO csp_requirement_lines_cuhk;
69 x_return_status := FND_API.G_RET_STS_ERROR;
70 FND_MSG_PUB.Count_And_Get
71 ( p_count => x_msg_count,
72 p_data => x_msg_data );
73 WHEN OTHERS THEN
74 ROLLBACK TO csp_requirement_lines_cuhk;
75 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
77 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
78 END IF;
79 FND_MSG_PUB.Count_And_Get
80 ( p_count => x_msg_count,
81 p_data => x_msg_data
82 );
83
84 END Create_requirement_line_Post;
85
86
87
88
89 PROCEDURE Update_requirement_line_pre
90 (
91 px_requirement_line IN OUT NOCOPY CSP_REQUIREMENT_LINES_PVT.Requirement_Line_Rec_Type,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2
95 ) IS
96 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
97 BEGIN
98 Savepoint csp_requirement_lines_cuhk;
99
100 x_return_status := fnd_api.g_ret_sts_success;
101 NULL;
102 -- Standard call to get message count and if count is 1, get message info
103 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
104 p_data => x_msg_data );
105
106 EXCEPTION
107 WHEN FND_API.G_EXC_ERROR THEN
108 ROLLBACK TO csp_requirement_lines_cuhk;
109 x_return_status := FND_API.G_RET_STS_ERROR;
110 FND_MSG_PUB.Count_And_Get
111 ( p_count => x_msg_count,
112 p_data => x_msg_data );
113 WHEN OTHERS THEN
114 ROLLBACK TO csp_requirement_lines_cuhk;
115 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
116 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
117 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
118 END IF;
119 FND_MSG_PUB.Count_And_Get
120 ( p_count => x_msg_count,
121 p_data => x_msg_data
122 );
123
124 END Update_requirement_line_Pre;
125
126 PROCEDURE Update_requirement_line_post
127 (
128 px_requirement_line IN OUT NOCOPY CSP_REQUIREMENT_LINES_PVT.Requirement_Line_Rec_Type,
129 x_return_status OUT NOCOPY VARCHAR2,
130 x_msg_count OUT NOCOPY NUMBER,
131 x_msg_data OUT NOCOPY VARCHAR2
132 ) IS
133 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
134 BEGIN
135 Savepoint csp_requirement_lines_cuhk;
136
137 x_return_status := fnd_api.g_ret_sts_success;
138 NULL;
139 -- Standard call to get message count and if count is 1, get message info
140 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
141 p_data => x_msg_data );
142
143 EXCEPTION
144 WHEN FND_API.G_EXC_ERROR THEN
145 ROLLBACK TO csp_requirement_lines_cuhk;
146 x_return_status := FND_API.G_RET_STS_ERROR;
147 FND_MSG_PUB.Count_And_Get
148 ( p_count => x_msg_count,
149 p_data => x_msg_data );
150 WHEN OTHERS THEN
151 ROLLBACK TO csp_requirement_lines_cuhk;
152 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
154 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
155 END IF;
156 FND_MSG_PUB.Count_And_Get
157 ( p_count => x_msg_count,
158 p_data => x_msg_data
159 );
160
161 END Update_requirement_line_Post;
162 PROCEDURE Delete_requirement_line_pre
163 (
164 p_line_id IN NUMBER,
165 x_return_status OUT NOCOPY VARCHAR2,
166 x_msg_count OUT NOCOPY NUMBER,
167 x_msg_data OUT NOCOPY VARCHAR2
168 ) IS
169 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
170 BEGIN
171 Savepoint csp_requirement_lines_cuhk;
172
173 x_return_status := fnd_api.g_ret_sts_success;
174 NULL;
175 -- Standard call to get message count and if count is 1, get message info
176 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
177 p_data => x_msg_data );
178
179 EXCEPTION
180 WHEN FND_API.G_EXC_ERROR THEN
181 ROLLBACK TO csp_requirement_lines_cuhk;
182 x_return_status := FND_API.G_RET_STS_ERROR;
183 FND_MSG_PUB.Count_And_Get
184 ( p_count => x_msg_count,
185 p_data => x_msg_data );
186 WHEN OTHERS THEN
187 ROLLBACK TO csp_requirement_lines_cuhk;
188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
190 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
191 END IF;
192 FND_MSG_PUB.Count_And_Get
193 ( p_count => x_msg_count,
194 p_data => x_msg_data
195 );
196
197 END Delete_requirement_line_Pre;
198 PROCEDURE Delete_requirement_line_post
199 (
200 p_line_id IN NUMBER,
201 x_return_status OUT NOCOPY VARCHAR2,
202 x_msg_count OUT NOCOPY NUMBER,
203 x_msg_data OUT NOCOPY VARCHAR2
204 ) IS
205 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
206 BEGIN
207 Savepoint csp_requirement_lines_cuhk;
208
209 x_return_status := fnd_api.g_ret_sts_success;
210 NULL;
211 -- Standard call to get message count and if count is 1, get message info
212 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
213 p_data => x_msg_data );
214
215 EXCEPTION
216 WHEN FND_API.G_EXC_ERROR THEN
217 ROLLBACK TO csp_requirement_lines_cuhk;
218 x_return_status := FND_API.G_RET_STS_ERROR;
219 FND_MSG_PUB.Count_And_Get
220 ( p_count => x_msg_count,
221 p_data => x_msg_data );
222 WHEN OTHERS THEN
223 ROLLBACK TO csp_requirement_lines_cuhk;
224 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
225 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
226 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
227 END IF;
228 FND_MSG_PUB.Count_And_Get
229 ( p_count => x_msg_count,
230 p_data => x_msg_data
231 );
232
233 END delete_requirement_line_post;
234 END csp_requirement_lines_cuhk;