[Home] [Help]
1: package body okl_tql_pvt_w as
2: /* $Header: OKLITQLB.pls 120.2 2005/08/19 01:33:35 rmunjulu 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_tql_pvt.tql_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_NUMBER_TABLE
153: end loop;
154: end if;
155: end if;
156: end rosetta_table_copy_in_p2;
157: procedure rosetta_table_copy_out_p2(t okl_tql_pvt.tql_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
158: , a1 out nocopy JTF_NUMBER_TABLE
159: , a2 out nocopy JTF_NUMBER_TABLE
160: , a3 out nocopy JTF_VARCHAR2_TABLE_100
161: , a4 out nocopy JTF_NUMBER_TABLE
467: end if;
468: end if;
469: end rosetta_table_copy_out_p2;
470:
471: procedure rosetta_table_copy_in_p5(t out nocopy okl_tql_pvt.okltxlquotelinestltbltype, a0 JTF_NUMBER_TABLE
472: , a1 JTF_VARCHAR2_TABLE_100
473: , a2 JTF_VARCHAR2_TABLE_100
474: , a3 JTF_VARCHAR2_TABLE_100
475: , a4 JTF_VARCHAR2_TABLE_2000
504: end loop;
505: end if;
506: end if;
507: end rosetta_table_copy_in_p5;
508: procedure rosetta_table_copy_out_p5(t okl_tql_pvt.okltxlquotelinestltbltype, a0 out nocopy JTF_NUMBER_TABLE
509: , a1 out nocopy JTF_VARCHAR2_TABLE_100
510: , a2 out nocopy JTF_VARCHAR2_TABLE_100
511: , a3 out nocopy JTF_VARCHAR2_TABLE_100
512: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
573: end if;
574: end if;
575: end rosetta_table_copy_out_p5;
576:
577: procedure rosetta_table_copy_in_p8(t out nocopy okl_tql_pvt.tqlv_tbl_type, a0 JTF_NUMBER_TABLE
578: , a1 JTF_NUMBER_TABLE
579: , a2 JTF_VARCHAR2_TABLE_100
580: , a3 JTF_VARCHAR2_TABLE_100
581: , a4 JTF_NUMBER_TABLE
712: end loop;
713: end if;
714: end if;
715: end rosetta_table_copy_in_p8;
716: procedure rosetta_table_copy_out_p8(t okl_tql_pvt.tqlv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
717: , a1 out nocopy JTF_NUMBER_TABLE
718: , a2 out nocopy JTF_VARCHAR2_TABLE_100
719: , a3 out nocopy JTF_VARCHAR2_TABLE_100
720: , a4 out nocopy JTF_NUMBER_TABLE
1036: end if;
1037: end if;
1038: end rosetta_table_copy_out_p8;
1039:
1040: procedure rosetta_table_copy_in_p9(t out nocopy okl_tql_pvt.numbertabtyp, a0 JTF_NUMBER_TABLE) as
1041: ddindx binary_integer; indx binary_integer;
1042: begin
1043: if a0 is not null and a0.count > 0 then
1044: if a0.count > 0 then
1054: end loop;
1055: end if;
1056: end if;
1057: end rosetta_table_copy_in_p9;
1058: procedure rosetta_table_copy_out_p9(t okl_tql_pvt.numbertabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1059: ddindx binary_integer; indx binary_integer;
1060: begin
1061: if t is null or t.count = 0 then
1062: a0 := JTF_NUMBER_TABLE();
1077: end if;
1078: end if;
1079: end rosetta_table_copy_out_p9;
1080:
1081: procedure rosetta_table_copy_in_p10(t out nocopy okl_tql_pvt.number4tabtyp, a0 JTF_NUMBER_TABLE) as
1082: ddindx binary_integer; indx binary_integer;
1083: begin
1084: if a0 is not null and a0.count > 0 then
1085: if a0.count > 0 then
1095: end loop;
1096: end if;
1097: end if;
1098: end rosetta_table_copy_in_p10;
1099: procedure rosetta_table_copy_out_p10(t okl_tql_pvt.number4tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1100: ddindx binary_integer; indx binary_integer;
1101: begin
1102: if t is null or t.count = 0 then
1103: a0 := JTF_NUMBER_TABLE();
1118: end if;
1119: end if;
1120: end rosetta_table_copy_out_p10;
1121:
1122: procedure rosetta_table_copy_in_p11(t out nocopy okl_tql_pvt.number9tabtyp, a0 JTF_NUMBER_TABLE) as
1123: ddindx binary_integer; indx binary_integer;
1124: begin
1125: if a0 is not null and a0.count > 0 then
1126: if a0.count > 0 then
1136: end loop;
1137: end if;
1138: end if;
1139: end rosetta_table_copy_in_p11;
1140: procedure rosetta_table_copy_out_p11(t okl_tql_pvt.number9tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1141: ddindx binary_integer; indx binary_integer;
1142: begin
1143: if t is null or t.count = 0 then
1144: a0 := JTF_NUMBER_TABLE();
1159: end if;
1160: end if;
1161: end rosetta_table_copy_out_p11;
1162:
1163: procedure rosetta_table_copy_in_p12(t out nocopy okl_tql_pvt.number14p3tabtyp, a0 JTF_NUMBER_TABLE) as
1164: ddindx binary_integer; indx binary_integer;
1165: begin
1166: if a0 is not null and a0.count > 0 then
1167: if a0.count > 0 then
1177: end loop;
1178: end if;
1179: end if;
1180: end rosetta_table_copy_in_p12;
1181: procedure rosetta_table_copy_out_p12(t okl_tql_pvt.number14p3tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1182: ddindx binary_integer; indx binary_integer;
1183: begin
1184: if t is null or t.count = 0 then
1185: a0 := JTF_NUMBER_TABLE();
1200: end if;
1201: end if;
1202: end rosetta_table_copy_out_p12;
1203:
1204: procedure rosetta_table_copy_in_p13(t out nocopy okl_tql_pvt.number15tabtyp, a0 JTF_NUMBER_TABLE) as
1205: ddindx binary_integer; indx binary_integer;
1206: begin
1207: if a0 is not null and a0.count > 0 then
1208: if a0.count > 0 then
1218: end loop;
1219: end if;
1220: end if;
1221: end rosetta_table_copy_in_p13;
1222: procedure rosetta_table_copy_out_p13(t okl_tql_pvt.number15tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1223: ddindx binary_integer; indx binary_integer;
1224: begin
1225: if t is null or t.count = 0 then
1226: a0 := JTF_NUMBER_TABLE();
1241: end if;
1242: end if;
1243: end rosetta_table_copy_out_p13;
1244:
1245: procedure rosetta_table_copy_in_p14(t out nocopy okl_tql_pvt.number18p15tabtyp, a0 JTF_NUMBER_TABLE) as
1246: ddindx binary_integer; indx binary_integer;
1247: begin
1248: if a0 is not null and a0.count > 0 then
1249: if a0.count > 0 then
1259: end loop;
1260: end if;
1261: end if;
1262: end rosetta_table_copy_in_p14;
1263: procedure rosetta_table_copy_out_p14(t okl_tql_pvt.number18p15tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1264: ddindx binary_integer; indx binary_integer;
1265: begin
1266: if t is null or t.count = 0 then
1267: a0 := JTF_NUMBER_TABLE();
1282: end if;
1283: end if;
1284: end rosetta_table_copy_out_p14;
1285:
1286: procedure rosetta_table_copy_in_p15(t out nocopy okl_tql_pvt.datetabtyp, a0 JTF_DATE_TABLE) as
1287: ddindx binary_integer; indx binary_integer;
1288: begin
1289: if a0 is not null and a0.count > 0 then
1290: if a0.count > 0 then
1300: end loop;
1301: end if;
1302: end if;
1303: end rosetta_table_copy_in_p15;
1304: procedure rosetta_table_copy_out_p15(t okl_tql_pvt.datetabtyp, a0 out nocopy JTF_DATE_TABLE) as
1305: ddindx binary_integer; indx binary_integer;
1306: begin
1307: if t is null or t.count = 0 then
1308: a0 := JTF_DATE_TABLE();
1323: end if;
1324: end if;
1325: end rosetta_table_copy_out_p15;
1326:
1327: procedure rosetta_table_copy_in_p16(t out nocopy okl_tql_pvt.var3tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1328: ddindx binary_integer; indx binary_integer;
1329: begin
1330: if a0 is not null and a0.count > 0 then
1331: if a0.count > 0 then
1341: end loop;
1342: end if;
1343: end if;
1344: end rosetta_table_copy_in_p16;
1345: procedure rosetta_table_copy_out_p16(t okl_tql_pvt.var3tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1346: ddindx binary_integer; indx binary_integer;
1347: begin
1348: if t is null or t.count = 0 then
1349: a0 := JTF_VARCHAR2_TABLE_100();
1364: end if;
1365: end if;
1366: end rosetta_table_copy_out_p16;
1367:
1368: procedure rosetta_table_copy_in_p17(t out nocopy okl_tql_pvt.var10tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1369: ddindx binary_integer; indx binary_integer;
1370: begin
1371: if a0 is not null and a0.count > 0 then
1372: if a0.count > 0 then
1382: end loop;
1383: end if;
1384: end if;
1385: end rosetta_table_copy_in_p17;
1386: procedure rosetta_table_copy_out_p17(t okl_tql_pvt.var10tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1387: ddindx binary_integer; indx binary_integer;
1388: begin
1389: if t is null or t.count = 0 then
1390: a0 := JTF_VARCHAR2_TABLE_100();
1405: end if;
1406: end if;
1407: end rosetta_table_copy_out_p17;
1408:
1409: procedure rosetta_table_copy_in_p18(t out nocopy okl_tql_pvt.var12tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1410: ddindx binary_integer; indx binary_integer;
1411: begin
1412: if a0 is not null and a0.count > 0 then
1413: if a0.count > 0 then
1423: end loop;
1424: end if;
1425: end if;
1426: end rosetta_table_copy_in_p18;
1427: procedure rosetta_table_copy_out_p18(t okl_tql_pvt.var12tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1428: ddindx binary_integer; indx binary_integer;
1429: begin
1430: if t is null or t.count = 0 then
1431: a0 := JTF_VARCHAR2_TABLE_100();
1446: end if;
1447: end if;
1448: end rosetta_table_copy_out_p18;
1449:
1450: procedure rosetta_table_copy_in_p19(t out nocopy okl_tql_pvt.var15tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1451: ddindx binary_integer; indx binary_integer;
1452: begin
1453: if a0 is not null and a0.count > 0 then
1454: if a0.count > 0 then
1464: end loop;
1465: end if;
1466: end if;
1467: end rosetta_table_copy_in_p19;
1468: procedure rosetta_table_copy_out_p19(t okl_tql_pvt.var15tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1469: ddindx binary_integer; indx binary_integer;
1470: begin
1471: if t is null or t.count = 0 then
1472: a0 := JTF_VARCHAR2_TABLE_100();
1487: end if;
1488: end if;
1489: end rosetta_table_copy_out_p19;
1490:
1491: procedure rosetta_table_copy_in_p20(t out nocopy okl_tql_pvt.var30tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1492: ddindx binary_integer; indx binary_integer;
1493: begin
1494: if a0 is not null and a0.count > 0 then
1495: if a0.count > 0 then
1505: end loop;
1506: end if;
1507: end if;
1508: end rosetta_table_copy_in_p20;
1509: procedure rosetta_table_copy_out_p20(t okl_tql_pvt.var30tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1510: ddindx binary_integer; indx binary_integer;
1511: begin
1512: if t is null or t.count = 0 then
1513: a0 := JTF_VARCHAR2_TABLE_100();
1528: end if;
1529: end if;
1530: end rosetta_table_copy_out_p20;
1531:
1532: procedure rosetta_table_copy_in_p21(t out nocopy okl_tql_pvt.var90tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1533: ddindx binary_integer; indx binary_integer;
1534: begin
1535: if a0 is not null and a0.count > 0 then
1536: if a0.count > 0 then
1546: end loop;
1547: end if;
1548: end if;
1549: end rosetta_table_copy_in_p21;
1550: procedure rosetta_table_copy_out_p21(t okl_tql_pvt.var90tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1551: ddindx binary_integer; indx binary_integer;
1552: begin
1553: if t is null or t.count = 0 then
1554: a0 := JTF_VARCHAR2_TABLE_100();
1569: end if;
1570: end if;
1571: end rosetta_table_copy_out_p21;
1572:
1573: procedure rosetta_table_copy_in_p22(t out nocopy okl_tql_pvt.var150tabtyp, a0 JTF_VARCHAR2_TABLE_200) as
1574: ddindx binary_integer; indx binary_integer;
1575: begin
1576: if a0 is not null and a0.count > 0 then
1577: if a0.count > 0 then
1587: end loop;
1588: end if;
1589: end if;
1590: end rosetta_table_copy_in_p22;
1591: procedure rosetta_table_copy_out_p22(t okl_tql_pvt.var150tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
1592: ddindx binary_integer; indx binary_integer;
1593: begin
1594: if t is null or t.count = 0 then
1595: a0 := JTF_VARCHAR2_TABLE_200();
1610: end if;
1611: end if;
1612: end rosetta_table_copy_out_p22;
1613:
1614: procedure rosetta_table_copy_in_p23(t out nocopy okl_tql_pvt.var450tabtyp, a0 JTF_VARCHAR2_TABLE_500) as
1615: ddindx binary_integer; indx binary_integer;
1616: begin
1617: if a0 is not null and a0.count > 0 then
1618: if a0.count > 0 then
1628: end loop;
1629: end if;
1630: end if;
1631: end rosetta_table_copy_in_p23;
1632: procedure rosetta_table_copy_out_p23(t okl_tql_pvt.var450tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_500) as
1633: ddindx binary_integer; indx binary_integer;
1634: begin
1635: if t is null or t.count = 0 then
1636: a0 := JTF_VARCHAR2_TABLE_500();
1651: end if;
1652: end if;
1653: end rosetta_table_copy_out_p23;
1654:
1655: procedure rosetta_table_copy_in_p24(t out nocopy okl_tql_pvt.var1995tabtyp, a0 JTF_VARCHAR2_TABLE_2000) as
1656: ddindx binary_integer; indx binary_integer;
1657: begin
1658: if a0 is not null and a0.count > 0 then
1659: if a0.count > 0 then
1669: end loop;
1670: end if;
1671: end if;
1672: end rosetta_table_copy_in_p24;
1673: procedure rosetta_table_copy_out_p24(t okl_tql_pvt.var1995tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_2000) as
1674: ddindx binary_integer; indx binary_integer;
1675: begin
1676: if t is null or t.count = 0 then
1677: a0 := JTF_VARCHAR2_TABLE_2000();
1822: , p5_a60 NUMBER := 0-1962.0724
1823: )
1824:
1825: as
1826: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
1827: ddx_tqlv_rec okl_tql_pvt.tqlv_rec_type;
1828: ddindx binary_integer; indx binary_integer;
1829: begin
1830:
1823: )
1824:
1825: as
1826: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
1827: ddx_tqlv_rec okl_tql_pvt.tqlv_rec_type;
1828: ddindx binary_integer; indx binary_integer;
1829: begin
1830:
1831: -- copy data to the local IN or IN-OUT args, if any
1897: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
1898:
1899:
1900: -- here's the delegated call to the old PL/SQL routine
1901: okl_tql_pvt.insert_row(p_api_version,
1902: p_init_msg_list,
1903: x_return_status,
1904: x_msg_count,
1905: x_msg_data,
2105: , p6_a60 out nocopy JTF_NUMBER_TABLE
2106: )
2107:
2108: as
2109: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2110: ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2111: ddindx binary_integer; indx binary_integer;
2112: begin
2113:
2106: )
2107:
2108: as
2109: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2110: ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2111: ddindx binary_integer; indx binary_integer;
2112: begin
2113:
2114: -- copy data to the local IN or IN-OUT args, if any
2116:
2117:
2118:
2119:
2120: okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
2121: , p5_a1
2122: , p5_a2
2123: , p5_a3
2124: , p5_a4
2181: );
2182:
2183:
2184: -- here's the delegated call to the old PL/SQL routine
2185: okl_tql_pvt.insert_row(p_api_version,
2186: p_init_msg_list,
2187: x_return_status,
2188: x_msg_count,
2189: x_msg_data,
2196:
2197:
2198:
2199:
2200: okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p6_a0
2201: , p6_a1
2202: , p6_a2
2203: , p6_a3
2204: , p6_a4
2329: , p5_a60 NUMBER := 0-1962.0724
2330: )
2331:
2332: as
2333: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2334: ddindx binary_integer; indx binary_integer;
2335: begin
2336:
2337: -- copy data to the local IN or IN-OUT args, if any
2402: ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
2403: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
2404:
2405: -- here's the delegated call to the old PL/SQL routine
2406: okl_tql_pvt.lock_row(p_api_version,
2407: p_init_msg_list,
2408: x_return_status,
2409: x_msg_count,
2410: x_msg_data,
2486: , p5_a60 JTF_NUMBER_TABLE
2487: )
2488:
2489: as
2490: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2491: ddindx binary_integer; indx binary_integer;
2492: begin
2493:
2494: -- copy data to the local IN or IN-OUT args, if any
2496:
2497:
2498:
2499:
2500: okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
2501: , p5_a1
2502: , p5_a2
2503: , p5_a3
2504: , p5_a4
2560: , p5_a60
2561: );
2562:
2563: -- here's the delegated call to the old PL/SQL routine
2564: okl_tql_pvt.lock_row(p_api_version,
2565: p_init_msg_list,
2566: x_return_status,
2567: x_msg_count,
2568: x_msg_data,
2705: , p5_a60 NUMBER := 0-1962.0724
2706: )
2707:
2708: as
2709: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2710: ddx_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2711: ddindx binary_integer; indx binary_integer;
2712: begin
2713:
2706: )
2707:
2708: as
2709: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2710: ddx_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2711: ddindx binary_integer; indx binary_integer;
2712: begin
2713:
2714: -- copy data to the local IN or IN-OUT args, if any
2780: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
2781:
2782:
2783: -- here's the delegated call to the old PL/SQL routine
2784: okl_tql_pvt.update_row(p_api_version,
2785: p_init_msg_list,
2786: x_return_status,
2787: x_msg_count,
2788: x_msg_data,
2988: , p6_a60 out nocopy JTF_NUMBER_TABLE
2989: )
2990:
2991: as
2992: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2993: ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2994: ddindx binary_integer; indx binary_integer;
2995: begin
2996:
2989: )
2990:
2991: as
2992: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2993: ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2994: ddindx binary_integer; indx binary_integer;
2995: begin
2996:
2997: -- copy data to the local IN or IN-OUT args, if any
2999:
3000:
3001:
3002:
3003: okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3004: , p5_a1
3005: , p5_a2
3006: , p5_a3
3007: , p5_a4
3064: );
3065:
3066:
3067: -- here's the delegated call to the old PL/SQL routine
3068: okl_tql_pvt.update_row(p_api_version,
3069: p_init_msg_list,
3070: x_return_status,
3071: x_msg_count,
3072: x_msg_data,
3079:
3080:
3081:
3082:
3083: okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p6_a0
3084: , p6_a1
3085: , p6_a2
3086: , p6_a3
3087: , p6_a4
3212: , p5_a60 NUMBER := 0-1962.0724
3213: )
3214:
3215: as
3216: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
3217: ddindx binary_integer; indx binary_integer;
3218: begin
3219:
3220: -- copy data to the local IN or IN-OUT args, if any
3285: ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
3286: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
3287:
3288: -- here's the delegated call to the old PL/SQL routine
3289: okl_tql_pvt.delete_row(p_api_version,
3290: p_init_msg_list,
3291: x_return_status,
3292: x_msg_count,
3293: x_msg_data,
3369: , p5_a60 JTF_NUMBER_TABLE
3370: )
3371:
3372: as
3373: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3374: ddindx binary_integer; indx binary_integer;
3375: begin
3376:
3377: -- copy data to the local IN or IN-OUT args, if any
3379:
3380:
3381:
3382:
3383: okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3384: , p5_a1
3385: , p5_a2
3386: , p5_a3
3387: , p5_a4
3443: , p5_a60
3444: );
3445:
3446: -- here's the delegated call to the old PL/SQL routine
3447: okl_tql_pvt.delete_row(p_api_version,
3448: p_init_msg_list,
3449: x_return_status,
3450: x_msg_count,
3451: x_msg_data,
3527: , p5_a60 NUMBER := 0-1962.0724
3528: )
3529:
3530: as
3531: ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
3532: ddindx binary_integer; indx binary_integer;
3533: begin
3534:
3535: -- copy data to the local IN or IN-OUT args, if any
3600: ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
3601: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
3602:
3603: -- here's the delegated call to the old PL/SQL routine
3604: okl_tql_pvt.validate_row(p_api_version,
3605: p_init_msg_list,
3606: x_return_status,
3607: x_msg_count,
3608: x_msg_data,
3684: , p5_a60 JTF_NUMBER_TABLE
3685: )
3686:
3687: as
3688: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3689: ddindx binary_integer; indx binary_integer;
3690: begin
3691:
3692: -- copy data to the local IN or IN-OUT args, if any
3694:
3695:
3696:
3697:
3698: okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3699: , p5_a1
3700: , p5_a2
3701: , p5_a3
3702: , p5_a4
3758: , p5_a60
3759: );
3760:
3761: -- here's the delegated call to the old PL/SQL routine
3762: okl_tql_pvt.validate_row(p_api_version,
3763: p_init_msg_list,
3764: x_return_status,
3765: x_msg_count,
3766: x_msg_data,
3903: , p6_a60 out nocopy JTF_NUMBER_TABLE
3904: )
3905:
3906: as
3907: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3908: ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3909: ddindx binary_integer; indx binary_integer;
3910: begin
3911:
3904: )
3905:
3906: as
3907: ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3908: ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3909: ddindx binary_integer; indx binary_integer;
3910: begin
3911:
3912: -- copy data to the local IN or IN-OUT args, if any
3914:
3915:
3916:
3917:
3918: okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3919: , p5_a1
3920: , p5_a2
3921: , p5_a3
3922: , p5_a4
3979: );
3980:
3981:
3982: -- here's the delegated call to the old PL/SQL routine
3983: okl_tql_pvt.insert_row_bulk(p_api_version,
3984: p_init_msg_list,
3985: x_return_status,
3986: x_msg_count,
3987: x_msg_data,
3994:
3995:
3996:
3997:
3998: okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p6_a0
3999: , p6_a1
4000: , p6_a2
4001: , p6_a3
4002: , p6_a4
4058: , p6_a60
4059: );
4060: end;
4061:
4062: end okl_tql_pvt_w;