371 lines
8.9 KiB
Mathematica
371 lines
8.9 KiB
Mathematica
YTQQI009 ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
|
|
;;5.01;MENTAL HEALTH;**85**;;Build 49
|
|
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,1348,0)
|
|
;;=506^1^1121
|
|
;;^UTILITY(U,$J,601.751,1349,0)
|
|
;;=506^2^1122
|
|
;;^UTILITY(U,$J,601.751,1350,0)
|
|
;;=507^1^1123
|
|
;;^UTILITY(U,$J,601.751,1351,0)
|
|
;;=507^2^1124
|
|
;;^UTILITY(U,$J,601.751,1352,0)
|
|
;;=508^1^794
|
|
;;^UTILITY(U,$J,601.751,1353,0)
|
|
;;=508^2^1125
|
|
;;^UTILITY(U,$J,601.751,1354,0)
|
|
;;=509^1^796
|
|
;;^UTILITY(U,$J,601.751,1355,0)
|
|
;;=509^2^1126
|
|
;;^UTILITY(U,$J,601.751,1356,0)
|
|
;;=510^1^798
|
|
;;^UTILITY(U,$J,601.751,1357,0)
|
|
;;=510^2^1127
|
|
;;^UTILITY(U,$J,601.751,1358,0)
|
|
;;=511^1^802
|
|
;;^UTILITY(U,$J,601.751,1359,0)
|
|
;;=511^2^1128
|
|
;;^UTILITY(U,$J,601.751,1360,0)
|
|
;;=512^1^1129
|
|
;;^UTILITY(U,$J,601.751,1361,0)
|
|
;;=512^2^1130
|
|
;;^UTILITY(U,$J,601.751,1362,0)
|
|
;;=513^1^1131
|
|
;;^UTILITY(U,$J,601.751,1363,0)
|
|
;;=513^2^1132
|
|
;;^UTILITY(U,$J,601.751,1364,0)
|
|
;;=514^1^808
|
|
;;^UTILITY(U,$J,601.751,1365,0)
|
|
;;=514^2^1133
|
|
;;^UTILITY(U,$J,601.751,1366,0)
|
|
;;=515^1^810
|
|
;;^UTILITY(U,$J,601.751,1367,0)
|
|
;;=515^2^1134
|
|
;;^UTILITY(U,$J,601.751,1368,0)
|
|
;;=516^1^1135
|
|
;;^UTILITY(U,$J,601.751,1369,0)
|
|
;;=516^2^1136
|
|
;;^UTILITY(U,$J,601.751,1370,0)
|
|
;;=517^1^1137
|
|
;;^UTILITY(U,$J,601.751,1371,0)
|
|
;;=517^2^1138
|
|
;;^UTILITY(U,$J,601.751,1372,0)
|
|
;;=518^1^1139
|
|
;;^UTILITY(U,$J,601.751,1373,0)
|
|
;;=518^2^1140
|
|
;;^UTILITY(U,$J,601.751,1374,0)
|
|
;;=519^1^1141
|
|
;;^UTILITY(U,$J,601.751,1375,0)
|
|
;;=519^2^821
|
|
;;^UTILITY(U,$J,601.751,1376,0)
|
|
;;=520^1^1142
|
|
;;^UTILITY(U,$J,601.751,1377,0)
|
|
;;=520^2^1143
|
|
;;^UTILITY(U,$J,601.751,1378,0)
|
|
;;=521^1^828
|
|
;;^UTILITY(U,$J,601.751,1379,0)
|
|
;;=521^2^1144
|
|
;;^UTILITY(U,$J,601.751,1380,0)
|
|
;;=723^5^995
|
|
;;^UTILITY(U,$J,601.751,1381,0)
|
|
;;=724^1^818
|
|
;;^UTILITY(U,$J,601.751,1382,0)
|
|
;;=523^1^1147
|
|
;;^UTILITY(U,$J,601.751,1383,0)
|
|
;;=523^2^833
|
|
;;^UTILITY(U,$J,601.751,1384,0)
|
|
;;=524^1^1148
|
|
;;^UTILITY(U,$J,601.751,1385,0)
|
|
;;=524^2^1149
|
|
;;^UTILITY(U,$J,601.751,1386,0)
|
|
;;=525^1^836
|
|
;;^UTILITY(U,$J,601.751,1387,0)
|
|
;;=525^2^1150
|
|
;;^UTILITY(U,$J,601.751,1388,0)
|
|
;;=526^1^840
|
|
;;^UTILITY(U,$J,601.751,1389,0)
|
|
;;=526^2^1151
|
|
;;^UTILITY(U,$J,601.751,1390,0)
|
|
;;=527^1^1152
|
|
;;^UTILITY(U,$J,601.751,1391,0)
|
|
;;=527^2^1153
|
|
;;^UTILITY(U,$J,601.751,1392,0)
|
|
;;=528^1^1145
|
|
;;^UTILITY(U,$J,601.751,1393,0)
|
|
;;=528^2^1154
|
|
;;^UTILITY(U,$J,601.751,1394,0)
|
|
;;=724^2^819
|
|
;;^UTILITY(U,$J,601.751,1395,0)
|
|
;;=725^1^826
|
|
;;^UTILITY(U,$J,601.751,1396,0)
|
|
;;=725^2^832
|
|
;;^UTILITY(U,$J,601.751,1397,0)
|
|
;;=726^1^739
|
|
;;^UTILITY(U,$J,601.751,1398,0)
|
|
;;=726^2^100052
|
|
;;^UTILITY(U,$J,601.751,1399,0)
|
|
;;=726^3^835
|
|
;;^UTILITY(U,$J,601.751,1400,0)
|
|
;;=726^4^100054
|
|
;;^UTILITY(U,$J,601.751,1401,0)
|
|
;;=726^5^742
|
|
;;^UTILITY(U,$J,601.751,1402,0)
|
|
;;=726^6^837
|
|
;;^UTILITY(U,$J,601.751,1403,0)
|
|
;;=727^1^842
|
|
;;^UTILITY(U,$J,601.751,1404,0)
|
|
;;=727^2^843
|
|
;;^UTILITY(U,$J,601.751,1405,0)
|
|
;;=727^3^743
|
|
;;^UTILITY(U,$J,601.751,1406,0)
|
|
;;=728^1^749
|
|
;;^UTILITY(U,$J,601.751,1407,0)
|
|
;;=728^2^750
|
|
;;^UTILITY(U,$J,601.751,1408,0)
|
|
;;=728^3^1146
|
|
;;^UTILITY(U,$J,601.751,1409,0)
|
|
;;=728^4^752
|
|
;;^UTILITY(U,$J,601.751,1410,0)
|
|
;;=728^5^1158
|
|
;;^UTILITY(U,$J,601.751,1411,0)
|
|
;;=729^1^744
|
|
;;^UTILITY(U,$J,601.751,1412,0)
|
|
;;=729^2^746
|
|
;;^UTILITY(U,$J,601.751,1413,0)
|
|
;;=729^3^747
|
|
;;^UTILITY(U,$J,601.751,1414,0)
|
|
;;=729^4^745
|
|
;;^UTILITY(U,$J,601.751,1415,0)
|
|
;;=729^5^748
|
|
;;^UTILITY(U,$J,601.751,1416,0)
|
|
;;=730^1^1159
|
|
;;^UTILITY(U,$J,601.751,1417,0)
|
|
;;=730^2^1160
|
|
;;^UTILITY(U,$J,601.751,1418,0)
|
|
;;=730^3^1161
|
|
;;^UTILITY(U,$J,601.751,1419,0)
|
|
;;=730^4^1162
|
|
;;^UTILITY(U,$J,601.751,1420,0)
|
|
;;=730^5^743
|
|
;;^UTILITY(U,$J,601.751,1421,0)
|
|
;;=730^6^1163
|
|
;;^UTILITY(U,$J,601.751,1422,0)
|
|
;;=731^1^1164
|
|
;;^UTILITY(U,$J,601.751,1423,0)
|
|
;;=731^2^1165
|
|
;;^UTILITY(U,$J,601.751,1424,0)
|
|
;;=731^3^1166
|
|
;;^UTILITY(U,$J,601.751,1425,0)
|
|
;;=731^4^1167
|
|
;;^UTILITY(U,$J,601.751,1426,0)
|
|
;;=731^5^1168
|
|
;;^UTILITY(U,$J,601.751,1427,0)
|
|
;;=731^6^1169
|
|
;;^UTILITY(U,$J,601.751,1428,0)
|
|
;;=731^7^1170
|
|
;;^UTILITY(U,$J,601.751,1429,0)
|
|
;;=731^8^743
|
|
;;^UTILITY(U,$J,601.751,1430,0)
|
|
;;=732^1^237
|
|
;;^UTILITY(U,$J,601.751,1431,0)
|
|
;;=732^2^1171
|
|
;;^UTILITY(U,$J,601.751,1432,0)
|
|
;;=732^3^1172
|
|
;;^UTILITY(U,$J,601.751,1433,0)
|
|
;;=732^4^1173
|
|
;;^UTILITY(U,$J,601.751,1434,0)
|
|
;;=733^1^237
|
|
;;^UTILITY(U,$J,601.751,1435,0)
|
|
;;=733^2^1174
|
|
;;^UTILITY(U,$J,601.751,1436,0)
|
|
;;=733^3^1175
|
|
;;^UTILITY(U,$J,601.751,1437,0)
|
|
;;=733^4^1176
|
|
;;^UTILITY(U,$J,601.751,1438,0)
|
|
;;=6223^6^1482
|
|
;;^UTILITY(U,$J,601.751,1439,0)
|
|
;;=135^1^464
|
|
;;^UTILITY(U,$J,601.751,1440,0)
|
|
;;=734^1^100994
|
|
;;^UTILITY(U,$J,601.751,1441,0)
|
|
;;=734^2^1178
|
|
;;^UTILITY(U,$J,601.751,1442,0)
|
|
;;=735^1^101008
|
|
;;^UTILITY(U,$J,601.751,1443,0)
|
|
;;=735^2^1179
|
|
;;^UTILITY(U,$J,601.751,1444,0)
|
|
;;=736^1^212
|
|
;;^UTILITY(U,$J,601.751,1445,0)
|
|
;;=736^2^1180
|
|
;;^UTILITY(U,$J,601.751,1446,0)
|
|
;;=737^1^101019
|
|
;;^UTILITY(U,$J,601.751,1447,0)
|
|
;;=737^2^1181
|
|
;;^UTILITY(U,$J,601.751,1448,0)
|
|
;;=738^1^1182
|
|
;;^UTILITY(U,$J,601.751,1449,0)
|
|
;;=738^2^1183
|
|
;;^UTILITY(U,$J,601.751,1450,0)
|
|
;;=738^3^1184
|
|
;;^UTILITY(U,$J,601.751,1451,0)
|
|
;;=6224^1^237
|
|
;;^UTILITY(U,$J,601.751,1452,0)
|
|
;;=6224^2^1478
|
|
;;^UTILITY(U,$J,601.751,1453,0)
|
|
;;=6224^3^1479
|
|
;;^UTILITY(U,$J,601.751,1454,0)
|
|
;;=740^1^1188
|
|
;;^UTILITY(U,$J,601.751,1455,0)
|
|
;;=740^2^1189
|
|
;;^UTILITY(U,$J,601.751,1456,0)
|
|
;;=6224^4^1480
|
|
;;^UTILITY(U,$J,601.751,1457,0)
|
|
;;=6224^5^1481
|
|
;;^UTILITY(U,$J,601.751,1458,0)
|
|
;;=6224^6^1482
|
|
;;^UTILITY(U,$J,601.751,1459,0)
|
|
;;=6225^1^237
|
|
;;^UTILITY(U,$J,601.751,1460,0)
|
|
;;=6225^2^1483
|
|
;;^UTILITY(U,$J,601.751,1461,0)
|
|
;;=6225^3^1484
|
|
;;^UTILITY(U,$J,601.751,1462,0)
|
|
;;=6225^4^1485
|
|
;;^UTILITY(U,$J,601.751,1463,0)
|
|
;;=6225^5^1486
|
|
;;^UTILITY(U,$J,601.751,1464,0)
|
|
;;=6225^6^1487
|
|
;;^UTILITY(U,$J,601.751,1465,0)
|
|
;;=6226^1^237
|
|
;;^UTILITY(U,$J,601.751,1466,0)
|
|
;;=6226^2^1478
|
|
;;^UTILITY(U,$J,601.751,1467,0)
|
|
;;=6226^3^1479
|
|
;;^UTILITY(U,$J,601.751,1468,0)
|
|
;;=6226^4^1480
|
|
;;^UTILITY(U,$J,601.751,1469,0)
|
|
;;=6226^5^1481
|
|
;;^UTILITY(U,$J,601.751,1470,0)
|
|
;;=6226^6^1482
|
|
;;^UTILITY(U,$J,601.751,1471,0)
|
|
;;=6227^1^237
|
|
;;^UTILITY(U,$J,601.751,1472,0)
|
|
;;=6227^2^1478
|
|
;;^UTILITY(U,$J,601.751,1473,0)
|
|
;;=6227^3^1479
|
|
;;^UTILITY(U,$J,601.751,1474,0)
|
|
;;=6227^4^1480
|
|
;;^UTILITY(U,$J,601.751,1475,0)
|
|
;;=6227^5^1481
|
|
;;^UTILITY(U,$J,601.751,1476,0)
|
|
;;=6227^6^1482
|
|
;;^UTILITY(U,$J,601.751,1477,0)
|
|
;;=3906^1^1338
|
|
;;^UTILITY(U,$J,601.751,1478,0)
|
|
;;=3906^2^1339
|
|
;;^UTILITY(U,$J,601.751,1479,0)
|
|
;;=3906^3^1340
|
|
;;^UTILITY(U,$J,601.751,1480,0)
|
|
;;=3906^4^1385
|
|
;;^UTILITY(U,$J,601.751,1481,0)
|
|
;;=3907^1^1342
|
|
;;^UTILITY(U,$J,601.751,1482,0)
|
|
;;=3907^2^1343
|
|
;;^UTILITY(U,$J,601.751,1483,0)
|
|
;;=3907^3^1344
|
|
;;^UTILITY(U,$J,601.751,1484,0)
|
|
;;=3907^4^1345
|
|
;;^UTILITY(U,$J,601.751,1485,0)
|
|
;;=3907^5^1346
|
|
;;^UTILITY(U,$J,601.751,1486,0)
|
|
;;=3908^1^1347
|
|
;;^UTILITY(U,$J,601.751,1487,0)
|
|
;;=3908^2^1381
|
|
;;^UTILITY(U,$J,601.751,1488,0)
|
|
;;=3908^3^1349
|
|
;;^UTILITY(U,$J,601.751,1489,0)
|
|
;;=3908^4^1350
|
|
;;^UTILITY(U,$J,601.751,1490,0)
|
|
;;=3909^1^1351
|
|
;;^UTILITY(U,$J,601.751,1491,0)
|
|
;;=3909^2^1352
|
|
;;^UTILITY(U,$J,601.751,1492,0)
|
|
;;=3909^3^1353
|
|
;;^UTILITY(U,$J,601.751,1493,0)
|
|
;;=749^1^1203
|
|
;;^UTILITY(U,$J,601.751,1494,0)
|
|
;;=749^2^1204
|
|
;;^UTILITY(U,$J,601.751,1495,0)
|
|
;;=749^3^1205
|
|
;;^UTILITY(U,$J,601.751,1496,0)
|
|
;;=749^4^1206
|
|
;;^UTILITY(U,$J,601.751,1497,0)
|
|
;;=3909^4^1354
|
|
;;^UTILITY(U,$J,601.751,1498,0)
|
|
;;=3910^1^614
|
|
;;^UTILITY(U,$J,601.751,1499,0)
|
|
;;=3910^2^1355
|
|
;;^UTILITY(U,$J,601.751,1500,0)
|
|
;;=3910^3^1382
|
|
;;^UTILITY(U,$J,601.751,1501,0)
|
|
;;=3910^4^1383
|
|
;;^UTILITY(U,$J,601.751,1502,0)
|
|
;;=3911^1^614
|
|
;;^UTILITY(U,$J,601.751,1503,0)
|
|
;;=3911^2^1358
|
|
;;^UTILITY(U,$J,601.751,1504,0)
|
|
;;=3911^3^1359
|
|
;;^UTILITY(U,$J,601.751,1505,0)
|
|
;;=3911^4^1360
|
|
;;^UTILITY(U,$J,601.751,1506,0)
|
|
;;=3912^1^1361
|
|
;;^UTILITY(U,$J,601.751,1507,0)
|
|
;;=3912^2^1362
|
|
;;^UTILITY(U,$J,601.751,1508,0)
|
|
;;=3912^3^1363
|
|
;;^UTILITY(U,$J,601.751,1509,0)
|
|
;;=3912^4^1364
|
|
;;^UTILITY(U,$J,601.751,1510,0)
|
|
;;=3912^5^1365
|
|
;;^UTILITY(U,$J,601.751,1511,0)
|
|
;;=3913^1^1366
|
|
;;^UTILITY(U,$J,601.751,1512,0)
|
|
;;=3913^2^1367
|
|
;;^UTILITY(U,$J,601.751,1513,0)
|
|
;;=3913^3^1368
|
|
;;^UTILITY(U,$J,601.751,1514,0)
|
|
;;=3913^4^1369
|
|
;;^UTILITY(U,$J,601.751,1515,0)
|
|
;;=3914^1^1370
|
|
;;^UTILITY(U,$J,601.751,1516,0)
|
|
;;=3914^2^1371
|
|
;;^UTILITY(U,$J,601.751,1517,0)
|
|
;;=3914^3^1372
|
|
;;^UTILITY(U,$J,601.751,1518,0)
|
|
;;=3914^4^1373
|
|
;;^UTILITY(U,$J,601.751,1519,0)
|
|
;;=3915^1^1
|
|
;;^UTILITY(U,$J,601.751,1520,0)
|
|
;;=3915^2^1374
|
|
;;^UTILITY(U,$J,601.751,1521,0)
|
|
;;=3915^3^1375
|
|
;;^UTILITY(U,$J,601.751,1522,0)
|
|
;;=3915^4^1384
|
|
;;^UTILITY(U,$J,601.751,1523,0)
|
|
;;=3916^1^1377
|
|
;;^UTILITY(U,$J,601.751,1524,0)
|
|
;;=757^1^1230
|
|
;;^UTILITY(U,$J,601.751,1525,0)
|
|
;;=757^2^1231
|
|
;;^UTILITY(U,$J,601.751,1526,0)
|
|
;;=757^3^1232
|
|
;;^UTILITY(U,$J,601.751,1527,0)
|
|
;;=757^4^1233
|
|
;;^UTILITY(U,$J,601.751,1528,0)
|
|
;;=758^1^1234
|
|
;;^UTILITY(U,$J,601.751,1529,0)
|
|
;;=758^2^1227
|
|
;;^UTILITY(U,$J,601.751,1530,0)
|
|
;;=758^3^1228
|