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