373 lines
8.9 KiB
Mathematica
373 lines
8.9 KiB
Mathematica
YTQQI00B ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
|
|
;;5.01;MENTAL HEALTH;**85**;;Build 48
|
|
Q:'DIFQR(601.751) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
|
Q Q
|
|
;;^UTILITY(U,$J,601.751,1714,0)
|
|
;;=6258^2^3
|
|
;;^UTILITY(U,$J,601.751,1715,0)
|
|
;;=6258^3^4
|
|
;;^UTILITY(U,$J,601.751,1716,0)
|
|
;;=6258^4^5
|
|
;;^UTILITY(U,$J,601.751,1717,0)
|
|
;;=6258^5^1457
|
|
;;^UTILITY(U,$J,601.751,1718,0)
|
|
;;=6259^1^1
|
|
;;^UTILITY(U,$J,601.751,1719,0)
|
|
;;=6259^2^3
|
|
;;^UTILITY(U,$J,601.751,1720,0)
|
|
;;=6259^3^4
|
|
;;^UTILITY(U,$J,601.751,1721,0)
|
|
;;=6259^4^5
|
|
;;^UTILITY(U,$J,601.751,1722,0)
|
|
;;=6259^5^1457
|
|
;;^UTILITY(U,$J,601.751,1723,0)
|
|
;;=6260^1^1
|
|
;;^UTILITY(U,$J,601.751,1724,0)
|
|
;;=6260^2^3
|
|
;;^UTILITY(U,$J,601.751,1725,0)
|
|
;;=6260^3^4
|
|
;;^UTILITY(U,$J,601.751,1726,0)
|
|
;;=6260^4^5
|
|
;;^UTILITY(U,$J,601.751,1727,0)
|
|
;;=6260^5^1457
|
|
;;^UTILITY(U,$J,601.751,1728,0)
|
|
;;=6261^1^1
|
|
;;^UTILITY(U,$J,601.751,1729,0)
|
|
;;=6261^2^3
|
|
;;^UTILITY(U,$J,601.751,1730,0)
|
|
;;=6261^3^4
|
|
;;^UTILITY(U,$J,601.751,1731,0)
|
|
;;=6261^4^5
|
|
;;^UTILITY(U,$J,601.751,1732,0)
|
|
;;=6261^5^1457
|
|
;;^UTILITY(U,$J,601.751,1733,0)
|
|
;;=6262^1^1
|
|
;;^UTILITY(U,$J,601.751,1734,0)
|
|
;;=6262^2^3
|
|
;;^UTILITY(U,$J,601.751,1735,0)
|
|
;;=6262^3^4
|
|
;;^UTILITY(U,$J,601.751,1736,0)
|
|
;;=6262^4^5
|
|
;;^UTILITY(U,$J,601.751,1737,0)
|
|
;;=6262^5^1457
|
|
;;^UTILITY(U,$J,601.751,1738,0)
|
|
;;=6263^1^1
|
|
;;^UTILITY(U,$J,601.751,1739,0)
|
|
;;=6263^2^3
|
|
;;^UTILITY(U,$J,601.751,1740,0)
|
|
;;=6263^3^4
|
|
;;^UTILITY(U,$J,601.751,1741,0)
|
|
;;=6263^4^5
|
|
;;^UTILITY(U,$J,601.751,1742,0)
|
|
;;=6263^5^1457
|
|
;;^UTILITY(U,$J,601.751,1743,0)
|
|
;;=6264^1^1
|
|
;;^UTILITY(U,$J,601.751,1744,0)
|
|
;;=6264^2^3
|
|
;;^UTILITY(U,$J,601.751,1745,0)
|
|
;;=6264^3^4
|
|
;;^UTILITY(U,$J,601.751,1746,0)
|
|
;;=6264^4^5
|
|
;;^UTILITY(U,$J,601.751,1747,0)
|
|
;;=6264^5^1457
|
|
;;^UTILITY(U,$J,601.751,1748,0)
|
|
;;=6265^1^1
|
|
;;^UTILITY(U,$J,601.751,1749,0)
|
|
;;=6265^2^3
|
|
;;^UTILITY(U,$J,601.751,1750,0)
|
|
;;=6265^3^4
|
|
;;^UTILITY(U,$J,601.751,1751,0)
|
|
;;=6265^4^5
|
|
;;^UTILITY(U,$J,601.751,1752,0)
|
|
;;=6265^5^1457
|
|
;;^UTILITY(U,$J,601.751,1753,0)
|
|
;;=6266^1^1
|
|
;;^UTILITY(U,$J,601.751,1754,0)
|
|
;;=6266^2^3
|
|
;;^UTILITY(U,$J,601.751,1755,0)
|
|
;;=6266^3^4
|
|
;;^UTILITY(U,$J,601.751,1756,0)
|
|
;;=6266^4^5
|
|
;;^UTILITY(U,$J,601.751,1757,0)
|
|
;;=6266^5^1457
|
|
;;^UTILITY(U,$J,601.751,1758,0)
|
|
;;=6267^1^1
|
|
;;^UTILITY(U,$J,601.751,1759,0)
|
|
;;=6267^2^3
|
|
;;^UTILITY(U,$J,601.751,1760,0)
|
|
;;=6267^3^4
|
|
;;^UTILITY(U,$J,601.751,1761,0)
|
|
;;=6267^4^5
|
|
;;^UTILITY(U,$J,601.751,1762,0)
|
|
;;=6267^5^1457
|
|
;;^UTILITY(U,$J,601.751,1763,0)
|
|
;;=6268^1^1
|
|
;;^UTILITY(U,$J,601.751,1764,0)
|
|
;;=6268^2^3
|
|
;;^UTILITY(U,$J,601.751,1765,0)
|
|
;;=6268^3^4
|
|
;;^UTILITY(U,$J,601.751,1766,0)
|
|
;;=6268^4^5
|
|
;;^UTILITY(U,$J,601.751,1767,0)
|
|
;;=6268^5^1457
|
|
;;^UTILITY(U,$J,601.751,1768,0)
|
|
;;=6269^1^1
|
|
;;^UTILITY(U,$J,601.751,1769,0)
|
|
;;=6269^2^3
|
|
;;^UTILITY(U,$J,601.751,1770,0)
|
|
;;=6269^3^4
|
|
;;^UTILITY(U,$J,601.751,1771,0)
|
|
;;=6269^4^5
|
|
;;^UTILITY(U,$J,601.751,1772,0)
|
|
;;=6269^5^1457
|
|
;;^UTILITY(U,$J,601.751,1773,0)
|
|
;;=6270^1^1
|
|
;;^UTILITY(U,$J,601.751,1774,0)
|
|
;;=6270^2^3
|
|
;;^UTILITY(U,$J,601.751,1775,0)
|
|
;;=6270^3^4
|
|
;;^UTILITY(U,$J,601.751,1776,0)
|
|
;;=6270^4^5
|
|
;;^UTILITY(U,$J,601.751,1777,0)
|
|
;;=6270^5^1457
|
|
;;^UTILITY(U,$J,601.751,1778,0)
|
|
;;=6271^1^1
|
|
;;^UTILITY(U,$J,601.751,1779,0)
|
|
;;=6271^2^3
|
|
;;^UTILITY(U,$J,601.751,1780,0)
|
|
;;=6271^3^4
|
|
;;^UTILITY(U,$J,601.751,1781,0)
|
|
;;=6271^4^5
|
|
;;^UTILITY(U,$J,601.751,1782,0)
|
|
;;=6271^5^1457
|
|
;;^UTILITY(U,$J,601.751,1783,0)
|
|
;;=6272^1^1
|
|
;;^UTILITY(U,$J,601.751,1784,0)
|
|
;;=6272^2^3
|
|
;;^UTILITY(U,$J,601.751,1785,0)
|
|
;;=6272^3^4
|
|
;;^UTILITY(U,$J,601.751,1786,0)
|
|
;;=6272^4^5
|
|
;;^UTILITY(U,$J,601.751,1787,0)
|
|
;;=6272^5^1457
|
|
;;^UTILITY(U,$J,601.751,1788,0)
|
|
;;=6273^1^237
|
|
;;^UTILITY(U,$J,601.751,1789,0)
|
|
;;=6273^2^241
|
|
;;^UTILITY(U,$J,601.751,1790,0)
|
|
;;=6274^1^1514
|
|
;;^UTILITY(U,$J,601.751,1791,0)
|
|
;;=6274^2^1515
|
|
;;^UTILITY(U,$J,601.751,1792,0)
|
|
;;=6274^3^1516
|
|
;;^UTILITY(U,$J,601.751,1793,0)
|
|
;;=6274^4^1517
|
|
;;^UTILITY(U,$J,601.751,1794,0)
|
|
;;=6274^5^1518
|
|
;;^UTILITY(U,$J,601.751,1795,0)
|
|
;;=6274^6^1519
|
|
;;^UTILITY(U,$J,601.751,1796,0)
|
|
;;=6274^7^1520
|
|
;;^UTILITY(U,$J,601.751,1797,0)
|
|
;;=6274^8^743
|
|
;;^UTILITY(U,$J,601.751,1798,0)
|
|
;;=6275^1^1
|
|
;;^UTILITY(U,$J,601.751,1799,0)
|
|
;;=6275^2^3
|
|
;;^UTILITY(U,$J,601.751,1800,0)
|
|
;;=6275^3^4
|
|
;;^UTILITY(U,$J,601.751,1801,0)
|
|
;;=6275^4^5
|
|
;;^UTILITY(U,$J,601.751,1802,0)
|
|
;;=6275^5^1457
|
|
;;^UTILITY(U,$J,601.751,1803,0)
|
|
;;=6276^1^1521
|
|
;;^UTILITY(U,$J,601.751,1804,0)
|
|
;;=6276^2^1522
|
|
;;^UTILITY(U,$J,601.751,1805,0)
|
|
;;=6276^3^1523
|
|
;;^UTILITY(U,$J,601.751,1806,0)
|
|
;;=6277^1^237
|
|
;;^UTILITY(U,$J,601.751,1807,0)
|
|
;;=6277^2^1513
|
|
;;^UTILITY(U,$J,601.751,1808,0)
|
|
;;=6277^3^1524
|
|
;;^UTILITY(U,$J,601.751,1809,0)
|
|
;;=6277^4^241
|
|
;;^UTILITY(U,$J,601.751,1810,0)
|
|
;;=6278^1^1525
|
|
;;^UTILITY(U,$J,601.751,1811,0)
|
|
;;=6278^2^1526
|
|
;;^UTILITY(U,$J,601.751,1812,0)
|
|
;;=6278^3^1527
|
|
;;^UTILITY(U,$J,601.751,1813,0)
|
|
;;=6278^4^1528
|
|
;;^UTILITY(U,$J,601.751,1814,0)
|
|
;;=6278^5^1665
|
|
;;^UTILITY(U,$J,601.751,1815,0)
|
|
;;=6278^6^1530
|
|
;;^UTILITY(U,$J,601.751,1816,0)
|
|
;;=6278^7^1531
|
|
;;^UTILITY(U,$J,601.751,1817,0)
|
|
;;=6278^8^1532
|
|
;;^UTILITY(U,$J,601.751,1818,0)
|
|
;;=6279^1^237
|
|
;;^UTILITY(U,$J,601.751,1819,0)
|
|
;;=6279^2^241
|
|
;;^UTILITY(U,$J,601.751,1820,0)
|
|
;;=6280^1^1
|
|
;;^UTILITY(U,$J,601.751,1821,0)
|
|
;;=6280^2^1533
|
|
;;^UTILITY(U,$J,601.751,1822,0)
|
|
;;=6280^3^1534
|
|
;;^UTILITY(U,$J,601.751,1823,0)
|
|
;;=6280^4^1535
|
|
;;^UTILITY(U,$J,601.751,1824,0)
|
|
;;=6280^5^1536
|
|
;;^UTILITY(U,$J,601.751,1825,0)
|
|
;;=6280^6^1537
|
|
;;^UTILITY(U,$J,601.751,1826,0)
|
|
;;=6280^7^1538
|
|
;;^UTILITY(U,$J,601.751,1827,0)
|
|
;;=6280^8^1539
|
|
;;^UTILITY(U,$J,601.751,1828,0)
|
|
;;=6280^9^1540
|
|
;;^UTILITY(U,$J,601.751,1829,0)
|
|
;;=6281^1^237
|
|
;;^UTILITY(U,$J,601.751,1830,0)
|
|
;;=6281^2^241
|
|
;;^UTILITY(U,$J,601.751,1831,0)
|
|
;;=6281^3^1513
|
|
;;^UTILITY(U,$J,601.751,1832,0)
|
|
;;=6282^1^237
|
|
;;^UTILITY(U,$J,601.751,1833,0)
|
|
;;=6282^2^241
|
|
;;^UTILITY(U,$J,601.751,1834,0)
|
|
;;=6282^3^1512
|
|
;;^UTILITY(U,$J,601.751,1835,0)
|
|
;;=6283^1^1541
|
|
;;^UTILITY(U,$J,601.751,1836,0)
|
|
;;=6283^2^1542
|
|
;;^UTILITY(U,$J,601.751,1837,0)
|
|
;;=6283^3^1543
|
|
;;^UTILITY(U,$J,601.751,1838,0)
|
|
;;=6283^4^1544
|
|
;;^UTILITY(U,$J,601.751,1839,0)
|
|
;;=6284^1^237
|
|
;;^UTILITY(U,$J,601.751,1840,0)
|
|
;;=6284^2^241
|
|
;;^UTILITY(U,$J,601.751,1841,0)
|
|
;;=6285^1^1545
|
|
;;^UTILITY(U,$J,601.751,1842,0)
|
|
;;=6285^2^1546
|
|
;;^UTILITY(U,$J,601.751,1843,0)
|
|
;;=6285^3^1547
|
|
;;^UTILITY(U,$J,601.751,1844,0)
|
|
;;=6285^4^1548
|
|
;;^UTILITY(U,$J,601.751,1845,0)
|
|
;;=6285^5^1549
|
|
;;^UTILITY(U,$J,601.751,1846,0)
|
|
;;=6285^6^1550
|
|
;;^UTILITY(U,$J,601.751,1847,0)
|
|
;;=6285^7^1551
|
|
;;^UTILITY(U,$J,601.751,1848,0)
|
|
;;=6285^8^1552
|
|
;;^UTILITY(U,$J,601.751,1849,0)
|
|
;;=6285^9^1553
|
|
;;^UTILITY(U,$J,601.751,1850,0)
|
|
;;=6285^10^1554
|
|
;;^UTILITY(U,$J,601.751,1851,0)
|
|
;;=6285^11^1555
|
|
;;^UTILITY(U,$J,601.751,1852,0)
|
|
;;=6285^12^1556
|
|
;;^UTILITY(U,$J,601.751,1853,0)
|
|
;;=6285^13^1557
|
|
;;^UTILITY(U,$J,601.751,1854,0)
|
|
;;=6286^1^1562
|
|
;;^UTILITY(U,$J,601.751,1855,0)
|
|
;;=6286^2^1563
|
|
;;^UTILITY(U,$J,601.751,1856,0)
|
|
;;=6286^3^1564
|
|
;;^UTILITY(U,$J,601.751,1857,0)
|
|
;;=6286^4^1565
|
|
;;^UTILITY(U,$J,601.751,1858,0)
|
|
;;=6286^5^1566
|
|
;;^UTILITY(U,$J,601.751,1859,0)
|
|
;;=6286^6^1614
|
|
;;^UTILITY(U,$J,601.751,1860,0)
|
|
;;=6286^7^1567
|
|
;;^UTILITY(U,$J,601.751,1861,0)
|
|
;;=6286^8^1622
|
|
;;^UTILITY(U,$J,601.751,1862,0)
|
|
;;=6286^9^1568
|
|
;;^UTILITY(U,$J,601.751,1863,0)
|
|
;;=6286^10^1569
|
|
;;^UTILITY(U,$J,601.751,1864,0)
|
|
;;=6286^11^1570
|
|
;;^UTILITY(U,$J,601.751,1865,0)
|
|
;;=6286^12^1571
|
|
;;^UTILITY(U,$J,601.751,1866,0)
|
|
;;=6286^13^1819
|
|
;;^UTILITY(U,$J,601.751,1867,0)
|
|
;;=6286^14^1573
|
|
;;^UTILITY(U,$J,601.751,1868,0)
|
|
;;=6286^15^1574
|
|
;;^UTILITY(U,$J,601.751,1869,0)
|
|
;;=6286^16^1575
|
|
;;^UTILITY(U,$J,601.751,1870,0)
|
|
;;=6286^17^1576
|
|
;;^UTILITY(U,$J,601.751,1871,0)
|
|
;;=6286^18^1577
|
|
;;^UTILITY(U,$J,601.751,1872,0)
|
|
;;=6286^19^1653
|
|
;;^UTILITY(U,$J,601.751,1873,0)
|
|
;;=6286^20^1655
|
|
;;^UTILITY(U,$J,601.751,1874,0)
|
|
;;=6286^21^1659
|
|
;;^UTILITY(U,$J,601.751,1875,0)
|
|
;;=6287^1^237
|
|
;;^UTILITY(U,$J,601.751,1876,0)
|
|
;;=6287^2^241
|
|
;;^UTILITY(U,$J,601.751,1877,0)
|
|
;;=6288^1^1
|
|
;;^UTILITY(U,$J,601.751,1878,0)
|
|
;;=6288^2^1579
|
|
;;^UTILITY(U,$J,601.751,1879,0)
|
|
;;=6288^3^1580
|
|
;;^UTILITY(U,$J,601.751,1880,0)
|
|
;;=6288^4^743
|
|
;;^UTILITY(U,$J,601.751,1881,0)
|
|
;;=6289^1^237
|
|
;;^UTILITY(U,$J,601.751,1882,0)
|
|
;;=6289^2^241
|
|
;;^UTILITY(U,$J,601.751,1883,0)
|
|
;;=6290^1^237
|
|
;;^UTILITY(U,$J,601.751,1884,0)
|
|
;;=6290^2^241
|
|
;;^UTILITY(U,$J,601.751,1885,0)
|
|
;;=6291^1^237
|
|
;;^UTILITY(U,$J,601.751,1886,0)
|
|
;;=6291^2^241
|
|
;;^UTILITY(U,$J,601.751,1887,0)
|
|
;;=6292^1^1581
|
|
;;^UTILITY(U,$J,601.751,1888,0)
|
|
;;=6292^2^1582
|
|
;;^UTILITY(U,$J,601.751,1889,0)
|
|
;;=6292^3^1583
|
|
;;^UTILITY(U,$J,601.751,1890,0)
|
|
;;=6292^4^1584
|
|
;;^UTILITY(U,$J,601.751,1891,0)
|
|
;;=6292^5^1585
|
|
;;^UTILITY(U,$J,601.751,1892,0)
|
|
;;=6292^6^1525
|
|
;;^UTILITY(U,$J,601.751,1893,0)
|
|
;;=6292^7^1586
|
|
;;^UTILITY(U,$J,601.751,1894,0)
|
|
;;=6292^8^1587
|
|
;;^UTILITY(U,$J,601.751,1895,0)
|
|
;;=6292^9^1588
|
|
;;^UTILITY(U,$J,601.751,1896,0)
|
|
;;=6292^10^743
|
|
;;^UTILITY(U,$J,601.751,1897,0)
|
|
;;=47^2^1333
|