1 package body iby_disburse_ui_api_pub_pkg_w as
2 /* $Header: ibydapiwb.pls 120.6.12020000.2 2012/07/12 14:49:59 sgogula ship $ */
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
471
472 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p2(ddp_pmt_list, p_pmt_list);
473
474 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p4(ddp_new_ppr_docs_list, p_new_ppr_docs_list);
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_used_pmts_list JTF_NUMBER_TABLE
560 , p_submit_postive_pay number
561 , x_return_status out nocopy VARCHAR2
562 )
563
564 as
565 ddp_used_docs_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
566 ddp_used_pmts_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
567 ddp_submit_postive_pay boolean;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_used_docs_list, p_used_docs_list);
575 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_used_pmts_list, p_used_pmts_list);
576
577 if p_submit_postive_pay is null
578 then ddp_submit_postive_pay := null;
579 elsif p_submit_postive_pay = 0
580 then ddp_submit_postive_pay := false;
581 else ddp_submit_postive_pay := true;
582 end if;
583
584
585 -- here's the delegated call to the old PL/SQL routine
586 iby_disburse_ui_api_pub_pkg.finalize_print_status(p_instr_id,
587 p_pmt_doc_id,
588 ddp_used_docs_list,
589 ddp_used_pmts_list,
590 ddp_submit_postive_pay,
591 x_return_status);
592
593 -- copy data back from the local variables to OUT or IN-OUT args, if any
594
595
596 end;
597 procedure finalize_print_status(p_instr_id NUMBER
598 , p_pmt_doc_id NUMBER
599 , p_used_docs_list JTF_NUMBER_TABLE
600 , p_used_pmts_list JTF_NUMBER_TABLE
601 , p_skipped_docs_list JTF_NUMBER_TABLE
602 , p_submit_postive_pay number
603 , x_return_status out nocopy VARCHAR2
604 )
605 as
606 ddp_used_docs_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
607 ddp_used_pmts_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
608 ddp_skipped_docs_list iby_disburse_ui_api_pub_pkg.paperdocnumtab;
609 ddp_submit_postive_pay boolean;
610 ddindx binary_integer; indx binary_integer;
611 begin
612
613 -- copy data to the local IN or IN-OUT args, if any
614
615
616 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_used_docs_list, p_used_docs_list);
617 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_used_pmts_list, p_used_pmts_list);
618 iby_disburse_ui_api_pub_pkg_w.rosetta_table_copy_in_p5(ddp_skipped_docs_list, p_skipped_docs_list);
619
620 if p_submit_postive_pay is null
621 then ddp_submit_postive_pay := null;
622 elsif p_submit_postive_pay = 0
623 then ddp_submit_postive_pay := false;
624 else ddp_submit_postive_pay := true;
625 end if;
626
627
628 -- here's the delegated call to the old PL/SQL routine
629 iby_disburse_ui_api_pub_pkg.finalize_print_status(p_instr_id,
630 p_pmt_doc_id,
631 ddp_used_docs_list,
632 ddp_used_pmts_list,
633 ddp_skipped_docs_list,
634 ddp_submit_postive_pay,
635 x_return_status);
636
637 -- copy data back from the local variables to OUT or IN-OUT args, if any
638
639
640 end;
641
642 procedure finalize_instr_print_status(p_instr_id NUMBER
643 , p_submit_postive_pay number
644 , x_return_status out nocopy VARCHAR2
645 )
646
647 as
648 ddp_submit_postive_pay boolean;
649 ddindx binary_integer; indx binary_integer;
650 begin
651
652 -- copy data to the local IN or IN-OUT args, if any
653
654 if p_submit_postive_pay is null
655 then ddp_submit_postive_pay := null;
656 elsif p_submit_postive_pay = 0
657 then ddp_submit_postive_pay := false;
658 else ddp_submit_postive_pay := true;
659 end if;
660
661
662 -- here's the delegated call to the old PL/SQL routine
663 iby_disburse_ui_api_pub_pkg.finalize_instr_print_status(p_instr_id,
664 ddp_submit_postive_pay,
665 x_return_status);
666
667 -- copy data back from the local variables to OUT or IN-OUT args, if any
668
669
670 end;
671
672 procedure mark_all_pmts_complete(p_instr_id NUMBER
673 , p_submit_postive_pay number
674 , x_return_status out nocopy VARCHAR2
675 )
676
677 as
678 ddp_submit_postive_pay boolean;
679 ddindx binary_integer; indx binary_integer;
680 begin
681
682 -- copy data to the local IN or IN-OUT args, if any
683
684 if p_submit_postive_pay is null
685 then ddp_submit_postive_pay := null;
686 elsif p_submit_postive_pay = 0
687 then ddp_submit_postive_pay := false;
688 else ddp_submit_postive_pay := true;
689 end if;
690
691
692 -- here's the delegated call to the old PL/SQL routine
693 iby_disburse_ui_api_pub_pkg.mark_all_pmts_complete(p_instr_id,
694 ddp_submit_postive_pay,
695 x_return_status);
696
697 -- copy data back from the local variables to OUT or IN-OUT args, if any
698
699
700 end;
701
702 procedure checkifdocused(p_paper_doc_num NUMBER
703 , p_pmt_document_id NUMBER
704 , ddrosetta_retval_bool OUT NOCOPY NUMBER
705 )
706
707 as
708 ddindx binary_integer; indx binary_integer;
709 ddrosetta_retval boolean;
710 begin
711
712 -- copy data to the local IN or IN-OUT args, if any
713
714
715 -- here's the delegated call to the old PL/SQL routine
716 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifdocused(p_paper_doc_num,
717 p_pmt_document_id);
718
719 -- copy data back from the local variables to OUT or IN-OUT args, if any
720 if ddrosetta_retval is null
721 then ddrosetta_retval_bool := null;
722 elsif ddrosetta_retval
723 then ddrosetta_retval_bool := 1;
724 else ddrosetta_retval_bool := 0;
725 end if;
726
727 end;
728
729 procedure checkifallpmtsterminated(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.checkifallpmtsterminated(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 checkifpmtininstexists(p_payreq_id NUMBER
753 , ddrosetta_retval_bool OUT NOCOPY NUMBER
754 )
755
756 as
757 ddindx binary_integer; indx binary_integer;
758 ddrosetta_retval boolean;
759 begin
760
761 -- copy data to the local IN or IN-OUT args, if any
762
763 -- here's the delegated call to the old PL/SQL routine
764 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifpmtininstexists(p_payreq_id);
765
766 -- copy data back from the local variables to OUT or IN-OUT args, if any
767 if ddrosetta_retval is null
768 then ddrosetta_retval_bool := null;
769 elsif ddrosetta_retval
770 then ddrosetta_retval_bool := 1;
771 else ddrosetta_retval_bool := 0;
772 end if;
773 end;
774
775 procedure checkifinstrxmitoutsidesystem(p_instr_id NUMBER
776 , ddrosetta_retval_bool OUT NOCOPY NUMBER
777 )
778
779 as
780 ddindx binary_integer; indx binary_integer;
781 ddrosetta_retval boolean;
782 begin
783
784 -- copy data to the local IN or IN-OUT args, if any
785
786 -- here's the delegated call to the old PL/SQL routine
787 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifinstrxmitoutsidesystem(p_instr_id);
788
789 -- copy data back from the local variables to OUT or IN-OUT args, if any
790 if ddrosetta_retval is null
791 then ddrosetta_retval_bool := null;
792 elsif ddrosetta_retval
793 then ddrosetta_retval_bool := 1;
794 else ddrosetta_retval_bool := 0;
795 end if;
796 end;
797
798 procedure checkifpmtentitylocked(p_object_id NUMBER
799 , p_object_type VARCHAR2
800 , ddrosetta_retval_bool OUT NOCOPY NUMBER
801 )
802
803 as
804 ddindx binary_integer; indx binary_integer;
805 ddrosetta_retval boolean;
806 begin
807
808 -- copy data to the local IN or IN-OUT args, if any
809
810
811 -- here's the delegated call to the old PL/SQL routine
812 ddrosetta_retval := iby_disburse_ui_api_pub_pkg.checkifpmtentitylocked(p_object_id,
813 p_object_type);
814
815 -- copy data back from the local variables to OUT or IN-OUT args, if any
816 if ddrosetta_retval is null
817 then ddrosetta_retval_bool := null;
818 elsif ddrosetta_retval
819 then ddrosetta_retval_bool := 1;
820 else ddrosetta_retval_bool := 0;
821 end if;
822
823 end;
824
825 end iby_disburse_ui_api_pub_pkg_w;