1: package body iex_dunning_pub_w as
2: /* $Header: iexwdunb.pls 120.6 2005/07/07 19:59:25 ctlee ship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy iex_dunning_pub.ag_dn_xref_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_NUMBER_TABLE
69: end loop;
70: end if;
71: end if;
72: end rosetta_table_copy_in_p1;
73: procedure rosetta_table_copy_out_p1(t iex_dunning_pub.ag_dn_xref_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
74: , a1 out nocopy JTF_NUMBER_TABLE
75: , a2 out nocopy JTF_NUMBER_TABLE
76: , a3 out nocopy JTF_VARCHAR2_TABLE_100
77: , a4 out nocopy JTF_NUMBER_TABLE
173: end if;
174: end if;
175: end rosetta_table_copy_out_p1;
176:
177: procedure rosetta_table_copy_in_p2(t out nocopy iex_dunning_pub.ag_dn_xref_id_tbl_type, a0 JTF_NUMBER_TABLE) as
178: ddindx binary_integer; indx binary_integer;
179: begin
180: if a0 is not null and a0.count > 0 then
181: if a0.count > 0 then
191: end loop;
192: end if;
193: end if;
194: end rosetta_table_copy_in_p2;
195: procedure rosetta_table_copy_out_p2(t iex_dunning_pub.ag_dn_xref_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
196: ddindx binary_integer; indx binary_integer;
197: begin
198: if t is null or t.count = 0 then
199: a0 := JTF_NUMBER_TABLE();
214: end if;
215: end if;
216: end rosetta_table_copy_out_p2;
217:
218: procedure rosetta_table_copy_in_p8(t out nocopy iex_dunning_pub.dunning_tbl_type, a0 JTF_NUMBER_TABLE
219: , a1 JTF_NUMBER_TABLE
220: , a2 JTF_VARCHAR2_TABLE_100
221: , a3 JTF_DATE_TABLE
222: , a4 JTF_VARCHAR2_TABLE_300
283: end loop;
284: end if;
285: end if;
286: end rosetta_table_copy_in_p8;
287: procedure rosetta_table_copy_out_p8(t iex_dunning_pub.dunning_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
288: , a1 out nocopy JTF_NUMBER_TABLE
289: , a2 out nocopy JTF_VARCHAR2_TABLE_100
290: , a3 out nocopy JTF_DATE_TABLE
291: , a4 out nocopy JTF_VARCHAR2_TABLE_300
432: end if;
433: end if;
434: end rosetta_table_copy_out_p8;
435:
436: procedure rosetta_table_copy_in_p9(t out nocopy iex_dunning_pub.delid_numlist, a0 JTF_NUMBER_TABLE) as
437: ddindx binary_integer; indx binary_integer;
438: begin
439: if a0 is null then
440: t := null;
438: begin
439: if a0 is null then
440: t := null;
441: elsif a0.count = 0 then
442: t := iex_dunning_pub.delid_numlist();
443: else
444: if a0.count > 0 then
445: t := iex_dunning_pub.delid_numlist();
446: t.extend(a0.count);
441: elsif a0.count = 0 then
442: t := iex_dunning_pub.delid_numlist();
443: else
444: if a0.count > 0 then
445: t := iex_dunning_pub.delid_numlist();
446: t.extend(a0.count);
447: indx := a0.first;
448: ddindx := 1;
449: while true loop
456: end loop;
457: end if;
458: end if;
459: end rosetta_table_copy_in_p9;
460: procedure rosetta_table_copy_out_p9(t iex_dunning_pub.delid_numlist, a0 out nocopy JTF_NUMBER_TABLE) as
461: ddindx binary_integer; indx binary_integer;
462: begin
463: if t is null then
464: a0 := null;
508: , x_ag_dn_xref_id_tbl out nocopy JTF_NUMBER_TABLE
509: )
510:
511: as
512: ddp_ag_dn_xref_tbl iex_dunning_pub.ag_dn_xref_tbl_type;
513: ddx_ag_dn_xref_id_tbl iex_dunning_pub.ag_dn_xref_id_tbl_type;
514: ddindx binary_integer; indx binary_integer;
515: begin
516:
509: )
510:
511: as
512: ddp_ag_dn_xref_tbl iex_dunning_pub.ag_dn_xref_tbl_type;
513: ddx_ag_dn_xref_id_tbl iex_dunning_pub.ag_dn_xref_id_tbl_type;
514: ddindx binary_integer; indx binary_integer;
515: begin
516:
517: -- copy data to the local IN or IN-OUT args, if any
517: -- copy data to the local IN or IN-OUT args, if any
518:
519:
520:
521: iex_dunning_pub_w.rosetta_table_copy_in_p1(ddp_ag_dn_xref_tbl, p3_a0
522: , p3_a1
523: , p3_a2
524: , p3_a3
525: , p3_a4
541:
542:
543:
544: -- here's the delegated call to the old PL/SQL routine
545: iex_dunning_pub.create_ag_dn_xref(p_api_version,
546: p_init_msg_list,
547: p_commit,
548: ddp_ag_dn_xref_tbl,
549: x_return_status,
558:
559:
560:
561:
562: iex_dunning_pub_w.rosetta_table_copy_out_p2(ddx_ag_dn_xref_id_tbl, x_ag_dn_xref_id_tbl);
563: end;
564:
565: procedure update_ag_dn_xref(p_api_version NUMBER
566: , p_init_msg_list VARCHAR2
587: , x_msg_data out nocopy VARCHAR2
588: )
589:
590: as
591: ddp_ag_dn_xref_tbl iex_dunning_pub.ag_dn_xref_tbl_type;
592: ddindx binary_integer; indx binary_integer;
593: begin
594:
595: -- copy data to the local IN or IN-OUT args, if any
595: -- copy data to the local IN or IN-OUT args, if any
596:
597:
598:
599: iex_dunning_pub_w.rosetta_table_copy_in_p1(ddp_ag_dn_xref_tbl, p3_a0
600: , p3_a1
601: , p3_a2
602: , p3_a3
603: , p3_a4
618:
619:
620:
621: -- here's the delegated call to the old PL/SQL routine
622: iex_dunning_pub.update_ag_dn_xref(p_api_version,
623: p_init_msg_list,
624: p_commit,
625: ddp_ag_dn_xref_tbl,
626: x_return_status,
635:
636:
637: end;
638:
639: end iex_dunning_pub_w;