1: package body ahl_pp_resrc_require_pvt_w as
2: /* $Header: AHLWREQB.pls 120.2.12010000.3 2008/12/28 02:04:50 sracha ship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body ahl_pp_resrc_require_pvt_w as
2: /* $Header: AHLWREQB.pls 120.2.12010000.3 2008/12/28 02:04:50 sracha ship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_NUMBER_TABLE
136: end loop;
137: end if;
138: end if;
139: end rosetta_table_copy_in_p1;
140: procedure rosetta_table_copy_out_p1(t ahl_pp_resrc_require_pvt.resrc_require_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
141: , a1 out nocopy JTF_NUMBER_TABLE
142: , a2 out nocopy JTF_NUMBER_TABLE
143: , a3 out nocopy JTF_NUMBER_TABLE
144: , a4 out nocopy JTF_NUMBER_TABLE
528: , x_msg_data out nocopy VARCHAR2
529: )
530:
531: as
532: ddp_x_resrc_require_tbl ahl_pp_resrc_require_pvt.resrc_require_tbl_type;
533: ddindx binary_integer; indx binary_integer;
534: begin
535:
536: -- copy data to the local IN or IN-OUT args, if any
540:
541:
542:
543:
544: ahl_pp_resrc_require_pvt_w.rosetta_table_copy_in_p1(ddp_x_resrc_require_tbl, p7_a0
545: , p7_a1
546: , p7_a2
547: , p7_a3
548: , p7_a4
606:
607:
608:
609: -- here's the delegated call to the old PL/SQL routine
610: ahl_pp_resrc_require_pvt.process_resrc_require(p_api_version,
611: p_init_msg_list,
612: p_commit,
613: p_validation_level,
614: p_module_type,
626:
627:
628:
629:
630: ahl_pp_resrc_require_pvt_w.rosetta_table_copy_out_p1(ddp_x_resrc_require_tbl, p7_a0
631: , p7_a1
632: , p7_a2
633: , p7_a3
634: , p7_a4
692:
693:
694: end;
695:
696: end ahl_pp_resrc_require_pvt_w;