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