[Home] [Help]
PACKAGE BODY: APPS.EAM_FAILURECODES_PUB
Source
1 PACKAGE BODY EAM_FailureCodes_PUB AS
2 /* $Header: EAMPFCPB.pls 120.0 2006/03/08 07:06:59 sshahid noship $ */
3 G_PKG_NAME CONSTANT VARCHAR2(30):='EAM_FailureCodes_PUB';
4
5 PROCEDURE Create_Code
6 (p_api_version IN NUMBER ,
7 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
8 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
9 p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
10 x_return_status OUT NOCOPY VARCHAR2 ,
11 x_msg_count OUT NOCOPY NUMBER ,
12 x_msg_data OUT NOCOPY VARCHAR2
13 )
14 IS
15 l_api_name CONSTANT VARCHAR2(30) := 'Create_Code';
16 l_api_version CONSTANT NUMBER := 1.0;
17 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18
19 BEGIN
20 -- API savepoint
21 SAVEPOINT Create_Code_PUB;
22
23 -- check for call compatibility.
24 IF NOT FND_API.Compatible_API_Call (l_api_version,
25 p_api_version,
26 l_api_name,
27 G_PKG_NAME )
28 THEN
29 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30 END IF;
31
32 -- Initialize message list if p_init_msg_list is set to TRUE.
33 IF FND_API.to_Boolean( p_init_msg_list ) THEN
34 FND_MSG_PUB.initialize;
35 END IF;
36
37 -- Initialize API return status to success
38 x_return_status := FND_API.G_RET_STS_SUCCESS;
39
40 -- Call PVT API
41 EAM_FailureCodes_PVT.Setup_Code
42 (1.0 ,
43 p_init_msg_list ,
44 p_commit ,
45 l_validation_level ,
46 'C' ,
47 p_failurecode_rec ,
48 x_return_status ,
49 x_msg_count ,
50 x_msg_data
51 );
52
53 -- call to get message count and if count is 1, get message info.
54 FND_MSG_PUB.Count_And_Get
55 (p_count => x_msg_count,
56 p_data => x_msg_data
57 );
58 EXCEPTION
59
60 WHEN OTHERS THEN
61 ROLLBACK TO Create_Code_PUB;
62 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63 IF FND_MSG_PUB.Check_Msg_Level
64 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
65 THEN
66 FND_MSG_PUB.Add_Exc_Msg
67 (G_PKG_NAME,
68 l_api_name
69 );
70 END IF;
71 FND_MSG_PUB.Count_And_Get
72 (p_count => x_msg_count,
73 p_data => x_msg_data
74 );
75 END Create_Code;
76
77 PROCEDURE Update_Code
78 (p_api_version IN NUMBER ,
79 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
80 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
81 p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
82 x_return_status OUT NOCOPY VARCHAR2 ,
83 x_msg_count OUT NOCOPY NUMBER ,
84 x_msg_data OUT NOCOPY VARCHAR2
85 )
86 IS
87 l_api_name CONSTANT VARCHAR2(30) := 'Update_Code';
88 l_api_version CONSTANT NUMBER := 1.0;
89 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
90
91 BEGIN
92 -- API savepoint
93 SAVEPOINT Update_Code_PUB;
94
95 -- check for call compatibility.
96 IF NOT FND_API.Compatible_API_Call (l_api_version,
97 p_api_version,
98 l_api_name,
99 G_PKG_NAME )
100 THEN
101 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102 END IF;
103
104 -- Initialize message list if p_init_msg_list is set to TRUE.
105 IF FND_API.to_Boolean( p_init_msg_list ) THEN
106 FND_MSG_PUB.initialize;
107 END IF;
108
109 -- Initialize API return status to success
110 x_return_status := FND_API.G_RET_STS_SUCCESS;
111
112 -- Call PVT API
113 EAM_FailureCodes_PVT.Setup_Code
114 (1.0 ,
115 p_init_msg_list ,
116 p_commit ,
117 l_validation_level ,
118 'U' ,
119 p_failurecode_rec ,
120 x_return_status ,
121 x_msg_count ,
122 x_msg_data
123 );
124
125 -- call to get message count and if count is 1, get message info.
126 FND_MSG_PUB.Count_And_Get
127 (p_count => x_msg_count,
128 p_data => x_msg_data
129 );
130 EXCEPTION
131
132 WHEN OTHERS THEN
133 ROLLBACK TO Update_Code_PUB;
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135 IF FND_MSG_PUB.Check_Msg_Level
136 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
137 THEN
138 FND_MSG_PUB.Add_Exc_Msg
139 (G_PKG_NAME,
140 l_api_name
141 );
142 END IF;
143 FND_MSG_PUB.Count_And_Get
144 (p_count => x_msg_count,
145 p_data => x_msg_data
146 );
147 END Update_Code;
148
149 PROCEDURE Delete_Code
150 (p_api_version IN NUMBER ,
151 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
152 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
153 p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
154 x_return_status OUT NOCOPY VARCHAR2 ,
155 x_msg_count OUT NOCOPY NUMBER ,
156 x_msg_data OUT NOCOPY VARCHAR2
157 )
158 IS
159 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Code';
160 l_api_version CONSTANT NUMBER := 1.0;
161 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
162
163 BEGIN
164 -- API savepoint
165 SAVEPOINT Delete_Code_PUB;
166
167 -- check for call compatibility.
168 IF NOT FND_API.Compatible_API_Call (l_api_version,
169 p_api_version,
170 l_api_name,
171 G_PKG_NAME )
172 THEN
173 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174 END IF;
175
176 -- Initialize message list if p_init_msg_list is set to TRUE.
177 IF FND_API.to_Boolean( p_init_msg_list ) THEN
178 FND_MSG_PUB.initialize;
179 END IF;
180
181 -- Initialize API return status to success
182 x_return_status := FND_API.G_RET_STS_SUCCESS;
183
184 -- Call PVT API
185 EAM_FailureCodes_PVT.Setup_Code
186 (1.0 ,
187 p_init_msg_list ,
188 p_commit ,
189 l_validation_level ,
190 'D' ,
191 p_failurecode_rec ,
192 x_return_status ,
193 x_msg_count ,
194 x_msg_data
195 );
196
197 -- call to get message count and if count is 1, get message info.
198 FND_MSG_PUB.Count_And_Get
199 (p_count => x_msg_count,
200 p_data => x_msg_data
201 );
202 EXCEPTION
203
204 WHEN OTHERS THEN
205 ROLLBACK TO Delete_Code_PUB;
206 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
207 IF FND_MSG_PUB.Check_Msg_Level
208 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
209 THEN
210 FND_MSG_PUB.Add_Exc_Msg
211 (G_PKG_NAME,
212 l_api_name
213 );
214 END IF;
215 FND_MSG_PUB.Count_And_Get
216 (p_count => x_msg_count,
217 p_data => x_msg_data
218 );
219 END Delete_Code;
220
221 PROCEDURE Create_Combination
222 (p_api_version IN NUMBER ,
223 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
224 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
225 p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
226 x_return_status OUT NOCOPY VARCHAR2 ,
227 x_msg_count OUT NOCOPY NUMBER ,
228 x_msg_data OUT NOCOPY VARCHAR2,
229 x_combination_id OUT NOCOPY NUMBER
230 )
231 IS
232 l_api_name CONSTANT VARCHAR2(30) := 'Create_Combination';
233 l_api_version CONSTANT NUMBER := 1.0;
234 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
235 l_combination_id NUMBER;
236 l_combination_rec EAM_FailureCodes_PUB.eam_combination_rec_type;
237
238 BEGIN
239 -- API savepoint
240 SAVEPOINT Create_Combination_PUB;
241
242 -- check for call compatibility.
243 IF NOT FND_API.Compatible_API_Call (l_api_version,
244 p_api_version,
245 l_api_name,
246 G_PKG_NAME )
247 THEN
248 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249 END IF;
250
251 -- Initialize message list if p_init_msg_list is set to TRUE.
252 IF FND_API.to_Boolean( p_init_msg_list ) THEN
253 FND_MSG_PUB.initialize;
254 END IF;
255
256 -- Initialize API return status to success
257 x_return_status := FND_API.G_RET_STS_SUCCESS;
258
259 -- populate combination rec
260 l_combination_rec.set_id := p_combination_rec.set_id;
261 l_combination_rec.set_name := p_combination_rec.set_name;
262 l_combination_rec.failure_code := p_combination_rec.failure_code;
263 l_combination_rec.failure_description := p_combination_rec.failure_description;
264 l_combination_rec.cause_code := p_combination_rec.cause_code;
265 l_combination_rec.cause_description := p_combination_rec.cause_description;
266 l_combination_rec.resolution_code := p_combination_rec.resolution_code;
267 l_combination_rec.resolution_description:= p_combination_rec.resolution_description;
268 l_combination_rec.effective_end_date := p_combination_rec.effective_end_date;
269 l_combination_rec.combination_id := p_combination_rec.combination_id;
270 l_combination_rec.stored_last_upd_date := p_combination_rec.stored_last_upd_date;
271 l_combination_rec.created_by := fnd_global.user_id;
272 l_combination_rec.creation_date := sysdate;
273 l_combination_rec.last_update_date := sysdate;
274 l_combination_rec.last_updated_by := fnd_global.user_id;
275 l_combination_rec.last_update_login := p_combination_rec.last_update_login;
276 -- Call PVT API
277 EAM_FailureCodes_PVT.Setup_Combination
278 (1.0 ,
279 p_init_msg_list ,
280 p_commit ,
281 l_validation_level ,
282 'C' ,
283 l_combination_rec ,
284 x_return_status ,
285 x_msg_count ,
286 x_msg_data ,
287 l_combination_id);
288 x_combination_id := l_combination_id;
289 -- call to get message count and if count is 1, get message info.
290 FND_MSG_PUB.Count_And_Get
291 (p_count => x_msg_count,
292 p_data => x_msg_data
293 );
294 EXCEPTION
295
296 WHEN OTHERS THEN
297 ROLLBACK TO Create_Combination_PUB;
298 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
299 IF FND_MSG_PUB.Check_Msg_Level
300 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
301 THEN
302 FND_MSG_PUB.Add_Exc_Msg
303 (G_PKG_NAME,
304 l_api_name
305 );
306 END IF;
307 FND_MSG_PUB.Count_And_Get
308 (p_count => x_msg_count,
309 p_data => x_msg_data
310 );
311 END Create_Combination;
312
313 PROCEDURE Update_Combination
314 (p_api_version IN NUMBER ,
315 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
316 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
317 p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
318 x_return_status OUT NOCOPY VARCHAR2 ,
319 x_msg_count OUT NOCOPY NUMBER ,
320 x_msg_data OUT NOCOPY VARCHAR2,
321 x_combination_id OUT NOCOPY NUMBER
322 )
323 IS
324 l_api_name CONSTANT VARCHAR2(30) := 'Update_Combination';
325 l_api_version CONSTANT NUMBER := 1.0;
326 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
327 l_combination_id NUMBER;
328 l_combination_rec EAM_FailureCodes_PUB.eam_combination_rec_type;
329 BEGIN
330 -- API savepoint
331 SAVEPOINT Update_Combination_PUB;
332
333 -- check for call compatibility.
334 IF NOT FND_API.Compatible_API_Call (l_api_version,
335 p_api_version,
336 l_api_name,
337 G_PKG_NAME )
338 THEN
339 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340 END IF;
341
342 -- Initialize message list if p_init_msg_list is set to TRUE.
343 IF FND_API.to_Boolean( p_init_msg_list ) THEN
344 FND_MSG_PUB.initialize;
345 END IF;
346
347 -- Initialize API return status to success
348 x_return_status := FND_API.G_RET_STS_SUCCESS;
349
350 -- populate combination rec
351 l_combination_rec.set_id := p_combination_rec.set_id;
352 l_combination_rec.set_name := p_combination_rec.set_name;
353 l_combination_rec.failure_code := p_combination_rec.failure_code;
354 l_combination_rec.failure_description := p_combination_rec.failure_description;
355 l_combination_rec.cause_code := p_combination_rec.cause_code;
356 l_combination_rec.cause_description := p_combination_rec.cause_description;
357 l_combination_rec.resolution_code := p_combination_rec.resolution_code;
358 l_combination_rec.resolution_description:= p_combination_rec.resolution_description;
359 l_combination_rec.effective_end_date := p_combination_rec.effective_end_date;
360 l_combination_rec.combination_id := p_combination_rec.combination_id;
361 l_combination_rec.stored_last_upd_date := p_combination_rec.stored_last_upd_date;
362 l_combination_rec.created_by := fnd_global.user_id;
363 l_combination_rec.creation_date := sysdate;
364 l_combination_rec.last_update_date := sysdate;
365 l_combination_rec.last_updated_by := fnd_global.user_id;
366 l_combination_rec.last_update_login := p_combination_rec.last_update_login;
367 -- Call PVT API
368 EAM_FailureCodes_PVT.Setup_Combination
369 (1.0 ,
370 p_init_msg_list ,
371 p_commit ,
372 l_validation_level ,
373 'U' ,
374 l_combination_rec ,
375 x_return_status ,
376 x_msg_count ,
377 x_msg_data ,
378 l_combination_id);
379 x_combination_id := l_combination_id;
380 -- call to get message count and if count is 1, get message info.
381 FND_MSG_PUB.Count_And_Get
382 (p_count => x_msg_count,
383 p_data => x_msg_data
384 );
385 EXCEPTION
386
387 WHEN OTHERS THEN
388 ROLLBACK TO Update_Combination_PUB;
389 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
390 IF FND_MSG_PUB.Check_Msg_Level
391 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
392 THEN
393 FND_MSG_PUB.Add_Exc_Msg
394 (G_PKG_NAME,
395 l_api_name
396 );
397 END IF;
398 FND_MSG_PUB.Count_And_Get
399 (p_count => x_msg_count,
400 p_data => x_msg_data
401 );
402 END Update_Combination;
403
404 PROCEDURE Delete_Combination
405 (p_api_version IN NUMBER ,
406 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
407 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
408 p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
409 x_return_status OUT NOCOPY VARCHAR2 ,
410 x_msg_count OUT NOCOPY NUMBER ,
411 x_msg_data OUT NOCOPY VARCHAR2
412 )
413 IS
417 l_combination_id NUMBER;
414 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Combination';
415 l_api_version CONSTANT NUMBER := 1.0;
416 l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
418
419 BEGIN
420 -- API savepoint
421 SAVEPOINT Delete_Combination_PUB;
422
423 -- check for call compatibility.
424 IF NOT FND_API.Compatible_API_Call (l_api_version,
425 p_api_version,
426 l_api_name,
427 G_PKG_NAME )
428 THEN
429 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
430 END IF;
431
432 -- Initialize message list if p_init_msg_list is set to TRUE.
433 IF FND_API.to_Boolean( p_init_msg_list ) THEN
434 FND_MSG_PUB.initialize;
435 END IF;
436
437 -- Initialize API return status to success
438 x_return_status := FND_API.G_RET_STS_SUCCESS;
439
440 -- Call PVT API
441 EAM_FailureCodes_PVT.Setup_Combination
442 (1.0 ,
443 p_init_msg_list ,
444 p_commit ,
445 l_validation_level ,
446 'D' ,
447 p_combination_rec ,
448 x_return_status ,
449 x_msg_count ,
450 x_msg_data ,
451 l_combination_id);
452
453 -- call to get message count and if count is 1, get message info.
454 FND_MSG_PUB.Count_And_Get
455 (p_count => x_msg_count,
456 p_data => x_msg_data
457 );
458 EXCEPTION
459
460 WHEN OTHERS THEN
461 ROLLBACK TO Delete_Combination_PUB;
462 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
463 IF FND_MSG_PUB.Check_Msg_Level
464 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
465 THEN
466 FND_MSG_PUB.Add_Exc_Msg
467 (G_PKG_NAME,
468 l_api_name
469 );
470 END IF;
471 FND_MSG_PUB.Count_And_Get
472 (p_count => x_msg_count,
473 p_data => x_msg_data
474 );
475 END Delete_Combination;
476
477 END EAM_FailureCodes_PUB;