[Home] [Help]
1: package body pv_pg_enrl_requests_pvt_w as
2: /* $Header: pvxwperb.pls 120.1 2005/10/24 08:31 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_enrl_requests_pvt.enrl_request_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_NUMBER_TABLE
114: end loop;
115: end if;
116: end if;
117: end rosetta_table_copy_in_p2;
118: procedure rosetta_table_copy_out_p2(t pv_pg_enrl_requests_pvt.enrl_request_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
119: , a1 out nocopy JTF_NUMBER_TABLE
120: , a2 out nocopy JTF_NUMBER_TABLE
121: , a3 out nocopy JTF_NUMBER_TABLE
122: , a4 out nocopy JTF_NUMBER_TABLE
408: , x_enrl_request_id out nocopy NUMBER
409: )
410:
411: as
412: ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
413: ddindx binary_integer; indx binary_integer;
414: begin
415:
416: -- copy data to the local IN or IN-OUT args, if any
467: ddp_enrl_request_rec.attribute15 := p7_a43;
468:
469:
470: -- here's the delegated call to the old PL/SQL routine
471: pv_pg_enrl_requests_pvt.create_pg_enrl_requests(p_api_version_number,
472: p_init_msg_list,
473: p_commit,
474: p_validation_level,
475: x_return_status,
542: , p7_a43 VARCHAR2
543: )
544:
545: as
546: ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
547: ddindx binary_integer; indx binary_integer;
548: begin
549:
550: -- copy data to the local IN or IN-OUT args, if any
600: ddp_enrl_request_rec.attribute14 := p7_a42;
601: ddp_enrl_request_rec.attribute15 := p7_a43;
602:
603: -- here's the delegated call to the old PL/SQL routine
604: pv_pg_enrl_requests_pvt.update_pg_enrl_requests(p_api_version_number,
605: p_init_msg_list,
606: p_commit,
607: p_validation_level,
608: x_return_status,
673: , x_msg_data out nocopy VARCHAR2
674: )
675:
676: as
677: ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
678: ddindx binary_integer; indx binary_integer;
679: begin
680:
681: -- copy data to the local IN or IN-OUT args, if any
731:
732:
733:
734: -- here's the delegated call to the old PL/SQL routine
735: pv_pg_enrl_requests_pvt.validate_pg_enrl_requests(p_api_version_number,
736: p_init_msg_list,
737: p_validation_level,
738: ddp_enrl_request_rec,
739: p_validation_mode,
799: , x_return_status out nocopy VARCHAR2
800: )
801:
802: as
803: ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
804: ddindx binary_integer; indx binary_integer;
805: begin
806:
807: -- copy data to the local IN or IN-OUT args, if any
852:
853:
854:
855: -- here's the delegated call to the old PL/SQL routine
856: pv_pg_enrl_requests_pvt.check_enrl_request_items(ddp_enrl_request_rec,
857: p_validation_mode,
858: x_return_status);
859:
860: -- copy data back from the local variables to OUT or IN-OUT args, if any
913: , p5_a43 VARCHAR2
914: )
915:
916: as
917: ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
918: ddindx binary_integer; indx binary_integer;
919: begin
920:
921: -- copy data to the local IN or IN-OUT args, if any
969: ddp_enrl_request_rec.attribute14 := p5_a42;
970: ddp_enrl_request_rec.attribute15 := p5_a43;
971:
972: -- here's the delegated call to the old PL/SQL routine
973: pv_pg_enrl_requests_pvt.validate_enrl_request_rec(p_api_version_number,
974: p_init_msg_list,
975: x_return_status,
976: x_msg_count,
977: x_msg_data,
984:
985:
986: end;
987:
988: end pv_pg_enrl_requests_pvt_w;