1: package body pv_pg_memberships_pvt_w as
2: /* $Header: pvxwmemb.pls 120.1 2005/10/24 09:37 dgottlie noship $ */
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:
9: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10: return d;
11: end;
12:
13: procedure rosetta_table_copy_in_p2(t out nocopy pv_pg_memberships_pvt.memb_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_DATE_TABLE
86: end loop;
87: end if;
88: end if;
89: end rosetta_table_copy_in_p2;
90: procedure rosetta_table_copy_out_p2(t pv_pg_memberships_pvt.memb_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
91: , a1 out nocopy JTF_NUMBER_TABLE
92: , a2 out nocopy JTF_NUMBER_TABLE
93: , a3 out nocopy JTF_NUMBER_TABLE
94: , a4 out nocopy JTF_DATE_TABLE
255: end if;
256: end if;
257: end rosetta_table_copy_out_p2;
258:
259: procedure rosetta_table_copy_in_p4(t out nocopy pv_pg_memberships_pvt.number_table, a0 JTF_NUMBER_TABLE) as
260: ddindx binary_integer; indx binary_integer;
261: begin
262: if a0 is null then
263: t := null;
261: begin
262: if a0 is null then
263: t := null;
264: elsif a0.count = 0 then
265: t := pv_pg_memberships_pvt.number_table();
266: else
267: if a0.count > 0 then
268: t := pv_pg_memberships_pvt.number_table();
269: t.extend(a0.count);
264: elsif a0.count = 0 then
265: t := pv_pg_memberships_pvt.number_table();
266: else
267: if a0.count > 0 then
268: t := pv_pg_memberships_pvt.number_table();
269: t.extend(a0.count);
270: indx := a0.first;
271: ddindx := 1;
272: while true loop
279: end loop;
280: end if;
281: end if;
282: end rosetta_table_copy_in_p4;
283: procedure rosetta_table_copy_out_p4(t pv_pg_memberships_pvt.number_table, a0 out nocopy JTF_NUMBER_TABLE) as
284: ddindx binary_integer; indx binary_integer;
285: begin
286: if t is null then
287: a0 := null;
345: , x_membership_id out nocopy NUMBER
346: )
347:
348: as
349: ddp_memb_rec pv_pg_memberships_pvt.memb_rec_type;
350: ddindx binary_integer; indx binary_integer;
351: begin
352:
353: -- copy data to the local IN or IN-OUT args, if any
390: ddp_memb_rec.attribute15 := p7_a29;
391:
392:
393: -- here's the delegated call to the old PL/SQL routine
394: pv_pg_memberships_pvt.create_pg_memberships(p_api_version_number,
395: p_init_msg_list,
396: p_commit,
397: p_validation_level,
398: x_return_status,
451: , p7_a29 VARCHAR2
452: )
453:
454: as
455: ddp_memb_rec pv_pg_memberships_pvt.memb_rec_type;
456: ddindx binary_integer; indx binary_integer;
457: begin
458:
459: -- copy data to the local IN or IN-OUT args, if any
495: ddp_memb_rec.attribute14 := p7_a28;
496: ddp_memb_rec.attribute15 := p7_a29;
497:
498: -- here's the delegated call to the old PL/SQL routine
499: pv_pg_memberships_pvt.update_pg_memberships(p_api_version_number,
500: p_init_msg_list,
501: p_commit,
502: p_validation_level,
503: x_return_status,
554: , x_msg_data out nocopy VARCHAR2
555: )
556:
557: as
558: ddp_memb_rec pv_pg_memberships_pvt.memb_rec_type;
559: ddindx binary_integer; indx binary_integer;
560: begin
561:
562: -- copy data to the local IN or IN-OUT args, if any
598:
599:
600:
601: -- here's the delegated call to the old PL/SQL routine
602: pv_pg_memberships_pvt.validate_pg_memberships(p_api_version_number,
603: p_init_msg_list,
604: p_validation_level,
605: ddp_memb_rec,
606: p_validation_mode,
652: , x_return_status out nocopy VARCHAR2
653: )
654:
655: as
656: ddp_memb_rec pv_pg_memberships_pvt.memb_rec_type;
657: ddindx binary_integer; indx binary_integer;
658: begin
659:
660: -- copy data to the local IN or IN-OUT args, if any
691:
692:
693:
694: -- here's the delegated call to the old PL/SQL routine
695: pv_pg_memberships_pvt.check_memb_items(ddp_memb_rec,
696: p_validation_mode,
697: x_return_status);
698:
699: -- copy data back from the local variables to OUT or IN-OUT args, if any
738: , p5_a29 VARCHAR2
739: )
740:
741: as
742: ddp_memb_rec pv_pg_memberships_pvt.memb_rec_type;
743: ddindx binary_integer; indx binary_integer;
744: begin
745:
746: -- copy data to the local IN or IN-OUT args, if any
780: ddp_memb_rec.attribute14 := p5_a28;
781: ddp_memb_rec.attribute15 := p5_a29;
782:
783: -- here's the delegated call to the old PL/SQL routine
784: pv_pg_memberships_pvt.validate_memb_rec(p_api_version_number,
785: p_init_msg_list,
786: x_return_status,
787: x_msg_count,
788: x_msg_data,
825:
826:
827:
828: -- here's the delegated call to the old PL/SQL routine
829: pv_pg_memberships_pvt.update_membership_end_date(p_api_version_number,
830: p_init_msg_list,
831: p_commit,
832: p_validation_level,
833: p_membership_id,
848:
849:
850: end;
851:
852: end pv_pg_memberships_pvt_w;