1: package body ahl_rsv_reservations_pvt_w as
2: /* $Header: AHLWRSVB.pls 120.0 2005/07/01 03:22 anraj noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy ahl_rsv_reservations_pvt.serial_number_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: ) as
1: package body ahl_rsv_reservations_pvt_w as
2: /* $Header: AHLWRSVB.pls 120.0 2005/07/01 03:22 anraj noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy ahl_rsv_reservations_pvt.serial_number_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_VARCHAR2_TABLE_100
5: ) as
6: ddindx binary_integer; indx binary_integer;
7: begin
20: end loop;
21: end if;
22: end if;
23: end rosetta_table_copy_in_p2;
24: procedure rosetta_table_copy_out_p2(t ahl_rsv_reservations_pvt.serial_number_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
25: , a1 out nocopy JTF_VARCHAR2_TABLE_100
26: ) as
27: ddindx binary_integer; indx binary_integer;
28: begin
63: , p9_a1 JTF_VARCHAR2_TABLE_100
64: )
65:
66: as
67: ddp_serial_number_tbl ahl_rsv_reservations_pvt.serial_number_tbl_type;
68: ddindx binary_integer; indx binary_integer;
69: begin
70:
71: -- copy data to the local IN or IN-OUT args, if any
77:
78:
79:
80:
81: ahl_rsv_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p9_a0
82: , p9_a1
83: );
84:
85: -- here's the delegated call to the old PL/SQL routine
82: , p9_a1
83: );
84:
85: -- here's the delegated call to the old PL/SQL routine
86: ahl_rsv_reservations_pvt.create_reservation(p_api_version,
87: p_init_msg_list,
88: p_commit,
89: p_validation_level,
90: p_module_type,
105:
106:
107: end;
108:
109: end ahl_rsv_reservations_pvt_w;