[Home] [Help]
1: package body csp_sch_int_pvt_w as
2: /* $Header: cspvscib.pls 120.6.12020000.2 2012/07/17 08:03:20 htank 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');
12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p13(t out nocopy csp_sch_int_pvt.csp_sch_resource_tbl_typ, a0 JTF_NUMBER_TABLE
17: , a1 JTF_VARCHAR2_TABLE_100
18: ) as
19: ddindx binary_integer; indx binary_integer;
20: begin
18: ) as
19: ddindx binary_integer; indx binary_integer;
20: begin
21: if a0 is not null and a0.count=0 then
22: t := csp_sch_int_pvt.csp_sch_resource_tbl_typ();
23: elsif a0 is not null and a0.count > 0 then
24: if a0.count > 0 then
25: t := csp_sch_int_pvt.csp_sch_resource_tbl_typ();
26: t.extend(a0.count);
21: if a0 is not null and a0.count=0 then
22: t := csp_sch_int_pvt.csp_sch_resource_tbl_typ();
23: elsif a0 is not null and a0.count > 0 then
24: if a0.count > 0 then
25: t := csp_sch_int_pvt.csp_sch_resource_tbl_typ();
26: t.extend(a0.count);
27: indx := a0.first;
28: ddindx := 1;
29: while true loop
37: end loop;
38: end if;
39: end if;
40: end rosetta_table_copy_in_p13;
41: procedure rosetta_table_copy_out_p13(t csp_sch_int_pvt.csp_sch_resource_tbl_typ, a0 out nocopy JTF_NUMBER_TABLE
42: , a1 out nocopy JTF_VARCHAR2_TABLE_100
43: ) as
44: ddindx binary_integer; indx binary_integer;
45: begin
69: end if;
70: end if;
71: end rosetta_table_copy_out_p13;
72:
73: procedure rosetta_table_copy_in_p14(t out nocopy csp_sch_int_pvt.csp_sch_options_tbl_typ, a0 JTF_NUMBER_TABLE
74: , a1 JTF_VARCHAR2_TABLE_100
75: , a2 JTF_DATE_TABLE
76: , a3 JTF_NUMBER_TABLE
77: , a4 JTF_NUMBER_TABLE
82: ) as
83: ddindx binary_integer; indx binary_integer;
84: begin
85: if a0 is not null and a0.count=0 then
86: t := csp_sch_int_pvt.csp_sch_options_tbl_typ();
87: elsif a0 is not null and a0.count > 0 then
88: if a0.count > 0 then
89: t := csp_sch_int_pvt.csp_sch_options_tbl_typ();
90: t.extend(a0.count);
85: if a0 is not null and a0.count=0 then
86: t := csp_sch_int_pvt.csp_sch_options_tbl_typ();
87: elsif a0 is not null and a0.count > 0 then
88: if a0.count > 0 then
89: t := csp_sch_int_pvt.csp_sch_options_tbl_typ();
90: t.extend(a0.count);
91: indx := a0.first;
92: ddindx := 1;
93: while true loop
108: end loop;
109: end if;
110: end if;
111: end rosetta_table_copy_in_p14;
112: procedure rosetta_table_copy_out_p14(t csp_sch_int_pvt.csp_sch_options_tbl_typ, a0 out nocopy JTF_NUMBER_TABLE
113: , a1 out nocopy JTF_VARCHAR2_TABLE_100
114: , a2 out nocopy JTF_DATE_TABLE
115: , a3 out nocopy JTF_NUMBER_TABLE
116: , a4 out nocopy JTF_NUMBER_TABLE
182: end if;
183: end if;
184: end rosetta_table_copy_out_p14;
185:
186: procedure rosetta_table_copy_in_p15(t out nocopy csp_sch_int_pvt.csp_unavailability_tbl_type, a0 JTF_NUMBER_TABLE
187: , a1 JTF_VARCHAR2_TABLE_100
188: , a2 JTF_NUMBER_TABLE
189: , a3 JTF_NUMBER_TABLE
190: , a4 JTF_VARCHAR2_TABLE_100
196: ) as
197: ddindx binary_integer; indx binary_integer;
198: begin
199: if a0 is not null and a0.count=0 then
200: t := csp_sch_int_pvt.csp_unavailability_tbl_type();
201: elsif a0 is not null and a0.count > 0 then
202: if a0.count > 0 then
203: t := csp_sch_int_pvt.csp_unavailability_tbl_type();
204: t.extend(a0.count);
199: if a0 is not null and a0.count=0 then
200: t := csp_sch_int_pvt.csp_unavailability_tbl_type();
201: elsif a0 is not null and a0.count > 0 then
202: if a0.count > 0 then
203: t := csp_sch_int_pvt.csp_unavailability_tbl_type();
204: t.extend(a0.count);
205: indx := a0.first;
206: ddindx := 1;
207: while true loop
223: end loop;
224: end if;
225: end if;
226: end rosetta_table_copy_in_p15;
227: procedure rosetta_table_copy_out_p15(t csp_sch_int_pvt.csp_unavailability_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
228: , a1 out nocopy JTF_VARCHAR2_TABLE_100
229: , a2 out nocopy JTF_NUMBER_TABLE
230: , a3 out nocopy JTF_NUMBER_TABLE
231: , a4 out nocopy JTF_VARCHAR2_TABLE_100
303: end if;
304: end if;
305: end rosetta_table_copy_out_p15;
306:
307: procedure rosetta_table_copy_in_p16(t out nocopy csp_sch_int_pvt.csp_availability_tbl_type, a0 JTF_NUMBER_TABLE
308: , a1 JTF_VARCHAR2_TABLE_100
309: , a2 JTF_NUMBER_TABLE
310: , a3 JTF_NUMBER_TABLE
311: , a4 JTF_NUMBER_TABLE
324: ) as
325: ddindx binary_integer; indx binary_integer;
326: begin
327: if a0 is not null and a0.count=0 then
328: t := csp_sch_int_pvt.csp_availability_tbl_type();
329: elsif a0 is not null and a0.count > 0 then
330: if a0.count > 0 then
331: t := csp_sch_int_pvt.csp_availability_tbl_type();
332: t.extend(a0.count);
327: if a0 is not null and a0.count=0 then
328: t := csp_sch_int_pvt.csp_availability_tbl_type();
329: elsif a0 is not null and a0.count > 0 then
330: if a0.count > 0 then
331: t := csp_sch_int_pvt.csp_availability_tbl_type();
332: t.extend(a0.count);
333: indx := a0.first;
334: ddindx := 1;
335: while true loop
358: end loop;
359: end if;
360: end if;
361: end rosetta_table_copy_in_p16;
362: procedure rosetta_table_copy_out_p16(t csp_sch_int_pvt.csp_availability_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
363: , a1 out nocopy JTF_VARCHAR2_TABLE_100
364: , a2 out nocopy JTF_NUMBER_TABLE
365: , a3 out nocopy JTF_NUMBER_TABLE
366: , a4 out nocopy JTF_NUMBER_TABLE
480: end if;
481: end if;
482: end rosetta_table_copy_out_p16;
483:
484: procedure rosetta_table_copy_in_p17(t out nocopy csp_sch_int_pvt.csp_parts_tbl_type, a0 JTF_NUMBER_TABLE
485: , a1 JTF_VARCHAR2_TABLE_100
486: , a2 JTF_VARCHAR2_TABLE_100
487: , a3 JTF_NUMBER_TABLE
488: , a4 JTF_VARCHAR2_TABLE_100
490: ) as
491: ddindx binary_integer; indx binary_integer;
492: begin
493: if a0 is not null and a0.count=0 then
494: t := csp_sch_int_pvt.csp_parts_tbl_type();
495: elsif a0 is not null and a0.count > 0 then
496: if a0.count > 0 then
497: t := csp_sch_int_pvt.csp_parts_tbl_type();
498: t.extend(a0.count);
493: if a0 is not null and a0.count=0 then
494: t := csp_sch_int_pvt.csp_parts_tbl_type();
495: elsif a0 is not null and a0.count > 0 then
496: if a0.count > 0 then
497: t := csp_sch_int_pvt.csp_parts_tbl_type();
498: t.extend(a0.count);
499: indx := a0.first;
500: ddindx := 1;
501: while true loop
513: end loop;
514: end if;
515: end if;
516: end rosetta_table_copy_in_p17;
517: procedure rosetta_table_copy_out_p17(t csp_sch_int_pvt.csp_parts_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
518: , a1 out nocopy JTF_VARCHAR2_TABLE_100
519: , a2 out nocopy JTF_VARCHAR2_TABLE_100
520: , a3 out nocopy JTF_NUMBER_TABLE
521: , a4 out nocopy JTF_VARCHAR2_TABLE_100
569: end if;
570: end if;
571: end rosetta_table_copy_out_p17;
572:
573: procedure rosetta_table_copy_in_p18(t out nocopy csp_sch_int_pvt.available_parts_tbl_typ, a0 JTF_NUMBER_TABLE
574: , a1 JTF_VARCHAR2_TABLE_100
575: , a2 JTF_NUMBER_TABLE
576: , a3 JTF_NUMBER_TABLE
577: , a4 JTF_VARCHAR2_TABLE_100
589: ) as
590: ddindx binary_integer; indx binary_integer;
591: begin
592: if a0 is not null and a0.count=0 then
593: t := csp_sch_int_pvt.available_parts_tbl_typ();
594: elsif a0 is not null and a0.count > 0 then
595: if a0.count > 0 then
596: t := csp_sch_int_pvt.available_parts_tbl_typ();
597: t.extend(a0.count);
592: if a0 is not null and a0.count=0 then
593: t := csp_sch_int_pvt.available_parts_tbl_typ();
594: elsif a0 is not null and a0.count > 0 then
595: if a0.count > 0 then
596: t := csp_sch_int_pvt.available_parts_tbl_typ();
597: t.extend(a0.count);
598: indx := a0.first;
599: ddindx := 1;
600: while true loop
622: end loop;
623: end if;
624: end if;
625: end rosetta_table_copy_in_p18;
626: procedure rosetta_table_copy_out_p18(t csp_sch_int_pvt.available_parts_tbl_typ, a0 out nocopy JTF_NUMBER_TABLE
627: , a1 out nocopy JTF_VARCHAR2_TABLE_100
628: , a2 out nocopy JTF_NUMBER_TABLE
629: , a3 out nocopy JTF_NUMBER_TABLE
630: , a4 out nocopy JTF_VARCHAR2_TABLE_100
738: end if;
739: end if;
740: end rosetta_table_copy_out_p18;
741:
742: procedure rosetta_table_copy_in_p19(t out nocopy csp_sch_int_pvt.available_parts_tbl_typ1, a0 JTF_NUMBER_TABLE
743: , a1 JTF_VARCHAR2_TABLE_100
744: , a2 JTF_NUMBER_TABLE
745: , a3 JTF_NUMBER_TABLE
746: , a4 JTF_VARCHAR2_TABLE_100
787: end loop;
788: end if;
789: end if;
790: end rosetta_table_copy_in_p19;
791: procedure rosetta_table_copy_out_p19(t csp_sch_int_pvt.available_parts_tbl_typ1, a0 out nocopy JTF_NUMBER_TABLE
792: , a1 out nocopy JTF_VARCHAR2_TABLE_100
793: , a2 out nocopy JTF_NUMBER_TABLE
794: , a3 out nocopy JTF_NUMBER_TABLE
795: , a4 out nocopy JTF_VARCHAR2_TABLE_100
886: end if;
887: end if;
888: end rosetta_table_copy_out_p19;
889:
890: procedure rosetta_table_copy_in_p20(t out nocopy csp_sch_int_pvt.csp_parts_tbl_typ1, a0 JTF_NUMBER_TABLE
891: , a1 JTF_VARCHAR2_TABLE_100
892: , a2 JTF_VARCHAR2_TABLE_100
893: , a3 JTF_NUMBER_TABLE
894: , a4 JTF_VARCHAR2_TABLE_100
915: end loop;
916: end if;
917: end if;
918: end rosetta_table_copy_in_p20;
919: procedure rosetta_table_copy_out_p20(t csp_sch_int_pvt.csp_parts_tbl_typ1, a0 out nocopy JTF_NUMBER_TABLE
920: , a1 out nocopy JTF_VARCHAR2_TABLE_100
921: , a2 out nocopy JTF_VARCHAR2_TABLE_100
922: , a3 out nocopy JTF_NUMBER_TABLE
923: , a4 out nocopy JTF_VARCHAR2_TABLE_100
964: end if;
965: end if;
966: end rosetta_table_copy_out_p20;
967:
968: procedure rosetta_table_copy_in_p21(t out nocopy csp_sch_int_pvt.ws_available_parts_tbl_typ, a0 JTF_NUMBER_TABLE
969: , a1 JTF_VARCHAR2_TABLE_100
970: , a2 JTF_NUMBER_TABLE
971: , a3 JTF_VARCHAR2_TABLE_100
972: , a4 JTF_VARCHAR2_TABLE_100
989: ) as
990: ddindx binary_integer; indx binary_integer;
991: begin
992: if a0 is not null and a0.count=0 then
993: t := csp_sch_int_pvt.ws_available_parts_tbl_typ();
994: elsif a0 is not null and a0.count > 0 then
995: if a0.count > 0 then
996: t := csp_sch_int_pvt.ws_available_parts_tbl_typ();
997: t.extend(a0.count);
992: if a0 is not null and a0.count=0 then
993: t := csp_sch_int_pvt.ws_available_parts_tbl_typ();
994: elsif a0 is not null and a0.count > 0 then
995: if a0.count > 0 then
996: t := csp_sch_int_pvt.ws_available_parts_tbl_typ();
997: t.extend(a0.count);
998: indx := a0.first;
999: ddindx := 1;
1000: while true loop
1027: end loop;
1028: end if;
1029: end if;
1030: end rosetta_table_copy_in_p21;
1031: procedure rosetta_table_copy_out_p21(t csp_sch_int_pvt.ws_available_parts_tbl_typ, a0 out nocopy JTF_NUMBER_TABLE
1032: , a1 out nocopy JTF_VARCHAR2_TABLE_100
1033: , a2 out nocopy JTF_NUMBER_TABLE
1034: , a3 out nocopy JTF_VARCHAR2_TABLE_100
1035: , a4 out nocopy JTF_VARCHAR2_TABLE_100
1173: end if;
1174: end if;
1175: end rosetta_table_copy_out_p21;
1176:
1177: procedure rosetta_table_copy_in_p22(t out nocopy csp_sch_int_pvt.csp_ws_resource_table_type, a0 JTF_VARCHAR2_TABLE_100
1178: , a1 JTF_NUMBER_TABLE
1179: , a2 JTF_NUMBER_TABLE
1180: , a3 JTF_VARCHAR2_TABLE_100
1181: , a4 JTF_VARCHAR2_TABLE_100
1183: ) as
1184: ddindx binary_integer; indx binary_integer;
1185: begin
1186: if a0 is not null and a0.count=0 then
1187: t := csp_sch_int_pvt.csp_ws_resource_table_type();
1188: elsif a0 is not null and a0.count > 0 then
1189: if a0.count > 0 then
1190: t := csp_sch_int_pvt.csp_ws_resource_table_type();
1191: t.extend(a0.count);
1186: if a0 is not null and a0.count=0 then
1187: t := csp_sch_int_pvt.csp_ws_resource_table_type();
1188: elsif a0 is not null and a0.count > 0 then
1189: if a0.count > 0 then
1190: t := csp_sch_int_pvt.csp_ws_resource_table_type();
1191: t.extend(a0.count);
1192: indx := a0.first;
1193: ddindx := 1;
1194: while true loop
1206: end loop;
1207: end if;
1208: end if;
1209: end rosetta_table_copy_in_p22;
1210: procedure rosetta_table_copy_out_p22(t csp_sch_int_pvt.csp_ws_resource_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
1211: , a1 out nocopy JTF_NUMBER_TABLE
1212: , a2 out nocopy JTF_NUMBER_TABLE
1213: , a3 out nocopy JTF_VARCHAR2_TABLE_100
1214: , a4 out nocopy JTF_VARCHAR2_TABLE_100
1262: end if;
1263: end if;
1264: end rosetta_table_copy_out_p22;
1265:
1266: procedure rosetta_table_copy_in_p23(t out nocopy csp_sch_int_pvt.alternate_items_table_type, a0 JTF_NUMBER_TABLE
1267: , a1 JTF_VARCHAR2_TABLE_100
1268: , a2 JTF_VARCHAR2_TABLE_100
1269: , a3 JTF_NUMBER_TABLE
1270: , a4 JTF_NUMBER_TABLE
1274: ) as
1275: ddindx binary_integer; indx binary_integer;
1276: begin
1277: if a0 is not null and a0.count=0 then
1278: t := csp_sch_int_pvt.alternate_items_table_type();
1279: elsif a0 is not null and a0.count > 0 then
1280: if a0.count > 0 then
1281: t := csp_sch_int_pvt.alternate_items_table_type();
1282: t.extend(a0.count);
1277: if a0 is not null and a0.count=0 then
1278: t := csp_sch_int_pvt.alternate_items_table_type();
1279: elsif a0 is not null and a0.count > 0 then
1280: if a0.count > 0 then
1281: t := csp_sch_int_pvt.alternate_items_table_type();
1282: t.extend(a0.count);
1283: indx := a0.first;
1284: ddindx := 1;
1285: while true loop
1299: end loop;
1300: end if;
1301: end if;
1302: end rosetta_table_copy_in_p23;
1303: procedure rosetta_table_copy_out_p23(t csp_sch_int_pvt.alternate_items_table_type, a0 out nocopy JTF_NUMBER_TABLE
1304: , a1 out nocopy JTF_VARCHAR2_TABLE_100
1305: , a2 out nocopy JTF_VARCHAR2_TABLE_100
1306: , a3 out nocopy JTF_NUMBER_TABLE
1307: , a4 out nocopy JTF_NUMBER_TABLE
1393: , x_msg_count out nocopy NUMBER
1394: )
1395:
1396: as
1397: ddp_resources csp_sch_int_pvt.csp_sch_resource_tbl_typ;
1398: ddp_interval csp_sch_int_pvt.csp_sch_interval_rec_typ;
1399: ddp_subinv_only boolean;
1400: ddp_mandatory boolean;
1401: ddp_trunk boolean;
1394: )
1395:
1396: as
1397: ddp_resources csp_sch_int_pvt.csp_sch_resource_tbl_typ;
1398: ddp_interval csp_sch_int_pvt.csp_sch_interval_rec_typ;
1399: ddp_subinv_only boolean;
1400: ddp_mandatory boolean;
1401: ddp_trunk boolean;
1402: ddp_warehouse boolean;
1399: ddp_subinv_only boolean;
1400: ddp_mandatory boolean;
1401: ddp_trunk boolean;
1402: ddp_warehouse boolean;
1403: ddx_options csp_sch_int_pvt.csp_sch_options_tbl_typ;
1404: ddindx binary_integer; indx binary_integer;
1405: begin
1406:
1407: -- copy data to the local IN or IN-OUT args, if any
1406:
1407: -- copy data to the local IN or IN-OUT args, if any
1408:
1409:
1410: csp_sch_int_pvt_w.rosetta_table_copy_in_p13(ddp_resources, p2_a0
1411: , p2_a1
1412: );
1413:
1414: ddp_interval.earliest_time := rosetta_g_miss_date_in_map(p3_a0);
1447:
1448:
1449:
1450: -- here's the delegated call to the old PL/SQL routine
1451: csp_sch_int_pvt.get_availability_options(p_api_version_number,
1452: p_task_id,
1453: ddp_resources,
1454: ddp_interval,
1455: p_likelihood,
1471:
1472:
1473:
1474:
1475: csp_sch_int_pvt_w.rosetta_table_copy_out_p14(ddx_options, p9_a0
1476: , p9_a1
1477: , p9_a2
1478: , p9_a3
1479: , p9_a4
1511: as
1512: ddp_mandatory boolean;
1513: ddp_trunk boolean;
1514: ddp_warehouse boolean;
1515: ddp_options csp_sch_int_pvt.csp_sch_options_rec_typ;
1516: ddindx binary_integer; indx binary_integer;
1517: begin
1518:
1519: -- copy data to the local IN or IN-OUT args, if any
1555:
1556:
1557:
1558: -- here's the delegated call to the old PL/SQL routine
1559: csp_sch_int_pvt.choose_option(p_api_version_number,
1560: p_task_id,
1561: p_task_assignment_id,
1562: p_likelihood,
1563: ddp_mandatory,
1616: , p_location_id NUMBER
1617: )
1618:
1619: as
1620: ddp_resource csp_sch_int_pvt.csp_sch_resources_rec_typ;
1621: ddp_need_by_date date;
1622: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1623: ddx_availability csp_sch_int_pvt.available_parts_tbl_typ1;
1624: ddindx binary_integer; indx binary_integer;
1618:
1619: as
1620: ddp_resource csp_sch_int_pvt.csp_sch_resources_rec_typ;
1621: ddp_need_by_date date;
1622: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1623: ddx_availability csp_sch_int_pvt.available_parts_tbl_typ1;
1624: ddindx binary_integer; indx binary_integer;
1625: begin
1626:
1619: as
1620: ddp_resource csp_sch_int_pvt.csp_sch_resources_rec_typ;
1621: ddp_need_by_date date;
1622: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1623: ddx_availability csp_sch_int_pvt.available_parts_tbl_typ1;
1624: ddindx binary_integer; indx binary_integer;
1625: begin
1626:
1627: -- copy data to the local IN or IN-OUT args, if any
1631:
1632:
1633: ddp_need_by_date := rosetta_g_miss_date_in_map(p_need_by_date);
1634:
1635: csp_sch_int_pvt_w.rosetta_table_copy_in_p20(ddp_parts_list, p4_a0
1636: , p4_a1
1637: , p4_a2
1638: , p4_a3
1639: , p4_a4
1647:
1648:
1649:
1650: -- here's the delegated call to the old PL/SQL routine
1651: csp_sch_int_pvt.check_parts_availability(ddp_resource,
1652: p_organization_id,
1653: p_subinv_code,
1654: ddp_need_by_date,
1655: ddp_parts_list,
1667:
1668:
1669:
1670:
1671: csp_sch_int_pvt_w.rosetta_table_copy_out_p19(ddx_availability, p6_a0
1672: , p6_a1
1673: , p6_a2
1674: , p6_a3
1675: , p6_a4
1704: , x_msg_data out nocopy VARCHAR2
1705: ) return number
1706:
1707: as
1708: ddp_reservation_parts csp_sch_int_pvt.reservation_rec_typ;
1709: ddindx binary_integer; indx binary_integer;
1710: ddrosetta_retval number;
1711: begin
1712:
1722:
1723:
1724:
1725: -- here's the delegated call to the old PL/SQL routine
1726: ddrosetta_retval := csp_sch_int_pvt.create_reservation(ddp_reservation_parts,
1727: x_return_status,
1728: x_msg_data);
1729:
1730: -- copy data back from the local variables to OUT or IN-OUT args, if any
1773: , x_msg_count out nocopy NUMBER
1774: )
1775:
1776: as
1777: ddp_resource_list csp_sch_int_pvt.csp_ws_resource_table_type;
1778: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1779: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1780: ddindx binary_integer; indx binary_integer;
1781: begin
1774: )
1775:
1776: as
1777: ddp_resource_list csp_sch_int_pvt.csp_ws_resource_table_type;
1778: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1779: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1780: ddindx binary_integer; indx binary_integer;
1781: begin
1782:
1775:
1776: as
1777: ddp_resource_list csp_sch_int_pvt.csp_ws_resource_table_type;
1778: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1779: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1780: ddindx binary_integer; indx binary_integer;
1781: begin
1782:
1783: -- copy data to the local IN or IN-OUT args, if any
1780: ddindx binary_integer; indx binary_integer;
1781: begin
1782:
1783: -- copy data to the local IN or IN-OUT args, if any
1784: csp_sch_int_pvt_w.rosetta_table_copy_in_p22(ddp_resource_list, p0_a0
1785: , p0_a1
1786: , p0_a2
1787: , p0_a3
1788: , p0_a4
1788: , p0_a4
1789: , p0_a5
1790: );
1791:
1792: csp_sch_int_pvt_w.rosetta_table_copy_in_p20(ddp_parts_list, p1_a0
1793: , p1_a1
1794: , p1_a2
1795: , p1_a3
1796: , p1_a4
1802:
1803:
1804:
1805: -- here's the delegated call to the old PL/SQL routine
1806: csp_sch_int_pvt.ws_check_other_eng_subinv(ddp_resource_list,
1807: ddp_parts_list,
1808: p_include_alternate,
1809: ddx_available_list,
1810: x_return_status,
1814: -- copy data back from the local variables to OUT or IN-OUT args, if any
1815:
1816:
1817:
1818: csp_sch_int_pvt_w.rosetta_table_copy_out_p21(ddx_available_list, p3_a0
1819: , p3_a1
1820: , p3_a2
1821: , p3_a3
1822: , p3_a4
1877: , x_msg_count out nocopy NUMBER
1878: )
1879:
1880: as
1881: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1882: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1883: ddindx binary_integer; indx binary_integer;
1884: begin
1885:
1878: )
1879:
1880: as
1881: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1882: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1883: ddindx binary_integer; indx binary_integer;
1884: begin
1885:
1886: -- copy data to the local IN or IN-OUT args, if any
1885:
1886: -- copy data to the local IN or IN-OUT args, if any
1887:
1888:
1889: csp_sch_int_pvt_w.rosetta_table_copy_in_p20(ddp_parts_list, p2_a0
1890: , p2_a1
1891: , p2_a2
1892: , p2_a3
1893: , p2_a4
1899:
1900:
1901:
1902: -- here's the delegated call to the old PL/SQL routine
1903: csp_sch_int_pvt.ws_check_engineers_subinv(p_resource_type,
1904: p_resource_id,
1905: ddp_parts_list,
1906: p_include_alternate,
1907: ddx_available_list,
1913:
1914:
1915:
1916:
1917: csp_sch_int_pvt_w.rosetta_table_copy_out_p21(ddx_available_list, p4_a0
1918: , p4_a1
1919: , p4_a2
1920: , p4_a3
1921: , p4_a4
1976: , x_msg_count out nocopy NUMBER
1977: )
1978:
1979: as
1980: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1981: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1982: ddindx binary_integer; indx binary_integer;
1983: begin
1984:
1977: )
1978:
1979: as
1980: ddp_parts_list csp_sch_int_pvt.csp_parts_tbl_typ1;
1981: ddx_available_list csp_sch_int_pvt.ws_available_parts_tbl_typ;
1982: ddindx binary_integer; indx binary_integer;
1983: begin
1984:
1985: -- copy data to the local IN or IN-OUT args, if any
1984:
1985: -- copy data to the local IN or IN-OUT args, if any
1986:
1987:
1988: csp_sch_int_pvt_w.rosetta_table_copy_in_p20(ddp_parts_list, p2_a0
1989: , p2_a1
1990: , p2_a2
1991: , p2_a3
1992: , p2_a4
1998:
1999:
2000:
2001: -- here's the delegated call to the old PL/SQL routine
2002: csp_sch_int_pvt.ws_check_organizations(p_resource_type,
2003: p_resource_id,
2004: ddp_parts_list,
2005: p_include_alternate,
2006: ddx_available_list,
2012:
2013:
2014:
2015:
2016: csp_sch_int_pvt_w.rosetta_table_copy_out_p21(ddx_available_list, p4_a0
2017: , p4_a1
2018: , p4_a2
2019: , p4_a3
2020: , p4_a4
2060: , x_msg_count out nocopy NUMBER
2061: )
2062:
2063: as
2064: ddp_parts_rec csp_sch_int_pvt.csp_parts_rec_type;
2065: ddpx_alternate_items csp_sch_int_pvt.alternate_items_table_type;
2066: ddindx binary_integer; indx binary_integer;
2067: begin
2068:
2061: )
2062:
2063: as
2064: ddp_parts_rec csp_sch_int_pvt.csp_parts_rec_type;
2065: ddpx_alternate_items csp_sch_int_pvt.alternate_items_table_type;
2066: ddindx binary_integer; indx binary_integer;
2067: begin
2068:
2069: -- copy data to the local IN or IN-OUT args, if any
2074: ddp_parts_rec.ship_set_name := p0_a4;
2075: ddp_parts_rec.line_id := p0_a5;
2076:
2077:
2078: csp_sch_int_pvt_w.rosetta_table_copy_in_p23(ddpx_alternate_items, p2_a0
2079: , p2_a1
2080: , p2_a2
2081: , p2_a3
2082: , p2_a4
2088:
2089:
2090:
2091: -- here's the delegated call to the old PL/SQL routine
2092: csp_sch_int_pvt.get_alternates(ddp_parts_rec,
2093: p_org_id,
2094: ddpx_alternate_items,
2095: x_return_status,
2096: x_msg_data,
2098:
2099: -- copy data back from the local variables to OUT or IN-OUT args, if any
2100:
2101:
2102: csp_sch_int_pvt_w.rosetta_table_copy_out_p23(ddpx_alternate_items, p2_a0
2103: , p2_a1
2104: , p2_a2
2105: , p2_a3
2106: , p2_a4
2133:
2134:
2135:
2136: -- here's the delegated call to the old PL/SQL routine
2137: csp_sch_int_pvt.get_delivery_date(p_relation_ship_id,
2138: x_delivery_date,
2139: ddx_shipping_option,
2140: x_return_status,
2141: x_msg_data,
2171:
2172:
2173:
2174: -- here's the delegated call to the old PL/SQL routine
2175: ddrosetta_retval := csp_sch_int_pvt.get_arrival_date(ddp_ship_date,
2176: p_lead_time,
2177: p_org_id);
2178:
2179: -- copy data back from the local variables to OUT or IN-OUT args, if any
2204: , x_msg_count out nocopy NUMBER
2205: )
2206:
2207: as
2208: ddp_resources csp_sch_int_pvt.csp_sch_resource_tbl_typ;
2209: ddp_need_by_date date;
2210: ddp_trunk boolean;
2211: ddp_warehouse boolean;
2212: ddp_mandatory boolean;
2209: ddp_need_by_date date;
2210: ddp_trunk boolean;
2211: ddp_warehouse boolean;
2212: ddp_mandatory boolean;
2213: ddx_options csp_sch_int_pvt.csp_sch_options_tbl_typ;
2214: ddindx binary_integer; indx binary_integer;
2215: begin
2216:
2217: -- copy data to the local IN or IN-OUT args, if any
2214: ddindx binary_integer; indx binary_integer;
2215: begin
2216:
2217: -- copy data to the local IN or IN-OUT args, if any
2218: csp_sch_int_pvt_w.rosetta_table_copy_in_p13(ddp_resources, p0_a0
2219: , p0_a1
2220: );
2221:
2222:
2247:
2248:
2249:
2250: -- here's the delegated call to the old PL/SQL routine
2251: csp_sch_int_pvt.spares_check2(ddp_resources,
2252: p_task_id,
2253: ddp_need_by_date,
2254: ddp_trunk,
2255: ddp_warehouse,
2265:
2266:
2267:
2268:
2269: csp_sch_int_pvt_w.rosetta_table_copy_out_p14(ddx_options, p6_a0
2270: , p6_a1
2271: , p6_a2
2272: , p6_a3
2273: , p6_a4
2280:
2281:
2282: end;
2283:
2284: end csp_sch_int_pvt_w;