1: package body okl_eto_pvt_w as
2: /* $Header: OKLIETOB.pls 120.0 2005/07/07 10:38:40 viselvar noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_eto_pvt.okl_eto_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body okl_eto_pvt_w as
2: /* $Header: OKLIETOB.pls 120.0 2005/07/07 10:38:40 viselvar noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_eto_pvt.okl_eto_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_NUMBER_TABLE
74: end loop;
75: end if;
76: end if;
77: end rosetta_table_copy_in_p1;
78: procedure rosetta_table_copy_out_p1(t okl_eto_pvt.okl_eto_tbl, a0 out nocopy JTF_NUMBER_TABLE
79: , a1 out nocopy JTF_NUMBER_TABLE
80: , a2 out nocopy JTF_NUMBER_TABLE
81: , a3 out nocopy JTF_NUMBER_TABLE
82: , a4 out nocopy JTF_NUMBER_TABLE
304: , p6_a28 out nocopy NUMBER
305: )
306:
307: as
308: ddp_eto_rec okl_eto_pvt.okl_eto_rec;
309: ddx_eto_rec okl_eto_pvt.okl_eto_rec;
310: ddindx binary_integer; indx binary_integer;
311: begin
312:
305: )
306:
307: as
308: ddp_eto_rec okl_eto_pvt.okl_eto_rec;
309: ddx_eto_rec okl_eto_pvt.okl_eto_rec;
310: ddindx binary_integer; indx binary_integer;
311: begin
312:
313: -- copy data to the local IN or IN-OUT args, if any
347: ddp_eto_rec.last_update_login := p5_a28;
348:
349:
350: -- here's the delegated call to the old PL/SQL routine
351: okl_eto_pvt.insert_row(p_api_version,
352: p_init_msg_list,
353: x_return_status,
354: x_msg_count,
355: x_msg_data,
459: , p6_a28 out nocopy JTF_NUMBER_TABLE
460: )
461:
462: as
463: ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
464: ddx_eto_tbl okl_eto_pvt.okl_eto_tbl;
465: ddindx binary_integer; indx binary_integer;
466: begin
467:
460: )
461:
462: as
463: ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
464: ddx_eto_tbl okl_eto_pvt.okl_eto_tbl;
465: ddindx binary_integer; indx binary_integer;
466: begin
467:
468: -- copy data to the local IN or IN-OUT args, if any
470:
471:
472:
473:
474: okl_eto_pvt_w.rosetta_table_copy_in_p1(ddp_eto_tbl, p5_a0
475: , p5_a1
476: , p5_a2
477: , p5_a3
478: , p5_a4
503: );
504:
505:
506: -- here's the delegated call to the old PL/SQL routine
507: okl_eto_pvt.insert_row(p_api_version,
508: p_init_msg_list,
509: x_return_status,
510: x_msg_count,
511: x_msg_data,
518:
519:
520:
521:
522: okl_eto_pvt_w.rosetta_table_copy_out_p1(ddx_eto_tbl, p6_a0
523: , p6_a1
524: , p6_a2
525: , p6_a3
526: , p6_a4
616: , p6_a28 out nocopy NUMBER
617: )
618:
619: as
620: ddp_eto_rec okl_eto_pvt.okl_eto_rec;
621: ddx_eto_rec okl_eto_pvt.okl_eto_rec;
622: ddindx binary_integer; indx binary_integer;
623: begin
624:
617: )
618:
619: as
620: ddp_eto_rec okl_eto_pvt.okl_eto_rec;
621: ddx_eto_rec okl_eto_pvt.okl_eto_rec;
622: ddindx binary_integer; indx binary_integer;
623: begin
624:
625: -- copy data to the local IN or IN-OUT args, if any
659: ddp_eto_rec.last_update_login := p5_a28;
660:
661:
662: -- here's the delegated call to the old PL/SQL routine
663: okl_eto_pvt.update_row(p_api_version,
664: p_init_msg_list,
665: x_return_status,
666: x_msg_count,
667: x_msg_data,
771: , p6_a28 out nocopy JTF_NUMBER_TABLE
772: )
773:
774: as
775: ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
776: ddx_eto_tbl okl_eto_pvt.okl_eto_tbl;
777: ddindx binary_integer; indx binary_integer;
778: begin
779:
772: )
773:
774: as
775: ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
776: ddx_eto_tbl okl_eto_pvt.okl_eto_tbl;
777: ddindx binary_integer; indx binary_integer;
778: begin
779:
780: -- copy data to the local IN or IN-OUT args, if any
782:
783:
784:
785:
786: okl_eto_pvt_w.rosetta_table_copy_in_p1(ddp_eto_tbl, p5_a0
787: , p5_a1
788: , p5_a2
789: , p5_a3
790: , p5_a4
815: );
816:
817:
818: -- here's the delegated call to the old PL/SQL routine
819: okl_eto_pvt.update_row(p_api_version,
820: p_init_msg_list,
821: x_return_status,
822: x_msg_count,
823: x_msg_data,
830:
831:
832:
833:
834: okl_eto_pvt_w.rosetta_table_copy_out_p1(ddx_eto_tbl, p6_a0
835: , p6_a1
836: , p6_a2
837: , p6_a3
838: , p6_a4
899: , p5_a28 NUMBER
900: )
901:
902: as
903: ddp_eto_rec okl_eto_pvt.okl_eto_rec;
904: ddindx binary_integer; indx binary_integer;
905: begin
906:
907: -- copy data to the local IN or IN-OUT args, if any
940: ddp_eto_rec.last_update_date := p5_a27;
941: ddp_eto_rec.last_update_login := p5_a28;
942:
943: -- here's the delegated call to the old PL/SQL routine
944: okl_eto_pvt.delete_row(p_api_version,
945: p_init_msg_list,
946: x_return_status,
947: x_msg_count,
948: x_msg_data,
992: , p5_a28 JTF_NUMBER_TABLE
993: )
994:
995: as
996: ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
997: ddindx binary_integer; indx binary_integer;
998: begin
999:
1000: -- copy data to the local IN or IN-OUT args, if any
1002:
1003:
1004:
1005:
1006: okl_eto_pvt_w.rosetta_table_copy_in_p1(ddp_eto_tbl, p5_a0
1007: , p5_a1
1008: , p5_a2
1009: , p5_a3
1010: , p5_a4
1034: , p5_a28
1035: );
1036:
1037: -- here's the delegated call to the old PL/SQL routine
1038: okl_eto_pvt.delete_row(p_api_version,
1039: p_init_msg_list,
1040: x_return_status,
1041: x_msg_count,
1042: x_msg_data,
1049:
1050:
1051: end;
1052:
1053: end okl_eto_pvt_w;