1: package body okl_rsp_pvt_w as
2: /* $Header: OKLIRSPB.pls 120.0 2007/12/10 18:31:11 dcshanmu noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy okl_rsp_pvt.rps_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body okl_rsp_pvt_w as
2: /* $Header: OKLIRSPB.pls 120.0 2007/12/10 18:31:11 dcshanmu noship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy okl_rsp_pvt.rps_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_VARCHAR2_TABLE_100
7: , a4 JTF_NUMBER_TABLE
34: end loop;
35: end if;
36: end if;
37: end rosetta_table_copy_in_p2;
38: procedure rosetta_table_copy_out_p2(t okl_rsp_pvt.rps_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
39: , a1 out nocopy JTF_NUMBER_TABLE
40: , a2 out nocopy JTF_NUMBER_TABLE
41: , a3 out nocopy JTF_VARCHAR2_TABLE_100
42: , a4 out nocopy JTF_NUMBER_TABLE
124: , p6_a8 out nocopy NUMBER
125: )
126:
127: as
128: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
129: ddx_rps_rec okl_rsp_pvt.rps_rec_type;
130: ddindx binary_integer; indx binary_integer;
131: begin
132:
125: )
126:
127: as
128: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
129: ddx_rps_rec okl_rsp_pvt.rps_rec_type;
130: ddindx binary_integer; indx binary_integer;
131: begin
132:
133: -- copy data to the local IN or IN-OUT args, if any
147: ddp_rps_rec.last_update_login := p5_a8;
148:
149:
150: -- here's the delegated call to the old PL/SQL routine
151: okl_rsp_pvt.insert_row(p_api_version,
152: p_init_msg_list,
153: x_return_status,
154: x_msg_count,
155: x_msg_data,
206: , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
207: )
208:
209: as
210: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
211: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
212: ddpx_error_tbl okl_api.error_tbl_type;
213: ddindx binary_integer; indx binary_integer;
214: begin
207: )
208:
209: as
210: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
211: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
212: ddpx_error_tbl okl_api.error_tbl_type;
213: ddindx binary_integer; indx binary_integer;
214: begin
215:
218:
219:
220:
221:
222: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
223: , p5_a1
224: , p5_a2
225: , p5_a3
226: , p5_a4
240: , p7_a6
241: );
242:
243: -- here's the delegated call to the old PL/SQL routine
244: okl_rsp_pvt.insert_row(p_api_version,
245: p_init_msg_list,
246: x_return_status,
247: x_msg_count,
248: x_msg_data,
256:
257:
258:
259:
260: okl_rsp_pvt_w.rosetta_table_copy_out_p2(ddx_rps_tbl, p6_a0
261: , p6_a1
262: , p6_a2
263: , p6_a3
264: , p6_a4
303: , p6_a8 out nocopy JTF_NUMBER_TABLE
304: )
305:
306: as
307: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
308: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
309: ddindx binary_integer; indx binary_integer;
310: begin
311:
304: )
305:
306: as
307: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
308: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
309: ddindx binary_integer; indx binary_integer;
310: begin
311:
312: -- copy data to the local IN or IN-OUT args, if any
314:
315:
316:
317:
318: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
319: , p5_a1
320: , p5_a2
321: , p5_a3
322: , p5_a4
327: );
328:
329:
330: -- here's the delegated call to the old PL/SQL routine
331: okl_rsp_pvt.insert_row(p_api_version,
332: p_init_msg_list,
333: x_return_status,
334: x_msg_count,
335: x_msg_data,
342:
343:
344:
345:
346: okl_rsp_pvt_w.rosetta_table_copy_out_p2(ddx_rps_tbl, p6_a0
347: , p6_a1
348: , p6_a2
349: , p6_a3
350: , p6_a4
371: , p5_a8 NUMBER
372: )
373:
374: as
375: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
376: ddindx binary_integer; indx binary_integer;
377: begin
378:
379: -- copy data to the local IN or IN-OUT args, if any
392: ddp_rps_rec.last_update_date := p5_a7;
393: ddp_rps_rec.last_update_login := p5_a8;
394:
395: -- here's the delegated call to the old PL/SQL routine
396: okl_rsp_pvt.lock_row(p_api_version,
397: p_init_msg_list,
398: x_return_status,
399: x_msg_count,
400: x_msg_data,
431: , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
432: )
433:
434: as
435: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
436: ddpx_error_tbl okl_api.error_tbl_type;
437: ddindx binary_integer; indx binary_integer;
438: begin
439:
442:
443:
444:
445:
446: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
447: , p5_a1
448: , p5_a2
449: , p5_a3
450: , p5_a4
463: , p6_a6
464: );
465:
466: -- here's the delegated call to the old PL/SQL routine
467: okl_rsp_pvt.lock_row(p_api_version,
468: p_init_msg_list,
469: x_return_status,
470: x_msg_count,
471: x_msg_data,
505: , p5_a8 JTF_NUMBER_TABLE
506: )
507:
508: as
509: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
510: ddindx binary_integer; indx binary_integer;
511: begin
512:
513: -- copy data to the local IN or IN-OUT args, if any
515:
516:
517:
518:
519: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
520: , p5_a1
521: , p5_a2
522: , p5_a3
523: , p5_a4
527: , p5_a8
528: );
529:
530: -- here's the delegated call to the old PL/SQL routine
531: okl_rsp_pvt.lock_row(p_api_version,
532: p_init_msg_list,
533: x_return_status,
534: x_msg_count,
535: x_msg_data,
568: , p6_a8 out nocopy NUMBER
569: )
570:
571: as
572: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
573: ddx_rps_rec okl_rsp_pvt.rps_rec_type;
574: ddindx binary_integer; indx binary_integer;
575: begin
576:
569: )
570:
571: as
572: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
573: ddx_rps_rec okl_rsp_pvt.rps_rec_type;
574: ddindx binary_integer; indx binary_integer;
575: begin
576:
577: -- copy data to the local IN or IN-OUT args, if any
591: ddp_rps_rec.last_update_login := p5_a8;
592:
593:
594: -- here's the delegated call to the old PL/SQL routine
595: okl_rsp_pvt.update_row(p_api_version,
596: p_init_msg_list,
597: x_return_status,
598: x_msg_count,
599: x_msg_data,
650: , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
651: )
652:
653: as
654: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
655: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
656: ddpx_error_tbl okl_api.error_tbl_type;
657: ddindx binary_integer; indx binary_integer;
658: begin
651: )
652:
653: as
654: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
655: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
656: ddpx_error_tbl okl_api.error_tbl_type;
657: ddindx binary_integer; indx binary_integer;
658: begin
659:
662:
663:
664:
665:
666: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
667: , p5_a1
668: , p5_a2
669: , p5_a3
670: , p5_a4
684: , p7_a6
685: );
686:
687: -- here's the delegated call to the old PL/SQL routine
688: okl_rsp_pvt.update_row(p_api_version,
689: p_init_msg_list,
690: x_return_status,
691: x_msg_count,
692: x_msg_data,
700:
701:
702:
703:
704: okl_rsp_pvt_w.rosetta_table_copy_out_p2(ddx_rps_tbl, p6_a0
705: , p6_a1
706: , p6_a2
707: , p6_a3
708: , p6_a4
747: , p6_a8 out nocopy JTF_NUMBER_TABLE
748: )
749:
750: as
751: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
752: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
753: ddindx binary_integer; indx binary_integer;
754: begin
755:
748: )
749:
750: as
751: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
752: ddx_rps_tbl okl_rsp_pvt.rps_tbl_type;
753: ddindx binary_integer; indx binary_integer;
754: begin
755:
756: -- copy data to the local IN or IN-OUT args, if any
758:
759:
760:
761:
762: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
763: , p5_a1
764: , p5_a2
765: , p5_a3
766: , p5_a4
771: );
772:
773:
774: -- here's the delegated call to the old PL/SQL routine
775: okl_rsp_pvt.update_row(p_api_version,
776: p_init_msg_list,
777: x_return_status,
778: x_msg_count,
779: x_msg_data,
786:
787:
788:
789:
790: okl_rsp_pvt_w.rosetta_table_copy_out_p2(ddx_rps_tbl, p6_a0
791: , p6_a1
792: , p6_a2
793: , p6_a3
794: , p6_a4
815: , p5_a8 NUMBER
816: )
817:
818: as
819: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
820: ddindx binary_integer; indx binary_integer;
821: begin
822:
823: -- copy data to the local IN or IN-OUT args, if any
836: ddp_rps_rec.last_update_date := p5_a7;
837: ddp_rps_rec.last_update_login := p5_a8;
838:
839: -- here's the delegated call to the old PL/SQL routine
840: okl_rsp_pvt.delete_row(p_api_version,
841: p_init_msg_list,
842: x_return_status,
843: x_msg_count,
844: x_msg_data,
875: , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
876: )
877:
878: as
879: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
880: ddpx_error_tbl okl_api.error_tbl_type;
881: ddindx binary_integer; indx binary_integer;
882: begin
883:
886:
887:
888:
889:
890: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
891: , p5_a1
892: , p5_a2
893: , p5_a3
894: , p5_a4
907: , p6_a6
908: );
909:
910: -- here's the delegated call to the old PL/SQL routine
911: okl_rsp_pvt.delete_row(p_api_version,
912: p_init_msg_list,
913: x_return_status,
914: x_msg_count,
915: x_msg_data,
949: , p5_a8 JTF_NUMBER_TABLE
950: )
951:
952: as
953: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
954: ddindx binary_integer; indx binary_integer;
955: begin
956:
957: -- copy data to the local IN or IN-OUT args, if any
959:
960:
961:
962:
963: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
964: , p5_a1
965: , p5_a2
966: , p5_a3
967: , p5_a4
971: , p5_a8
972: );
973:
974: -- here's the delegated call to the old PL/SQL routine
975: okl_rsp_pvt.delete_row(p_api_version,
976: p_init_msg_list,
977: x_return_status,
978: x_msg_count,
979: x_msg_data,
1003: , p5_a8 NUMBER
1004: )
1005:
1006: as
1007: ddp_rps_rec okl_rsp_pvt.rps_rec_type;
1008: ddindx binary_integer; indx binary_integer;
1009: begin
1010:
1011: -- copy data to the local IN or IN-OUT args, if any
1024: ddp_rps_rec.last_update_date := p5_a7;
1025: ddp_rps_rec.last_update_login := p5_a8;
1026:
1027: -- here's the delegated call to the old PL/SQL routine
1028: okl_rsp_pvt.validate_row(p_api_version,
1029: p_init_msg_list,
1030: x_return_status,
1031: x_msg_count,
1032: x_msg_data,
1063: , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1064: )
1065:
1066: as
1067: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
1068: ddpx_error_tbl okl_api.error_tbl_type;
1069: ddindx binary_integer; indx binary_integer;
1070: begin
1071:
1074:
1075:
1076:
1077:
1078: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
1079: , p5_a1
1080: , p5_a2
1081: , p5_a3
1082: , p5_a4
1095: , p6_a6
1096: );
1097:
1098: -- here's the delegated call to the old PL/SQL routine
1099: okl_rsp_pvt.validate_row(p_api_version,
1100: p_init_msg_list,
1101: x_return_status,
1102: x_msg_count,
1103: x_msg_data,
1137: , p5_a8 JTF_NUMBER_TABLE
1138: )
1139:
1140: as
1141: ddp_rps_tbl okl_rsp_pvt.rps_tbl_type;
1142: ddindx binary_integer; indx binary_integer;
1143: begin
1144:
1145: -- copy data to the local IN or IN-OUT args, if any
1147:
1148:
1149:
1150:
1151: okl_rsp_pvt_w.rosetta_table_copy_in_p2(ddp_rps_tbl, p5_a0
1152: , p5_a1
1153: , p5_a2
1154: , p5_a3
1155: , p5_a4
1159: , p5_a8
1160: );
1161:
1162: -- here's the delegated call to the old PL/SQL routine
1163: okl_rsp_pvt.validate_row(p_api_version,
1164: p_init_msg_list,
1165: x_return_status,
1166: x_msg_count,
1167: x_msg_data,
1174:
1175:
1176: end;
1177:
1178: end okl_rsp_pvt_w;