1: package body pv_tap_access_terrs_pvt_w as
2: /* $Header: pvxwtrab.pls 115.0 2003/10/15 04:23:10 rdsharma noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_tap_access_terrs_pvt.tap_access_terrs_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_DATE_TABLE
1: package body pv_tap_access_terrs_pvt_w as
2: /* $Header: pvxwtrab.pls 115.0 2003/10/15 04:23:10 rdsharma noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_tap_access_terrs_pvt.tap_access_terrs_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_DATE_TABLE
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_DATE_TABLE
40: end loop;
41: end if;
42: end if;
43: end rosetta_table_copy_in_p2;
44: procedure rosetta_table_copy_out_p2(t pv_tap_access_terrs_pvt.tap_access_terrs_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45: , a1 out nocopy JTF_NUMBER_TABLE
46: , a2 out nocopy JTF_DATE_TABLE
47: , a3 out nocopy JTF_NUMBER_TABLE
48: , a4 out nocopy JTF_DATE_TABLE
141: , p7_a11 DATE
142: )
143:
144: as
145: ddp_tap_access_terrs_rec pv_tap_access_terrs_pvt.tap_access_terrs_rec_type;
146: ddindx binary_integer; indx binary_integer;
147: begin
148:
149: -- copy data to the local IN or IN-OUT args, if any
167: ddp_tap_access_terrs_rec.program_id := p7_a10;
168: ddp_tap_access_terrs_rec.program_update_date := p7_a11;
169:
170: -- here's the delegated call to the old PL/SQL routine
171: pv_tap_access_terrs_pvt.create_tap_access_terrs(p_api_version_number,
172: p_init_msg_list,
173: p_commit,
174: p_validation_level,
175: x_return_status,
208: , p7_a11 DATE
209: )
210:
211: as
212: ddp_tap_access_terrs_rec pv_tap_access_terrs_pvt.tap_access_terrs_rec_type;
213: ddindx binary_integer; indx binary_integer;
214: begin
215:
216: -- copy data to the local IN or IN-OUT args, if any
234: ddp_tap_access_terrs_rec.program_id := p7_a10;
235: ddp_tap_access_terrs_rec.program_update_date := p7_a11;
236:
237: -- here's the delegated call to the old PL/SQL routine
238: pv_tap_access_terrs_pvt.update_tap_access_terrs(p_api_version_number,
239: p_init_msg_list,
240: p_commit,
241: p_validation_level,
242: x_return_status,
275: , x_msg_data out nocopy VARCHAR2
276: )
277:
278: as
279: ddp_tap_access_terrs_rec pv_tap_access_terrs_pvt.tap_access_terrs_rec_type;
280: ddindx binary_integer; indx binary_integer;
281: begin
282:
283: -- copy data to the local IN or IN-OUT args, if any
301:
302:
303:
304: -- here's the delegated call to the old PL/SQL routine
305: pv_tap_access_terrs_pvt.validate_tap_access_terrs(p_api_version_number,
306: p_init_msg_list,
307: p_validation_level,
308: p_validation_mode,
309: ddp_tap_access_terrs_rec,
337: , x_return_status out nocopy VARCHAR2
338: )
339:
340: as
341: ddp_tap_access_terrs_rec pv_tap_access_terrs_pvt.tap_access_terrs_rec_type;
342: ddindx binary_integer; indx binary_integer;
343: begin
344:
345: -- copy data to the local IN or IN-OUT args, if any
358:
359:
360:
361: -- here's the delegated call to the old PL/SQL routine
362: pv_tap_access_terrs_pvt.chk_tap_access_terrs_items(ddp_tap_access_terrs_rec,
363: p_validation_mode,
364: x_return_status);
365:
366: -- copy data back from the local variables to OUT or IN-OUT args, if any
387: , p5_a11 DATE
388: )
389:
390: as
391: ddp_tap_access_terrs_rec pv_tap_access_terrs_pvt.tap_access_terrs_rec_type;
392: ddindx binary_integer; indx binary_integer;
393: begin
394:
395: -- copy data to the local IN or IN-OUT args, if any
411: ddp_tap_access_terrs_rec.program_id := p5_a10;
412: ddp_tap_access_terrs_rec.program_update_date := p5_a11;
413:
414: -- here's the delegated call to the old PL/SQL routine
415: pv_tap_access_terrs_pvt.validate_tap_access_terrs_rec(p_api_version_number,
416: p_init_msg_list,
417: x_return_status,
418: x_msg_count,
419: x_msg_data,
426:
427:
428: end;
429:
430: end pv_tap_access_terrs_pvt_w;