1: package body okl_cll_pvt_w as
2: /* $Header: OKLICLLB.pls 120.1 2005/07/08 10:19:10 asawanka 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_cll_pvt.cllv_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
85: end loop;
86: end if;
87: end if;
88: end rosetta_table_copy_in_p2;
89: procedure rosetta_table_copy_out_p2(t okl_cll_pvt.cllv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
90: , a1 out nocopy JTF_NUMBER_TABLE
91: , a2 out nocopy JTF_NUMBER_TABLE
92: , a3 out nocopy JTF_NUMBER_TABLE
93: , a4 out nocopy JTF_VARCHAR2_TABLE_100
229: end if;
230: end if;
231: end rosetta_table_copy_out_p2;
232:
233: procedure rosetta_table_copy_in_p5(t out nocopy okl_cll_pvt.okl_cntr_lvlng_lns_b_tbl_type, a0 JTF_NUMBER_TABLE
234: , a1 JTF_NUMBER_TABLE
235: , a2 JTF_NUMBER_TABLE
236: , a3 JTF_NUMBER_TABLE
237: , a4 JTF_VARCHAR2_TABLE_100
296: end loop;
297: end if;
298: end if;
299: end rosetta_table_copy_in_p5;
300: procedure rosetta_table_copy_out_p5(t okl_cll_pvt.okl_cntr_lvlng_lns_b_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
301: , a1 out nocopy JTF_NUMBER_TABLE
302: , a2 out nocopy JTF_NUMBER_TABLE
303: , a3 out nocopy JTF_NUMBER_TABLE
304: , a4 out nocopy JTF_VARCHAR2_TABLE_100
498: , p5_a24 NUMBER := 0-1962.0724
499: )
500:
501: as
502: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
503: ddx_cllv_rec okl_cll_pvt.cllv_rec_type;
504: ddindx binary_integer; indx binary_integer;
505: begin
506:
499: )
500:
501: as
502: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
503: ddx_cllv_rec okl_cll_pvt.cllv_rec_type;
504: ddindx binary_integer; indx binary_integer;
505: begin
506:
507: -- copy data to the local IN or IN-OUT args, if any
537: ddp_cllv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
538:
539:
540: -- here's the delegated call to the old PL/SQL routine
541: okl_cll_pvt.insert_row(p_api_version,
542: p_init_msg_list,
543: x_return_status,
544: x_msg_count,
545: x_msg_data,
637: , p6_a24 out nocopy JTF_NUMBER_TABLE
638: )
639:
640: as
641: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
642: ddx_cllv_tbl okl_cll_pvt.cllv_tbl_type;
643: ddindx binary_integer; indx binary_integer;
644: begin
645:
638: )
639:
640: as
641: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
642: ddx_cllv_tbl okl_cll_pvt.cllv_tbl_type;
643: ddindx binary_integer; indx binary_integer;
644: begin
645:
646: -- copy data to the local IN or IN-OUT args, if any
648:
649:
650:
651:
652: okl_cll_pvt_w.rosetta_table_copy_in_p2(ddp_cllv_tbl, p5_a0
653: , p5_a1
654: , p5_a2
655: , p5_a3
656: , p5_a4
677: );
678:
679:
680: -- here's the delegated call to the old PL/SQL routine
681: okl_cll_pvt.insert_row(p_api_version,
682: p_init_msg_list,
683: x_return_status,
684: x_msg_count,
685: x_msg_data,
692:
693:
694:
695:
696: okl_cll_pvt_w.rosetta_table_copy_out_p2(ddx_cllv_tbl, p6_a0
697: , p6_a1
698: , p6_a2
699: , p6_a3
700: , p6_a4
753: , p5_a24 NUMBER := 0-1962.0724
754: )
755:
756: as
757: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
758: ddindx binary_integer; indx binary_integer;
759: begin
760:
761: -- copy data to the local IN or IN-OUT args, if any
790: ddp_cllv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
791: ddp_cllv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
792:
793: -- here's the delegated call to the old PL/SQL routine
794: okl_cll_pvt.lock_row(p_api_version,
795: p_init_msg_list,
796: x_return_status,
797: x_msg_count,
798: x_msg_data,
838: , p5_a24 JTF_NUMBER_TABLE
839: )
840:
841: as
842: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
843: ddindx binary_integer; indx binary_integer;
844: begin
845:
846: -- copy data to the local IN or IN-OUT args, if any
848:
849:
850:
851:
852: okl_cll_pvt_w.rosetta_table_copy_in_p2(ddp_cllv_tbl, p5_a0
853: , p5_a1
854: , p5_a2
855: , p5_a3
856: , p5_a4
876: , p5_a24
877: );
878:
879: -- here's the delegated call to the old PL/SQL routine
880: okl_cll_pvt.lock_row(p_api_version,
881: p_init_msg_list,
882: x_return_status,
883: x_msg_count,
884: x_msg_data,
949: , p5_a24 NUMBER := 0-1962.0724
950: )
951:
952: as
953: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
954: ddx_cllv_rec okl_cll_pvt.cllv_rec_type;
955: ddindx binary_integer; indx binary_integer;
956: begin
957:
950: )
951:
952: as
953: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
954: ddx_cllv_rec okl_cll_pvt.cllv_rec_type;
955: ddindx binary_integer; indx binary_integer;
956: begin
957:
958: -- copy data to the local IN or IN-OUT args, if any
988: ddp_cllv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
989:
990:
991: -- here's the delegated call to the old PL/SQL routine
992: okl_cll_pvt.update_row(p_api_version,
993: p_init_msg_list,
994: x_return_status,
995: x_msg_count,
996: x_msg_data,
1088: , p6_a24 out nocopy JTF_NUMBER_TABLE
1089: )
1090:
1091: as
1092: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
1093: ddx_cllv_tbl okl_cll_pvt.cllv_tbl_type;
1094: ddindx binary_integer; indx binary_integer;
1095: begin
1096:
1089: )
1090:
1091: as
1092: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
1093: ddx_cllv_tbl okl_cll_pvt.cllv_tbl_type;
1094: ddindx binary_integer; indx binary_integer;
1095: begin
1096:
1097: -- copy data to the local IN or IN-OUT args, if any
1099:
1100:
1101:
1102:
1103: okl_cll_pvt_w.rosetta_table_copy_in_p2(ddp_cllv_tbl, p5_a0
1104: , p5_a1
1105: , p5_a2
1106: , p5_a3
1107: , p5_a4
1128: );
1129:
1130:
1131: -- here's the delegated call to the old PL/SQL routine
1132: okl_cll_pvt.update_row(p_api_version,
1133: p_init_msg_list,
1134: x_return_status,
1135: x_msg_count,
1136: x_msg_data,
1143:
1144:
1145:
1146:
1147: okl_cll_pvt_w.rosetta_table_copy_out_p2(ddx_cllv_tbl, p6_a0
1148: , p6_a1
1149: , p6_a2
1150: , p6_a3
1151: , p6_a4
1204: , p5_a24 NUMBER := 0-1962.0724
1205: )
1206:
1207: as
1208: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
1209: ddindx binary_integer; indx binary_integer;
1210: begin
1211:
1212: -- copy data to the local IN or IN-OUT args, if any
1241: ddp_cllv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
1242: ddp_cllv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
1243:
1244: -- here's the delegated call to the old PL/SQL routine
1245: okl_cll_pvt.delete_row(p_api_version,
1246: p_init_msg_list,
1247: x_return_status,
1248: x_msg_count,
1249: x_msg_data,
1289: , p5_a24 JTF_NUMBER_TABLE
1290: )
1291:
1292: as
1293: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
1294: ddindx binary_integer; indx binary_integer;
1295: begin
1296:
1297: -- copy data to the local IN or IN-OUT args, if any
1299:
1300:
1301:
1302:
1303: okl_cll_pvt_w.rosetta_table_copy_in_p2(ddp_cllv_tbl, p5_a0
1304: , p5_a1
1305: , p5_a2
1306: , p5_a3
1307: , p5_a4
1327: , p5_a24
1328: );
1329:
1330: -- here's the delegated call to the old PL/SQL routine
1331: okl_cll_pvt.delete_row(p_api_version,
1332: p_init_msg_list,
1333: x_return_status,
1334: x_msg_count,
1335: x_msg_data,
1375: , p5_a24 NUMBER := 0-1962.0724
1376: )
1377:
1378: as
1379: ddp_cllv_rec okl_cll_pvt.cllv_rec_type;
1380: ddindx binary_integer; indx binary_integer;
1381: begin
1382:
1383: -- copy data to the local IN or IN-OUT args, if any
1412: ddp_cllv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a23);
1413: ddp_cllv_rec.last_update_login := rosetta_g_miss_num_map(p5_a24);
1414:
1415: -- here's the delegated call to the old PL/SQL routine
1416: okl_cll_pvt.validate_row(p_api_version,
1417: p_init_msg_list,
1418: x_return_status,
1419: x_msg_count,
1420: x_msg_data,
1460: , p5_a24 JTF_NUMBER_TABLE
1461: )
1462:
1463: as
1464: ddp_cllv_tbl okl_cll_pvt.cllv_tbl_type;
1465: ddindx binary_integer; indx binary_integer;
1466: begin
1467:
1468: -- copy data to the local IN or IN-OUT args, if any
1470:
1471:
1472:
1473:
1474: okl_cll_pvt_w.rosetta_table_copy_in_p2(ddp_cllv_tbl, p5_a0
1475: , p5_a1
1476: , p5_a2
1477: , p5_a3
1478: , p5_a4
1498: , p5_a24
1499: );
1500:
1501: -- here's the delegated call to the old PL/SQL routine
1502: okl_cll_pvt.validate_row(p_api_version,
1503: p_init_msg_list,
1504: x_return_status,
1505: x_msg_count,
1506: x_msg_data,
1513:
1514:
1515: end;
1516:
1517: end okl_cll_pvt_w;