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
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();
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);
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;
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
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();
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);
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;
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
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();
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);
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;
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
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();
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);
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;
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
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();
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);
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;
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:
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:
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:
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
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: )
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:
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:
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
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: