[Home] [Help]
PACKAGE BODY: APPS.OKS_BILLTRAN_PRV_PUB
Source
1 Package Body OKS_BILLTRAN_PRV_PUB AS
2 /* $Header: OKSBTNVB.pls 120.0 2005/05/25 18:38:04 appldev noship $ */
3
4 PROCEDURE insert_btn_pr
5 (
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_btn_pr_rec IN btn_pr_rec_type,
12 x_btn_pr_rec OUT NOCOPY btn_pr_rec_type
13 )
14
15 Is
16
17 l_api_name CONSTANT VARCHAR2(30) := 'insert_btn_pr';
18 l_api_version CONSTANT NUMBER := 1.0;
19 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20 l_btn_pr_rec btn_pr_rec_type;
21
22 Begin
23
24 l_return_status := OKC_API.START_ACTIVITY
25 (
26 l_api_name
27 ,p_init_msg_list
28 ,'_PUB'
29 ,x_return_status
30 );
31
32 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
33 Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
34 ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
35 Raise OKC_API.G_EXCEPTION_ERROR;
36 End If;
37
38 g_btn_pr_rec:= p_btn_pr_rec;
39
40 OKC_UTIL.call_user_hook
41 (
42 x_return_status => x_return_status,
43 p_package_name => g_pkg_name,
44 p_procedure_name => l_api_name,
45 p_before_after => 'B'
46 );
47
48 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
49 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
51 raise OKC_API.G_EXCEPTION_ERROR;
52 End If;
53
54 --Restore ID/OBJECT VERSION NUMBER
55
56 l_btn_pr_rec := g_btn_pr_rec;
57 l_btn_pr_rec.id := p_btn_pr_rec.id;
58 l_btn_pr_rec.object_version_number := p_btn_pr_rec.object_version_number;
59
60 OKS_BTN_PRINT_PREVIEW_PVT.insert_row
61 (
62 p_api_version ,
63 p_init_msg_list ,
64 x_return_status ,
65 x_msg_count ,
66 x_msg_data ,
67 l_btn_pr_rec ,
68 x_btn_pr_rec
69 );
70
71 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
72 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
73 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
74 raise OKC_API.G_EXCEPTION_ERROR;
75 End If;
76
77 g_btn_pr_rec := x_btn_pr_rec;
78
79 OKC_UTIL.call_user_hook
80 (
81 x_return_status => x_return_status,
82 p_package_name => g_pkg_name,
83 p_procedure_name => l_api_name,
84 p_before_after => 'A'
85 );
86
87 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
88 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
89 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
90 raise OKC_API.G_EXCEPTION_ERROR;
91 End If;
92
93 OKC_API.END_ACTIVITY
94 (
95 x_msg_count => x_msg_count,
96 x_msg_data => x_msg_data
97 );
98
99 Exception
100 When OKC_API.G_EXCEPTION_ERROR THEN
101 x_return_status := OKC_API.HANDLE_EXCEPTIONS
102 (
103 l_api_name,
104 G_PKG_NAME,
105 'OKC_API.G_RET_STS_ERROR',
106 x_msg_count,
107 x_msg_data,
108 '_PUB'
109 );
110
111 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112 x_return_status := OKC_API.HANDLE_EXCEPTIONS
113 (
114 l_api_name,
115 G_PKG_NAME,
116 'OKC_API.G_RET_STS_UNEXP_ERROR',
117 x_msg_count,
118 x_msg_data,
119 '_PUB'
120 );
121
122 When OTHERS THEN
123 x_return_status := OKC_API.HANDLE_EXCEPTIONS
124 (
125 l_api_name,
126 G_PKG_NAME,
127 'OTHERS',
128 x_msg_count,
129 x_msg_data,
130 '_PUB'
131 );
132
133 End;
134
135
136 PROCEDURE insert_btn_pr(
137 p_api_version IN NUMBER,
138 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
139 x_return_status OUT NOCOPY VARCHAR2,
140 x_msg_count OUT NOCOPY NUMBER,
141 x_msg_data OUT NOCOPY VARCHAR2,
142 p_btn_pr_tbl IN btn_pr_tbl_type,
143 x_btn_pr_tbl OUT NOCOPY btn_pr_tbl_type)
144 Is
145 l_api_name CONSTANT VARCHAR2(30) := 'insert_btn_pr';
146 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
147 l_ptr BINARY_INTEGER;
148
149 Begin
150
151 x_return_status := OKC_API.G_RET_STS_SUCCESS;
152
153 If p_btn_pr_tbl.COUNT > 0 Then
154
155 l_ptr := p_btn_pr_tbl.FIRST;
156
157 Loop
158 insert_btn_pr
159 (
160 p_api_version
161 ,p_init_msg_list
162 ,l_return_status
163 ,x_msg_count
164 ,x_msg_data
165 ,p_btn_pr_tbl(l_ptr)
166 ,x_btn_pr_tbl(l_ptr)
167 );
168
169 If l_return_status <>OKC_API.G_RET_STS_SUCCESS Then
170 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
171 x_return_status := l_return_status;
172 Raise G_EXCEPTION_HALT_VALIDATION;
173 Else
174 x_return_status := l_return_status;
175 End If;
176 End If;
177
178 Exit When (l_ptr = p_btn_pr_tbl.LAST);
179 l_ptr := p_btn_pr_tbl.NEXT(l_ptr);
180
181 End Loop;
182
183 End If;
184
185 Exception
186 When G_EXCEPTION_HALT_VALIDATION Then
187 Null;
188 When OTHERS Then
189 OKC_API.set_message(p_app_name => g_app_name,
190 p_msg_name => g_unexpected_error,
191 p_token1 => g_sqlcode_token,
192 p_token1_value => sqlcode,
193 p_token2 => g_sqlerrm_token,
194 p_token2_value => sqlerrm
195 );
196 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
197 End;
198
199
200 /*
201 PROCEDURE lock_btn_pr(
202 p_api_version IN NUMBER,
203 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
204 x_return_status OUT NOCOPY VARCHAR2,
205 x_msg_count OUT NOCOPY NUMBER,
206 x_msg_data OUT NOCOPY VARCHAR2,
207 p_btn_pr_rec IN btn_pr_rec_type)
208 Is
209
210 l_api_name CONSTANT VARCHAR2(30) := 'insert_btn_pr';
211 l_api_version CONSTANT NUMBER := 1.0;
212 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
213 l_btn_pr_rec btn_pr_rec_type;
214
215 Begin
216
217 l_return_status := OKC_API.START_ACTIVITY
218 (
219 l_api_name
220 ,p_init_msg_list
221 ,'_PUB'
222 ,x_return_status
223 );
224
225 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
226 Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
227 ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
228 Raise OKC_API.G_EXCEPTION_ERROR;
229 End If;
230
231 OKS_BTN_PRINT_PREVIEW_PVT.lock_row
232 (
233 p_api_version ,
234 p_init_msg_list ,
235 x_return_status ,
236 x_msg_count ,
237 x_msg_data ,
238 p_btn_pr_rec
239 );
240
241 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
242 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
243 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
244 raise OKC_API.G_EXCEPTION_ERROR;
245 End If;
246
247 OKC_API.END_ACTIVITY
248 (
249 x_msg_count => x_msg_count,
250 x_msg_data => x_msg_data
251 );
252
253 Exception
254 When OKC_API.G_EXCEPTION_ERROR THEN
255 x_return_status := OKC_API.HANDLE_EXCEPTIONS
256 (
257 l_api_name,
258 G_PKG_NAME,
259 'OKC_API.G_RET_STS_ERROR',
260 x_msg_count,
261 x_msg_data,
262 '_PVT'
263 );
264
265 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
266 x_return_status := OKC_API.HANDLE_EXCEPTIONS
267 (
268 l_api_name,
269 G_PKG_NAME,
270 'OKC_API.G_RET_STS_UNEXP_ERROR',
271 x_msg_count,
272 x_msg_data,
273 '_PVT'
274 );
275
276 When OTHERS THEN
277 x_return_status := OKC_API.HANDLE_EXCEPTIONS
278 (
279 l_api_name,
280 G_PKG_NAME,
281 'OTHERS',
282 x_msg_count,
283 x_msg_data,
284 '_PVT'
285 );
286
287 End;
288
289
290 PROCEDURE lock_btn_pr(
291 p_api_version IN NUMBER,
292 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
293 x_return_status OUT NOCOPY VARCHAR2,
294 x_msg_count OUT NOCOPY NUMBER,
295 x_msg_data OUT NOCOPY VARCHAR2,
296 p_btn_pr_tbl IN btn_pr_tbl_type)
297
298 Is
299 l_api_name CONSTANT VARCHAR2(30) := 'insert_btn_pr';
300 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
301 l_ptr BINARY_INTEGER;
302
303 Begin
304
305 x_return_status := OKC_API.G_RET_STS_SUCCESS;
306
307 If p_btn_pr_tbl.COUNT > 0 Then
308
309 l_ptr := p_btn_pr_tbl.FIRST;
310
311 Loop
312
313 lock_btn_pr
314 (
315 p_api_version
316 ,p_init_msg_list
317 ,l_return_status
318 ,x_msg_count
319 ,x_msg_data
320 ,p_btn_pr_tbl(l_ptr)
321 );
322
323 If l_return_status <>OKC_API.G_RET_STS_SUCCESS Then
324 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
325 x_return_status := l_return_status;
326 Raise G_EXCEPTION_HALT_VALIDATION;
327 Else
328 x_return_status := l_return_status;
329 End If;
330 End If;
331
332 Exit When (l_ptr = p_btn_pr_tbl.LAST);
333 l_ptr := p_btn_pr_tbl.NEXT(l_ptr);
334
335 End Loop;
336
337 End If;
338
339 Exception
340 When OKC_API.G_EXCEPTION_ERROR THEN
341 x_return_status := OKC_API.HANDLE_EXCEPTIONS
342 (
343 l_api_name,
344 G_PKG_NAME,
345 'OKC_API.G_RET_STS_ERROR',
346 x_msg_count,
347 x_msg_data,
348 '_PVT'
349 );
350
351 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
352 x_return_status := OKC_API.HANDLE_EXCEPTIONS
353 (
354 l_api_name,
355 G_PKG_NAME,
356 'OKC_API.G_RET_STS_UNEXP_ERROR',
357 x_msg_count,
358 x_msg_data,
359 '_PVT'
360 );
361
362 When OTHERS THEN
363 x_return_status := OKC_API.HANDLE_EXCEPTIONS
364 (
365 l_api_name,
366 G_PKG_NAME,
367 'OTHERS',
368 x_msg_count,
369 x_msg_data,
370 '_PVT'
371 );
372
373 End;
374
375
376 */
377 PROCEDURE update_btn_pr(
378 p_api_version IN NUMBER,
379 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
380 x_return_status OUT NOCOPY VARCHAR2,
381 x_msg_count OUT NOCOPY NUMBER,
382 x_msg_data OUT NOCOPY VARCHAR2,
383 p_btn_pr_rec IN btn_pr_rec_type,
384 x_btn_pr_rec OUT NOCOPY btn_pr_rec_type)
385 Is
386
387 l_api_name CONSTANT VARCHAR2(30) := 'update_btn_pr';
388 l_api_version CONSTANT NUMBER := 1.0;
389 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
390 l_btn_pr_rec btn_pr_rec_type;
391
392 Begin
393
394 l_return_status := OKC_API.START_ACTIVITY
395 (
396 l_api_name
397 ,p_init_msg_list
398 ,'_PUB'
399 ,x_return_status
400 );
401
402 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
403 Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
404 ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
405 Raise OKC_API.G_EXCEPTION_ERROR;
406 End If;
407
408 g_btn_pr_rec := p_btn_pr_rec;
409
410 OKC_UTIL.call_user_hook
411 (
412 x_return_status => x_return_status,
413 p_package_name => g_pkg_name,
414 p_procedure_name => l_api_name,
415 p_before_after => 'B'
416 );
417
418 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
419 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
420 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
421 raise OKC_API.G_EXCEPTION_ERROR;
422 End If;
423
424 --Restore ID/OBJECT VERSION NUMBER
425
426 l_btn_pr_rec := g_btn_pr_rec;
427 l_btn_pr_rec.id := p_btn_pr_rec.id;
428 l_btn_pr_rec.object_version_number := p_btn_pr_rec.object_version_number;
429
430 OKS_BTN_PRINT_PREVIEW_PVT.update_row
431 (
432 p_api_version ,
433 p_init_msg_list ,
434 x_return_status ,
435 x_msg_count ,
436 x_msg_data ,
437 l_btn_pr_rec ,
438 x_btn_pr_rec
439 );
440
441 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
442 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
443 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
444 raise OKC_API.G_EXCEPTION_ERROR;
445 End If;
446
447 g_btn_pr_rec := x_btn_pr_rec;
448
449 OKC_UTIL.call_user_hook
450 (
451 x_return_status => x_return_status,
452 p_package_name => g_pkg_name,
453 p_procedure_name => l_api_name,
454 p_before_after => 'A'
455 );
456
457 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
458 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
459 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
460 raise OKC_API.G_EXCEPTION_ERROR;
461 End If;
462
463 OKC_API.END_ACTIVITY
464 (
465 x_msg_count => x_msg_count,
466 x_msg_data => x_msg_data
467 );
468
469 Exception
470 When OKC_API.G_EXCEPTION_ERROR THEN
471 x_return_status := OKC_API.HANDLE_EXCEPTIONS
472 (
473 l_api_name,
474 G_PKG_NAME,
475 'OKC_API.G_RET_STS_ERROR',
476 x_msg_count,
477 x_msg_data,
478 '_PVT'
479 );
480
481 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
482 x_return_status := OKC_API.HANDLE_EXCEPTIONS
483 (
484 l_api_name,
485 G_PKG_NAME,
486 'OKC_API.G_RET_STS_UNEXP_ERROR',
487 x_msg_count,
488 x_msg_data,
489 '_PVT'
490 );
491
492 When OTHERS THEN
493 x_return_status := OKC_API.HANDLE_EXCEPTIONS
494 (
495 l_api_name,
496 G_PKG_NAME,
497 'OTHERS',
498 x_msg_count,
499 x_msg_data,
500 '_PVT'
501 );
502
503 End;
504
505
506 PROCEDURE update_btn_pr(
507 p_api_version IN NUMBER,
508 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
509 x_return_status OUT NOCOPY VARCHAR2,
510 x_msg_count OUT NOCOPY NUMBER,
511 x_msg_data OUT NOCOPY VARCHAR2,
512 p_btn_pr_tbl IN btn_pr_tbl_type,
513 x_btn_pr_tbl OUT NOCOPY btn_pr_tbl_type)
514 Is
515 l_api_name CONSTANT VARCHAR2(30) := 'update_btn_pr';
516 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
517 l_ptr BINARY_INTEGER;
518
519 Begin
520
521 x_return_status := OKC_API.G_RET_STS_SUCCESS;
522
523 If p_btn_pr_tbl.COUNT > 0 Then
524
525 l_ptr := p_btn_pr_tbl.FIRST;
526
527 Loop
528 update_btn_pr
529 (
530 p_api_version
531 ,p_init_msg_list
532 ,l_return_status
533 ,x_msg_count
534 ,x_msg_data
535 ,p_btn_pr_tbl(l_ptr)
536 ,x_btn_pr_tbl(l_ptr)
537 );
538
539 If l_return_status <>OKC_API.G_RET_STS_SUCCESS Then
540 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
541 x_return_status := l_return_status;
542 Raise G_EXCEPTION_HALT_VALIDATION;
543 Else
544 x_return_status := l_return_status;
545 End If;
546 End If;
547
548 Exit When (l_ptr = p_btn_pr_tbl.LAST);
549 l_ptr := p_btn_pr_tbl.NEXT(l_ptr);
550
551 End Loop;
552
553 End If;
554
555 Exception
556 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
557 x_return_status := OKC_API.HANDLE_EXCEPTIONS
558 (
559 l_api_name,
560 G_PKG_NAME,
561 'OKC_API.G_RET_STS_UNEXP_ERROR',
562 x_msg_count,
563 x_msg_data,
564 '_PVT'
565 );
566
567 When OTHERS THEN
568 x_return_status := OKC_API.HANDLE_EXCEPTIONS
569 (
570 l_api_name,
571 G_PKG_NAME,
572 'OTHERS',
573 x_msg_count,
574 x_msg_data,
575 '_PVT'
576 );
577
578 End;
579
580
581 PROCEDURE delete_btn_pr(
582 p_api_version IN NUMBER,
583 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
584 x_return_status OUT NOCOPY VARCHAR2,
585 x_msg_count OUT NOCOPY NUMBER,
586 x_msg_data OUT NOCOPY VARCHAR2,
587 p_btn_pr_rec IN btn_pr_rec_type)
588 Is
589
590 l_api_name CONSTANT VARCHAR2(30) := 'update_btn_pr';
591 l_api_version CONSTANT NUMBER := 1.0;
592 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
593 l_btn_pr_rec btn_pr_rec_type;
594
595 Begin
596
597 l_return_status := OKC_API.START_ACTIVITY
598 (
599 l_api_name
600 ,p_init_msg_list
601 ,'_PUB'
602 ,x_return_status
603 );
604
605 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
606 Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
607 ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
608 Raise OKC_API.G_EXCEPTION_ERROR;
609 End If;
610
611 g_btn_pr_rec := p_btn_pr_rec;
612
613 OKC_UTIL.call_user_hook
614 (
615 x_return_status => x_return_status,
616 p_package_name => g_pkg_name,
617 p_procedure_name => l_api_name,
618 p_before_after => 'B'
619 );
620
621 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
622 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
623 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
624 raise OKC_API.G_EXCEPTION_ERROR;
625 End If;
626
627 --Restore ID/OBJECT VERSION NUMBER
628
629 l_btn_pr_rec := g_btn_pr_rec;
630 l_btn_pr_rec.id := p_btn_pr_rec.id;
631 l_btn_pr_rec.object_version_number := p_btn_pr_rec.object_version_number;
632
633 OKS_BTN_PRINT_PREVIEW_PVT.delete_row
634 (
635 p_api_version ,
636 p_init_msg_list ,
637 x_return_status ,
638 x_msg_count ,
639 x_msg_data ,
640 l_btn_pr_rec
641 );
642
643 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
644 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
645 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
646 raise OKC_API.G_EXCEPTION_ERROR;
647 End If;
648
649 OKC_UTIL.call_user_hook
650 (
651 x_return_status => x_return_status,
652 p_package_name => g_pkg_name,
653 p_procedure_name => l_api_name,
654 p_before_after => 'A'
655 );
656
657 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
658 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
659 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
660 raise OKC_API.G_EXCEPTION_ERROR;
661 End If;
662
663 OKC_API.END_ACTIVITY
664 (
665 x_msg_count => x_msg_count,
666 x_msg_data => x_msg_data
667 );
668
669 Exception
670 When OKC_API.G_EXCEPTION_ERROR THEN
671 x_return_status := OKC_API.HANDLE_EXCEPTIONS
672 (
673 l_api_name,
674 G_PKG_NAME,
675 'OKC_API.G_RET_STS_ERROR',
676 x_msg_count,
677 x_msg_data,
678 '_PVT'
679 );
680
681 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
682 x_return_status := OKC_API.HANDLE_EXCEPTIONS
683 (
684 l_api_name,
685 G_PKG_NAME,
686 'OKC_API.G_RET_STS_UNEXP_ERROR',
687 x_msg_count,
688 x_msg_data,
689 '_PVT'
690 );
691
692 When OTHERS THEN
693 x_return_status := OKC_API.HANDLE_EXCEPTIONS
694 (
695 l_api_name,
696 G_PKG_NAME,
697 'OTHERS',
698 x_msg_count,
699 x_msg_data,
700 '_PVT'
701 );
702
703 End;
704
705
706 PROCEDURE delete_btn_pr(
707 p_api_version IN NUMBER,
708 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
709 x_return_status OUT NOCOPY VARCHAR2,
710 x_msg_count OUT NOCOPY NUMBER,
711 x_msg_data OUT NOCOPY VARCHAR2,
712 p_btn_pr_tbl IN btn_pr_tbl_type)
713 Is
714 l_api_name CONSTANT VARCHAR2(30) := 'update_btn_pr';
715 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
716 l_ptr BINARY_INTEGER;
717
718 Begin
719
720 x_return_status := OKC_API.G_RET_STS_SUCCESS;
721
722 If p_btn_pr_tbl.COUNT > 0 Then
723
724 l_ptr := p_btn_pr_tbl.FIRST;
725
726 Loop
727 delete_btn_pr (
728 p_api_version
729 ,p_init_msg_list
730 ,l_return_status
731 ,x_msg_count
732 ,x_msg_data
733 ,p_btn_pr_tbl(l_ptr)
734 );
735
736 If l_return_status <>OKC_API.G_RET_STS_SUCCESS Then
737 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
738 x_return_status := l_return_status;
739 Raise G_EXCEPTION_HALT_VALIDATION;
740 Else
741 x_return_status := l_return_status;
742 End If;
743 End If;
744
745 Exit When (l_ptr = p_btn_pr_tbl.LAST);
746 l_ptr := p_btn_pr_tbl.NEXT(l_ptr);
747
748 End Loop;
749
750 End If;
751
752 Exception
753 When OKC_API.G_EXCEPTION_ERROR THEN
754 x_return_status := OKC_API.HANDLE_EXCEPTIONS
755 (
756 l_api_name,
757 G_PKG_NAME,
758 'OKC_API.G_RET_STS_ERROR',
759 x_msg_count,
760 x_msg_data,
761 '_PVT'
762 );
763
764 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
765 x_return_status := OKC_API.HANDLE_EXCEPTIONS
766 (
767 l_api_name,
768 G_PKG_NAME,
769 'OKC_API.G_RET_STS_UNEXP_ERROR',
770 x_msg_count,
771 x_msg_data,
772 '_PVT'
773 );
774
775 When OTHERS THEN
776 x_return_status := OKC_API.HANDLE_EXCEPTIONS
777 (
778 l_api_name,
779 G_PKG_NAME,
780 'OTHERS',
781 x_msg_count,
782 x_msg_data,
783 '_PVT'
784 );
785
786 End;
787
788
789 PROCEDURE validate_btn_pr(
790 p_api_version IN NUMBER,
791 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
792 x_return_status OUT NOCOPY VARCHAR2,
793 x_msg_count OUT NOCOPY NUMBER,
794 x_msg_data OUT NOCOPY VARCHAR2,
795 p_btn_pr_rec IN btn_pr_rec_type)
796 Is
797
798 l_api_name CONSTANT VARCHAR2(30) := 'update_btn_pr';
799 l_api_version CONSTANT NUMBER := 1.0;
800 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
801 l_btn_pr_rec btn_pr_rec_type;
802
803 Begin
804
805 l_return_status := OKC_API.START_ACTIVITY
806 (
807 l_api_name
808 ,p_init_msg_list
809 ,'_PUB'
810 ,x_return_status
811 );
812
813 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
814 Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
815 ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
816 Raise OKC_API.G_EXCEPTION_ERROR;
817 End If;
818
819 g_btn_pr_rec := p_btn_pr_rec;
820
821 OKC_UTIL.call_user_hook
822 (
823 x_return_status => x_return_status,
824 p_package_name => g_pkg_name,
825 p_procedure_name => l_api_name,
826 p_before_after => 'B'
827 );
828
829 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
830 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
831 ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
832 raise OKC_API.G_EXCEPTION_ERROR;
833 End If;
834
835 --Restore ID/OBJECT VERSION NUMBER
836
837 l_btn_pr_rec := g_btn_pr_rec;
838 l_btn_pr_rec.id := p_btn_pr_rec.id;
839 l_btn_pr_rec.object_version_number := p_btn_pr_rec.object_version_number;
840
841 OKS_BTN_PRINT_PREVIEW_PVT.validate_row
842 (
843 p_api_version ,
844 p_init_msg_list ,
845 x_return_status ,
846 x_msg_count ,
847 x_msg_data ,
848 l_btn_pr_rec
849 );
850
851 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
852 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
853 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
854 raise OKC_API.G_EXCEPTION_ERROR;
855 End If;
856
857 OKC_UTIL.call_user_hook
858 (
859 x_return_status => x_return_status,
860 p_package_name => g_pkg_name,
861 p_procedure_name => l_api_name,
862 p_before_after => 'A'
863 );
864
865 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
866 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
867 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
868 raise OKC_API.G_EXCEPTION_ERROR;
869 End If;
870
871 OKC_API.END_ACTIVITY
872 (
873 x_msg_count => x_msg_count,
874 x_msg_data => x_msg_data
875 );
876
877
878 Exception
879 When OKC_API.G_EXCEPTION_ERROR THEN
880 x_return_status := OKC_API.HANDLE_EXCEPTIONS
881 (
882 l_api_name,
883 G_PKG_NAME,
884 'OKC_API.G_RET_STS_ERROR',
885 x_msg_count,
886 x_msg_data,
887 '_PVT'
888 );
889
890 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
891 x_return_status := OKC_API.HANDLE_EXCEPTIONS
892 (
893 l_api_name,
894 G_PKG_NAME,
895 'OKC_API.G_RET_STS_UNEXP_ERROR',
896 x_msg_count,
897 x_msg_data,
898 '_PVT'
899 );
900
901 When OTHERS THEN
902 x_return_status := OKC_API.HANDLE_EXCEPTIONS
903 (
904 l_api_name,
905 G_PKG_NAME,
906 'OTHERS',
907 x_msg_count,
908 x_msg_data,
909 '_PVT'
910 );
911
912 End;
913
914
915 PROCEDURE validate_btn_pr(
916 p_api_version IN NUMBER,
917 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
918 x_return_status OUT NOCOPY VARCHAR2,
919 x_msg_count OUT NOCOPY NUMBER,
920 x_msg_data OUT NOCOPY VARCHAR2,
921 p_btn_pr_tbl IN btn_pr_tbl_type)
922
923 Is
924 l_api_name CONSTANT VARCHAR2(30) := 'update_btn_pr';
925 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
926 l_ptr BINARY_INTEGER;
927
928 Begin
929
930 x_return_status := OKC_API.G_RET_STS_SUCCESS;
931
932 If p_btn_pr_tbl.COUNT > 0 Then
933
934 l_ptr := p_btn_pr_tbl.FIRST;
935
936 Loop
937 validate_btn_pr (
938 p_api_version
939 ,p_init_msg_list
940 ,l_return_status
941 ,x_msg_count
942 ,x_msg_data
943 ,p_btn_pr_tbl(l_ptr)
944 );
945
946 If l_return_status <>OKC_API.G_RET_STS_SUCCESS Then
947 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
948 x_return_status := l_return_status;
949 Raise G_EXCEPTION_HALT_VALIDATION;
950 Else
951 x_return_status := l_return_status;
952 End If;
953 End If;
954
955 Exit When (l_ptr = p_btn_pr_tbl.LAST);
956 l_ptr := p_btn_pr_tbl.NEXT(l_ptr);
957
958 End Loop;
959
960 End If;
961
962 Exception
963 When OKC_API.G_EXCEPTION_ERROR THEN
964 x_return_status := OKC_API.HANDLE_EXCEPTIONS
965 (
966 l_api_name,
967 G_PKG_NAME,
968 'OKC_API.G_RET_STS_ERROR',
969 x_msg_count,
970 x_msg_data,
971 '_PVT'
972 );
973
974 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
975 x_return_status := OKC_API.HANDLE_EXCEPTIONS
976 (
977 l_api_name,
978 G_PKG_NAME,
979 'OKC_API.G_RET_STS_UNEXP_ERROR',
980 x_msg_count,
981 x_msg_data,
982 '_PVT'
983 );
984
985 When OTHERS THEN
986 x_return_status := OKC_API.HANDLE_EXCEPTIONS
987 (
988 l_api_name,
989 G_PKG_NAME,
990 'OTHERS',
991 x_msg_count,
992 x_msg_data,
993 '_PVT'
994 );
995
996 End;
997
998 END OKS_BILLTRAN_PRV_PUB;