1: package body okl_mass_rebook_pvt_w as
2: /* $Header: OKLEMRPB.pls 120.3 2007/07/11 16:52:03 ssdeshpa ship $ */
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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p31(t out nocopy okl_mass_rebook_pvt.crit_tbl_type, a0 JTF_NUMBER_TABLE
26: , a1 JTF_VARCHAR2_TABLE_100
27: , a2 JTF_VARCHAR2_TABLE_200
28: , a3 JTF_VARCHAR2_TABLE_200
29: , a4 JTF_VARCHAR2_TABLE_200
50: end loop;
51: end if;
52: end if;
53: end rosetta_table_copy_in_p31;
54: procedure rosetta_table_copy_out_p31(t okl_mass_rebook_pvt.crit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
55: , a1 out nocopy JTF_VARCHAR2_TABLE_100
56: , a2 out nocopy JTF_VARCHAR2_TABLE_200
57: , a3 out nocopy JTF_VARCHAR2_TABLE_200
58: , a4 out nocopy JTF_VARCHAR2_TABLE_200
99: end if;
100: end if;
101: end rosetta_table_copy_out_p31;
102:
103: procedure rosetta_table_copy_in_p33(t out nocopy okl_mass_rebook_pvt.rbk_tbl_type, a0 JTF_NUMBER_TABLE
104: , a1 JTF_VARCHAR2_TABLE_200
105: , a2 JTF_NUMBER_TABLE
106: , a3 JTF_VARCHAR2_TABLE_600
107: ) as
124: end loop;
125: end if;
126: end if;
127: end rosetta_table_copy_in_p33;
128: procedure rosetta_table_copy_out_p33(t okl_mass_rebook_pvt.rbk_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
129: , a1 out nocopy JTF_VARCHAR2_TABLE_200
130: , a2 out nocopy JTF_NUMBER_TABLE
131: , a3 out nocopy JTF_VARCHAR2_TABLE_600
132: ) as
163: end if;
164: end if;
165: end rosetta_table_copy_out_p33;
166:
167: procedure rosetta_table_copy_in_p35(t out nocopy okl_mass_rebook_pvt.strm_lalevl_tbl_type, a0 JTF_NUMBER_TABLE
168: , a1 JTF_NUMBER_TABLE
169: , a2 JTF_VARCHAR2_TABLE_500
170: , a3 JTF_VARCHAR2_TABLE_500
171: , a4 JTF_VARCHAR2_TABLE_500
234: end loop;
235: end if;
236: end if;
237: end rosetta_table_copy_in_p35;
238: procedure rosetta_table_copy_out_p35(t okl_mass_rebook_pvt.strm_lalevl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
239: , a1 out nocopy JTF_NUMBER_TABLE
240: , a2 out nocopy JTF_VARCHAR2_TABLE_500
241: , a3 out nocopy JTF_VARCHAR2_TABLE_500
242: , a4 out nocopy JTF_VARCHAR2_TABLE_500
388: end if;
389: end if;
390: end rosetta_table_copy_out_p35;
391:
392: procedure rosetta_table_copy_in_p37(t out nocopy okl_mass_rebook_pvt.strm_trx_tbl_type, a0 JTF_NUMBER_TABLE
393: , a1 JTF_NUMBER_TABLE
394: ) as
395: ddindx binary_integer; indx binary_integer;
396: begin
409: end loop;
410: end if;
411: end if;
412: end rosetta_table_copy_in_p37;
413: procedure rosetta_table_copy_out_p37(t okl_mass_rebook_pvt.strm_trx_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
414: , a1 out nocopy JTF_NUMBER_TABLE
415: ) as
416: ddindx binary_integer; indx binary_integer;
417: begin
438: end if;
439: end if;
440: end rosetta_table_copy_out_p37;
441:
442: procedure rosetta_table_copy_in_p39(t out nocopy okl_mass_rebook_pvt.kle_tbl_type, a0 JTF_NUMBER_TABLE
443: ) as
444: ddindx binary_integer; indx binary_integer;
445: begin
446: if a0 is not null and a0.count > 0 then
457: end loop;
458: end if;
459: end if;
460: end rosetta_table_copy_in_p39;
461: procedure rosetta_table_copy_out_p39(t okl_mass_rebook_pvt.kle_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
462: ) as
463: ddindx binary_integer; indx binary_integer;
464: begin
465: if t is null or t.count = 0 then
554: , x_rbk_count out nocopy NUMBER
555: )
556:
557: as
558: ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
559: ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
560: ddindx binary_integer; indx binary_integer;
561: begin
562:
555: )
556:
557: as
558: ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
559: ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
560: ddindx binary_integer; indx binary_integer;
561: begin
562:
563: -- copy data to the local IN or IN-OUT args, if any
603:
604:
605:
606: -- here's the delegated call to the old PL/SQL routine
607: okl_mass_rebook_pvt.build_and_get_contracts(p_api_version,
608: p_init_msg_list,
609: x_return_status,
610: x_msg_count,
611: x_msg_data,
731: )
732:
733: as
734: ddp_transaction_date date;
735: ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
736: ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
737: ddindx binary_integer; indx binary_integer;
738: begin
739:
732:
733: as
734: ddp_transaction_date date;
735: ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
736: ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
737: ddindx binary_integer; indx binary_integer;
738: begin
739:
740: -- copy data to the local IN or IN-OUT args, if any
782:
783:
784:
785: -- here's the delegated call to the old PL/SQL routine
786: okl_mass_rebook_pvt.build_and_get_contracts(p_api_version,
787: p_init_msg_list,
788: x_return_status,
789: x_msg_count,
790: x_msg_data,
882: , p12_a26 JTF_VARCHAR2_TABLE_100
883: )
884:
885: as
886: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
887: ddp_in_service_date date;
888: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
889: ddindx binary_integer; indx binary_integer;
890: begin
884:
885: as
886: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
887: ddp_in_service_date date;
888: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
889: ddindx binary_integer; indx binary_integer;
890: begin
891:
892: -- copy data to the local IN or IN-OUT args, if any
894:
895:
896:
897:
898: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
899: , p5_a1
900: , p5_a2
901: , p5_a3
902: );
907:
908:
909:
910:
911: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
912: , p12_a1
913: , p12_a2
914: , p12_a3
915: , p12_a4
937: , p12_a26
938: );
939:
940: -- here's the delegated call to the old PL/SQL routine
941: okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
942: p_init_msg_list,
943: x_return_status,
944: x_msg_count,
945: x_msg_data,
1013: , p13_a1 out nocopy JTF_NUMBER_TABLE
1014: )
1015:
1016: as
1017: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1018: ddp_in_service_date date;
1019: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1020: ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1021: ddindx binary_integer; indx binary_integer;
1015:
1016: as
1017: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1018: ddp_in_service_date date;
1019: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1020: ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1021: ddindx binary_integer; indx binary_integer;
1022: begin
1023:
1016: as
1017: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1018: ddp_in_service_date date;
1019: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1020: ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1021: ddindx binary_integer; indx binary_integer;
1022: begin
1023:
1024: -- copy data to the local IN or IN-OUT args, if any
1026:
1027:
1028:
1029:
1030: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1031: , p5_a1
1032: , p5_a2
1033: , p5_a3
1034: );
1039:
1040:
1041:
1042:
1043: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1044: , p12_a1
1045: , p12_a2
1046: , p12_a3
1047: , p12_a4
1070: );
1071:
1072:
1073: -- here's the delegated call to the old PL/SQL routine
1074: okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1075: p_init_msg_list,
1076: x_return_status,
1077: x_msg_count,
1078: x_msg_data,
1099:
1100:
1101:
1102:
1103: okl_mass_rebook_pvt_w.rosetta_table_copy_out_p37(ddx_stream_trx_tbl, p13_a0
1104: , p13_a1
1105: );
1106: end;
1107:
1152: , p14_a1 out nocopy JTF_NUMBER_TABLE
1153: )
1154:
1155: as
1156: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1157: ddp_in_service_date date;
1158: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1159: ddp_transaction_date date;
1160: ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1154:
1155: as
1156: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1157: ddp_in_service_date date;
1158: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1159: ddp_transaction_date date;
1160: ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1161: ddindx binary_integer; indx binary_integer;
1162: begin
1156: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1157: ddp_in_service_date date;
1158: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1159: ddp_transaction_date date;
1160: ddx_stream_trx_tbl okl_mass_rebook_pvt.strm_trx_tbl_type;
1161: ddindx binary_integer; indx binary_integer;
1162: begin
1163:
1164: -- copy data to the local IN or IN-OUT args, if any
1166:
1167:
1168:
1169:
1170: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1171: , p5_a1
1172: , p5_a2
1173: , p5_a3
1174: );
1179:
1180:
1181:
1182:
1183: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1184: , p12_a1
1185: , p12_a2
1186: , p12_a3
1187: , p12_a4
1212: ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
1213:
1214:
1215: -- here's the delegated call to the old PL/SQL routine
1216: okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1217: p_init_msg_list,
1218: x_return_status,
1219: x_msg_count,
1220: x_msg_data,
1243:
1244:
1245:
1246:
1247: okl_mass_rebook_pvt_w.rosetta_table_copy_out_p37(ddx_stream_trx_tbl, p14_a0
1248: , p14_a1
1249: );
1250: end;
1251:
1296: , x_mass_rebook_trx_id out nocopy NUMBER
1297: )
1298:
1299: as
1300: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1301: ddp_in_service_date date;
1302: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1303: ddindx binary_integer; indx binary_integer;
1304: begin
1298:
1299: as
1300: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1301: ddp_in_service_date date;
1302: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1303: ddindx binary_integer; indx binary_integer;
1304: begin
1305:
1306: -- copy data to the local IN or IN-OUT args, if any
1308:
1309:
1310:
1311:
1312: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1313: , p5_a1
1314: , p5_a2
1315: , p5_a3
1316: );
1321:
1322:
1323:
1324:
1325: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1326: , p12_a1
1327: , p12_a2
1328: , p12_a3
1329: , p12_a4
1354:
1355:
1356:
1357: -- here's the delegated call to the old PL/SQL routine
1358: okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1359: p_init_msg_list,
1360: x_return_status,
1361: x_msg_count,
1362: x_msg_data,
1438: , x_mass_rebook_trx_id out nocopy NUMBER
1439: )
1440:
1441: as
1442: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1443: ddp_in_service_date date;
1444: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1445: ddp_transaction_date date;
1446: ddindx binary_integer; indx binary_integer;
1440:
1441: as
1442: ddp_rbk_tbl okl_mass_rebook_pvt.rbk_tbl_type;
1443: ddp_in_service_date date;
1444: ddp_strm_lalevl_tbl okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1445: ddp_transaction_date date;
1446: ddindx binary_integer; indx binary_integer;
1447: begin
1448:
1451:
1452:
1453:
1454:
1455: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p33(ddp_rbk_tbl, p5_a0
1456: , p5_a1
1457: , p5_a2
1458: , p5_a3
1459: );
1464:
1465:
1466:
1467:
1468: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_strm_lalevl_tbl, p12_a0
1469: , p12_a1
1470: , p12_a2
1471: , p12_a3
1472: , p12_a4
1499: ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
1500:
1501:
1502: -- here's the delegated call to the old PL/SQL routine
1503: okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1504: p_init_msg_list,
1505: x_return_status,
1506: x_msg_count,
1507: x_msg_data,
1579: , p13_a26 JTF_VARCHAR2_TABLE_100
1580: )
1581:
1582: as
1583: ddp_kle_tbl okl_mass_rebook_pvt.kle_tbl_type;
1584: ddp_transaction_date date;
1585: ddp_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1586: ddindx binary_integer; indx binary_integer;
1587: begin
1581:
1582: as
1583: ddp_kle_tbl okl_mass_rebook_pvt.kle_tbl_type;
1584: ddp_transaction_date date;
1585: ddp_payment_struc okl_mass_rebook_pvt.strm_lalevl_tbl_type;
1586: ddindx binary_integer; indx binary_integer;
1587: begin
1588:
1589: -- copy data to the local IN or IN-OUT args, if any
1592:
1593:
1594:
1595:
1596: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p39(ddp_kle_tbl, p6_a0
1597: );
1598:
1599:
1600:
1602:
1603:
1604:
1605:
1606: okl_mass_rebook_pvt_w.rosetta_table_copy_in_p35(ddp_payment_struc, p13_a0
1607: , p13_a1
1608: , p13_a2
1609: , p13_a3
1610: , p13_a4
1632: , p13_a26
1633: );
1634:
1635: -- here's the delegated call to the old PL/SQL routine
1636: okl_mass_rebook_pvt.apply_mass_rebook(p_api_version,
1637: p_init_msg_list,
1638: x_return_status,
1639: x_msg_count,
1640: x_msg_data,
1733: , p6_a30 out nocopy JTF_DATE_TABLE
1734: )
1735:
1736: as
1737: ddp_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
1738: ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
1739: ddindx binary_integer; indx binary_integer;
1740: begin
1741:
1734: )
1735:
1736: as
1737: ddp_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
1738: ddx_mstv_tbl okl_mass_rebook_pvt.mstv_tbl_type;
1739: ddindx binary_integer; indx binary_integer;
1740: begin
1741:
1742: -- copy data to the local IN or IN-OUT args, if any
1779: );
1780:
1781:
1782: -- here's the delegated call to the old PL/SQL routine
1783: okl_mass_rebook_pvt.update_mass_rbk_contract(p_api_version,
1784: p_init_msg_list,
1785: x_return_status,
1786: x_msg_count,
1787: x_msg_data,
1901: , p7_a31 out nocopy JTF_NUMBER_TABLE
1902: )
1903:
1904: as
1905: ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
1906: ddx_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
1907: ddindx binary_integer; indx binary_integer;
1908: begin
1909:
1902: )
1903:
1904: as
1905: ddp_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
1906: ddx_mrbv_tbl okl_mass_rebook_pvt.mrbv_tbl_type;
1907: ddindx binary_integer; indx binary_integer;
1908: begin
1909:
1910: -- copy data to the local IN or IN-OUT args, if any
1949: );
1950:
1951:
1952: -- here's the delegated call to the old PL/SQL routine
1953: okl_mass_rebook_pvt.create_mass_rbk_set_values(p_api_version,
1954: p_init_msg_list,
1955: x_return_status,
1956: x_msg_count,
1957: x_msg_data,
2001: , p7_a31
2002: );
2003: end;
2004:
2005: end okl_mass_rebook_pvt_w;