1: package body okl_lav_pvt_w as
2: /* $Header: OKLILAVB.pls 120.0 2005/09/16 11:40:08 pagarg noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_lav_pvt.lavv_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_lav_pvt_w as
2: /* $Header: OKLILAVB.pls 120.0 2005/09/16 11:40:08 pagarg noship $ */
3: procedure rosetta_table_copy_in_p23(t out nocopy okl_lav_pvt.lavv_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
68: end loop;
69: end if;
70: end if;
71: end rosetta_table_copy_in_p23;
72: procedure rosetta_table_copy_out_p23(t okl_lav_pvt.lavv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
73: , a1 out nocopy JTF_NUMBER_TABLE
74: , a2 out nocopy JTF_VARCHAR2_TABLE_100
75: , a3 out nocopy JTF_VARCHAR2_TABLE_500
76: , a4 out nocopy JTF_VARCHAR2_TABLE_500
277: , p6_a25 out nocopy JTF_VARCHAR2_TABLE_300
278: )
279:
280: as
281: ddp_lavv_tbl okl_lav_pvt.lavv_tbl_type;
282: ddx_lavv_tbl okl_lav_pvt.lavv_tbl_type;
283: ddindx binary_integer; indx binary_integer;
284: begin
285:
278: )
279:
280: as
281: ddp_lavv_tbl okl_lav_pvt.lavv_tbl_type;
282: ddx_lavv_tbl okl_lav_pvt.lavv_tbl_type;
283: ddindx binary_integer; indx binary_integer;
284: begin
285:
286: -- copy data to the local IN or IN-OUT args, if any
288:
289:
290:
291:
292: okl_lav_pvt_w.rosetta_table_copy_in_p23(ddp_lavv_tbl, p5_a0
293: , p5_a1
294: , p5_a2
295: , p5_a3
296: , p5_a4
318: );
319:
320:
321: -- here's the delegated call to the old PL/SQL routine
322: okl_lav_pvt.insert_row(p_api_version,
323: p_init_msg_list,
324: x_return_status,
325: x_msg_count,
326: x_msg_data,
333:
334:
335:
336:
337: okl_lav_pvt_w.rosetta_table_copy_out_p23(ddx_lavv_tbl, p6_a0
338: , p6_a1
339: , p6_a2
340: , p6_a3
341: , p6_a4
422: , p6_a25 out nocopy JTF_VARCHAR2_TABLE_300
423: )
424:
425: as
426: ddp_lavv_tbl okl_lav_pvt.lavv_tbl_type;
427: ddx_lavv_tbl okl_lav_pvt.lavv_tbl_type;
428: ddindx binary_integer; indx binary_integer;
429: begin
430:
423: )
424:
425: as
426: ddp_lavv_tbl okl_lav_pvt.lavv_tbl_type;
427: ddx_lavv_tbl okl_lav_pvt.lavv_tbl_type;
428: ddindx binary_integer; indx binary_integer;
429: begin
430:
431: -- copy data to the local IN or IN-OUT args, if any
433:
434:
435:
436:
437: okl_lav_pvt_w.rosetta_table_copy_in_p23(ddp_lavv_tbl, p5_a0
438: , p5_a1
439: , p5_a2
440: , p5_a3
441: , p5_a4
463: );
464:
465:
466: -- here's the delegated call to the old PL/SQL routine
467: okl_lav_pvt.update_row(p_api_version,
468: p_init_msg_list,
469: x_return_status,
470: x_msg_count,
471: x_msg_data,
478:
479:
480:
481:
482: okl_lav_pvt_w.rosetta_table_copy_out_p23(ddx_lavv_tbl, p6_a0
483: , p6_a1
484: , p6_a2
485: , p6_a3
486: , p6_a4
541: , p5_a25 JTF_VARCHAR2_TABLE_300
542: )
543:
544: as
545: ddp_lavv_tbl okl_lav_pvt.lavv_tbl_type;
546: ddindx binary_integer; indx binary_integer;
547: begin
548:
549: -- copy data to the local IN or IN-OUT args, if any
551:
552:
553:
554:
555: okl_lav_pvt_w.rosetta_table_copy_in_p23(ddp_lavv_tbl, p5_a0
556: , p5_a1
557: , p5_a2
558: , p5_a3
559: , p5_a4
580: , p5_a25
581: );
582:
583: -- here's the delegated call to the old PL/SQL routine
584: okl_lav_pvt.delete_row(p_api_version,
585: p_init_msg_list,
586: x_return_status,
587: x_msg_count,
588: x_msg_data,
655: , p6_a25 out nocopy VARCHAR2
656: )
657:
658: as
659: ddp_lavv_rec okl_lav_pvt.lavv_rec_type;
660: ddx_lavv_rec okl_lav_pvt.lavv_rec_type;
661: ddindx binary_integer; indx binary_integer;
662: begin
663:
656: )
657:
658: as
659: ddp_lavv_rec okl_lav_pvt.lavv_rec_type;
660: ddx_lavv_rec okl_lav_pvt.lavv_rec_type;
661: ddindx binary_integer; indx binary_integer;
662: begin
663:
664: -- copy data to the local IN or IN-OUT args, if any
695: ddp_lavv_rec.short_description := p5_a25;
696:
697:
698: -- here's the delegated call to the old PL/SQL routine
699: okl_lav_pvt.insert_row(p_api_version,
700: p_init_msg_list,
701: x_return_status,
702: x_msg_count,
703: x_msg_data,
798: , p6_a25 out nocopy VARCHAR2
799: )
800:
801: as
802: ddp_lavv_rec okl_lav_pvt.lavv_rec_type;
803: ddx_lavv_rec okl_lav_pvt.lavv_rec_type;
804: ddindx binary_integer; indx binary_integer;
805: begin
806:
799: )
800:
801: as
802: ddp_lavv_rec okl_lav_pvt.lavv_rec_type;
803: ddx_lavv_rec okl_lav_pvt.lavv_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
838: ddp_lavv_rec.short_description := p5_a25;
839:
840:
841: -- here's the delegated call to the old PL/SQL routine
842: okl_lav_pvt.update_row(p_api_version,
843: p_init_msg_list,
844: x_return_status,
845: x_msg_count,
846: x_msg_data,
915: , p5_a25 VARCHAR2
916: )
917:
918: as
919: ddp_lavv_rec okl_lav_pvt.lavv_rec_type;
920: ddindx binary_integer; indx binary_integer;
921: begin
922:
923: -- copy data to the local IN or IN-OUT args, if any
953: ddp_lavv_rec.contract_template_id := p5_a24;
954: ddp_lavv_rec.short_description := p5_a25;
955:
956: -- here's the delegated call to the old PL/SQL routine
957: okl_lav_pvt.delete_row(p_api_version,
958: p_init_msg_list,
959: x_return_status,
960: x_msg_count,
961: x_msg_data,
968:
969:
970: end;
971:
972: end okl_lav_pvt_w;