[Home] [Help]
1: package body pv_partner_accesses_pvt_w as
2: /* $Header: pvxwprab.pls 120.1 2005/09/06 00:09 appldev ship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_partner_accesses_pvt.partner_access_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body pv_partner_accesses_pvt_w as
2: /* $Header: pvxwprab.pls 120.1 2005/09/06 00:09 appldev ship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_partner_accesses_pvt.partner_access_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_VARCHAR2_TABLE_100
7: , a4 JTF_VARCHAR2_TABLE_100
82: end loop;
83: end if;
84: end if;
85: end rosetta_table_copy_in_p2;
86: procedure rosetta_table_copy_out_p2(t pv_partner_accesses_pvt.partner_access_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
87: , a1 out nocopy JTF_NUMBER_TABLE
88: , a2 out nocopy JTF_NUMBER_TABLE
89: , a3 out nocopy JTF_VARCHAR2_TABLE_100
90: , a4 out nocopy JTF_VARCHAR2_TABLE_100
310: , x_partner_access_id out nocopy NUMBER
311: )
312:
313: as
314: ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
315: ddindx binary_integer; indx binary_integer;
316: begin
317:
318: -- copy data to the local IN or IN-OUT args, if any
358: ddp_partner_access_rec.attribute15 := p7_a32;
359:
360:
361: -- here's the delegated call to the old PL/SQL routine
362: pv_partner_accesses_pvt.create_partner_accesses(p_api_version_number,
363: p_init_msg_list,
364: p_commit,
365: p_validation_level,
366: x_return_status,
422: , p7_a32 VARCHAR2
423: )
424:
425: as
426: ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
427: ddindx binary_integer; indx binary_integer;
428: begin
429:
430: -- copy data to the local IN or IN-OUT args, if any
469: ddp_partner_access_rec.attribute14 := p7_a31;
470: ddp_partner_access_rec.attribute15 := p7_a32;
471:
472: -- here's the delegated call to the old PL/SQL routine
473: pv_partner_accesses_pvt.update_partner_accesses(p_api_version_number,
474: p_init_msg_list,
475: p_commit,
476: p_validation_level,
477: x_return_status,
531: , x_msg_data out nocopy VARCHAR2
532: )
533:
534: as
535: ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
536: ddindx binary_integer; indx binary_integer;
537: begin
538:
539: -- copy data to the local IN or IN-OUT args, if any
578:
579:
580:
581: -- here's the delegated call to the old PL/SQL routine
582: pv_partner_accesses_pvt.validate_partner_accesses(p_api_version_number,
583: p_init_msg_list,
584: p_validation_level,
585: ddp_partner_access_rec,
586: p_validation_mode,
635: , x_return_status out nocopy VARCHAR2
636: )
637:
638: as
639: ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
640: ddindx binary_integer; indx binary_integer;
641: begin
642:
643: -- copy data to the local IN or IN-OUT args, if any
677:
678:
679:
680: -- here's the delegated call to the old PL/SQL routine
681: pv_partner_accesses_pvt.chk_partner_access_items(ddp_partner_access_rec,
682: p_validation_mode,
683: x_return_status);
684:
685: -- copy data back from the local variables to OUT or IN-OUT args, if any
727: , p5_a32 VARCHAR2
728: )
729:
730: as
731: ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
732: ddindx binary_integer; indx binary_integer;
733: begin
734:
735: -- copy data to the local IN or IN-OUT args, if any
772: ddp_partner_access_rec.attribute14 := p5_a31;
773: ddp_partner_access_rec.attribute15 := p5_a32;
774:
775: -- here's the delegated call to the old PL/SQL routine
776: pv_partner_accesses_pvt.validate_partner_access_rec(p_api_version_number,
777: p_init_msg_list,
778: x_return_status,
779: x_msg_count,
780: x_msg_data,
787:
788:
789: end;
790:
791: end pv_partner_accesses_pvt_w;