1: package body ibe_msite_grp_w as
2: /* $Header: IBEGRMSB.pls 120.1 2005/06/13 11:24 appldev $ */
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_p7(t out nocopy ibe_msite_grp.msite_currencies_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
51: end loop;
52: end if;
53: end if;
54: end rosetta_table_copy_in_p7;
55: procedure rosetta_table_copy_out_p7(t ibe_msite_grp.msite_currencies_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
56: , a1 out nocopy JTF_NUMBER_TABLE
57: , a2 out nocopy JTF_NUMBER_TABLE
58: , a3 out nocopy JTF_NUMBER_TABLE
59: , a4 out nocopy JTF_NUMBER_TABLE
110: end if;
111: end if;
112: end rosetta_table_copy_out_p7;
113:
114: procedure rosetta_table_copy_in_p8(t out nocopy ibe_msite_grp.msite_languages_tbl_type, a0 JTF_VARCHAR2_TABLE_100
115: , a1 JTF_VARCHAR2_TABLE_100
116: , a2 JTF_VARCHAR2_TABLE_100
117: ) as
118: ddindx binary_integer; indx binary_integer;
133: end loop;
134: end if;
135: end if;
136: end rosetta_table_copy_in_p8;
137: procedure rosetta_table_copy_out_p8(t ibe_msite_grp.msite_languages_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
138: , a1 out nocopy JTF_VARCHAR2_TABLE_100
139: , a2 out nocopy JTF_VARCHAR2_TABLE_100
140: ) as
141: ddindx binary_integer; indx binary_integer;
167: end if;
168: end if;
169: end rosetta_table_copy_out_p8;
170:
171: procedure rosetta_table_copy_in_p9(t out nocopy ibe_msite_grp.msite_orgids_tbl_type, a0 JTF_NUMBER_TABLE
172: , a1 JTF_VARCHAR2_TABLE_100
173: ) as
174: ddindx binary_integer; indx binary_integer;
175: begin
188: end loop;
189: end if;
190: end if;
191: end rosetta_table_copy_in_p9;
192: procedure rosetta_table_copy_out_p9(t ibe_msite_grp.msite_orgids_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
193: , a1 out nocopy JTF_VARCHAR2_TABLE_100
194: ) as
195: ddindx binary_integer; indx binary_integer;
196: begin
217: end if;
218: end if;
219: end rosetta_table_copy_out_p9;
220:
221: procedure rosetta_table_copy_in_p10(t out nocopy ibe_msite_grp.msite_delete_tbl_type, a0 JTF_NUMBER_TABLE
222: , a1 JTF_NUMBER_TABLE
223: ) as
224: ddindx binary_integer; indx binary_integer;
225: begin
238: end loop;
239: end if;
240: end if;
241: end rosetta_table_copy_in_p10;
242: procedure rosetta_table_copy_out_p10(t ibe_msite_grp.msite_delete_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
243: , a1 out nocopy JTF_NUMBER_TABLE
244: ) as
245: ddindx binary_integer; indx binary_integer;
246: begin
267: end if;
268: end if;
269: end rosetta_table_copy_out_p10;
270:
271: procedure rosetta_table_copy_in_p11(t out nocopy ibe_msite_grp.msite_prtyids_tbl_type, a0 JTF_NUMBER_TABLE) as
272: ddindx binary_integer; indx binary_integer;
273: begin
274: if a0 is not null and a0.count > 0 then
275: if a0.count > 0 then
285: end loop;
286: end if;
287: end if;
288: end rosetta_table_copy_in_p11;
289: procedure rosetta_table_copy_out_p11(t ibe_msite_grp.msite_prtyids_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
290: ddindx binary_integer; indx binary_integer;
291: begin
292: if t is null or t.count = 0 then
293: a0 := JTF_NUMBER_TABLE();
319: , p6_a1 JTF_NUMBER_TABLE
320: )
321:
322: as
323: ddp_msite_id_tbl ibe_msite_grp.msite_delete_tbl_type;
324: ddindx binary_integer; indx binary_integer;
325: begin
326:
327: -- copy data to the local IN or IN-OUT args, if any
330:
331:
332:
333:
334: ibe_msite_grp_w.rosetta_table_copy_in_p10(ddp_msite_id_tbl, p6_a0
335: , p6_a1
336: );
337:
338: -- here's the delegated call to the old PL/SQL routine
335: , p6_a1
336: );
337:
338: -- here's the delegated call to the old PL/SQL routine
339: ibe_msite_grp.delete_msite(p_api_version,
340: p_init_msg_list,
341: p_commit,
342: x_return_status,
343: x_msg_count,
384: , p6_a22 in out nocopy VARCHAR2
385: )
386:
387: as
388: ddp_msite_rec ibe_msite_grp.msite_rec_type;
389: ddindx binary_integer; indx binary_integer;
390: begin
391:
392: -- copy data to the local IN or IN-OUT args, if any
420: ddp_msite_rec.reporting_status := p6_a21;
421: ddp_msite_rec.site_type := p6_a22;
422:
423: -- here's the delegated call to the old PL/SQL routine
424: ibe_msite_grp.save_msite(p_api_version,
425: p_init_msg_list,
426: p_commit,
427: x_return_status,
428: x_msg_count,
497: , p11_a22 in out nocopy VARCHAR2
498: )
499:
500: as
501: ddp_msite_rec ibe_msite_grp.msite_rec_type;
502: ddindx binary_integer; indx binary_integer;
503: begin
504:
505: -- copy data to the local IN or IN-OUT args, if any
538: ddp_msite_rec.reporting_status := p11_a21;
539: ddp_msite_rec.site_type := p11_a22;
540:
541: -- here's the delegated call to the old PL/SQL routine
542: ibe_msite_grp.duplicate_msite(p_api_version,
543: p_init_msg_list,
544: p_commit,
545: p_default_language_code,
546: p_default_currency_code,
601: , p7_a2 JTF_VARCHAR2_TABLE_100
602: )
603:
604: as
605: ddp_msite_languages_tbl ibe_msite_grp.msite_languages_tbl_type;
606: ddindx binary_integer; indx binary_integer;
607: begin
608:
609: -- copy data to the local IN or IN-OUT args, if any
613:
614:
615:
616:
617: ibe_msite_grp_w.rosetta_table_copy_in_p8(ddp_msite_languages_tbl, p7_a0
618: , p7_a1
619: , p7_a2
620: );
621:
619: , p7_a2
620: );
621:
622: -- here's the delegated call to the old PL/SQL routine
623: ibe_msite_grp.save_msite_languages(p_api_version,
624: p_init_msg_list,
625: p_commit,
626: x_return_status,
627: x_msg_count,
656: , p7_a7 JTF_NUMBER_TABLE
657: )
658:
659: as
660: ddp_msite_currencies_tbl ibe_msite_grp.msite_currencies_tbl_type;
661: ddindx binary_integer; indx binary_integer;
662: begin
663:
664: -- copy data to the local IN or IN-OUT args, if any
668:
669:
670:
671:
672: ibe_msite_grp_w.rosetta_table_copy_in_p7(ddp_msite_currencies_tbl, p7_a0
673: , p7_a1
674: , p7_a2
675: , p7_a3
676: , p7_a4
679: , p7_a7
680: );
681:
682: -- here's the delegated call to the old PL/SQL routine
683: ibe_msite_grp.save_msite_currencies(p_api_version,
684: p_init_msg_list,
685: p_commit,
686: x_return_status,
687: x_msg_count,
710: , p7_a1 JTF_VARCHAR2_TABLE_100
711: )
712:
713: as
714: ddp_msite_orgids_tbl ibe_msite_grp.msite_orgids_tbl_type;
715: ddindx binary_integer; indx binary_integer;
716: begin
717:
718: -- copy data to the local IN or IN-OUT args, if any
722:
723:
724:
725:
726: ibe_msite_grp_w.rosetta_table_copy_in_p9(ddp_msite_orgids_tbl, p7_a0
727: , p7_a1
728: );
729:
730: -- here's the delegated call to the old PL/SQL routine
727: , p7_a1
728: );
729:
730: -- here's the delegated call to the old PL/SQL routine
731: ibe_msite_grp.save_msite_orgids(p_api_version,
732: p_init_msg_list,
733: p_commit,
734: x_return_status,
735: x_msg_count,
858:
859:
860:
861: -- here's the delegated call to the old PL/SQL routine
862: ibe_msite_grp.insert_row(x_rowid,
863: x_msite_id,
864: x_attribute_category,
865: x_attribute1,
866: x_attribute2,
1053:
1054:
1055:
1056: -- here's the delegated call to the old PL/SQL routine
1057: ibe_msite_grp.lock_row(x_msite_id,
1058: x_attribute_category,
1059: x_attribute1,
1060: x_attribute2,
1061: x_attribute3,
1244:
1245:
1246:
1247: -- here's the delegated call to the old PL/SQL routine
1248: ibe_msite_grp.update_row(x_msite_id,
1249: x_attribute_category,
1250: x_attribute1,
1251: x_attribute2,
1252: x_attribute3,
1439:
1440:
1441:
1442: -- here's the delegated call to the old PL/SQL routine
1443: ibe_msite_grp.load_row(x_msite_id,
1444: x_owner,
1445: x_attribute_category,
1446: x_attribute1,
1447: x_attribute2,
1636:
1637:
1638:
1639: -- here's the delegated call to the old PL/SQL routine
1640: ibe_msite_grp.load_seed_row(x_msite_id,
1641: x_owner,
1642: x_msite_name,
1643: x_msite_description,
1644: x_attribute_category,
1731:
1732:
1733: end;
1734:
1735: end ibe_msite_grp_w;