[Home] [Help]
PACKAGE BODY: APPS.EAM_FAILURESETS_PUB
Source
1 PACKAGE BODY EAM_FailureSets_PUB AS
2 /* $Header: EAMPFSPB.pls 120.0 2006/03/08 07:13:11 sshahid noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):='EAM_FailureSets_PUB';
5
6 PROCEDURE Create_FailureSet
7 (p_api_version IN NUMBER ,
8 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
10 p_failureset_rec IN EAM_FailureSets_PUB.eam_failureset_rec_type,
11 x_return_status OUT NOCOPY VARCHAR2 ,
12 x_msg_count OUT NOCOPY NUMBER ,
13 x_msg_data OUT NOCOPY VARCHAR2 ,
14 x_failureset_id OUT NOCOPY NUMBER
15 )
16 IS
17 l_api_name CONSTANT VARCHAR2(30) := 'Create_FailureSet';
18 l_api_version CONSTANT NUMBER := 1.0;
19 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
20 l_failure_set_id NUMBER;
21
22 BEGIN
23 -- API savepoint
24 SAVEPOINT Create_FailureSet_PUB;
25
26 -- check for call compatibility.
27 IF NOT FND_API.Compatible_API_Call (l_api_version,
28 p_api_version,
29 l_api_name,
30 G_PKG_NAME )
31 THEN
32 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33 END IF;
34
35 -- Initialize message list if p_init_msg_list is set to TRUE.
36 IF FND_API.to_Boolean( p_init_msg_list ) THEN
37 FND_MSG_PUB.initialize;
38 END IF;
39
40 -- Initialize API return status to success
41 x_return_status := FND_API.G_RET_STS_SUCCESS;
42
43 -- Call PVT API
44 EAM_FailureSets_PVT.Setup_FailureSet
45 (p_api_version ,
46 p_init_msg_list ,
47 p_commit ,
48 l_validation_level ,
49 'C' ,
50 p_failureset_rec ,
51 x_return_status ,
52 x_msg_count ,
53 x_msg_data ,
54 l_failure_set_id
55 );
56
57 x_failureset_id := l_failure_set_id;
58
59 -- call to get message count and if count is 1, get message info.
60 FND_MSG_PUB.Count_And_Get
61 (p_count => x_msg_count,
62 p_data => x_msg_data
63 );
64 EXCEPTION
65
66 WHEN OTHERS THEN
67 ROLLBACK TO Create_FailureSet_PUB;
68 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
69 IF FND_MSG_PUB.Check_Msg_Level
70 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
71 THEN
72 FND_MSG_PUB.Add_Exc_Msg
73 (G_PKG_NAME,
74 l_api_name
75 );
76 END IF;
77 FND_MSG_PUB.Count_And_Get
78 (p_count => x_msg_count,
79 p_data => x_msg_data
80 );
81 END Create_FailureSet;
82
83
84 PROCEDURE Update_FailureSet
85 (p_api_version IN NUMBER ,
86 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
87 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
88 p_failureset_rec IN EAM_FailureSets_PUB.eam_failureset_rec_type,
89 x_return_status OUT NOCOPY VARCHAR2 ,
90 x_msg_count OUT NOCOPY NUMBER ,
91 x_msg_data OUT NOCOPY VARCHAR2 ,
92 x_failureset_id OUT NOCOPY NUMBER
93 )
94 IS
95 l_api_name CONSTANT VARCHAR2(30) := 'Update_FailureSet';
96 l_api_version CONSTANT NUMBER := 1.0;
97 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
98 l_failure_set_id NUMBER;
99
100 BEGIN
101 -- API savepoint
102 SAVEPOINT Update_FailureSet_PUB;
103
104 -- check for call compatibility.
105 IF NOT FND_API.Compatible_API_Call (l_api_version,
106 p_api_version,
107 l_api_name,
108 G_PKG_NAME )
109 THEN
110 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111 END IF;
112
113 -- Initialize message list if p_init_msg_list is set to TRUE.
114 IF FND_API.to_Boolean( p_init_msg_list ) THEN
115 FND_MSG_PUB.initialize;
116 END IF;
117
118 -- Initialize API return status to success
119 x_return_status := FND_API.G_RET_STS_SUCCESS;
120
121 -- Call PVT API
122 EAM_FailureSets_PVT.Setup_FailureSet
123 (p_api_version ,
124 p_init_msg_list ,
125 p_commit ,
126 l_validation_level ,
127 'U' ,
128 p_failureset_rec ,
129 x_return_status ,
130 x_msg_count ,
131 x_msg_data ,
132 l_failure_set_id
133 );
134
135 x_failureset_id := l_failure_set_id;
136
137 -- call to get message count and if count is 1, get message info.
138 FND_MSG_PUB.Count_And_Get
139 (p_count => x_msg_count,
140 p_data => x_msg_data
141 );
142 EXCEPTION
143 WHEN OTHERS THEN
144 ROLLBACK TO Update_FailureSet_PUB;
145 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
146 IF FND_MSG_PUB.Check_Msg_Level
147 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
148 THEN
149 FND_MSG_PUB.Add_Exc_Msg
150 (G_PKG_NAME,
151 l_api_name
152 );
153 END IF;
154 FND_MSG_PUB.Count_And_Get
155 (p_count => x_msg_count,
156 p_data => x_msg_data
157 );
158 END Update_FailureSet;
159
160 PROCEDURE Create_Association
161 (p_api_version IN NUMBER ,
162 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
163 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
164 p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
165 x_return_status OUT NOCOPY VARCHAR2 ,
166 x_msg_count OUT NOCOPY NUMBER ,
167 x_msg_data OUT NOCOPY VARCHAR2
168 )
169 IS
170 l_api_name CONSTANT VARCHAR2(30) := 'Create_Association';
171 l_api_version CONSTANT NUMBER := 1.0;
172 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
173
174 BEGIN
175 -- API savepoint
176 SAVEPOINT Create_Association_PUB;
177
178 -- check for call compatibility.
179 IF NOT FND_API.Compatible_API_Call (l_api_version,
180 p_api_version,
181 l_api_name,
182 G_PKG_NAME )
183 THEN
184 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185 END IF;
186
187 -- Initialize message list if p_init_msg_list is set to TRUE.
188 IF FND_API.to_Boolean( p_init_msg_list ) THEN
189 FND_MSG_PUB.initialize;
190 END IF;
191
192 -- Initialize API return status to success
193 x_return_status := FND_API.G_RET_STS_SUCCESS;
194
195 -- Call PVT API
196 EAM_FailureSets_PVT.Setup_SetAssociation
197 (p_api_version ,
198 p_init_msg_list ,
199 p_commit ,
200 l_validation_level ,
201 'C' ,
202 p_association_rec ,
203 x_return_status ,
204 x_msg_count ,
205 x_msg_data
206 );
207
208 -- call to get message count and if count is 1, get message info.
209 FND_MSG_PUB.Count_And_Get
210 (p_count => x_msg_count,
211 p_data => x_msg_data
212 );
213 EXCEPTION
214 WHEN OTHERS THEN
215 ROLLBACK TO Create_Association_PUB;
216 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
217 IF FND_MSG_PUB.Check_Msg_Level
218 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219 THEN
220 FND_MSG_PUB.Add_Exc_Msg
221 (G_PKG_NAME,
222 l_api_name
223 );
224 END IF;
225 FND_MSG_PUB.Count_And_Get
226 (p_count => x_msg_count,
227 p_data => x_msg_data
228 );
229 END Create_Association;
230
231 PROCEDURE Update_Association
232 (p_api_version IN NUMBER ,
233 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
234 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
235 p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
236 x_return_status OUT NOCOPY VARCHAR2 ,
237 x_msg_count OUT NOCOPY NUMBER ,
238 x_msg_data OUT NOCOPY VARCHAR2
239 )
240 IS
241 l_api_name CONSTANT VARCHAR2(30) := 'Update_Association';
242 l_api_version CONSTANT NUMBER := 1.0;
243 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
244
245 BEGIN
246 -- API savepoint
247 SAVEPOINT Update_Association_PUB;
248
249 -- check for call compatibility.
250 IF NOT FND_API.Compatible_API_Call (l_api_version,
251 p_api_version,
252 l_api_name,
253 G_PKG_NAME )
254 THEN
255 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256 END IF;
257
258 -- Initialize message list if p_init_msg_list is set to TRUE.
259 IF FND_API.to_Boolean( p_init_msg_list ) THEN
260 FND_MSG_PUB.initialize;
261 END IF;
262
263 -- Initialize API return status to success
264 x_return_status := FND_API.G_RET_STS_SUCCESS;
265
266 -- Call PVT API
267 EAM_FailureSets_PVT.Setup_SetAssociation
268 (p_api_version ,
269 p_init_msg_list ,
270 p_commit ,
271 l_validation_level ,
272 'U' ,
273 p_association_rec ,
274 x_return_status ,
275 x_msg_count ,
276 x_msg_data
277 );
278
279 -- call to get message count and if count is 1, get message info.
280 FND_MSG_PUB.Count_And_Get
281 (p_count => x_msg_count,
282 p_data => x_msg_data
283 );
284 EXCEPTION
285 WHEN OTHERS THEN
286 ROLLBACK TO Update_Association_PUB;
287 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
288 IF FND_MSG_PUB.Check_Msg_Level
289 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
290 THEN
291 FND_MSG_PUB.Add_Exc_Msg
292 (G_PKG_NAME,
293 l_api_name
294 );
295 END IF;
296 FND_MSG_PUB.Count_And_Get
297 (p_count => x_msg_count,
298 p_data => x_msg_data
299 );
300 END Update_Association;
301
302 PROCEDURE Delete_Association
303 (p_api_version IN NUMBER ,
304 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
305 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
306 p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
307 x_return_status OUT NOCOPY VARCHAR2 ,
308 x_msg_count OUT NOCOPY NUMBER ,
309 x_msg_data OUT NOCOPY VARCHAR2
310 )
311 IS
312 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Association';
313 l_api_version CONSTANT NUMBER := 1.0;
314 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
315
316 BEGIN
317 -- API savepoint
318 SAVEPOINT Delete_Association_PUB;
319
320 -- check for call compatibility.
321 IF NOT FND_API.Compatible_API_Call (l_api_version,
322 p_api_version,
323 l_api_name,
324 G_PKG_NAME )
325 THEN
326 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327 END IF;
328
329 -- Initialize message list if p_init_msg_list is set to TRUE.
330 IF FND_API.to_Boolean( p_init_msg_list ) THEN
331 FND_MSG_PUB.initialize;
332 END IF;
333
334 -- Initialize API return status to success
335 x_return_status := FND_API.G_RET_STS_SUCCESS;
336
337 -- Call PVT API
338 EAM_FailureSets_PVT.Setup_SetAssociation
339 (p_api_version ,
340 p_init_msg_list ,
341 p_commit ,
342 l_validation_level ,
343 'D' ,
344 p_association_rec ,
345 x_return_status ,
346 x_msg_count ,
347 x_msg_data
348 );
349
350 -- call to get message count and if count is 1, get message info.
351 FND_MSG_PUB.Count_And_Get
352 (p_count => x_msg_count,
353 p_data => x_msg_data
354 );
355 EXCEPTION
356 WHEN OTHERS THEN
357 ROLLBACK TO Delete_Association_PUB;
358 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
359 IF FND_MSG_PUB.Check_Msg_Level
360 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
361 THEN
362 FND_MSG_PUB.Add_Exc_Msg
363 (G_PKG_NAME,
364 l_api_name
365 );
366 END IF;
367 FND_MSG_PUB.Count_And_Get
368 (p_count => x_msg_count,
369 p_data => x_msg_data
370 );
371 END Delete_Association;
372
373 END EAM_FailureSets_PUB;