[Home] [Help]
PACKAGE BODY: APPS.OKL_RCT_PUB
Source
1 PACKAGE BODY Okl_Rct_Pub AS
2 /* $Header: OKLPRCTB.pls 120.2 2007/11/20 03:15:52 akrangan ship $ */
3
4 --PROCEDURE ADD_LANGUAGE IS
5 --BEGIN
6 -- Okl_Intrn_Pvt.add_language;
7 --END ;
8
9
10 --Object type procedure for insert
11 PROCEDURE create_internal_trans(
12 p_api_version IN NUMBER
13 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_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_rctv_rec IN rctv_rec_type
18 ,p_rcav_tbl IN rcav_tbl_type
19 ,x_rctv_rec OUT NOCOPY rctv_rec_type
20 ,x_rcav_tbl OUT NOCOPY rcav_tbl_type
21 ) IS
22 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
23
24 l_api_version NUMBER;
25 l_init_msg_list VARCHAR2(1);
26
27 l_msg_count NUMBER;
28 l_msg_data VARCHAR(2000);
29
30
31 lp_rctv_rec rctv_rec_type;
32 lx_rctv_rec rctv_rec_type;
33
34 lp_rcav_tbl rcav_tbl_type;
35 lx_rcav_tbl rcav_tbl_type;
36
37 BEGIN
38
39 SAVEPOINT save_Insert_row;
40
41 l_api_version := p_api_version;
42 l_init_msg_list := l_init_msg_list;
43
44 lp_rctv_rec := p_rctv_rec;
45 lp_rcav_tbl := p_rcav_tbl;
46
47 -- customer pre-processing
48
49
50 -- vertical industry-preprocessing
51
52
53 Okl_Incsh_Pvt.create_internal_trans(
54 p_api_version
55 ,p_init_msg_list
56 ,x_return_status
57 ,x_msg_count
58 ,x_msg_data
59 ,lp_rctv_rec
60 ,lp_rcav_tbl
61 ,x_rctv_rec
62 ,x_rcav_tbl
63 );
64
65 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
66 RAISE G_EXCEPTION_HALT_VALIDATION;
67 ELSE
68 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
69 l_return_status := x_return_status;
70 END IF;
71 END IF;
72
73
74 lp_rctv_rec := x_rctv_rec;
75 lp_rcav_tbl := x_rcav_tbl;
76
77 -- customer post-processing
78
79
80 -- vertical industry-post-processing
81
82
83 --Assign value to OUT variables
84 x_rctv_rec := lp_rctv_rec;
85 x_rcav_tbl := lp_rcav_tbl;
86 x_return_status := l_return_status ;
87 x_msg_count := l_msg_count ;
88 x_msg_data := l_msg_data ;
89
90
91 EXCEPTION
92
93 WHEN Fnd_Api.G_EXC_ERROR THEN
94 ROLLBACK TO save_Insert_row;
95 x_return_status := Fnd_Api.G_RET_STS_ERROR;
96 x_msg_count := l_msg_count ;
97 x_msg_data := l_msg_data ;
98 Fnd_Msg_Pub.count_and_get(
99 p_count => x_msg_count
100 ,p_data => x_msg_data);
101 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
102 ROLLBACK TO save_Insert_row;
103 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
104 x_msg_count := l_msg_count ;
105 x_msg_data := l_msg_data ;
106 Fnd_Msg_Pub.count_and_get(
107 p_count => x_msg_count
108 ,p_data => x_msg_data);
109 WHEN OTHERS THEN
110 ROLLBACK TO save_Insert_row;
111 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
112 x_msg_count := l_msg_count ;
113 x_msg_data := l_msg_data ;
114 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RCT_PUB','insert_row');
115 Fnd_Msg_Pub.count_and_get(
116 p_count => x_msg_count
117 ,p_data => x_msg_data);
118
119 END ;
120
121 --Object type procedure for update
122 PROCEDURE update_internal_trans(
123 p_api_version IN NUMBER
124 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
125 ,x_return_status OUT NOCOPY VARCHAR2
126 ,x_msg_count OUT NOCOPY NUMBER
127 ,x_msg_data OUT NOCOPY VARCHAR2
128 ,p_rctv_rec IN rctv_rec_type
129 ,p_rcav_tbl IN rcav_tbl_type
130 ,x_rctv_rec OUT NOCOPY rctv_rec_type
131 ,x_rcav_tbl OUT NOCOPY rcav_tbl_type
132 ) IS
133 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
134
135 l_api_version NUMBER ;
136 l_init_msg_list VARCHAR2(1) ;
137 l_msg_count NUMBER ;
138 l_msg_data VARCHAR2(2000);
139
140 lp_rctv_rec rctv_rec_type;
141 lx_rctv_rec rctv_rec_type;
142
143 lp_rcav_tbl rcav_tbl_type;
144 lx_rcav_tbl rcav_tbl_type;
145 BEGIN
146 SAVEPOINT save_update_row;
147
148 l_api_version := p_api_version;
149 l_init_msg_list := l_init_msg_list;
150
151 lp_rctv_rec := p_rctv_rec;
152 lp_rcav_tbl := p_rcav_tbl;
153
154 -- customer pre-processing
155
156 -- vertical industry-preprocessing
157
158
159
160
161 Okl_Incsh_Pvt.update_internal_trans(
162 p_api_version
163 ,p_init_msg_list
164 ,l_return_status
165 ,x_msg_count
166 ,x_msg_data
167 ,lp_rctv_rec
168 ,lp_rcav_tbl
169 ,lx_rctv_rec
170 ,lx_rcav_tbl
171 );
172 IF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
173 RAISE G_EXCEPTION_HALT_VALIDATION;
174 ELSE
175 IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
176 RAISE G_EXCEPTION_HALT_VALIDATION;
177 END IF;
178 END IF;
179
180 -- customer post-processing
181
182
183 -- vertical industry-post-processing
184
185
186 --Assign value to OUT variables
187 x_rctv_rec := lx_rctv_rec;
188 x_rcav_tbl := lx_rcav_tbl;
189 x_return_status := l_return_status ;
190 x_msg_count := l_msg_count ;
191 x_msg_data := l_msg_data ;
192
193
194 EXCEPTION
195 WHEN Fnd_Api.G_EXC_ERROR THEN
196 ROLLBACK TO save_update_row;
197 x_return_status := Fnd_Api.G_RET_STS_ERROR;
198 x_msg_count := l_msg_count ;
199 x_msg_data := l_msg_data ;
200 Fnd_Msg_Pub.count_and_get(
201 p_count => x_msg_count
202 ,p_data => x_msg_data);
203 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
204 ROLLBACK TO save_update_row;
205 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
206 x_msg_count := l_msg_count ;
207 x_msg_data := l_msg_data ;
208 Fnd_Msg_Pub.count_and_get(
209 p_count => x_msg_count
210 ,p_data => x_msg_data);
211 WHEN OTHERS THEN
212 ROLLBACK TO save_update_row;
213 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
214 x_msg_count := l_msg_count ;
215 x_msg_data := l_msg_data ;
216 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RCT_PUB','update_row');
217 Fnd_Msg_Pub.count_and_get(
218 p_count => x_msg_count
219 ,p_data => x_msg_data);
220
221 END ;
222
223
224 --Object type procedure for validate
225 PROCEDURE validate_internal_trans(
226 p_api_version IN NUMBER
227 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
228 ,x_return_status OUT NOCOPY VARCHAR2
229 ,x_msg_count OUT NOCOPY NUMBER
230 ,x_msg_data OUT NOCOPY VARCHAR2
231 ,p_rctv_rec IN rctv_rec_type
232 ,p_rcav_tbl IN rcav_tbl_type
233 ) IS
234 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
235
236 l_api_version NUMBER ;
237 l_init_msg_list VARCHAR2(1) ;
238 l_msg_count NUMBER ;
239 l_msg_data VARCHAR2(2000);
240
241 lp_rctv_rec rctv_rec_type;
242 lx_rctv_rec rctv_rec_type;
243
244 lp_rcav_tbl rcav_tbl_type;
245 lx_rcav_tbl rcav_tbl_type;
246 BEGIN
247
248 SAVEPOINT save_validate_row;
249
250 l_api_version := p_api_version;
251 l_init_msg_list := l_init_msg_list;
252
253 lp_rctv_rec := p_rctv_rec;
254 lp_rcav_tbl := p_rcav_tbl;
255
256 -- customer pre-processing
257
258 -- vertical industry-preprocessing
259
260 -- Call business API
261 Okl_Incsh_Pvt.VALIDATE_INTERNAL_TRANS (
262 p_api_version
263 ,p_init_msg_list
264 ,x_return_status
265 ,x_msg_count
266 ,x_msg_data
267 ,p_rctv_rec
268 ,p_rcav_tbl
269 );
270
271 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
272 RAISE G_EXCEPTION_HALT_VALIDATION;
273 ELSE
274 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
275 l_return_status := x_return_status;
276 END IF;
277 END IF;
278
279 -- customer post-processing
280
281 -- vertical industry-post-processing
282
283 --Assign value to OUT variables
284 x_return_status := l_return_status ;
285 x_msg_count := l_msg_count ;
286 x_msg_data := l_msg_data ;
287
288
289
290 EXCEPTION
291 WHEN Fnd_Api.G_EXC_ERROR THEN
292 ROLLBACK TO save_validate_row;
293 x_return_status := Fnd_Api.G_RET_STS_ERROR;
294 x_msg_count := l_msg_count ;
295 x_msg_data := l_msg_data ;
296 Fnd_Msg_Pub.count_and_get(
297 p_count => x_msg_count
298 ,p_data => x_msg_data);
299 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
300 ROLLBACK TO save_validate_row;
301 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
302 x_msg_count := l_msg_count ;
303 x_msg_data := l_msg_data ;
304 Fnd_Msg_Pub.count_and_get(
305 p_count => x_msg_count
306 ,p_data => x_msg_data);
307 WHEN OTHERS THEN
308 ROLLBACK TO save_validate_row;
309 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
310 x_msg_count := l_msg_count ;
311 x_msg_data := l_msg_data ;
312 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RCT_PUB','validate_row');
313 Fnd_Msg_Pub.count_and_get(
314 p_count => x_msg_count
315 ,p_data => x_msg_data);
316
317 END ;
318
319 --Object type procedure for lock
320 PROCEDURE lock_internal_trans(
321 p_api_version IN NUMBER
322 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
323 ,x_return_status OUT NOCOPY VARCHAR2
324 ,x_msg_count OUT NOCOPY NUMBER
325 ,x_msg_data OUT NOCOPY VARCHAR2
326 ,p_rctv_rec IN rctv_rec_type
327 ) IS
328 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
329 BEGIN
330
331 Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
332 p_api_version
333 ,p_init_msg_list
334 ,x_return_status
335 ,x_msg_count
336 ,x_msg_data
337 ,p_rctv_rec
338 );
339
340 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
341 RAISE G_EXCEPTION_HALT_VALIDATION;
342 ELSE
343 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
344 l_return_status := x_return_status;
345 END IF;
346 END IF;
347
348 EXCEPTION
349 WHEN G_EXCEPTION_HALT_VALIDATION THEN
350 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
351
352 WHEN OTHERS THEN
353 Okl_Api.set_message(p_app_name => g_app_name,
354 p_msg_name => g_unexpected_error,
355 p_token1 => g_sqlcode_token,
356 p_token1_value => SQLCODE,
357 p_token2 => g_sqlerrm_token,
358 p_token2_value => SQLERRM);
359 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
360 END lock_internal_trans;
361
362 --Object type procedure for lock
363 PROCEDURE lock_internal_trans(
364 p_api_version IN NUMBER
365 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
366 ,x_return_status OUT NOCOPY VARCHAR2
367 ,x_msg_count OUT NOCOPY NUMBER
368 ,x_msg_data OUT NOCOPY VARCHAR2
369 ,p_rctv_tbl IN rctv_tbl_type
370 ) IS
371 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
372 BEGIN
373
374 Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
375 p_api_version
376 ,p_init_msg_list
377 ,x_return_status
378 ,x_msg_count
379 ,x_msg_data
380 ,p_rctv_tbl
381 );
382
383 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
384 RAISE G_EXCEPTION_HALT_VALIDATION;
385 ELSE
386 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
387 l_return_status := x_return_status;
388 END IF;
389 END IF;
390
391 EXCEPTION
392 WHEN G_EXCEPTION_HALT_VALIDATION THEN
393 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
394
395 WHEN OTHERS THEN
396 Okl_Api.set_message(p_app_name => g_app_name,
397 p_msg_name => g_unexpected_error,
398 p_token1 => g_sqlcode_token,
399 p_token1_value => SQLCODE,
400 p_token2 => g_sqlerrm_token,
401 p_token2_value => SQLERRM);
402 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
403 END lock_internal_trans;
404
405 --Object type procedure for lock
406 PROCEDURE lock_internal_trans(
407 p_api_version IN NUMBER
408 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
409 ,x_return_status OUT NOCOPY VARCHAR2
410 ,x_msg_count OUT NOCOPY NUMBER
411 ,x_msg_data OUT NOCOPY VARCHAR2
412 ,p_rcav_rec IN rcav_rec_type
413 ) IS
414 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
415 BEGIN
416
417 Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
418 p_api_version
419 ,p_init_msg_list
420 ,x_return_status
421 ,x_msg_count
422 ,x_msg_data
423 ,p_rcav_rec
424 );
425
426 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
427 RAISE G_EXCEPTION_HALT_VALIDATION;
428 ELSE
429 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
430 l_return_status := x_return_status;
431 END IF;
432 END IF;
433
434 EXCEPTION
435 WHEN G_EXCEPTION_HALT_VALIDATION THEN
436 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
437
438 WHEN OTHERS THEN
439 Okl_Api.set_message(p_app_name => g_app_name,
440 p_msg_name => g_unexpected_error,
441 p_token1 => g_sqlcode_token,
442 p_token1_value => SQLCODE,
443 p_token2 => g_sqlerrm_token,
444 p_token2_value => SQLERRM);
445 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
446 END lock_internal_trans;
447
448 --Object type procedure for lock
449 PROCEDURE lock_internal_trans(
450 p_api_version IN NUMBER
451 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
452 ,x_return_status OUT NOCOPY VARCHAR2
453 ,x_msg_count OUT NOCOPY NUMBER
454 ,x_msg_data OUT NOCOPY VARCHAR2
455 ,p_rcav_tbl IN rcav_tbl_type
456 ) IS
457 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
458 BEGIN
459
460 Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
461 p_api_version
462 ,p_init_msg_list
463 ,x_return_status
464 ,x_msg_count
465 ,x_msg_data
466 ,p_rcav_tbl
467 );
468
469 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
470 RAISE G_EXCEPTION_HALT_VALIDATION;
471 ELSE
472 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
473 l_return_status := x_return_status;
474 END IF;
475 END IF;
476
477 EXCEPTION
478 WHEN G_EXCEPTION_HALT_VALIDATION THEN
479 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
480
481 WHEN OTHERS THEN
482 Okl_Api.set_message(p_app_name => g_app_name,
483 p_msg_name => g_unexpected_error,
484 p_token1 => g_sqlcode_token,
485 p_token1_value => SQLCODE,
486 p_token2 => g_sqlerrm_token,
487 p_token2_value => SQLERRM);
488 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
489 END lock_internal_trans;
490
491 --Object type procedure for update
492 PROCEDURE delete_internal_trans(
493 p_api_version IN NUMBER
494 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
495 ,x_return_status OUT NOCOPY VARCHAR2
496 ,x_msg_count OUT NOCOPY NUMBER
497 ,x_msg_data OUT NOCOPY VARCHAR2
498 ,p_rctv_rec IN rctv_rec_type
499 ,p_rcav_tbl IN rcav_tbl_type
500 ,x_rctv_rec OUT NOCOPY rctv_rec_type
501 ,x_rcav_tbl OUT NOCOPY rcav_tbl_type
502 ) IS
503 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
504
505 l_api_version NUMBER ;
506 l_init_msg_list VARCHAR2(1) ;
507 l_msg_count NUMBER ;
508 l_msg_data VARCHAR2(2000);
509
510 lp_rctv_rec rctv_rec_type;
511 lx_rctv_rec rctv_rec_type;
512
513 lp_rcav_tbl rcav_tbl_type;
514 lx_rcav_tbl rcav_tbl_type;
515 BEGIN
516 SAVEPOINT save_delete_row;
517
518 l_api_version := p_api_version;
519 l_init_msg_list := l_init_msg_list;
520
521 lp_rctv_rec := p_rctv_rec;
522 lp_rcav_tbl := p_rcav_tbl;
523
524 -- customer pre-processing
525
526 -- vertical industry-preprocessing
527
528
529 Okl_Incsh_Pvt.delete_internal_trans(
530 p_api_version
531 ,p_init_msg_list
532 ,x_return_status
533 ,x_msg_count
534 ,x_msg_data
535 ,p_rctv_rec
536 ,p_rcav_tbl
537 ,x_rctv_rec
538 ,x_rcav_tbl
539 );
540 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
541 RAISE G_EXCEPTION_HALT_VALIDATION;
542 ELSE
543 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
544 l_return_status := x_return_status;
545 END IF;
546 END IF;
547
548 -- customer post-processing
549
550
551 -- vertical industry-post-processing
552
553
554 /*
555 --Assign value to OUT variables
556 x_rctv_rec := lx_rctv_rec;
557 x_rcav_tbl := lx_rcav_tbl;
558 x_return_status := l_return_status ;
559 x_msg_count := l_msg_count ;
560 x_msg_data := l_msg_data ;
561 */
562
563 EXCEPTION
564 WHEN Fnd_Api.G_EXC_ERROR THEN
565 ROLLBACK TO save_delete_row;
566 x_return_status := Fnd_Api.G_RET_STS_ERROR;
567 x_msg_count := l_msg_count ;
568 x_msg_data := l_msg_data ;
569 Fnd_Msg_Pub.count_and_get(
570 p_count => x_msg_count
571 ,p_data => x_msg_data);
572 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
573 ROLLBACK TO save_delete_row;
574 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
575 x_msg_count := l_msg_count ;
576 x_msg_data := l_msg_data ;
577 Fnd_Msg_Pub.count_and_get(
578 p_count => x_msg_count
579 ,p_data => x_msg_data);
580 WHEN OTHERS THEN
581 ROLLBACK TO save_delete_row;
582 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
583 x_msg_count := l_msg_count ;
584 x_msg_data := l_msg_data ;
585 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RCT_PUB','delete_row');
586 Fnd_Msg_Pub.count_and_get(
587 p_count => x_msg_count
588 ,p_data => x_msg_data);
589
590 END ;
591
592 END Okl_Rct_Pub;