1: package body csp_parts_requirement_w as
2: /* $Header: cspwprqb.pls 120.0 2005/05/25 11:41:38 appldev 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 csp_parts_requirement.line_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_300
115: end loop;
116: end if;
117: end if;
118: end rosetta_table_copy_in_p2;
119: procedure rosetta_table_copy_out_p2(t csp_parts_requirement.line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
120: , a1 out nocopy JTF_NUMBER_TABLE
121: , a2 out nocopy JTF_NUMBER_TABLE
122: , a3 out nocopy JTF_NUMBER_TABLE
123: , a4 out nocopy JTF_VARCHAR2_TABLE_300
334: end if;
335: end if;
336: end rosetta_table_copy_out_p2;
337:
338: procedure rosetta_table_copy_in_p4(t out nocopy csp_parts_requirement.line_detail_tbl_type, a0 JTF_NUMBER_TABLE
339: , a1 JTF_NUMBER_TABLE
340: , a2 JTF_VARCHAR2_TABLE_100
341: , a3 JTF_NUMBER_TABLE
342: ) as
359: end loop;
360: end if;
361: end if;
362: end rosetta_table_copy_in_p4;
363: procedure rosetta_table_copy_out_p4(t csp_parts_requirement.line_detail_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
364: , a1 out nocopy JTF_NUMBER_TABLE
365: , a2 out nocopy JTF_VARCHAR2_TABLE_100
366: , a3 out nocopy JTF_NUMBER_TABLE
367: ) as
398: end if;
399: end if;
400: end rosetta_table_copy_out_p4;
401:
402: procedure rosetta_table_copy_in_p6(t out nocopy csp_parts_requirement.rqmt_line_tbl_type, a0 JTF_NUMBER_TABLE
403: ) as
404: ddindx binary_integer; indx binary_integer;
405: begin
406: if a0 is not null and a0.count > 0 then
417: end loop;
418: end if;
419: end if;
420: end rosetta_table_copy_in_p6;
421: procedure rosetta_table_copy_out_p6(t csp_parts_requirement.rqmt_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
422: ) as
423: ddindx binary_integer; indx binary_integer;
424: begin
425: if t is null or t.count = 0 then
441: end if;
442: end if;
443: end rosetta_table_copy_out_p6;
444:
445: procedure rosetta_table_copy_in_p8(t out nocopy csp_parts_requirement.order_tbl_type, a0 JTF_VARCHAR2_TABLE_100
446: , a1 JTF_NUMBER_TABLE
447: ) as
448: ddindx binary_integer; indx binary_integer;
449: begin
462: end loop;
463: end if;
464: end if;
465: end rosetta_table_copy_in_p8;
466: procedure rosetta_table_copy_out_p8(t csp_parts_requirement.order_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
467: , a1 out nocopy JTF_NUMBER_TABLE
468: ) as
469: ddindx binary_integer; indx binary_integer;
470: begin
577: , x_msg_data out nocopy VARCHAR2
578: )
579:
580: as
581: ddpx_header_rec csp_parts_requirement.header_rec_type;
582: ddpx_line_table csp_parts_requirement.line_tbl_type;
583: ddindx binary_integer; indx binary_integer;
584: begin
585:
578: )
579:
580: as
581: ddpx_header_rec csp_parts_requirement.header_rec_type;
582: ddpx_line_table csp_parts_requirement.line_tbl_type;
583: ddindx binary_integer; indx binary_integer;
584: begin
585:
586: -- copy data to the local IN or IN-OUT args, if any
623: ddpx_header_rec.attribute13 := p3_a33;
624: ddpx_header_rec.attribute14 := p3_a34;
625: ddpx_header_rec.attribute15 := p3_a35;
626:
627: csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
628: , p4_a1
629: , p4_a2
630: , p4_a3
631: , p4_a4
670:
671:
672:
673: -- here's the delegated call to the old PL/SQL routine
674: csp_parts_requirement.process_requirement(p_api_version,
675: p_init_msg_list,
676: p_commit,
677: ddpx_header_rec,
678: ddpx_line_table,
721: p3_a33 := ddpx_header_rec.attribute13;
722: p3_a34 := ddpx_header_rec.attribute14;
723: p3_a35 := ddpx_header_rec.attribute15;
724:
725: csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
726: , p4_a1
727: , p4_a2
728: , p4_a3
729: , p4_a4
853: , x_msg_data out nocopy VARCHAR2
854: )
855:
856: as
857: ddpx_header_rec csp_parts_requirement.header_rec_type;
858: ddpx_line_table csp_parts_requirement.line_tbl_type;
859: ddindx binary_integer; indx binary_integer;
860: begin
861:
854: )
855:
856: as
857: ddpx_header_rec csp_parts_requirement.header_rec_type;
858: ddpx_line_table csp_parts_requirement.line_tbl_type;
859: ddindx binary_integer; indx binary_integer;
860: begin
861:
862: -- copy data to the local IN or IN-OUT args, if any
899: ddpx_header_rec.attribute13 := p3_a33;
900: ddpx_header_rec.attribute14 := p3_a34;
901: ddpx_header_rec.attribute15 := p3_a35;
902:
903: csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
904: , p4_a1
905: , p4_a2
906: , p4_a3
907: , p4_a4
945:
946:
947:
948: -- here's the delegated call to the old PL/SQL routine
949: csp_parts_requirement.csptrreq_fm_order(p_api_version,
950: p_init_msg_list,
951: p_commit,
952: ddpx_header_rec,
953: ddpx_line_table,
995: p3_a33 := ddpx_header_rec.attribute13;
996: p3_a34 := ddpx_header_rec.attribute14;
997: p3_a35 := ddpx_header_rec.attribute15;
998:
999: csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
1000: , p4_a1
1001: , p4_a2
1002: , p4_a3
1003: , p4_a4
1126: , x_msg_data out nocopy VARCHAR2
1127: )
1128:
1129: as
1130: ddpx_header_rec csp_parts_requirement.header_rec_type;
1131: ddpx_line_table csp_parts_requirement.line_tbl_type;
1132: ddindx binary_integer; indx binary_integer;
1133: begin
1134:
1127: )
1128:
1129: as
1130: ddpx_header_rec csp_parts_requirement.header_rec_type;
1131: ddpx_line_table csp_parts_requirement.line_tbl_type;
1132: ddindx binary_integer; indx binary_integer;
1133: begin
1134:
1135: -- copy data to the local IN or IN-OUT args, if any
1172: ddpx_header_rec.attribute13 := p3_a33;
1173: ddpx_header_rec.attribute14 := p3_a34;
1174: ddpx_header_rec.attribute15 := p3_a35;
1175:
1176: csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_table, p4_a0
1177: , p4_a1
1178: , p4_a2
1179: , p4_a3
1180: , p4_a4
1218:
1219:
1220:
1221: -- here's the delegated call to the old PL/SQL routine
1222: csp_parts_requirement.csptrreq_order_res(p_api_version,
1223: p_init_msg_list,
1224: p_commit,
1225: ddpx_header_rec,
1226: ddpx_line_table,
1268: p3_a33 := ddpx_header_rec.attribute13;
1269: p3_a34 := ddpx_header_rec.attribute14;
1270: p3_a35 := ddpx_header_rec.attribute15;
1271:
1272: csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_table, p4_a0
1273: , p4_a1
1274: , p4_a2
1275: , p4_a3
1276: , p4_a4
1399: , x_msg_data out nocopy VARCHAR2
1400: )
1401:
1402: as
1403: ddpx_header_rec csp_parts_requirement.header_rec_type;
1404: ddpx_line_tbl csp_parts_requirement.line_tbl_type;
1405: ddindx binary_integer; indx binary_integer;
1406: begin
1407:
1400: )
1401:
1402: as
1403: ddpx_header_rec csp_parts_requirement.header_rec_type;
1404: ddpx_line_tbl csp_parts_requirement.line_tbl_type;
1405: ddindx binary_integer; indx binary_integer;
1406: begin
1407:
1408: -- copy data to the local IN or IN-OUT args, if any
1445: ddpx_header_rec.attribute13 := p3_a33;
1446: ddpx_header_rec.attribute14 := p3_a34;
1447: ddpx_header_rec.attribute15 := p3_a35;
1448:
1449: csp_parts_requirement_w.rosetta_table_copy_in_p2(ddpx_line_tbl, p4_a0
1450: , p4_a1
1451: , p4_a2
1452: , p4_a3
1453: , p4_a4
1491:
1492:
1493:
1494: -- here's the delegated call to the old PL/SQL routine
1495: csp_parts_requirement.save_rqmt_line(p_api_version,
1496: p_init_msg_list,
1497: p_commit,
1498: ddpx_header_rec,
1499: ddpx_line_tbl,
1541: p3_a33 := ddpx_header_rec.attribute13;
1542: p3_a34 := ddpx_header_rec.attribute14;
1543: p3_a35 := ddpx_header_rec.attribute15;
1544:
1545: csp_parts_requirement_w.rosetta_table_copy_out_p2(ddpx_line_tbl, p4_a0
1546: , p4_a1
1547: , p4_a2
1548: , p4_a3
1549: , p4_a4
1597: , x_msg_data out nocopy VARCHAR2
1598: )
1599:
1600: as
1601: ddp_line_tbl csp_parts_requirement.rqmt_line_tbl_type;
1602: ddindx binary_integer; indx binary_integer;
1603: begin
1604:
1605: -- copy data to the local IN or IN-OUT args, if any
1605: -- copy data to the local IN or IN-OUT args, if any
1606:
1607:
1608:
1609: csp_parts_requirement_w.rosetta_table_copy_in_p6(ddp_line_tbl, p3_a0
1610: );
1611:
1612:
1613:
1612:
1613:
1614:
1615: -- here's the delegated call to the old PL/SQL routine
1616: csp_parts_requirement.delete_rqmt_line(p_api_version,
1617: p_init_msg_list,
1618: p_commit,
1619: ddp_line_tbl,
1620: x_return_status,
1624: -- copy data back from the local variables to OUT or IN-OUT args, if any
1625:
1626:
1627:
1628: csp_parts_requirement_w.rosetta_table_copy_out_p6(ddp_line_tbl, p3_a0
1629: );
1630:
1631:
1632:
1682: , x_msg_data out nocopy VARCHAR2
1683: )
1684:
1685: as
1686: ddx_line_tbl csp_parts_requirement.line_tbl_type;
1687: ddindx binary_integer; indx binary_integer;
1688: begin
1689:
1690: -- copy data to the local IN or IN-OUT args, if any
1697:
1698:
1699:
1700: -- here's the delegated call to the old PL/SQL routine
1701: csp_parts_requirement.check_availability(p_api_version,
1702: p_init_msg_list,
1703: p_commit,
1704: p_header_id,
1705: ddx_line_tbl,
1712:
1713:
1714:
1715:
1716: csp_parts_requirement_w.rosetta_table_copy_out_p2(ddx_line_tbl, p4_a0
1717: , p4_a1
1718: , p4_a2
1719: , p4_a3
1720: , p4_a4
1771: , x_msg_data out nocopy VARCHAR2
1772: )
1773:
1774: as
1775: ddx_order_tbl csp_parts_requirement.order_tbl_type;
1776: ddindx binary_integer; indx binary_integer;
1777: begin
1778:
1779: -- copy data to the local IN or IN-OUT args, if any
1785:
1786:
1787:
1788: -- here's the delegated call to the old PL/SQL routine
1789: csp_parts_requirement.create_order(p_api_version,
1790: p_init_msg_list,
1791: p_commit,
1792: p_header_id,
1793: ddx_order_tbl,
1799:
1800:
1801:
1802:
1803: csp_parts_requirement_w.rosetta_table_copy_out_p8(ddx_order_tbl, p4_a0
1804: , p4_a1
1805: );
1806:
1807:
1807:
1808:
1809: end;
1810:
1811: end csp_parts_requirement_w;