1 package body iby_disburse_ui_api_pub_pkg_w as
2 /* $Header: ibydapiwb.pls 120.3 2006/08/29 22:04:56 rameshsh noship $ */
3 procedure rosetta_table_copy_in_p0(t out nocopy iby_disburse_ui_api_pub_pkg.docpayidtab, a0 JTF_NUMBER_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p0;
21 procedure rosetta_table_copy_out_p0(t iby_disburse_ui_api_pub_pkg.docpayidtab, a0 out nocopy JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_NUMBER_TABLE();
26 else
27 a0 := JTF_NUMBER_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p0;
43
44 procedure rosetta_table_copy_in_p1(t out nocopy iby_disburse_ui_api_pub_pkg.docpaystatustab, a0 JTF_VARCHAR2_TABLE_100) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count > 0 then
48 if a0.count > 0 then
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx) := a0(indx);
53 ddindx := ddindx+1;
54 if a0.last =indx
55 then exit;
56 end if;
57 indx := a0.next(indx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_in_p1;
62 procedure rosetta_table_copy_out_p1(t iby_disburse_ui_api_pub_pkg.docpaystatustab, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_VARCHAR2_TABLE_100();
67 else
68 a0 := JTF_VARCHAR2_TABLE_100();
69 if t.count > 0 then
70 a0.extend(t.count);
71 ddindx := t.first;
72 indx := 1;
73 while true loop
74 a0(indx) := t(ddindx);
75 indx := indx+1;
76 if t.last =ddindx
77 then exit;
78 end if;
79 ddindx := t.next(ddindx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_out_p1;
84
85 procedure rosetta_table_copy_in_p2(t out nocopy iby_disburse_ui_api_pub_pkg.pmtidtab, a0 JTF_NUMBER_TABLE) as
86 ddindx binary_integer; indx binary_integer;
87 begin
88 if a0 is not null and a0.count > 0 then
89 if a0.count > 0 then
90 indx := a0.first;
91 ddindx := 1;
92 while true loop
93 t(ddindx) := a0(indx);
94 ddindx := ddindx+1;
95 if a0.last =indx
96 then exit;
97 end if;
98 indx := a0.next(indx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_in_p2;
103 procedure rosetta_table_copy_out_p2(t iby_disburse_ui_api_pub_pkg.pmtidtab, a0 out nocopy JTF_NUMBER_TABLE) as
104 ddindx binary_integer; indx binary_integer;
105 begin
106 if t is null or t.count = 0 then
107 a0 := JTF_NUMBER_TABLE();
108 else
109 a0 := JTF_NUMBER_TABLE();
110 if t.count > 0 then
111 a0.extend(t.count);
112 ddindx := t.first;
113 indx := 1;
114 while true loop
115 a0(indx) := t(ddindx);
116 indx := indx+1;
117 if t.last =ddindx
118 then exit;
119 end if;
120 ddindx := t.next(ddindx);
121 end loop;
122 end if;
123 end if;
124 end rosetta_table_copy_out_p2;
125
126 procedure rosetta_table_copy_in_p3(t out nocopy iby_disburse_ui_api_pub_pkg.pmtstatustab, a0 JTF_VARCHAR2_TABLE_100) as
127 ddindx binary_integer; indx binary_integer;
128 begin
129 if a0 is not null and a0.count > 0 then
130 if a0.count > 0 then
131 indx := a0.first;
132 ddindx := 1;
133 while true loop
134 t(ddindx) := a0(indx);
135 ddindx := ddindx+1;
136 if a0.last =indx
137 then exit;
138 end if;
139 indx := a0.next(indx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_in_p3;
144 procedure rosetta_table_copy_out_p3(t iby_disburse_ui_api_pub_pkg.pmtstatustab, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
145 ddindx binary_integer; indx binary_integer;
146 begin
147 if t is null or t.count = 0 then
148 a0 := JTF_VARCHAR2_TABLE_100();
149 else
150 a0 := JTF_VARCHAR2_TABLE_100();
151 if t.count > 0 then
152 a0.extend(t.count);
153 ddindx := t.first;
154 indx := 1;
155 while true loop
156 a0(indx) := t(ddindx);
157 indx := indx+1;
158 if t.last =ddindx
159 then exit;
160 end if;
161 ddindx := t.next(ddindx);
162 end loop;
163 end if;
164 end if;
165 end rosetta_table_copy_out_p3;
166
167 procedure rosetta_table_copy_in_p4(t out nocopy iby_disburse_ui_api_pub_pkg.pmtdocstab, a0 JTF_NUMBER_TABLE) as
168 ddindx binary_integer; indx binary_integer;
169 begin
170 if a0 is not null and a0.count > 0 then
171 if a0.count > 0 then
172 indx := a0.first;
173 ddindx := 1;
174 while true loop
175 t(ddindx) := a0(indx);
176 ddindx := ddindx+1;
177 if a0.last =indx
178 then exit;
179 end if;
180 indx := a0.next(indx);
181 end loop;
182 end if;
183 end if;
184 end rosetta_table_copy_in_p4;
185 procedure rosetta_table_copy_out_p4(t iby_disburse_ui_api_pub_pkg.pmtdocstab, a0 out nocopy JTF_NUMBER_TABLE) as
186 ddindx binary_integer; indx binary_integer;
187 begin
188 if t is null or t.count = 0 then
189 a0 := JTF_NUMBER_TABLE();
190 else
191 a0 := JTF_NUMBER_TABLE();
192 if t.count > 0 then
193 a0.extend(t.count);
194 ddindx := t.first;
195 indx := 1;
196 while true loop
197 a0(indx) := t(ddindx);
198 indx := indx+1;
199 if t.last =ddindx
200 then exit;
201 end if;
202 ddindx := t.next(ddindx);
203 end loop;
204 end if;
205 end if;
206 end rosetta_table_copy_out_p4;
207
208 procedure rosetta_table_copy_in_p5(t out nocopy iby_disburse_ui_api_pub_pkg.paperdocnumtab, a0 JTF_NUMBER_TABLE) as
209 ddindx binary_integer; indx binary_integer;
210 begin
211 if a0 is not null and a0.count > 0 then
212 if a0.count > 0 then
213 indx := a0.first;
214 ddindx := 1;
215 while true loop
216 t(ddindx) := a0(indx);
217 ddindx := ddindx+1;
218 if a0.last =indx
219 then exit;
220 end if;
221 indx := a0.next(indx);
222 end loop;
223 end if;
224 end if;
225 end rosetta_table_copy_in_p5;
226 procedure rosetta_table_copy_out_p5(t iby_disburse_ui_api_pub_pkg.paperdocnumtab, a0 out nocopy JTF_NUMBER_TABLE) as
227 ddindx binary_integer; indx binary_integer;
228 begin
229 if t is null or t.count = 0 then
230 a0 := JTF_NUMBER_TABLE();
231 else
232 a0 := JTF_NUMBER_TABLE();
233 if t.count > 0 then
234 a0.extend(t.count);
235 ddindx := t.first;
236 indx := 1;
237 while true loop
238 a0(indx) := t(ddindx);
239 indx := indx+1;
240 if t.last =ddindx
241 then exit;
242 end if;
243 ddindx := t.next(ddindx);
244 end loop;
245 end if;
246 end if;
247 end rosetta_table_copy_out_p5;
248
249 procedure rosetta_table_copy_in_p6(t out nocopy iby_disburse_ui_api_pub_pkg.paperdocusereasontab, a0 JTF_VARCHAR2_TABLE_100) as
250 ddindx binary_integer; indx binary_integer;
251 begin
252 if a0 is not null and a0.count > 0 then
253 if a0.count > 0 then
254 indx := a0.first;
255 ddindx := 1;
256 while true loop
257 t(ddindx) := a0(indx);
258 ddindx := ddindx+1;
259 if a0.last =indx
260 then exit;
261 end if;
262 indx := a0.next(indx);
263 end loop;
264 end if;
265 end if;
266 end rosetta_table_copy_in_p6;
267 procedure rosetta_table_copy_out_p6(t iby_disburse_ui_api_pub_pkg.paperdocusereasontab, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
268 ddindx binary_integer; indx binary_integer;
269 begin
270 if t is null or t.count = 0 then
271 a0 := JTF_VARCHAR2_TABLE_100();
272 else
273 a0 := JTF_VARCHAR2_TABLE_100();
274 if t.count > 0 then
275 a0.extend(t.count);
276 ddindx := t.first;
277 indx := 1;
278 while true loop
279 a0(indx) := t(ddindx);
280 indx := indx+1;
281 if t.last =ddindx
282 then exit;
283 end if;
284 ddindx := t.next(ddindx);
285 end loop;
286 end if;
287 end if;
288 end rosetta_table_copy_out_p6;
289
290 procedure rosetta_table_copy_in_p7(t out nocopy iby_disburse_ui_api_pub_pkg.appnamestab, a0 JTF_VARCHAR2_TABLE_100) as
291 ddindx binary_integer; indx binary_integer;
292 begin
293 if a0 is not null and a0.count > 0 then
294 if a0.count > 0 then
295 indx := a0.first;
296 ddindx := 1;
297 while true loop
298 t(ddindx) := a0(indx);
299 ddindx := ddindx+1;
300 if a0.last =indx
301 then exit;
302 end if;
303 indx := a0.next(indx);
304 end loop;
305 end if;
306 end if;
307 end rosetta_table_copy_in_p7;
308 procedure rosetta_table_copy_out_p7(t iby_disburse_ui_api_pub_pkg.appnamestab, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
309 ddindx binary_integer; indx binary_integer;
310 begin
311 if t is null or t.count = 0 then
312 a0 := JTF_VARCHAR2_TABLE_100();
313 else
314 a0 := JTF_VARCHAR2_TABLE_100();
315 if t.count > 0 then
316 a0.extend(t.count);
317 ddindx := t.first;
318 indx := 1;
319 while true loop
320 a0(indx) := t(ddindx);
321 indx := indx+1;
322 if t.last =ddindx
323 then exit;
324 end if;
325 ddindx := t.next(ddindx);
326 end loop;
327 end if;
328 end if;
329 end rosetta_table_copy_out_p7;
330
331 procedure rosetta_table_copy_in_p8(t out nocopy iby_disburse_ui_api_pub_pkg.appidstab, a0 JTF_NUMBER_TABLE) as
332 ddindx binary_integer; indx binary_integer;
333 begin
334 if a0 is not null and a0.count > 0 then
335 if a0.count > 0 then
336 indx := a0.first;
337 ddindx := 1;
338 while true loop
339 t(ddindx) := a0(indx);
340 ddindx := ddindx+1;
341 if a0.last =indx
342 then exit;
343 end if;
344 indx := a0.next(indx);
345 end loop;
346 end if;
347 end if;
348 end rosetta_table_copy_in_p8;
349 procedure rosetta_table_copy_out_p8(t iby_disburse_ui_api_pub_pkg.appidstab, a0 out nocopy JTF_NUMBER_TABLE) as
350 ddindx binary_integer; indx binary_integer;
351 begin
352 if t is null or t.count = 0 then
353 a0 := JTF_NUMBER_TABLE();
354 else
355 a0 := JTF_NUMBER_TABLE();
356 if t.count > 0 then
357 a0.extend(t.count);
358 ddindx := t.first;
359 indx := 1;
360 while true loop
361 a0(indx) := t(ddindx);
362 indx := indx+1;
363 if t.last =ddindx
364 then exit;
365 end if;
366 ddindx := t.next(ddindx);
367 end loop;
368 end if;
369 end if;
370 end rosetta_table_copy_out_p8;
371
372 procedure remove_documents_payable(p_doc_list JTF_NUMBER_TABLE
373 , p_doc_status_list JTF_VARCHAR2_TABLE_100
374 , x_return_status out nocopy VARCHAR2
375 )
376
377 as
378 ddp_doc_list iby_disburse_ui_api_pub_pkg.docpayidtab;
379 ddp_doc_status_list iby_disburse_ui_api_pub_pkg.docpaystatustab;
380 ddindx binary_integer; indx binary_integer;
381 begin
382
383 -- copy data to the local IN or IN-OUT args, if any
384 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p0(ddp_doc_list, p_doc_list);
385
386 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p1(ddp_doc_status_list, p_doc_status_list);
387
388
389 -- here's the delegated call to the old PL/SQL routine
390 iby_disburse_ui_api_pub_pkg.remove_documents_payable(ddp_doc_list,
391 ddp_doc_status_list,
392 x_return_status);
393
394 -- copy data back from the local variables to OUT or IN-OUT args, if any
395
396
397 end;
398
399 procedure remove_payments(p_pmt_list JTF_NUMBER_TABLE
400 , p_pmt_status_list JTF_VARCHAR2_TABLE_100
401 , x_return_status out nocopy VARCHAR2
402 )
403
404 as
405 ddp_pmt_list iby_disburse_ui_api_pub_pkg.pmtidtab;
406 ddp_pmt_status_list iby_disburse_ui_api_pub_pkg.pmtstatustab;
407 ddindx binary_integer; indx binary_integer;
408 begin
409
410 -- copy data to the local IN or IN-OUT args, if any
411 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p2(ddp_pmt_list, p_pmt_list);
412
413 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p3(ddp_pmt_status_list, p_pmt_status_list);
414
415
416 -- here's the delegated call to the old PL/SQL routine
417 iby_disburse_ui_api_pub_pkg.remove_payments(ddp_pmt_list,
418 ddp_pmt_status_list,
419 x_return_status);
420
421 -- copy data back from the local variables to OUT or IN-OUT args, if any
422
423
424 end;
425
426 procedure stop_payments(p_pmt_list JTF_NUMBER_TABLE
427 , p_pmt_status_list JTF_VARCHAR2_TABLE_100
428 , x_return_status out nocopy VARCHAR2
429 )
430
431 as
432 ddp_pmt_list iby_disburse_ui_api_pub_pkg.pmtidtab;
433 ddp_pmt_status_list iby_disburse_ui_api_pub_pkg.pmtstatustab;
434 ddindx binary_integer; indx binary_integer;
435 begin
436
437 -- copy data to the local IN or IN-OUT args, if any
438 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p2(ddp_pmt_list, p_pmt_list);
439
440 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p3(ddp_pmt_status_list, p_pmt_status_list);
441
442
443 -- here's the delegated call to the old PL/SQL routine
444 iby_disburse_ui_api_pub_pkg.stop_payments(ddp_pmt_list,
445 ddp_pmt_status_list,
446 x_return_status);
447
448 -- copy data back from the local variables to OUT or IN-OUT args, if any
449
450
451 end;
452
453 procedure reprint_prenum_pmt_documents(p_instr_id NUMBER
454 , p_pmt_doc_id NUMBER
455 , p_pmt_list JTF_NUMBER_TABLE
456 , p_new_ppr_docs_list JTF_NUMBER_TABLE
457 , p_old_ppr_docs_list JTF_NUMBER_TABLE
458 , p_printer_name VARCHAR2
459 , x_return_status out nocopy VARCHAR2
460 )
461
462 as
463 ddp_pmt_list iby_disburse_ui_api_pub_pkg.pmtidtab;
464 ddp_new_ppr_docs_list iby_disburse_ui_api_pub_pkg.pmtdocstab;
465 ddp_old_ppr_docs_list iby_disburse_ui_api_pub_pkg.pmtdocstab;
466 ddindx binary_integer; indx binary_integer;
467 begin
468
469 -- copy data to the local IN or IN-OUT args, if any
470
474 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p4(ddp_new_ppr_docs_list, p_new_ppr_docs_list);
471
472 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p2(ddp_pmt_list, p_pmt_list);
473
475
476 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p4(ddp_old_ppr_docs_list, p_old_ppr_docs_list);
477
478
479
480 -- here's the delegated call to the old PL/SQL routine
481 iby_disburse_ui_api_pub_pkg.reprint_prenum_pmt_documents(p_instr_id,
482 p_pmt_doc_id,
483 ddp_pmt_list,
484 ddp_new_ppr_docs_list,
485 ddp_old_ppr_docs_list,
486 p_printer_name,
487 x_return_status);
488
489 -- copy data back from the local variables to OUT or IN-OUT args, if any
490
491
492
493
494
495
496 end;
497
498 procedure reprint_blank_pmt_documents(p_instr_id NUMBER
499 , p_pmt_list JTF_NUMBER_TABLE
500 , p_printer_name VARCHAR2
501 , x_return_status out nocopy VARCHAR2
502 )
503
504 as
505 ddp_pmt_list iby_disburse_ui_api_pub_pkg.pmtidtab;
506 ddindx binary_integer; indx binary_integer;
507 begin
508
509 -- copy data to the local IN or IN-OUT args, if any
510
511 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p2(ddp_pmt_list, p_pmt_list);
512
513
514
515 -- here's the delegated call to the old PL/SQL routine
516 iby_disburse_ui_api_pub_pkg.reprint_blank_pmt_documents(p_instr_id,
517 ddp_pmt_list,
518 p_printer_name,
519 x_return_status);
520
521 -- copy data back from the local variables to OUT or IN-OUT args, if any
522
523
524
525 end;
526
527 procedure finalize_print_status(p_instr_id NUMBER
528 , p_pmt_doc_id NUMBER
529 , p_used_docs_list JTF_NUMBER_TABLE
530 , x_return_status out nocopy VARCHAR2
531 )
532
533 as
534 ddp_used_docs_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
535 ddindx binary_integer; indx binary_integer;
536 begin
537
538 -- copy data to the local IN or IN-OUT args, if any
539
540
541 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_used_docs_list, p_used_docs_list);
542
543
544 -- here's the delegated call to the old PL/SQL routine
545 iby_disburse_ui_api_pub_pkg.finalize_print_status(p_instr_id,
546 p_pmt_doc_id,
547 ddp_used_docs_list,
548 x_return_status);
549
550 -- copy data back from the local variables to OUT or IN-OUT args, if any
551
552
553
554 end;
555
556 procedure finalize_print_status(p_instr_id NUMBER
557 , p_pmt_doc_id NUMBER
558 , p_used_docs_list JTF_NUMBER_TABLE
559 , p_submit_postive_pay number
560 , x_return_status out nocopy VARCHAR2
561 )
562
563 as
564 ddp_used_docs_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
565 ddp_submit_postive_pay boolean;
566 ddindx binary_integer; indx binary_integer;
567 begin
568
569 -- copy data to the local IN or IN-OUT args, if any
570
571
572 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_used_docs_list, p_used_docs_list);
573
574 if p_submit_postive_pay is null
575 then ddp_submit_postive_pay := null;
576 elsif p_submit_postive_pay = 0
577 then ddp_submit_postive_pay := false;
578 else ddp_submit_postive_pay := true;
579 end if;
580
581
582 -- here's the delegated call to the old PL/SQL routine
583 iby_disburse_ui_api_pub_pkg.finalize_print_status(p_instr_id,
584 p_pmt_doc_id,
585 ddp_used_docs_list,
586 ddp_submit_postive_pay,
587 x_return_status);
588
589 -- copy data back from the local variables to OUT or IN-OUT args, if any
590
591
592
593
594 end;
595
596 procedure finalize_instr_print_status(p_instr_id NUMBER
597 , p_submit_postive_pay number
598 , x_return_status out nocopy VARCHAR2
599 )
600
601 as
602 ddp_submit_postive_pay boolean;
603 ddindx binary_integer; indx binary_integer;
604 begin
605
606 -- copy data to the local IN or IN-OUT args, if any
607
608 if p_submit_postive_pay is null
609 then ddp_submit_postive_pay := null;
610 elsif p_submit_postive_pay = 0
611 then ddp_submit_postive_pay := false;
612 else ddp_submit_postive_pay := true;
613 end if;
614
615
616 -- here's the delegated call to the old PL/SQL routine
617 iby_disburse_ui_api_pub_pkg.finalize_instr_print_status(p_instr_id,
618 ddp_submit_postive_pay,
619 x_return_status);
620
621 -- copy data back from the local variables to OUT or IN-OUT args, if any
622
623
624 end;
625
626 procedure mark_all_pmts_complete(p_instr_id NUMBER
627 , p_submit_postive_pay number
628 , x_return_status out nocopy VARCHAR2
629 )
630
631 as
632 ddp_submit_postive_pay boolean;
633 ddindx binary_integer; indx binary_integer;
634 begin
635
636 -- copy data to the local IN or IN-OUT args, if any
637
638 if p_submit_postive_pay is null
639 then ddp_submit_postive_pay := null;
640 elsif p_submit_postive_pay = 0
641 then ddp_submit_postive_pay := false;
642 else ddp_submit_postive_pay := true;
643 end if;
644
645
646 -- here's the delegated call to the old PL/SQL routine
647 iby_disburse_ui_api_pub_pkg.mark_all_pmts_complete(p_instr_id,
648 ddp_submit_postive_pay,
649 x_return_status);
650
651 -- copy data back from the local variables to OUT or IN-OUT args, if any
652
653
654 end;
655
656 procedure checkifdocused(p_paper_doc_num NUMBER
657 , p_pmt_document_id NUMBER
658 , ddrosetta_retval_bool OUT NOCOPY NUMBER
659 )
660
661 as
662 ddindx binary_integer; indx binary_integer;
663 ddrosetta_retval boolean;
664 begin
665
666 -- copy data to the local IN or IN-OUT args, if any
667
668
669 -- here's the delegated call to the old PL/SQL routine
670 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifdocused(p_paper_doc_num,
671 p_pmt_document_id);
672
673 -- copy data back from the local variables to OUT or IN-OUT args, if any
674 if ddrosetta_retval is null
675 then ddrosetta_retval_bool := null;
676 elsif ddrosetta_retval
677 then ddrosetta_retval_bool := 1;
678 else ddrosetta_retval_bool := 0;
679 end if;
680
681 end;
682
683 procedure checkifallpmtsterminated(p_instr_id NUMBER
684 , ddrosetta_retval_bool OUT NOCOPY NUMBER
685 )
686
687 as
688 ddindx binary_integer; indx binary_integer;
689 ddrosetta_retval boolean;
690 begin
691
692 -- copy data to the local IN or IN-OUT args, if any
693
694 -- here's the delegated call to the old PL/SQL routine
695 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifallpmtsterminated(p_instr_id);
696
697 -- copy data back from the local variables to OUT or IN-OUT args, if any
698 if ddrosetta_retval is null
699 then ddrosetta_retval_bool := null;
700 elsif ddrosetta_retval
701 then ddrosetta_retval_bool := 1;
702 else ddrosetta_retval_bool := 0;
703 end if;
704 end;
705
706 procedure checkifpmtininstexists(p_payreq_id NUMBER
707 , ddrosetta_retval_bool OUT NOCOPY NUMBER
708 )
709
710 as
711 ddindx binary_integer; indx binary_integer;
712 ddrosetta_retval boolean;
713 begin
714
715 -- copy data to the local IN or IN-OUT args, if any
716
717 -- here's the delegated call to the old PL/SQL routine
718 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifpmtininstexists(p_payreq_id);
719
720 -- copy data back from the local variables to OUT or IN-OUT args, if any
721 if ddrosetta_retval is null
722 then ddrosetta_retval_bool := null;
723 elsif ddrosetta_retval
724 then ddrosetta_retval_bool := 1;
725 else ddrosetta_retval_bool := 0;
726 end if;
727 end;
728
729 procedure checkifinstrxmitoutsidesystem(p_instr_id NUMBER
730 , ddrosetta_retval_bool OUT NOCOPY NUMBER
731 )
732
733 as
734 ddindx binary_integer; indx binary_integer;
735 ddrosetta_retval boolean;
736 begin
737
738 -- copy data to the local IN or IN-OUT args, if any
739
740 -- here's the delegated call to the old PL/SQL routine
741 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifinstrxmitoutsidesystem(p_instr_id);
742
743 -- copy data back from the local variables to OUT or IN-OUT args, if any
744 if ddrosetta_retval is null
745 then ddrosetta_retval_bool := null;
746 elsif ddrosetta_retval
747 then ddrosetta_retval_bool := 1;
748 else ddrosetta_retval_bool := 0;
749 end if;
750 end;
751
752 procedure checkifpmtentitylocked(p_object_id NUMBER
753 , p_object_type VARCHAR2
754 , ddrosetta_retval_bool OUT NOCOPY NUMBER
755 )
756
757 as
758 ddindx binary_integer; indx binary_integer;
759 ddrosetta_retval boolean;
760 begin
761
762 -- copy data to the local IN or IN-OUT args, if any
763
764
765 -- here's the delegated call to the old PL/SQL routine
766 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifpmtentitylocked(p_object_id,
767 p_object_type);
768
769 -- copy data back from the local variables to OUT or IN-OUT args, if any
770 if ddrosetta_retval is null
771 then ddrosetta_retval_bool := null;
772 elsif ddrosetta_retval
773 then ddrosetta_retval_bool := 1;
774 else ddrosetta_retval_bool := 0;
775 end if;
776
777 end;
778
779 end iby_disburse_ui_api_pub_pkg_w;