[Home] [Help]
PACKAGE BODY: APPS.OKL_SIF_TRX_PARMS_PUB
Source
1 PACKAGE BODY OKL_SIF_TRX_PARMS_PUB AS
2 /* $Header: OKLPSXPB.pls 115.5 2004/04/13 11:23:03 rnaik noship $ */
3
4 PROCEDURE add_language IS
5 BEGIN
6 -- okl_sxp_pvt.add_language;
7 NULL;
8 END add_language;
9
10
11 PROCEDURE insert_sif_trx_parms(
12 p_api_version IN NUMBER
13 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
14 ,x_return_status OUT NOCOPY VARCHAR2
15 ,x_msg_count OUT NOCOPY NUMBER
16 ,x_msg_data OUT NOCOPY VARCHAR2
17 ,p_sxpv_rec IN sxpv_rec_type
18 ,x_sxpv_rec OUT NOCOPY sxpv_rec_type
19 ) IS
20 l_sxpv_rec sxpv_rec_type;
21 l_data VARCHAR2(100);
22 l_api_name CONSTANT VARCHAR2(30) := 'insert_sif_trx_parms';
23 l_count NUMBER ;
24 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25 BEGIN
26 x_return_status := FND_API.G_RET_STS_SUCCESS;
27 SAVEPOINT insert_sif_trx_parms;
28 l_sxpv_rec := p_sxpv_rec;
29
30
31
32 okl_sxp_pvt.insert_row(
33 p_api_version => p_api_version
34 ,p_init_msg_list => p_init_msg_list
35 ,x_return_status => l_return_status
36 ,x_msg_count => x_msg_count
37 ,x_msg_data => x_msg_data
38 ,p_sxpv_rec => l_sxpv_rec
39 ,x_sxpv_rec => x_sxpv_rec
40 );
41
42 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43 RAISE FND_API.G_EXC_ERROR;
44 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
45 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46 END IF;
47
48
49
50
51 EXCEPTION
52 WHEN FND_API.G_EXC_ERROR THEN
53 ROLLBACK TO insert_sif_trx_parms;
54 x_return_status := FND_API.G_RET_STS_ERROR;
55
56 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
57 ,p_count => x_msg_count
58 ,p_data => x_msg_data);
59
60 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
61 ROLLBACK TO insert_sif_trx_parms;
62 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
63 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
64 ,p_count => x_msg_count
65 ,p_data => x_msg_data);
66
67 WHEN OTHERS THEN
68 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','insert_sif_trx_parms');
69 -- store SQL error message on message stack for caller
70 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
71 ,p_count => x_msg_count
72 ,p_data => x_msg_data);
73 -- notify caller of an UNEXPECTED error
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75 END insert_sif_trx_parms;
76
77
78 PROCEDURE insert_sif_trx_parms(
79 p_api_version IN NUMBER
80 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
81 ,x_return_status OUT NOCOPY VARCHAR2
82 ,x_msg_count OUT NOCOPY NUMBER
83 ,x_msg_data OUT NOCOPY VARCHAR2
84 ,p_sxpv_tbl IN sxpv_tbl_type
85 ,x_sxpv_tbl OUT NOCOPY sxpv_tbl_type
86 ) IS
87 l_sxpv_tbl sxpv_tbl_type;
88 l_data VARCHAR2(100);
89 l_count NUMBER ;
90 l_api_name CONSTANT VARCHAR2(30) := 'insert_sif_trx_parms';
91 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
92 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
93 i NUMBER;
94
95 BEGIN
96 x_return_status := FND_API.G_RET_STS_SUCCESS;
97 SAVEPOINT insert_sif_trx_parms;
98 l_sxpv_tbl := p_sxpv_tbl;
99
100
101
102 IF (p_sxpv_tbl.COUNT > 0) THEN
103 i := p_sxpv_tbl.FIRST;
104
105 LOOP
106 insert_sif_trx_parms (
107 p_api_version => p_api_version
108 ,p_init_msg_list => p_init_msg_list
109 ,x_return_status => x_return_status
110 ,x_msg_count => x_msg_count
111 ,x_msg_data => x_msg_data
112 ,p_sxpv_rec => p_sxpv_tbl(i)
113 ,x_sxpv_rec => x_sxpv_tbl(i)
114 );
115
116 -- store the highest degree of error
117 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
118 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
119 l_overall_status := x_return_status;
120 END IF;
121 END IF;
122 EXIT WHEN (i = p_sxpv_tbl.LAST);
123
124 i := p_sxpv_tbl.NEXT(i);
125
126 END LOOP;
127
128 -- return overall status
129 x_return_status := l_overall_status;
130 END IF;
131
132 l_return_status := x_return_status;
133
134 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
135 RAISE FND_API.G_EXC_ERROR;
136 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
137 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138 END IF;
139
140
141
142 EXCEPTION
143 WHEN FND_API.G_EXC_ERROR THEN
144 ROLLBACK TO insert_sif_trx_parms;
145 x_return_status := FND_API.G_RET_STS_ERROR;
146
147 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
148 ,p_count => x_msg_count
149 ,p_data => x_msg_data);
150
151 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152 ROLLBACK TO insert_sif_trx_parms;
153 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
155 ,p_count => x_msg_count
156 ,p_data => x_msg_data);
157
158 WHEN OTHERS THEN
159 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','insert_sif_trx_parms');
160 -- store SQL error message on message stack for caller
161 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
162 ,p_count => x_msg_count
163 ,p_data => x_msg_data);
164 -- notify caller of an UNEXPECTED error
165 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166 END insert_sif_trx_parms;
167
168 PROCEDURE lock_sif_trx_parms(
169 p_api_version IN NUMBER
170 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
171 ,x_return_status OUT NOCOPY VARCHAR2
172 ,x_msg_count OUT NOCOPY NUMBER
173 ,x_msg_data OUT NOCOPY VARCHAR2
174 ,p_sxpv_rec IN sxpv_rec_type
175 ) IS
176
177 l_sxpv_rec sxpv_rec_type;
178 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
179
180 BEGIN
181 x_return_status := FND_API.G_RET_STS_SUCCESS;
182 SAVEPOINT lock_sif_trx_parms;
183 l_sxpv_rec := p_sxpv_rec;
184
185 okl_sxp_pvt.lock_row(
186 p_api_version => p_api_version
187 ,p_init_msg_list => p_init_msg_list
188 ,x_return_status => l_return_status
189 ,x_msg_count => x_msg_count
190 ,x_msg_data => x_msg_data
191 ,p_sxpv_rec => l_sxpv_rec
192 );
193
194 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
195 RAISE FND_API.G_EXC_ERROR;
196 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
197 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
198 END IF;
199
200 EXCEPTION
201 WHEN FND_API.G_EXC_ERROR THEN
202 ROLLBACK TO lock_sif_trx_parms;
203 x_return_status := FND_API.G_RET_STS_ERROR;
204
205 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
206 ,p_count => x_msg_count
207 ,p_data => x_msg_data);
208
209 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210 ROLLBACK TO lock_sif_trx_parms;
211 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
213 ,p_count => x_msg_count
214 ,p_data => x_msg_data);
215
216 WHEN OTHERS THEN
217 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','lock_sif_trx_parms');
218 -- store SQL error message on message stack for caller
219 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
220 ,p_count => x_msg_count
221 ,p_data => x_msg_data);
222 -- notify caller of an UNEXPECTED error
223 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224 END lock_sif_trx_parms;
225
226 PROCEDURE lock_sif_trx_parms(
227 p_api_version IN NUMBER
228 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
229 ,x_return_status OUT NOCOPY VARCHAR2
230 ,x_msg_count OUT NOCOPY NUMBER
231 ,x_msg_data OUT NOCOPY VARCHAR2
232 ,p_sxpv_tbl IN sxpv_tbl_type
233 ) IS
234
235 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
236 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
237 i NUMBER;
238
239 BEGIN
240 x_return_status := FND_API.G_RET_STS_SUCCESS;
241 SAVEPOINT lock_sif_trx_parms;
242
243 IF (p_sxpv_tbl.COUNT > 0) THEN
244 i := p_sxpv_tbl.FIRST;
245
246 LOOP
247 lock_sif_trx_parms (
248 p_api_version => p_api_version
249 ,p_init_msg_list => p_init_msg_list
250 ,x_return_status => x_return_status
251 ,x_msg_count => x_msg_count
252 ,x_msg_data => x_msg_data
253 ,p_sxpv_rec => p_sxpv_tbl(i)
254 );
255
256 -- store the highest degree of error
257 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
258 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
259 l_overall_status := x_return_status;
260 END IF;
261 END IF;
262 EXIT WHEN (i = p_sxpv_tbl.LAST);
263
264 i := p_sxpv_tbl.NEXT(i);
265
266 END LOOP;
267
268 -- return overall status
269 x_return_status := l_overall_status;
270 END IF;
271
272 l_return_status := x_return_status;
273
274 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
275 RAISE FND_API.G_EXC_ERROR;
276 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
277 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
278 END IF;
279
280 EXCEPTION
281 WHEN FND_API.G_EXC_ERROR THEN
282 ROLLBACK TO lock_sif_trx_parms;
283 x_return_status := FND_API.G_RET_STS_ERROR;
284
285 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
286 ,p_count => x_msg_count
287 ,p_data => x_msg_data);
288
289 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290 ROLLBACK TO lock_sif_trx_parms;
291 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
293 ,p_count => x_msg_count
294 ,p_data => x_msg_data);
295
296 WHEN OTHERS THEN
297 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','lock_sif_trx_parms');
298 -- store SQL error message on message stack for caller
299 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
300 ,p_count => x_msg_count
301 ,p_data => x_msg_data);
302 -- notify caller of an UNEXPECTED error
303 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304 END lock_sif_trx_parms;
305
306 PROCEDURE update_sif_trx_parms(
307 p_api_version IN NUMBER
308 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
309 ,x_return_status OUT NOCOPY VARCHAR2
310 ,x_msg_count OUT NOCOPY NUMBER
311 ,x_msg_data OUT NOCOPY VARCHAR2
312 ,p_sxpv_rec IN sxpv_rec_type
313 ,x_sxpv_rec OUT NOCOPY sxpv_rec_type
314 ) IS
315 l_sxpv_rec sxpv_rec_type;
316 l_data VARCHAR2(100);
317 l_count NUMBER ;
318 l_api_name CONSTANT VARCHAR2(30) := 'update_sif_trx_parms';
319 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
320 BEGIN
321 x_return_status := FND_API.G_RET_STS_SUCCESS;
322 SAVEPOINT update_sif_trx_parms;
323 l_sxpv_rec := p_sxpv_rec;
324
325
326
327
328 okl_sxp_pvt.update_row(
329 p_api_version => p_api_version
330 ,p_init_msg_list => p_init_msg_list
331 ,x_return_status => l_return_status
332 ,x_msg_count => x_msg_count
333 ,x_msg_data => x_msg_data
334 ,p_sxpv_rec => l_sxpv_rec
335 ,x_sxpv_rec => x_sxpv_rec
336 );
337
338 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
339 RAISE FND_API.G_EXC_ERROR;
340 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
341 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342 END IF;
343
344
345
346 EXCEPTION
347 WHEN FND_API.G_EXC_ERROR THEN
348 ROLLBACK TO update_sif_trx_parms;
349 x_return_status := FND_API.G_RET_STS_ERROR;
350
351 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
352 ,p_count => x_msg_count
353 ,p_data => x_msg_data);
354
355 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356 ROLLBACK TO update_sif_trx_parms;
357 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
359 ,p_count => x_msg_count
360 ,p_data => x_msg_data);
361
362 WHEN OTHERS THEN
363 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','update_sif_trx_parms');
364 -- store SQL error message on message stack for caller
365 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
366 ,p_count => x_msg_count
367 ,p_data => x_msg_data);
368 -- notify caller of an UNEXPECTED error
369 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370 END update_sif_trx_parms;
371
372
373 PROCEDURE update_sif_trx_parms(
374 p_api_version IN NUMBER
375 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
376 ,x_return_status OUT NOCOPY VARCHAR2
377 ,x_msg_count OUT NOCOPY NUMBER
378 ,x_msg_data OUT NOCOPY VARCHAR2
379 ,p_sxpv_tbl IN sxpv_tbl_type
380 ,x_sxpv_tbl OUT NOCOPY sxpv_tbl_type
381 ) IS
382 l_sxpv_tbl sxpv_tbl_type;
383 l_data VARCHAR2(100);
384 l_count NUMBER;
385 l_api_name CONSTANT VARCHAR2(30) := 'update_sif_trx_parms';
386 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
387 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
388 i NUMBER;
389
390 BEGIN
391 x_return_status := FND_API.G_RET_STS_SUCCESS;
392 SAVEPOINT update_sif_trx_parms;
393 l_sxpv_tbl := p_sxpv_tbl;
394
395
396
397 IF (p_sxpv_tbl.COUNT > 0) THEN
398 i := p_sxpv_tbl.FIRST;
399
400 LOOP
401 update_sif_trx_parms (
402 p_api_version => p_api_version
403 ,p_init_msg_list => p_init_msg_list
404 ,x_return_status => x_return_status
405 ,x_msg_count => x_msg_count
406 ,x_msg_data => x_msg_data
407 ,p_sxpv_rec => p_sxpv_tbl(i)
408 ,x_sxpv_rec => x_sxpv_tbl(i)
409 );
410
411 -- store the highest degree of error
412 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
413 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
414 l_overall_status := x_return_status;
415 END IF;
416 END IF;
417 EXIT WHEN (i = p_sxpv_tbl.LAST);
418
419 i := p_sxpv_tbl.NEXT(i);
420
421 END LOOP;
422
423 -- return overall status
424 x_return_status := l_overall_status;
425 END IF;
426
427 l_return_status := x_return_status;
428
429 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
430 RAISE FND_API.G_EXC_ERROR;
431 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
432 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433 END IF;
434
435
436
437 EXCEPTION
438 WHEN FND_API.G_EXC_ERROR THEN
439 ROLLBACK TO update_sif_trx_parms;
440 x_return_status := FND_API.G_RET_STS_ERROR;
441
442 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
443 ,p_count => x_msg_count
444 ,p_data => x_msg_data);
445
446 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447 ROLLBACK TO update_sif_trx_parms;
448 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
450 ,p_count => x_msg_count
451 ,p_data => x_msg_data);
452
453 WHEN OTHERS THEN
454 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','update_sif_trx_parms');
455 -- store SQL error message on message stack for caller
456 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
457 ,p_count => x_msg_count
458 ,p_data => x_msg_data);
459 -- notify caller of an UNEXPECTED error
460 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461 END update_sif_trx_parms;
462
463 PROCEDURE delete_sif_trx_parms(
464 p_api_version IN NUMBER
465 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
466 ,x_return_status OUT NOCOPY VARCHAR2
467 ,x_msg_count OUT NOCOPY NUMBER
468 ,x_msg_data OUT NOCOPY VARCHAR2
469 ,p_sxpv_rec IN sxpv_rec_type
470 ,x_sxpv_rec OUT NOCOPY sxpv_rec_type
471 ) IS
472 l_sxpv_rec sxpv_rec_type;
473 l_data VARCHAR2(100);
474 l_count NUMBER ;
475 l_api_name CONSTANT VARCHAR2(30) := 'delete_sif_trx_parms';
476 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
477 BEGIN
478 x_return_status := FND_API.G_RET_STS_SUCCESS;
479 SAVEPOINT delete_sif_trx_parms;
480 l_sxpv_rec := p_sxpv_rec;
481
482
483
484 okl_sxp_pvt.delete_row(
485 p_api_version => p_api_version
486 ,p_init_msg_list => p_init_msg_list
487 ,x_return_status => l_return_status
488 ,x_msg_count => x_msg_count
489 ,x_msg_data => x_msg_data
490 ,p_sxpv_rec => l_sxpv_rec
491 );
492
493 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
494 RAISE FND_API.G_EXC_ERROR;
495 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
496 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497 END IF;
498
499
500
501 EXCEPTION
502 WHEN FND_API.G_EXC_ERROR THEN
503 ROLLBACK TO delete_sif_trx_parms;
504 x_return_status := FND_API.G_RET_STS_ERROR;
505
506 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
507 ,p_count => x_msg_count
508 ,p_data => x_msg_data);
509
510 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
511 ROLLBACK TO delete_sif_trx_parms;
512 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
514 ,p_count => x_msg_count
515 ,p_data => x_msg_data);
516
517 WHEN OTHERS THEN
518 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','delete_sif_trx_parms');
519 -- store SQL error message on message stack for caller
520 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
521 ,p_count => x_msg_count
522 ,p_data => x_msg_data);
523 -- notify caller of an UNEXPECTED error
524 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525 END delete_sif_trx_parms;
526
527
528 PROCEDURE delete_sif_trx_parms(
529 p_api_version IN NUMBER
530 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
531 ,x_return_status OUT NOCOPY VARCHAR2
532 ,x_msg_count OUT NOCOPY NUMBER
533 ,x_msg_data OUT NOCOPY VARCHAR2
534 ,p_sxpv_tbl IN sxpv_tbl_type
535 ,x_sxpv_tbl OUT NOCOPY sxpv_tbl_type
536 ) IS
537 l_sxpv_tbl sxpv_tbl_type;
538 l_data VARCHAR2(100);
539 l_count NUMBER ;
540 l_api_name CONSTANT VARCHAR2(30) := 'delete_sif_trx_parms';
541 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
542 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
543 i NUMBER;
544
545 BEGIN
546 x_return_status := FND_API.G_RET_STS_SUCCESS;
547 SAVEPOINT delete_sif_trx_parms;
548 l_sxpv_tbl := p_sxpv_tbl;
549
550
551
552 IF (p_sxpv_tbl.COUNT > 0) THEN
553 i := p_sxpv_tbl.FIRST;
554
555 LOOP
556 delete_sif_trx_parms (
557 p_api_version => p_api_version
558 ,p_init_msg_list => p_init_msg_list
559 ,x_return_status => x_return_status
560 ,x_msg_count => x_msg_count
561 ,x_msg_data => x_msg_data
562 ,p_sxpv_rec => p_sxpv_tbl(i)
563 ,x_sxpv_rec => x_sxpv_tbl(i)
564 );
565
566 -- store the highest degree of error
567 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
568 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
569 l_overall_status := x_return_status;
570 END IF;
571 END IF;
572 EXIT WHEN (i = p_sxpv_tbl.LAST);
573
574 i := p_sxpv_tbl.NEXT(i);
575
576 END LOOP;
577
578 -- return overall status
579 x_return_status := l_overall_status;
580 END IF;
581
582 l_return_status := x_return_status;
583
584 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
585 RAISE FND_API.G_EXC_ERROR;
586 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
587 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
588 END IF;
589
590
591
592 EXCEPTION
593 WHEN FND_API.G_EXC_ERROR THEN
594 ROLLBACK TO delete_sif_trx_parms;
595 x_return_status := FND_API.G_RET_STS_ERROR;
596
597 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
598 ,p_count => x_msg_count
599 ,p_data => x_msg_data);
600
601 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
602 ROLLBACK TO delete_sif_trx_parms;
603 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
605 ,p_count => x_msg_count
606 ,p_data => x_msg_data);
607
608 WHEN OTHERS THEN
609 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','delete_sif_trx_parms');
610 -- store SQL error message on message stack for caller
611 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
612 ,p_count => x_msg_count
613 ,p_data => x_msg_data);
614 -- notify caller of an UNEXPECTED error
615 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
616 END delete_sif_trx_parms;
617
618 PROCEDURE validate_sif_trx_parms(
619 p_api_version IN NUMBER
620 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
621 ,x_return_status OUT NOCOPY VARCHAR2
622 ,x_msg_count OUT NOCOPY NUMBER
623 ,x_msg_data OUT NOCOPY VARCHAR2
624 ,p_sxpv_rec IN sxpv_rec_type
625 ,x_sxpv_rec OUT NOCOPY sxpv_rec_type
626 ) IS
627 l_sxpv_rec sxpv_rec_type;
628 l_data VARCHAR2(100);
629 l_count NUMBER;
630 l_api_name CONSTANT VARCHAR2(30) := 'validate_sif_trx_parms';
631 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
632 BEGIN
633 x_return_status := FND_API.G_RET_STS_SUCCESS;
634 SAVEPOINT validate_sif_trx_parms;
635 l_sxpv_rec := p_sxpv_rec;
636
637
638
639 okl_sxp_pvt.validate_row(
640 p_api_version => p_api_version
641 ,p_init_msg_list => p_init_msg_list
642 ,x_return_status => l_return_status
643 ,x_msg_count => x_msg_count
644 ,x_msg_data => x_msg_data
645 ,p_sxpv_rec => l_sxpv_rec
646 );
647
648 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
649 RAISE FND_API.G_EXC_ERROR;
650 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
651 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652 END IF;
653
654
655
656 EXCEPTION
657 WHEN FND_API.G_EXC_ERROR THEN
658 ROLLBACK TO validate_sif_trx_parms;
659 x_return_status := FND_API.G_RET_STS_ERROR;
660
661 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
662 ,p_count => x_msg_count
663 ,p_data => x_msg_data);
664
665 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
666 ROLLBACK TO validate_sif_trx_parms;
667 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
669 ,p_count => x_msg_count
670 ,p_data => x_msg_data);
671
672 WHEN OTHERS THEN
673 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','validate_sif_trx_parms');
674 -- store SQL error message on message stack for caller
675 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
676 ,p_count => x_msg_count
677 ,p_data => x_msg_data);
678 -- notify caller of an UNEXPECTED error
679 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
680 END validate_sif_trx_parms;
681
682
683 PROCEDURE validate_sif_trx_parms(
684 p_api_version IN NUMBER
685 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
686 ,x_return_status OUT NOCOPY VARCHAR2
687 ,x_msg_count OUT NOCOPY NUMBER
688 ,x_msg_data OUT NOCOPY VARCHAR2
689 ,p_sxpv_tbl IN sxpv_tbl_type
690 ,x_sxpv_tbl OUT NOCOPY sxpv_tbl_type
691 ) IS
692 l_sxpv_tbl sxpv_tbl_type;
693 l_data VARCHAR2(100);
694 l_count NUMBER;
695 l_api_name CONSTANT VARCHAR2(30) := 'validate_sif_trx_parms';
696 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
697 l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
698 i NUMBER;
699
700 BEGIN
701 x_return_status := FND_API.G_RET_STS_SUCCESS;
702 SAVEPOINT validate_sif_trx_parms;
703 l_sxpv_tbl := p_sxpv_tbl;
704
705
706
707 IF (p_sxpv_tbl.COUNT > 0) THEN
708 i := p_sxpv_tbl.FIRST;
709
710 LOOP
711 validate_sif_trx_parms (
712 p_api_version => p_api_version
713 ,p_init_msg_list => p_init_msg_list
714 ,x_return_status => x_return_status
715 ,x_msg_count => x_msg_count
716 ,x_msg_data => x_msg_data
717 ,p_sxpv_rec => p_sxpv_tbl(i)
718 ,x_sxpv_rec => x_sxpv_tbl(i)
719 );
720
721 -- store the highest degree of error
722 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
723 IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
724 l_overall_status := x_return_status;
725 END IF;
726 END IF;
727 EXIT WHEN (i = p_sxpv_tbl.LAST);
728
729 i := p_sxpv_tbl.NEXT(i);
730
731 END LOOP;
732
733 -- return overall status
734 x_return_status := l_overall_status;
735 END IF;
736
737 l_return_status := x_return_status;
738
739 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
740 RAISE FND_API.G_EXC_ERROR;
741 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
742 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
743 END IF;
744
745
746
747
748 EXCEPTION
749 WHEN FND_API.G_EXC_ERROR THEN
750 ROLLBACK TO validate_sif_trx_parms;
751 x_return_status := FND_API.G_RET_STS_ERROR;
752
753 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
754 ,p_count => x_msg_count
755 ,p_data => x_msg_data);
756
757 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758 ROLLBACK TO validate_sif_trx_parms;
759 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
761 ,p_count => x_msg_count
762 ,p_data => x_msg_data);
763
764 WHEN OTHERS THEN
765 FND_MSG_PUB.ADD_EXC_MSG('OKL_SIF_TRX_PARMS_PUB','validate_sif_trx_parms');
766 -- store SQL error message on message stack for caller
767 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
768 ,p_count => x_msg_count
769 ,p_data => x_msg_data);
770 -- notify caller of an UNEXPECTED error
771 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772 END validate_sif_trx_parms;
773
774
775 END OKL_SIF_TRX_PARMS_PUB;