1: package body okl_srv_pvt_w as
2: /* $Header: OKLISRVB.pls 120.0 2005/07/07 10:40:54 viselvar noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_srv_pvt.okl_srv_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
1: package body okl_srv_pvt_w as
2: /* $Header: OKLISRVB.pls 120.0 2005/07/07 10:40:54 viselvar noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_srv_pvt.okl_srv_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_DATE_TABLE
84: end loop;
85: end if;
86: end if;
87: end rosetta_table_copy_in_p1;
88: procedure rosetta_table_copy_out_p1(t okl_srv_pvt.okl_srv_tbl, a0 out nocopy JTF_NUMBER_TABLE
89: , a1 out nocopy JTF_NUMBER_TABLE
90: , a2 out nocopy JTF_VARCHAR2_TABLE_100
91: , a3 out nocopy JTF_NUMBER_TABLE
92: , a4 out nocopy JTF_DATE_TABLE
349: , p6_a33 out nocopy NUMBER
350: )
351:
352: as
353: ddp_srv_rec okl_srv_pvt.okl_srv_rec;
354: ddx_srv_rec okl_srv_pvt.okl_srv_rec;
355: ddindx binary_integer; indx binary_integer;
356: begin
357:
350: )
351:
352: as
353: ddp_srv_rec okl_srv_pvt.okl_srv_rec;
354: ddx_srv_rec okl_srv_pvt.okl_srv_rec;
355: ddindx binary_integer; indx binary_integer;
356: begin
357:
358: -- copy data to the local IN or IN-OUT args, if any
397: ddp_srv_rec.last_update_login := p5_a33;
398:
399:
400: -- here's the delegated call to the old PL/SQL routine
401: okl_srv_pvt.insert_row(p_api_version,
402: p_init_msg_list,
403: x_return_status,
404: x_msg_count,
405: x_msg_data,
524: , p6_a33 out nocopy JTF_NUMBER_TABLE
525: )
526:
527: as
528: ddp_srv_tbl okl_srv_pvt.okl_srv_tbl;
529: ddx_srv_tbl okl_srv_pvt.okl_srv_tbl;
530: ddindx binary_integer; indx binary_integer;
531: begin
532:
525: )
526:
527: as
528: ddp_srv_tbl okl_srv_pvt.okl_srv_tbl;
529: ddx_srv_tbl okl_srv_pvt.okl_srv_tbl;
530: ddindx binary_integer; indx binary_integer;
531: begin
532:
533: -- copy data to the local IN or IN-OUT args, if any
535:
536:
537:
538:
539: okl_srv_pvt_w.rosetta_table_copy_in_p1(ddp_srv_tbl, p5_a0
540: , p5_a1
541: , p5_a2
542: , p5_a3
543: , p5_a4
573: );
574:
575:
576: -- here's the delegated call to the old PL/SQL routine
577: okl_srv_pvt.insert_row(p_api_version,
578: p_init_msg_list,
579: x_return_status,
580: x_msg_count,
581: x_msg_data,
588:
589:
590:
591:
592: okl_srv_pvt_w.rosetta_table_copy_out_p1(ddx_srv_tbl, p6_a0
593: , p6_a1
594: , p6_a2
595: , p6_a3
596: , p6_a4
701: , p6_a33 out nocopy NUMBER
702: )
703:
704: as
705: ddp_srv_rec okl_srv_pvt.okl_srv_rec;
706: ddx_srv_rec okl_srv_pvt.okl_srv_rec;
707: ddindx binary_integer; indx binary_integer;
708: begin
709:
702: )
703:
704: as
705: ddp_srv_rec okl_srv_pvt.okl_srv_rec;
706: ddx_srv_rec okl_srv_pvt.okl_srv_rec;
707: ddindx binary_integer; indx binary_integer;
708: begin
709:
710: -- copy data to the local IN or IN-OUT args, if any
749: ddp_srv_rec.last_update_login := p5_a33;
750:
751:
752: -- here's the delegated call to the old PL/SQL routine
753: okl_srv_pvt.update_row(p_api_version,
754: p_init_msg_list,
755: x_return_status,
756: x_msg_count,
757: x_msg_data,
876: , p6_a33 out nocopy JTF_NUMBER_TABLE
877: )
878:
879: as
880: ddp_srv_tbl okl_srv_pvt.okl_srv_tbl;
881: ddx_srv_tbl okl_srv_pvt.okl_srv_tbl;
882: ddindx binary_integer; indx binary_integer;
883: begin
884:
877: )
878:
879: as
880: ddp_srv_tbl okl_srv_pvt.okl_srv_tbl;
881: ddx_srv_tbl okl_srv_pvt.okl_srv_tbl;
882: ddindx binary_integer; indx binary_integer;
883: begin
884:
885: -- copy data to the local IN or IN-OUT args, if any
887:
888:
889:
890:
891: okl_srv_pvt_w.rosetta_table_copy_in_p1(ddp_srv_tbl, p5_a0
892: , p5_a1
893: , p5_a2
894: , p5_a3
895: , p5_a4
925: );
926:
927:
928: -- here's the delegated call to the old PL/SQL routine
929: okl_srv_pvt.update_row(p_api_version,
930: p_init_msg_list,
931: x_return_status,
932: x_msg_count,
933: x_msg_data,
940:
941:
942:
943:
944: okl_srv_pvt_w.rosetta_table_copy_out_p1(ddx_srv_tbl, p6_a0
945: , p6_a1
946: , p6_a2
947: , p6_a3
948: , p6_a4
1019: , p5_a33 NUMBER
1020: )
1021:
1022: as
1023: ddp_srv_rec okl_srv_pvt.okl_srv_rec;
1024: ddindx binary_integer; indx binary_integer;
1025: begin
1026:
1027: -- copy data to the local IN or IN-OUT args, if any
1065: ddp_srv_rec.last_update_date := p5_a32;
1066: ddp_srv_rec.last_update_login := p5_a33;
1067:
1068: -- here's the delegated call to the old PL/SQL routine
1069: okl_srv_pvt.delete_row(p_api_version,
1070: p_init_msg_list,
1071: x_return_status,
1072: x_msg_count,
1073: x_msg_data,
1122: , p5_a33 JTF_NUMBER_TABLE
1123: )
1124:
1125: as
1126: ddp_srv_tbl okl_srv_pvt.okl_srv_tbl;
1127: ddindx binary_integer; indx binary_integer;
1128: begin
1129:
1130: -- copy data to the local IN or IN-OUT args, if any
1132:
1133:
1134:
1135:
1136: okl_srv_pvt_w.rosetta_table_copy_in_p1(ddp_srv_tbl, p5_a0
1137: , p5_a1
1138: , p5_a2
1139: , p5_a3
1140: , p5_a4
1169: , p5_a33
1170: );
1171:
1172: -- here's the delegated call to the old PL/SQL routine
1173: okl_srv_pvt.delete_row(p_api_version,
1174: p_init_msg_list,
1175: x_return_status,
1176: x_msg_count,
1177: x_msg_data,
1184:
1185:
1186: end;
1187:
1188: end okl_srv_pvt_w;