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