1: package body okl_vld_pvt_w as
2: /* $Header: OKLIVLDB.pls 120.0 2005/09/20 12:39:04 ssdeshpa noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_vld_pvt.vldv_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_vld_pvt_w as
2: /* $Header: OKLIVLDB.pls 120.0 2005/09/20 12:39:04 ssdeshpa noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_vld_pvt.vldv_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_VARCHAR2_TABLE_500
7: , a4 JTF_VARCHAR2_TABLE_500
64: end loop;
65: end if;
66: end if;
67: end rosetta_table_copy_in_p23;
68: procedure rosetta_table_copy_out_p23(t okl_vld_pvt.vldv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
69: , a1 out nocopy JTF_NUMBER_TABLE
70: , a2 out nocopy JTF_VARCHAR2_TABLE_100
71: , a3 out nocopy JTF_VARCHAR2_TABLE_500
72: , a4 out nocopy JTF_VARCHAR2_TABLE_500
259: , p6_a23 out nocopy JTF_VARCHAR2_TABLE_2000
260: )
261:
262: as
263: ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
264: ddx_vldv_tbl okl_vld_pvt.vldv_tbl_type;
265: ddindx binary_integer; indx binary_integer;
266: begin
267:
260: )
261:
262: as
263: ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
264: ddx_vldv_tbl okl_vld_pvt.vldv_tbl_type;
265: ddindx binary_integer; indx binary_integer;
266: begin
267:
268: -- copy data to the local IN or IN-OUT args, if any
270:
271:
272:
273:
274: okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p5_a0
275: , p5_a1
276: , p5_a2
277: , p5_a3
278: , p5_a4
298: );
299:
300:
301: -- here's the delegated call to the old PL/SQL routine
302: okl_vld_pvt.insert_row(p_api_version,
303: p_init_msg_list,
304: x_return_status,
305: x_msg_count,
306: x_msg_data,
313:
314:
315:
316:
317: okl_vld_pvt_w.rosetta_table_copy_out_p23(ddx_vldv_tbl, p6_a0
318: , p6_a1
319: , p6_a2
320: , p6_a3
321: , p6_a4
396: , p6_a23 out nocopy JTF_VARCHAR2_TABLE_2000
397: )
398:
399: as
400: ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
401: ddx_vldv_tbl okl_vld_pvt.vldv_tbl_type;
402: ddindx binary_integer; indx binary_integer;
403: begin
404:
397: )
398:
399: as
400: ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
401: ddx_vldv_tbl okl_vld_pvt.vldv_tbl_type;
402: ddindx binary_integer; indx binary_integer;
403: begin
404:
405: -- copy data to the local IN or IN-OUT args, if any
407:
408:
409:
410:
411: okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p5_a0
412: , p5_a1
413: , p5_a2
414: , p5_a3
415: , p5_a4
435: );
436:
437:
438: -- here's the delegated call to the old PL/SQL routine
439: okl_vld_pvt.update_row(p_api_version,
440: p_init_msg_list,
441: x_return_status,
442: x_msg_count,
443: x_msg_data,
450:
451:
452:
453:
454: okl_vld_pvt_w.rosetta_table_copy_out_p23(ddx_vldv_tbl, p6_a0
455: , p6_a1
456: , p6_a2
457: , p6_a3
458: , p6_a4
509: , p5_a23 JTF_VARCHAR2_TABLE_2000
510: )
511:
512: as
513: ddp_vldv_tbl okl_vld_pvt.vldv_tbl_type;
514: ddindx binary_integer; indx binary_integer;
515: begin
516:
517: -- copy data to the local IN or IN-OUT args, if any
519:
520:
521:
522:
523: okl_vld_pvt_w.rosetta_table_copy_in_p23(ddp_vldv_tbl, p5_a0
524: , p5_a1
525: , p5_a2
526: , p5_a3
527: , p5_a4
546: , p5_a23
547: );
548:
549: -- here's the delegated call to the old PL/SQL routine
550: okl_vld_pvt.delete_row(p_api_version,
551: p_init_msg_list,
552: x_return_status,
553: x_msg_count,
554: x_msg_data,
617: , p6_a23 out nocopy VARCHAR2
618: )
619:
620: as
621: ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
622: ddx_vldv_rec okl_vld_pvt.vldv_rec_type;
623: ddindx binary_integer; indx binary_integer;
624: begin
625:
618: )
619:
620: as
621: ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
622: ddx_vldv_rec okl_vld_pvt.vldv_rec_type;
623: ddindx binary_integer; indx binary_integer;
624: begin
625:
626: -- copy data to the local IN or IN-OUT args, if any
655: ddp_vldv_rec.comments := p5_a23;
656:
657:
658: -- here's the delegated call to the old PL/SQL routine
659: okl_vld_pvt.insert_row(p_api_version,
660: p_init_msg_list,
661: x_return_status,
662: x_msg_count,
663: x_msg_data,
752: , p6_a23 out nocopy VARCHAR2
753: )
754:
755: as
756: ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
757: ddx_vldv_rec okl_vld_pvt.vldv_rec_type;
758: ddindx binary_integer; indx binary_integer;
759: begin
760:
753: )
754:
755: as
756: ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
757: ddx_vldv_rec okl_vld_pvt.vldv_rec_type;
758: ddindx binary_integer; indx binary_integer;
759: begin
760:
761: -- copy data to the local IN or IN-OUT args, if any
790: ddp_vldv_rec.comments := p5_a23;
791:
792:
793: -- here's the delegated call to the old PL/SQL routine
794: okl_vld_pvt.update_row(p_api_version,
795: p_init_msg_list,
796: x_return_status,
797: x_msg_count,
798: x_msg_data,
863: , p5_a23 VARCHAR2
864: )
865:
866: as
867: ddp_vldv_rec okl_vld_pvt.vldv_rec_type;
868: ddindx binary_integer; indx binary_integer;
869: begin
870:
871: -- copy data to the local IN or IN-OUT args, if any
899: ddp_vldv_rec.description := p5_a22;
900: ddp_vldv_rec.comments := p5_a23;
901:
902: -- here's the delegated call to the old PL/SQL routine
903: okl_vld_pvt.delete_row(p_api_version,
904: p_init_msg_list,
905: x_return_status,
906: x_msg_count,
907: x_msg_data,
914:
915:
916: end;
917:
918: end okl_vld_pvt_w;