1: package body okl_sif_ret_strms_pub_w as
2: /* $Header: OKLUSRSB.pls 120.1 2005/07/19 09:45:05 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:
84: , p5_a28 NUMBER := 0-1962.0724
85: )
86:
87: as
88: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
89: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
90: ddindx binary_integer; indx binary_integer;
91: begin
92:
85: )
86:
87: as
88: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
89: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
90: ddindx binary_integer; indx binary_integer;
91: begin
92:
93: -- copy data to the local IN or IN-OUT args, if any
127: ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
128:
129:
130: -- here's the delegated call to the old PL/SQL routine
131: okl_sif_ret_strms_pub.insert_sif_ret_strms(p_api_version,
132: p_init_msg_list,
133: x_return_status,
134: x_msg_count,
135: x_msg_data,
239: , p5_a28 NUMBER := 0-1962.0724
240: )
241:
242: as
243: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
244: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
245: ddindx binary_integer; indx binary_integer;
246: begin
247:
240: )
241:
242: as
243: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
244: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
245: ddindx binary_integer; indx binary_integer;
246: begin
247:
248: -- copy data to the local IN or IN-OUT args, if any
282: ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
283:
284:
285: -- here's the delegated call to the old PL/SQL routine
286: okl_sif_ret_strms_pub.insert_sif_ret_strms_per(p_api_version,
287: p_init_msg_list,
288: x_return_status,
289: x_msg_count,
290: x_msg_data,
360: , p0_a28 JTF_NUMBER_TABLE
361: )
362:
363: as
364: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
365: ddindx binary_integer; indx binary_integer;
366: begin
367:
368: -- copy data to the local IN or IN-OUT args, if any
397: , p0_a28
398: );
399:
400: -- here's the delegated call to the old PL/SQL routine
401: okl_sif_ret_strms_pub.mass_insert_sif_ret(ddp_srsv_tbl);
402:
403: -- copy data back from the local variables to OUT or IN-OUT args, if any
404: end;
405:
468: , p6_a28 out nocopy JTF_NUMBER_TABLE
469: )
470:
471: as
472: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
473: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
474: ddindx binary_integer; indx binary_integer;
475: begin
476:
469: )
470:
471: as
472: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
473: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
474: ddindx binary_integer; indx binary_integer;
475: begin
476:
477: -- copy data to the local IN or IN-OUT args, if any
512: );
513:
514:
515: -- here's the delegated call to the old PL/SQL routine
516: okl_sif_ret_strms_pub.insert_sif_ret_strms(p_api_version,
517: p_init_msg_list,
518: x_return_status,
519: x_msg_count,
520: x_msg_data,
596: , p5_a28 NUMBER := 0-1962.0724
597: )
598:
599: as
600: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
601: ddindx binary_integer; indx binary_integer;
602: begin
603:
604: -- copy data to the local IN or IN-OUT args, if any
637: ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
638: ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
639:
640: -- here's the delegated call to the old PL/SQL routine
641: okl_sif_ret_strms_pub.lock_sif_ret_strms(p_api_version,
642: p_init_msg_list,
643: x_return_status,
644: x_msg_count,
645: x_msg_data,
689: , p5_a28 JTF_NUMBER_TABLE
690: )
691:
692: as
693: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
694: ddindx binary_integer; indx binary_integer;
695: begin
696:
697: -- copy data to the local IN or IN-OUT args, if any
731: , p5_a28
732: );
733:
734: -- here's the delegated call to the old PL/SQL routine
735: okl_sif_ret_strms_pub.lock_sif_ret_strms(p_api_version,
736: p_init_msg_list,
737: x_return_status,
738: x_msg_count,
739: x_msg_data,
812: , p5_a28 NUMBER := 0-1962.0724
813: )
814:
815: as
816: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
817: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
818: ddindx binary_integer; indx binary_integer;
819: begin
820:
813: )
814:
815: as
816: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
817: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
818: ddindx binary_integer; indx binary_integer;
819: begin
820:
821: -- copy data to the local IN or IN-OUT args, if any
855: ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
856:
857:
858: -- here's the delegated call to the old PL/SQL routine
859: okl_sif_ret_strms_pub.update_sif_ret_strms(p_api_version,
860: p_init_msg_list,
861: x_return_status,
862: x_msg_count,
863: x_msg_data,
967: , p6_a28 out nocopy JTF_NUMBER_TABLE
968: )
969:
970: as
971: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
972: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
973: ddindx binary_integer; indx binary_integer;
974: begin
975:
968: )
969:
970: as
971: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
972: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
973: ddindx binary_integer; indx binary_integer;
974: begin
975:
976: -- copy data to the local IN or IN-OUT args, if any
1011: );
1012:
1013:
1014: -- here's the delegated call to the old PL/SQL routine
1015: okl_sif_ret_strms_pub.update_sif_ret_strms(p_api_version,
1016: p_init_msg_list,
1017: x_return_status,
1018: x_msg_count,
1019: x_msg_data,
1124: , p5_a28 NUMBER := 0-1962.0724
1125: )
1126:
1127: as
1128: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1129: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1130: ddindx binary_integer; indx binary_integer;
1131: begin
1132:
1125: )
1126:
1127: as
1128: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1129: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1130: ddindx binary_integer; indx binary_integer;
1131: begin
1132:
1133: -- copy data to the local IN or IN-OUT args, if any
1167: ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1168:
1169:
1170: -- here's the delegated call to the old PL/SQL routine
1171: okl_sif_ret_strms_pub.delete_sif_ret_strms(p_api_version,
1172: p_init_msg_list,
1173: x_return_status,
1174: x_msg_count,
1175: x_msg_data,
1279: , p6_a28 out nocopy JTF_NUMBER_TABLE
1280: )
1281:
1282: as
1283: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1284: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1285: ddindx binary_integer; indx binary_integer;
1286: begin
1287:
1280: )
1281:
1282: as
1283: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1284: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1285: ddindx binary_integer; indx binary_integer;
1286: begin
1287:
1288: -- copy data to the local IN or IN-OUT args, if any
1323: );
1324:
1325:
1326: -- here's the delegated call to the old PL/SQL routine
1327: okl_sif_ret_strms_pub.delete_sif_ret_strms(p_api_version,
1328: p_init_msg_list,
1329: x_return_status,
1330: x_msg_count,
1331: x_msg_data,
1436: , p5_a28 NUMBER := 0-1962.0724
1437: )
1438:
1439: as
1440: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1441: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1442: ddindx binary_integer; indx binary_integer;
1443: begin
1444:
1437: )
1438:
1439: as
1440: ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1441: ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1442: ddindx binary_integer; indx binary_integer;
1443: begin
1444:
1445: -- copy data to the local IN or IN-OUT args, if any
1479: ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1480:
1481:
1482: -- here's the delegated call to the old PL/SQL routine
1483: okl_sif_ret_strms_pub.validate_sif_ret_strms(p_api_version,
1484: p_init_msg_list,
1485: x_return_status,
1486: x_msg_count,
1487: x_msg_data,
1591: , p6_a28 out nocopy JTF_NUMBER_TABLE
1592: )
1593:
1594: as
1595: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1596: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1597: ddindx binary_integer; indx binary_integer;
1598: begin
1599:
1592: )
1593:
1594: as
1595: ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1596: ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1597: ddindx binary_integer; indx binary_integer;
1598: begin
1599:
1600: -- copy data to the local IN or IN-OUT args, if any
1635: );
1636:
1637:
1638: -- here's the delegated call to the old PL/SQL routine
1639: okl_sif_ret_strms_pub.validate_sif_ret_strms(p_api_version,
1640: p_init_msg_list,
1641: x_return_status,
1642: x_msg_count,
1643: x_msg_data,
1682: , p6_a28
1683: );
1684: end;
1685:
1686: end okl_sif_ret_strms_pub_w;