371 lines
8.9 KiB
Mathematica
371 lines
8.9 KiB
Mathematica
YTQQI00A ;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,1531,0)
|
|
;;=758^4^1229
|
|
;;^UTILITY(U,$J,601.751,1532,0)
|
|
;;=759^1^1235
|
|
;;^UTILITY(U,$J,601.751,1533,0)
|
|
;;=759^2^1204
|
|
;;^UTILITY(U,$J,601.751,1534,0)
|
|
;;=759^3^1205
|
|
;;^UTILITY(U,$J,601.751,1535,0)
|
|
;;=759^4^1236
|
|
;;^UTILITY(U,$J,601.751,1536,0)
|
|
;;=760^1^1237
|
|
;;^UTILITY(U,$J,601.751,1537,0)
|
|
;;=760^2^1238
|
|
;;^UTILITY(U,$J,601.751,1538,0)
|
|
;;=760^3^1239
|
|
;;^UTILITY(U,$J,601.751,1539,0)
|
|
;;=760^4^1240
|
|
;;^UTILITY(U,$J,601.751,1540,0)
|
|
;;=761^1^1241
|
|
;;^UTILITY(U,$J,601.751,1541,0)
|
|
;;=761^2^1242
|
|
;;^UTILITY(U,$J,601.751,1542,0)
|
|
;;=761^3^1243
|
|
;;^UTILITY(U,$J,601.751,1543,0)
|
|
;;=762^1^1244
|
|
;;^UTILITY(U,$J,601.751,1544,0)
|
|
;;=762^2^1245
|
|
;;^UTILITY(U,$J,601.751,1545,0)
|
|
;;=762^3^1246
|
|
;;^UTILITY(U,$J,601.751,1546,0)
|
|
;;=762^4^1247
|
|
;;^UTILITY(U,$J,601.751,1547,0)
|
|
;;=3916^2^1378
|
|
;;^UTILITY(U,$J,601.751,1548,0)
|
|
;;=3916^3^1379
|
|
;;^UTILITY(U,$J,601.751,1549,0)
|
|
;;=6228^1^1488
|
|
;;^UTILITY(U,$J,601.751,1550,0)
|
|
;;=6228^2^1489
|
|
;;^UTILITY(U,$J,601.751,1551,0)
|
|
;;=6228^3^1490
|
|
;;^UTILITY(U,$J,601.751,1552,0)
|
|
;;=6228^4^1491
|
|
;;^UTILITY(U,$J,601.751,1553,0)
|
|
;;=6229^1^237
|
|
;;^UTILITY(U,$J,601.751,1554,0)
|
|
;;=6229^2^1478
|
|
;;^UTILITY(U,$J,601.751,1555,0)
|
|
;;=765^1^1250
|
|
;;^UTILITY(U,$J,601.751,1556,0)
|
|
;;=765^2^1186
|
|
;;^UTILITY(U,$J,601.751,1557,0)
|
|
;;=765^3^1187
|
|
;;^UTILITY(U,$J,601.751,1558,0)
|
|
;;=6229^3^1479
|
|
;;^UTILITY(U,$J,601.751,1559,0)
|
|
;;=6229^4^1480
|
|
;;^UTILITY(U,$J,601.751,1560,0)
|
|
;;=6229^5^1481
|
|
;;^UTILITY(U,$J,601.751,1561,0)
|
|
;;=6229^6^1482
|
|
;;^UTILITY(U,$J,601.751,1562,0)
|
|
;;=767^1^1177
|
|
;;^UTILITY(U,$J,601.751,1563,0)
|
|
;;=767^2^100971
|
|
;;^UTILITY(U,$J,601.751,1564,0)
|
|
;;=6230^1^1488
|
|
;;^UTILITY(U,$J,601.751,1565,0)
|
|
;;=6230^2^1489
|
|
;;^UTILITY(U,$J,601.751,1566,0)
|
|
;;=769^1^100986
|
|
;;^UTILITY(U,$J,601.751,1567,0)
|
|
;;=769^2^101059
|
|
;;^UTILITY(U,$J,601.751,1568,0)
|
|
;;=770^1^100988
|
|
;;^UTILITY(U,$J,601.751,1569,0)
|
|
;;=770^2^101029
|
|
;;^UTILITY(U,$J,601.751,1570,0)
|
|
;;=771^1^100805
|
|
;;^UTILITY(U,$J,601.751,1571,0)
|
|
;;=771^2^1254
|
|
;;^UTILITY(U,$J,601.751,1572,0)
|
|
;;=772^1^100992
|
|
;;^UTILITY(U,$J,601.751,1573,0)
|
|
;;=772^2^1255
|
|
;;^UTILITY(U,$J,601.751,1574,0)
|
|
;;=773^1^101000
|
|
;;^UTILITY(U,$J,601.751,1575,0)
|
|
;;=773^2^1256
|
|
;;^UTILITY(U,$J,601.751,1576,0)
|
|
;;=774^1^101003
|
|
;;^UTILITY(U,$J,601.751,1577,0)
|
|
;;=774^2^1257
|
|
;;^UTILITY(U,$J,601.751,1578,0)
|
|
;;=775^1^101006
|
|
;;^UTILITY(U,$J,601.751,1579,0)
|
|
;;=775^2^1258
|
|
;;^UTILITY(U,$J,601.751,1580,0)
|
|
;;=776^1^101015
|
|
;;^UTILITY(U,$J,601.751,1581,0)
|
|
;;=776^2^1259
|
|
;;^UTILITY(U,$J,601.751,1582,0)
|
|
;;=6230^3^1490
|
|
;;^UTILITY(U,$J,601.751,1583,0)
|
|
;;=6230^4^1491
|
|
;;^UTILITY(U,$J,601.751,1584,0)
|
|
;;=6231^1^237
|
|
;;^UTILITY(U,$J,601.751,1585,0)
|
|
;;=6231^2^1478
|
|
;;^UTILITY(U,$J,601.751,1586,0)
|
|
;;=6231^3^1479
|
|
;;^UTILITY(U,$J,601.751,1587,0)
|
|
;;=6231^4^1480
|
|
;;^UTILITY(U,$J,601.751,1588,0)
|
|
;;=6231^5^1481
|
|
;;^UTILITY(U,$J,601.751,1589,0)
|
|
;;=6231^6^1482
|
|
;;^UTILITY(U,$J,601.751,1590,0)
|
|
;;=6232^1^1488
|
|
;;^UTILITY(U,$J,601.751,1591,0)
|
|
;;=6232^2^1489
|
|
;;^UTILITY(U,$J,601.751,1592,0)
|
|
;;=6232^3^1490
|
|
;;^UTILITY(U,$J,601.751,1593,0)
|
|
;;=6232^4^1491
|
|
;;^UTILITY(U,$J,601.751,1594,0)
|
|
;;=6233^1^237
|
|
;;^UTILITY(U,$J,601.751,1595,0)
|
|
;;=6233^2^1478
|
|
;;^UTILITY(U,$J,601.751,1596,0)
|
|
;;=6233^3^1479
|
|
;;^UTILITY(U,$J,601.751,1597,0)
|
|
;;=6233^4^1480
|
|
;;^UTILITY(U,$J,601.751,1598,0)
|
|
;;=6233^5^1481
|
|
;;^UTILITY(U,$J,601.751,1599,0)
|
|
;;=6233^6^1482
|
|
;;^UTILITY(U,$J,601.751,1600,0)
|
|
;;=6234^1^1488
|
|
;;^UTILITY(U,$J,601.751,1601,0)
|
|
;;=6234^2^1489
|
|
;;^UTILITY(U,$J,601.751,1602,0)
|
|
;;=6234^3^1490
|
|
;;^UTILITY(U,$J,601.751,1603,0)
|
|
;;=6234^4^1491
|
|
;;^UTILITY(U,$J,601.751,1604,0)
|
|
;;=6235^1^1492
|
|
;;^UTILITY(U,$J,601.751,1605,0)
|
|
;;=6235^2^1493
|
|
;;^UTILITY(U,$J,601.751,1606,0)
|
|
;;=6235^3^1664
|
|
;;^UTILITY(U,$J,601.751,1607,0)
|
|
;;=6235^4^1495
|
|
;;^UTILITY(U,$J,601.751,1608,0)
|
|
;;=6235^5^1496
|
|
;;^UTILITY(U,$J,601.751,1609,0)
|
|
;;=6235^6^743
|
|
;;^UTILITY(U,$J,601.751,1610,0)
|
|
;;=6235^7^100894
|
|
;;^UTILITY(U,$J,601.751,1611,0)
|
|
;;=6236^1^237
|
|
;;^UTILITY(U,$J,601.751,1612,0)
|
|
;;=6236^2^1478
|
|
;;^UTILITY(U,$J,601.751,1613,0)
|
|
;;=6236^3^1479
|
|
;;^UTILITY(U,$J,601.751,1614,0)
|
|
;;=6236^4^1480
|
|
;;^UTILITY(U,$J,601.751,1615,0)
|
|
;;=6236^5^1481
|
|
;;^UTILITY(U,$J,601.751,1616,0)
|
|
;;=6236^6^1482
|
|
;;^UTILITY(U,$J,601.751,1617,0)
|
|
;;=6237^1^1820
|
|
;;^UTILITY(U,$J,601.751,1618,0)
|
|
;;=6237^2^1821
|
|
;;^UTILITY(U,$J,601.751,1619,0)
|
|
;;=6237^3^1822
|
|
;;^UTILITY(U,$J,601.751,1620,0)
|
|
;;=6237^4^1823
|
|
;;^UTILITY(U,$J,601.751,1621,0)
|
|
;;=6237^5^1824
|
|
;;^UTILITY(U,$J,601.751,1622,0)
|
|
;;=6237^6^1825
|
|
;;^UTILITY(U,$J,601.751,1623,0)
|
|
;;=6237^7^1826
|
|
;;^UTILITY(U,$J,601.751,1624,0)
|
|
;;=6238^1^237
|
|
;;^UTILITY(U,$J,601.751,1625,0)
|
|
;;=6238^2^1478
|
|
;;^UTILITY(U,$J,601.751,1626,0)
|
|
;;=6238^3^1479
|
|
;;^UTILITY(U,$J,601.751,1627,0)
|
|
;;=6238^4^1480
|
|
;;^UTILITY(U,$J,601.751,1628,0)
|
|
;;=6238^5^1481
|
|
;;^UTILITY(U,$J,601.751,1629,0)
|
|
;;=6238^6^1482
|
|
;;^UTILITY(U,$J,601.751,1630,0)
|
|
;;=6239^1^1827
|
|
;;^UTILITY(U,$J,601.751,1631,0)
|
|
;;=6239^2^1503
|
|
;;^UTILITY(U,$J,601.751,1632,0)
|
|
;;=6239^3^1828
|
|
;;^UTILITY(U,$J,601.751,1633,0)
|
|
;;=6239^4^1825
|
|
;;^UTILITY(U,$J,601.751,1634,0)
|
|
;;=6239^5^1829
|
|
;;^UTILITY(U,$J,601.751,1635,0)
|
|
;;=6239^6^1830
|
|
;;^UTILITY(U,$J,601.751,1636,0)
|
|
;;=6239^7^1831
|
|
;;^UTILITY(U,$J,601.751,1637,0)
|
|
;;=6240^1^237
|
|
;;^UTILITY(U,$J,601.751,1638,0)
|
|
;;=6240^2^1478
|
|
;;^UTILITY(U,$J,601.751,1639,0)
|
|
;;=6240^3^1479
|
|
;;^UTILITY(U,$J,601.751,1640,0)
|
|
;;=6240^4^1480
|
|
;;^UTILITY(U,$J,601.751,1641,0)
|
|
;;=6240^5^1481
|
|
;;^UTILITY(U,$J,601.751,1642,0)
|
|
;;=6240^6^1482
|
|
;;^UTILITY(U,$J,601.751,1643,0)
|
|
;;=6241^1^1832
|
|
;;^UTILITY(U,$J,601.751,1644,0)
|
|
;;=6241^2^1503
|
|
;;^UTILITY(U,$J,601.751,1645,0)
|
|
;;=6241^3^1828
|
|
;;^UTILITY(U,$J,601.751,1646,0)
|
|
;;=6241^4^1825
|
|
;;^UTILITY(U,$J,601.751,1647,0)
|
|
;;=6241^5^1829
|
|
;;^UTILITY(U,$J,601.751,1648,0)
|
|
;;=6241^6^1830
|
|
;;^UTILITY(U,$J,601.751,1649,0)
|
|
;;=6241^7^1831
|
|
;;^UTILITY(U,$J,601.751,1650,0)
|
|
;;=6242^1^237
|
|
;;^UTILITY(U,$J,601.751,1651,0)
|
|
;;=6242^2^241
|
|
;;^UTILITY(U,$J,601.751,1652,0)
|
|
;;=6243^1^237
|
|
;;^UTILITY(U,$J,601.751,1653,0)
|
|
;;=6243^2^241
|
|
;;^UTILITY(U,$J,601.751,1654,0)
|
|
;;=6244^1^237
|
|
;;^UTILITY(U,$J,601.751,1655,0)
|
|
;;=6244^2^1508
|
|
;;^UTILITY(U,$J,601.751,1656,0)
|
|
;;=6244^3^1509
|
|
;;^UTILITY(U,$J,601.751,1657,0)
|
|
;;=6245^1^237
|
|
;;^UTILITY(U,$J,601.751,1658,0)
|
|
;;=6245^2^1510
|
|
;;^UTILITY(U,$J,601.751,1659,0)
|
|
;;=6245^3^1511
|
|
;;^UTILITY(U,$J,601.751,1660,0)
|
|
;;=6246^1^237
|
|
;;^UTILITY(U,$J,601.751,1661,0)
|
|
;;=6246^2^1510
|
|
;;^UTILITY(U,$J,601.751,1662,0)
|
|
;;=6246^3^1511
|
|
;;^UTILITY(U,$J,601.751,1663,0)
|
|
;;=6247^1^237
|
|
;;^UTILITY(U,$J,601.751,1664,0)
|
|
;;=6247^2^241
|
|
;;^UTILITY(U,$J,601.751,1665,0)
|
|
;;=6247^3^1512
|
|
;;^UTILITY(U,$J,601.751,1666,0)
|
|
;;=6247^4^1513
|
|
;;^UTILITY(U,$J,601.751,1667,0)
|
|
;;=6248^1^237
|
|
;;^UTILITY(U,$J,601.751,1668,0)
|
|
;;=6248^2^241
|
|
;;^UTILITY(U,$J,601.751,1669,0)
|
|
;;=6248^3^1512
|
|
;;^UTILITY(U,$J,601.751,1670,0)
|
|
;;=6248^4^1513
|
|
;;^UTILITY(U,$J,601.751,1671,0)
|
|
;;=6249^1^237
|
|
;;^UTILITY(U,$J,601.751,1672,0)
|
|
;;=6249^2^241
|
|
;;^UTILITY(U,$J,601.751,1673,0)
|
|
;;=6250^1^1
|
|
;;^UTILITY(U,$J,601.751,1674,0)
|
|
;;=6250^2^3
|
|
;;^UTILITY(U,$J,601.751,1675,0)
|
|
;;=6250^3^4
|
|
;;^UTILITY(U,$J,601.751,1676,0)
|
|
;;=6250^4^5
|
|
;;^UTILITY(U,$J,601.751,1677,0)
|
|
;;=6250^5^1457
|
|
;;^UTILITY(U,$J,601.751,1678,0)
|
|
;;=6251^1^1
|
|
;;^UTILITY(U,$J,601.751,1679,0)
|
|
;;=6251^2^3
|
|
;;^UTILITY(U,$J,601.751,1680,0)
|
|
;;=6251^3^4
|
|
;;^UTILITY(U,$J,601.751,1681,0)
|
|
;;=6251^4^5
|
|
;;^UTILITY(U,$J,601.751,1682,0)
|
|
;;=6251^5^1457
|
|
;;^UTILITY(U,$J,601.751,1683,0)
|
|
;;=6252^1^1
|
|
;;^UTILITY(U,$J,601.751,1684,0)
|
|
;;=6252^2^3
|
|
;;^UTILITY(U,$J,601.751,1685,0)
|
|
;;=6252^3^4
|
|
;;^UTILITY(U,$J,601.751,1686,0)
|
|
;;=6252^4^5
|
|
;;^UTILITY(U,$J,601.751,1687,0)
|
|
;;=6252^5^1457
|
|
;;^UTILITY(U,$J,601.751,1688,0)
|
|
;;=6253^1^1
|
|
;;^UTILITY(U,$J,601.751,1689,0)
|
|
;;=6253^2^3
|
|
;;^UTILITY(U,$J,601.751,1690,0)
|
|
;;=6253^3^4
|
|
;;^UTILITY(U,$J,601.751,1691,0)
|
|
;;=6253^4^5
|
|
;;^UTILITY(U,$J,601.751,1692,0)
|
|
;;=6253^5^1457
|
|
;;^UTILITY(U,$J,601.751,1693,0)
|
|
;;=6254^1^1
|
|
;;^UTILITY(U,$J,601.751,1694,0)
|
|
;;=6254^2^3
|
|
;;^UTILITY(U,$J,601.751,1695,0)
|
|
;;=6254^3^4
|
|
;;^UTILITY(U,$J,601.751,1696,0)
|
|
;;=6254^4^5
|
|
;;^UTILITY(U,$J,601.751,1697,0)
|
|
;;=6254^5^1457
|
|
;;^UTILITY(U,$J,601.751,1698,0)
|
|
;;=6255^1^1
|
|
;;^UTILITY(U,$J,601.751,1699,0)
|
|
;;=6255^2^3
|
|
;;^UTILITY(U,$J,601.751,1700,0)
|
|
;;=6255^3^4
|
|
;;^UTILITY(U,$J,601.751,1701,0)
|
|
;;=6255^4^5
|
|
;;^UTILITY(U,$J,601.751,1702,0)
|
|
;;=6255^5^1457
|
|
;;^UTILITY(U,$J,601.751,1703,0)
|
|
;;=6256^1^1
|
|
;;^UTILITY(U,$J,601.751,1704,0)
|
|
;;=6256^2^3
|
|
;;^UTILITY(U,$J,601.751,1705,0)
|
|
;;=6256^3^4
|
|
;;^UTILITY(U,$J,601.751,1706,0)
|
|
;;=6256^4^5
|
|
;;^UTILITY(U,$J,601.751,1707,0)
|
|
;;=6256^5^1457
|
|
;;^UTILITY(U,$J,601.751,1708,0)
|
|
;;=6257^1^1
|
|
;;^UTILITY(U,$J,601.751,1709,0)
|
|
;;=6257^2^3
|
|
;;^UTILITY(U,$J,601.751,1710,0)
|
|
;;=6257^3^4
|
|
;;^UTILITY(U,$J,601.751,1711,0)
|
|
;;=6257^4^5
|
|
;;^UTILITY(U,$J,601.751,1712,0)
|
|
;;=6257^5^1457
|
|
;;^UTILITY(U,$J,601.751,1713,0)
|
|
;;=6258^1^1
|