1: package body okl_qls_pvt_w as
2: /* $Header: OKLIQLSB.pls 120.2 2005/07/18 15:54:56 viselvar noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy okl_qls_pvt.qlsv_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_NUMBER_TABLE
57: end loop;
58: end if;
59: end if;
60: end rosetta_table_copy_in_p2;
61: procedure rosetta_table_copy_out_p2(t okl_qls_pvt.qlsv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
62: , a1 out nocopy JTF_VARCHAR2_TABLE_100
63: , a2 out nocopy JTF_NUMBER_TABLE
64: , a3 out nocopy JTF_VARCHAR2_TABLE_100
65: , a4 out nocopy JTF_NUMBER_TABLE
131: end if;
132: end if;
133: end rosetta_table_copy_out_p2;
134:
135: procedure rosetta_table_copy_in_p5(t out nocopy okl_qls_pvt.qls_tbl_type, a0 JTF_NUMBER_TABLE
136: , a1 JTF_VARCHAR2_TABLE_100
137: , a2 JTF_NUMBER_TABLE
138: , a3 JTF_VARCHAR2_TABLE_100
139: , a4 JTF_NUMBER_TABLE
170: end loop;
171: end if;
172: end if;
173: end rosetta_table_copy_in_p5;
174: procedure rosetta_table_copy_out_p5(t okl_qls_pvt.qls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
175: , a1 out nocopy JTF_VARCHAR2_TABLE_100
176: , a2 out nocopy JTF_NUMBER_TABLE
177: , a3 out nocopy JTF_VARCHAR2_TABLE_100
178: , a4 out nocopy JTF_NUMBER_TABLE
274: , p5_a10 NUMBER := 0-1962.0724
275: )
276:
277: as
278: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
279: ddx_qlsv_rec okl_qls_pvt.qlsv_rec_type;
280: ddindx binary_integer; indx binary_integer;
281: begin
282:
275: )
276:
277: as
278: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
279: ddx_qlsv_rec okl_qls_pvt.qlsv_rec_type;
280: ddindx binary_integer; indx binary_integer;
281: begin
282:
283: -- copy data to the local IN or IN-OUT args, if any
299: ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
300:
301:
302: -- here's the delegated call to the old PL/SQL routine
303: okl_qls_pvt.insert_row(p_api_version,
304: p_init_msg_list,
305: x_return_status,
306: x_msg_count,
307: x_msg_data,
364: , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
365: )
366:
367: as
368: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
369: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
370: ddpx_error_tbl okl_api.error_tbl_type;
371: ddindx binary_integer; indx binary_integer;
372: begin
365: )
366:
367: as
368: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
369: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
370: ddpx_error_tbl okl_api.error_tbl_type;
371: ddindx binary_integer; indx binary_integer;
372: begin
373:
376:
377:
378:
379:
380: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
381: , p5_a1
382: , p5_a2
383: , p5_a3
384: , p5_a4
400: , p7_a6
401: );
402:
403: -- here's the delegated call to the old PL/SQL routine
404: okl_qls_pvt.insert_row(p_api_version,
405: p_init_msg_list,
406: x_return_status,
407: x_msg_count,
408: x_msg_data,
416:
417:
418:
419:
420: okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
421: , p6_a1
422: , p6_a2
423: , p6_a3
424: , p6_a4
469: , p6_a10 out nocopy JTF_NUMBER_TABLE
470: )
471:
472: as
473: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
474: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
475: ddindx binary_integer; indx binary_integer;
476: begin
477:
470: )
471:
472: as
473: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
474: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
475: ddindx binary_integer; indx binary_integer;
476: begin
477:
478: -- copy data to the local IN or IN-OUT args, if any
480:
481:
482:
483:
484: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
485: , p5_a1
486: , p5_a2
487: , p5_a3
488: , p5_a4
495: );
496:
497:
498: -- here's the delegated call to the old PL/SQL routine
499: okl_qls_pvt.insert_row(p_api_version,
500: p_init_msg_list,
501: x_return_status,
502: x_msg_count,
503: x_msg_data,
510:
511:
512:
513:
514: okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
515: , p6_a1
516: , p6_a2
517: , p6_a3
518: , p6_a4
543: , p5_a10 NUMBER := 0-1962.0724
544: )
545:
546: as
547: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
548: ddindx binary_integer; indx binary_integer;
549: begin
550:
551: -- copy data to the local IN or IN-OUT args, if any
566: ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
567: ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
568:
569: -- here's the delegated call to the old PL/SQL routine
570: okl_qls_pvt.lock_row(p_api_version,
571: p_init_msg_list,
572: x_return_status,
573: x_msg_count,
574: x_msg_data,
607: , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
608: )
609:
610: as
611: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
612: ddpx_error_tbl okl_api.error_tbl_type;
613: ddindx binary_integer; indx binary_integer;
614: begin
615:
618:
619:
620:
621:
622: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
623: , p5_a1
624: , p5_a2
625: , p5_a3
626: , p5_a4
641: , p6_a6
642: );
643:
644: -- here's the delegated call to the old PL/SQL routine
645: okl_qls_pvt.lock_row(p_api_version,
646: p_init_msg_list,
647: x_return_status,
648: x_msg_count,
649: x_msg_data,
685: , p5_a10 JTF_NUMBER_TABLE
686: )
687:
688: as
689: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
690: ddindx binary_integer; indx binary_integer;
691: begin
692:
693: -- copy data to the local IN or IN-OUT args, if any
695:
696:
697:
698:
699: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
700: , p5_a1
701: , p5_a2
702: , p5_a3
703: , p5_a4
709: , p5_a10
710: );
711:
712: -- here's the delegated call to the old PL/SQL routine
713: okl_qls_pvt.lock_row(p_api_version,
714: p_init_msg_list,
715: x_return_status,
716: x_msg_count,
717: x_msg_data,
754: , p5_a10 NUMBER := 0-1962.0724
755: )
756:
757: as
758: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
759: ddx_qlsv_rec okl_qls_pvt.qlsv_rec_type;
760: ddindx binary_integer; indx binary_integer;
761: begin
762:
755: )
756:
757: as
758: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
759: ddx_qlsv_rec okl_qls_pvt.qlsv_rec_type;
760: ddindx binary_integer; indx binary_integer;
761: begin
762:
763: -- copy data to the local IN or IN-OUT args, if any
779: ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
780:
781:
782: -- here's the delegated call to the old PL/SQL routine
783: okl_qls_pvt.update_row(p_api_version,
784: p_init_msg_list,
785: x_return_status,
786: x_msg_count,
787: x_msg_data,
844: , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
845: )
846:
847: as
848: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
849: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
850: ddpx_error_tbl okl_api.error_tbl_type;
851: ddindx binary_integer; indx binary_integer;
852: begin
845: )
846:
847: as
848: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
849: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
850: ddpx_error_tbl okl_api.error_tbl_type;
851: ddindx binary_integer; indx binary_integer;
852: begin
853:
856:
857:
858:
859:
860: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
861: , p5_a1
862: , p5_a2
863: , p5_a3
864: , p5_a4
880: , p7_a6
881: );
882:
883: -- here's the delegated call to the old PL/SQL routine
884: okl_qls_pvt.update_row(p_api_version,
885: p_init_msg_list,
886: x_return_status,
887: x_msg_count,
888: x_msg_data,
896:
897:
898:
899:
900: okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
901: , p6_a1
902: , p6_a2
903: , p6_a3
904: , p6_a4
949: , p6_a10 out nocopy JTF_NUMBER_TABLE
950: )
951:
952: as
953: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
954: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
955: ddindx binary_integer; indx binary_integer;
956: begin
957:
950: )
951:
952: as
953: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
954: ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
955: ddindx binary_integer; indx binary_integer;
956: begin
957:
958: -- copy data to the local IN or IN-OUT args, if any
960:
961:
962:
963:
964: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
965: , p5_a1
966: , p5_a2
967: , p5_a3
968: , p5_a4
975: );
976:
977:
978: -- here's the delegated call to the old PL/SQL routine
979: okl_qls_pvt.update_row(p_api_version,
980: p_init_msg_list,
981: x_return_status,
982: x_msg_count,
983: x_msg_data,
990:
991:
992:
993:
994: okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
995: , p6_a1
996: , p6_a2
997: , p6_a3
998: , p6_a4
1023: , p5_a10 NUMBER := 0-1962.0724
1024: )
1025:
1026: as
1027: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
1028: ddindx binary_integer; indx binary_integer;
1029: begin
1030:
1031: -- copy data to the local IN or IN-OUT args, if any
1046: ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1047: ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1048:
1049: -- here's the delegated call to the old PL/SQL routine
1050: okl_qls_pvt.delete_row(p_api_version,
1051: p_init_msg_list,
1052: x_return_status,
1053: x_msg_count,
1054: x_msg_data,
1087: , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1088: )
1089:
1090: as
1091: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1092: ddpx_error_tbl okl_api.error_tbl_type;
1093: ddindx binary_integer; indx binary_integer;
1094: begin
1095:
1098:
1099:
1100:
1101:
1102: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1103: , p5_a1
1104: , p5_a2
1105: , p5_a3
1106: , p5_a4
1121: , p6_a6
1122: );
1123:
1124: -- here's the delegated call to the old PL/SQL routine
1125: okl_qls_pvt.delete_row(p_api_version,
1126: p_init_msg_list,
1127: x_return_status,
1128: x_msg_count,
1129: x_msg_data,
1165: , p5_a10 JTF_NUMBER_TABLE
1166: )
1167:
1168: as
1169: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1170: ddindx binary_integer; indx binary_integer;
1171: begin
1172:
1173: -- copy data to the local IN or IN-OUT args, if any
1175:
1176:
1177:
1178:
1179: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1180: , p5_a1
1181: , p5_a2
1182: , p5_a3
1183: , p5_a4
1189: , p5_a10
1190: );
1191:
1192: -- here's the delegated call to the old PL/SQL routine
1193: okl_qls_pvt.delete_row(p_api_version,
1194: p_init_msg_list,
1195: x_return_status,
1196: x_msg_count,
1197: x_msg_data,
1223: , p5_a10 NUMBER := 0-1962.0724
1224: )
1225:
1226: as
1227: ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
1228: ddindx binary_integer; indx binary_integer;
1229: begin
1230:
1231: -- copy data to the local IN or IN-OUT args, if any
1246: ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1247: ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1248:
1249: -- here's the delegated call to the old PL/SQL routine
1250: okl_qls_pvt.validate_row(p_api_version,
1251: p_init_msg_list,
1252: x_return_status,
1253: x_msg_count,
1254: x_msg_data,
1287: , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1288: )
1289:
1290: as
1291: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1292: ddpx_error_tbl okl_api.error_tbl_type;
1293: ddindx binary_integer; indx binary_integer;
1294: begin
1295:
1298:
1299:
1300:
1301:
1302: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1303: , p5_a1
1304: , p5_a2
1305: , p5_a3
1306: , p5_a4
1321: , p6_a6
1322: );
1323:
1324: -- here's the delegated call to the old PL/SQL routine
1325: okl_qls_pvt.validate_row(p_api_version,
1326: p_init_msg_list,
1327: x_return_status,
1328: x_msg_count,
1329: x_msg_data,
1365: , p5_a10 JTF_NUMBER_TABLE
1366: )
1367:
1368: as
1369: ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1370: ddindx binary_integer; indx binary_integer;
1371: begin
1372:
1373: -- copy data to the local IN or IN-OUT args, if any
1375:
1376:
1377:
1378:
1379: okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1380: , p5_a1
1381: , p5_a2
1382: , p5_a3
1383: , p5_a4
1389: , p5_a10
1390: );
1391:
1392: -- here's the delegated call to the old PL/SQL routine
1393: okl_qls_pvt.validate_row(p_api_version,
1394: p_init_msg_list,
1395: x_return_status,
1396: x_msg_count,
1397: x_msg_data,
1404:
1405:
1406: end;
1407:
1408: end okl_qls_pvt_w;