359 lines
8.9 KiB
Mathematica
359 lines
8.9 KiB
Mathematica
YTQQI00H ;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,10878,0)
|
|
;;=3193^1^1308
|
|
;;^UTILITY(U,$J,601.751,10879,0)
|
|
;;=3193^2^1309
|
|
;;^UTILITY(U,$J,601.751,10880,0)
|
|
;;=3193^3^1310
|
|
;;^UTILITY(U,$J,601.751,10881,0)
|
|
;;=3193^4^1311
|
|
;;^UTILITY(U,$J,601.751,10882,0)
|
|
;;=3193^5^1312
|
|
;;^UTILITY(U,$J,601.751,10883,0)
|
|
;;=3193^6^1280
|
|
;;^UTILITY(U,$J,601.751,10884,0)
|
|
;;=3193^7^1281
|
|
;;^UTILITY(U,$J,601.751,10885,0)
|
|
;;=3194^1^237
|
|
;;^UTILITY(U,$J,601.751,10886,0)
|
|
;;=3194^2^1313
|
|
;;^UTILITY(U,$J,601.751,10887,0)
|
|
;;=3194^3^1314
|
|
;;^UTILITY(U,$J,601.751,10888,0)
|
|
;;=3194^4^1315
|
|
;;^UTILITY(U,$J,601.751,10889,0)
|
|
;;=3194^5^1280
|
|
;;^UTILITY(U,$J,601.751,10890,0)
|
|
;;=3194^6^1281
|
|
;;^UTILITY(U,$J,601.751,10891,0)
|
|
;;=3195^1^237
|
|
;;^UTILITY(U,$J,601.751,10892,0)
|
|
;;=3195^2^241
|
|
;;^UTILITY(U,$J,601.751,10893,0)
|
|
;;=3195^3^1280
|
|
;;^UTILITY(U,$J,601.751,10894,0)
|
|
;;=3195^4^1281
|
|
;;^UTILITY(U,$J,601.751,10895,0)
|
|
;;=3196^1^237
|
|
;;^UTILITY(U,$J,601.751,10896,0)
|
|
;;=3196^2^241
|
|
;;^UTILITY(U,$J,601.751,10897,0)
|
|
;;=3197^1^237
|
|
;;^UTILITY(U,$J,601.751,10898,0)
|
|
;;=3197^2^241
|
|
;;^UTILITY(U,$J,601.751,10899,0)
|
|
;;=3197^3^1280
|
|
;;^UTILITY(U,$J,601.751,10900,0)
|
|
;;=3197^4^1281
|
|
;;^UTILITY(U,$J,601.751,10901,0)
|
|
;;=3198^1^237
|
|
;;^UTILITY(U,$J,601.751,10902,0)
|
|
;;=3198^2^241
|
|
;;^UTILITY(U,$J,601.751,10903,0)
|
|
;;=3198^3^1280
|
|
;;^UTILITY(U,$J,601.751,10904,0)
|
|
;;=3198^4^1281
|
|
;;^UTILITY(U,$J,601.751,10905,0)
|
|
;;=3199^1^237
|
|
;;^UTILITY(U,$J,601.751,10906,0)
|
|
;;=3199^2^241
|
|
;;^UTILITY(U,$J,601.751,10907,0)
|
|
;;=3199^3^1280
|
|
;;^UTILITY(U,$J,601.751,10908,0)
|
|
;;=3199^4^1281
|
|
;;^UTILITY(U,$J,601.751,10909,0)
|
|
;;=3200^1^1317
|
|
;;^UTILITY(U,$J,601.751,10910,0)
|
|
;;=3200^2^1318
|
|
;;^UTILITY(U,$J,601.751,10911,0)
|
|
;;=3200^3^1319
|
|
;;^UTILITY(U,$J,601.751,14021,0)
|
|
;;=6075^1^1465
|
|
;;^UTILITY(U,$J,601.751,14022,0)
|
|
;;=6075^2^1466
|
|
;;^UTILITY(U,$J,601.751,14023,0)
|
|
;;=6075^3^1467
|
|
;;^UTILITY(U,$J,601.751,14024,0)
|
|
;;=6075^4^745
|
|
;;^UTILITY(U,$J,601.751,14025,0)
|
|
;;=6076^1^1468
|
|
;;^UTILITY(U,$J,601.751,14026,0)
|
|
;;=6076^2^1469
|
|
;;^UTILITY(U,$J,601.751,14027,0)
|
|
;;=6076^3^1470
|
|
;;^UTILITY(U,$J,601.751,14028,0)
|
|
;;=6076^4^753
|
|
;;^UTILITY(U,$J,601.751,14029,0)
|
|
;;=6076^5^1471
|
|
;;^UTILITY(U,$J,601.751,14030,0)
|
|
;;=6077^1^1814
|
|
;;^UTILITY(U,$J,601.751,14031,0)
|
|
;;=6077^2^1472
|
|
;;^UTILITY(U,$J,601.751,14032,0)
|
|
;;=6077^3^1473
|
|
;;^UTILITY(U,$J,601.751,14033,0)
|
|
;;=6077^4^1474
|
|
;;^UTILITY(U,$J,601.751,14034,0)
|
|
;;=6077^5^1475
|
|
;;^UTILITY(U,$J,601.751,14035,0)
|
|
;;=6077^6^1476
|
|
;;^UTILITY(U,$J,601.751,14036,0)
|
|
;;=6077^7^1477
|
|
;;^UTILITY(U,$J,601.751,14037,0)
|
|
;;=6078^1^237
|
|
;;^UTILITY(U,$J,601.751,14038,0)
|
|
;;=6078^2^1478
|
|
;;^UTILITY(U,$J,601.751,14039,0)
|
|
;;=6078^3^1479
|
|
;;^UTILITY(U,$J,601.751,14040,0)
|
|
;;=6078^4^1480
|
|
;;^UTILITY(U,$J,601.751,14041,0)
|
|
;;=6078^5^1481
|
|
;;^UTILITY(U,$J,601.751,14042,0)
|
|
;;=6078^6^1482
|
|
;;^UTILITY(U,$J,601.751,14043,0)
|
|
;;=6079^1^237
|
|
;;^UTILITY(U,$J,601.751,14044,0)
|
|
;;=6079^2^1478
|
|
;;^UTILITY(U,$J,601.751,14045,0)
|
|
;;=6079^3^1479
|
|
;;^UTILITY(U,$J,601.751,14046,0)
|
|
;;=6079^4^1480
|
|
;;^UTILITY(U,$J,601.751,14047,0)
|
|
;;=6079^5^1481
|
|
;;^UTILITY(U,$J,601.751,14048,0)
|
|
;;=6079^6^1482
|
|
;;^UTILITY(U,$J,601.751,14049,0)
|
|
;;=6080^1^237
|
|
;;^UTILITY(U,$J,601.751,14050,0)
|
|
;;=6080^2^1483
|
|
;;^UTILITY(U,$J,601.751,14051,0)
|
|
;;=6080^3^1484
|
|
;;^UTILITY(U,$J,601.751,14052,0)
|
|
;;=6080^4^1485
|
|
;;^UTILITY(U,$J,601.751,14053,0)
|
|
;;=6080^5^1486
|
|
;;^UTILITY(U,$J,601.751,14054,0)
|
|
;;=6080^6^1487
|
|
;;^UTILITY(U,$J,601.751,14055,0)
|
|
;;=6081^1^237
|
|
;;^UTILITY(U,$J,601.751,14056,0)
|
|
;;=6081^2^1478
|
|
;;^UTILITY(U,$J,601.751,14057,0)
|
|
;;=6081^3^1479
|
|
;;^UTILITY(U,$J,601.751,14058,0)
|
|
;;=6081^4^1480
|
|
;;^UTILITY(U,$J,601.751,14059,0)
|
|
;;=6081^5^1481
|
|
;;^UTILITY(U,$J,601.751,14060,0)
|
|
;;=6081^6^1482
|
|
;;^UTILITY(U,$J,601.751,14061,0)
|
|
;;=6082^1^237
|
|
;;^UTILITY(U,$J,601.751,14062,0)
|
|
;;=6082^2^1478
|
|
;;^UTILITY(U,$J,601.751,14063,0)
|
|
;;=6082^3^1479
|
|
;;^UTILITY(U,$J,601.751,14064,0)
|
|
;;=6082^4^1480
|
|
;;^UTILITY(U,$J,601.751,14065,0)
|
|
;;=6082^5^1481
|
|
;;^UTILITY(U,$J,601.751,14066,0)
|
|
;;=6082^6^1482
|
|
;;^UTILITY(U,$J,601.751,14067,0)
|
|
;;=6083^1^1488
|
|
;;^UTILITY(U,$J,601.751,14068,0)
|
|
;;=6083^2^1489
|
|
;;^UTILITY(U,$J,601.751,14069,0)
|
|
;;=6083^3^1490
|
|
;;^UTILITY(U,$J,601.751,14070,0)
|
|
;;=6083^4^1491
|
|
;;^UTILITY(U,$J,601.751,14071,0)
|
|
;;=6084^1^237
|
|
;;^UTILITY(U,$J,601.751,14072,0)
|
|
;;=6084^2^1478
|
|
;;^UTILITY(U,$J,601.751,14073,0)
|
|
;;=6084^3^1479
|
|
;;^UTILITY(U,$J,601.751,14074,0)
|
|
;;=6084^4^1480
|
|
;;^UTILITY(U,$J,601.751,14075,0)
|
|
;;=6084^5^1481
|
|
;;^UTILITY(U,$J,601.751,14076,0)
|
|
;;=6084^6^1482
|
|
;;^UTILITY(U,$J,601.751,14077,0)
|
|
;;=6085^1^1488
|
|
;;^UTILITY(U,$J,601.751,14078,0)
|
|
;;=6085^2^1489
|
|
;;^UTILITY(U,$J,601.751,14079,0)
|
|
;;=6085^3^1490
|
|
;;^UTILITY(U,$J,601.751,14080,0)
|
|
;;=6085^4^1491
|
|
;;^UTILITY(U,$J,601.751,14081,0)
|
|
;;=6086^1^237
|
|
;;^UTILITY(U,$J,601.751,14082,0)
|
|
;;=6086^2^1478
|
|
;;^UTILITY(U,$J,601.751,14083,0)
|
|
;;=6086^3^1479
|
|
;;^UTILITY(U,$J,601.751,14084,0)
|
|
;;=6086^4^1480
|
|
;;^UTILITY(U,$J,601.751,14085,0)
|
|
;;=6086^5^1481
|
|
;;^UTILITY(U,$J,601.751,14086,0)
|
|
;;=6086^6^1482
|
|
;;^UTILITY(U,$J,601.751,14087,0)
|
|
;;=6087^1^1488
|
|
;;^UTILITY(U,$J,601.751,14088,0)
|
|
;;=6087^2^1489
|
|
;;^UTILITY(U,$J,601.751,14089,0)
|
|
;;=6087^3^1490
|
|
;;^UTILITY(U,$J,601.751,14090,0)
|
|
;;=6087^4^1491
|
|
;;^UTILITY(U,$J,601.751,14091,0)
|
|
;;=6088^1^237
|
|
;;^UTILITY(U,$J,601.751,14092,0)
|
|
;;=6088^2^1478
|
|
;;^UTILITY(U,$J,601.751,14093,0)
|
|
;;=6088^3^1479
|
|
;;^UTILITY(U,$J,601.751,14094,0)
|
|
;;=6088^4^1480
|
|
;;^UTILITY(U,$J,601.751,14095,0)
|
|
;;=6088^5^1481
|
|
;;^UTILITY(U,$J,601.751,14096,0)
|
|
;;=6088^6^1482
|
|
;;^UTILITY(U,$J,601.751,14097,0)
|
|
;;=6089^1^1488
|
|
;;^UTILITY(U,$J,601.751,14098,0)
|
|
;;=6089^2^1489
|
|
;;^UTILITY(U,$J,601.751,14099,0)
|
|
;;=6089^3^1490
|
|
;;^UTILITY(U,$J,601.751,14100,0)
|
|
;;=6089^4^1491
|
|
;;^UTILITY(U,$J,601.751,14101,0)
|
|
;;=6090^1^1492
|
|
;;^UTILITY(U,$J,601.751,14102,0)
|
|
;;=6090^2^1493
|
|
;;^UTILITY(U,$J,601.751,14103,0)
|
|
;;=6090^3^1664
|
|
;;^UTILITY(U,$J,601.751,14104,0)
|
|
;;=6090^4^1495
|
|
;;^UTILITY(U,$J,601.751,14105,0)
|
|
;;=6090^5^1496
|
|
;;^UTILITY(U,$J,601.751,14106,0)
|
|
;;=6090^6^743
|
|
;;^UTILITY(U,$J,601.751,14107,0)
|
|
;;=6090^7^100894
|
|
;;^UTILITY(U,$J,601.751,14108,0)
|
|
;;=6091^1^237
|
|
;;^UTILITY(U,$J,601.751,14109,0)
|
|
;;=6091^2^1478
|
|
;;^UTILITY(U,$J,601.751,14110,0)
|
|
;;=6091^3^1479
|
|
;;^UTILITY(U,$J,601.751,14111,0)
|
|
;;=6091^4^1480
|
|
;;^UTILITY(U,$J,601.751,14112,0)
|
|
;;=6091^5^1481
|
|
;;^UTILITY(U,$J,601.751,14113,0)
|
|
;;=6091^6^1482
|
|
;;^UTILITY(U,$J,601.751,14114,0)
|
|
;;=6092^1^1820
|
|
;;^UTILITY(U,$J,601.751,14115,0)
|
|
;;=6092^2^1821
|
|
;;^UTILITY(U,$J,601.751,14116,0)
|
|
;;=6092^3^1822
|
|
;;^UTILITY(U,$J,601.751,14117,0)
|
|
;;=6092^4^1823
|
|
;;^UTILITY(U,$J,601.751,14118,0)
|
|
;;=6092^5^1824
|
|
;;^UTILITY(U,$J,601.751,14119,0)
|
|
;;=6092^6^1825
|
|
;;^UTILITY(U,$J,601.751,14120,0)
|
|
;;=6092^7^1826
|
|
;;^UTILITY(U,$J,601.751,14121,0)
|
|
;;=6093^1^237
|
|
;;^UTILITY(U,$J,601.751,14122,0)
|
|
;;=6093^2^1478
|
|
;;^UTILITY(U,$J,601.751,14123,0)
|
|
;;=6093^3^1479
|
|
;;^UTILITY(U,$J,601.751,14124,0)
|
|
;;=6093^4^1480
|
|
;;^UTILITY(U,$J,601.751,14125,0)
|
|
;;=6093^5^1481
|
|
;;^UTILITY(U,$J,601.751,14126,0)
|
|
;;=6093^6^1482
|
|
;;^UTILITY(U,$J,601.751,14127,0)
|
|
;;=6094^1^1827
|
|
;;^UTILITY(U,$J,601.751,14128,0)
|
|
;;=6094^2^1503
|
|
;;^UTILITY(U,$J,601.751,14129,0)
|
|
;;=6094^3^1828
|
|
;;^UTILITY(U,$J,601.751,14130,0)
|
|
;;=6094^4^1825
|
|
;;^UTILITY(U,$J,601.751,14131,0)
|
|
;;=6094^5^1829
|
|
;;^UTILITY(U,$J,601.751,14132,0)
|
|
;;=6094^6^1830
|
|
;;^UTILITY(U,$J,601.751,14133,0)
|
|
;;=6094^7^1831
|
|
;;^UTILITY(U,$J,601.751,14134,0)
|
|
;;=6095^1^237
|
|
;;^UTILITY(U,$J,601.751,14135,0)
|
|
;;=6095^2^1478
|
|
;;^UTILITY(U,$J,601.751,14136,0)
|
|
;;=6095^3^1479
|
|
;;^UTILITY(U,$J,601.751,14137,0)
|
|
;;=6095^4^1480
|
|
;;^UTILITY(U,$J,601.751,14138,0)
|
|
;;=6095^5^1481
|
|
;;^UTILITY(U,$J,601.751,14139,0)
|
|
;;=6095^6^1482
|
|
;;^UTILITY(U,$J,601.751,14140,0)
|
|
;;=6096^1^1832
|
|
;;^UTILITY(U,$J,601.751,14141,0)
|
|
;;=6096^2^1503
|
|
;;^UTILITY(U,$J,601.751,14142,0)
|
|
;;=6096^3^1828
|
|
;;^UTILITY(U,$J,601.751,14143,0)
|
|
;;=6096^4^1825
|
|
;;^UTILITY(U,$J,601.751,14144,0)
|
|
;;=6096^5^1829
|
|
;;^UTILITY(U,$J,601.751,14145,0)
|
|
;;=6096^6^1830
|
|
;;^UTILITY(U,$J,601.751,14146,0)
|
|
;;=6096^7^1831
|
|
;;^UTILITY(U,$J,601.751,14147,0)
|
|
;;=6097^1^237
|
|
;;^UTILITY(U,$J,601.751,14148,0)
|
|
;;=6097^2^241
|
|
;;^UTILITY(U,$J,601.751,14149,0)
|
|
;;=6098^1^237
|
|
;;^UTILITY(U,$J,601.751,14150,0)
|
|
;;=6098^2^241
|
|
;;^UTILITY(U,$J,601.751,14151,0)
|
|
;;=6099^1^237
|
|
;;^UTILITY(U,$J,601.751,14152,0)
|
|
;;=6099^2^1508
|
|
;;^UTILITY(U,$J,601.751,14153,0)
|
|
;;=6099^3^1509
|
|
;;^UTILITY(U,$J,601.751,14154,0)
|
|
;;=6100^1^237
|
|
;;^UTILITY(U,$J,601.751,14155,0)
|
|
;;=6100^2^1510
|
|
;;^UTILITY(U,$J,601.751,14156,0)
|
|
;;=6100^3^1511
|
|
;;^UTILITY(U,$J,601.751,14157,0)
|
|
;;=6101^1^237
|
|
;;^UTILITY(U,$J,601.751,14158,0)
|
|
;;=6101^2^1510
|
|
;;^UTILITY(U,$J,601.751,14159,0)
|
|
;;=6101^3^1511
|
|
;;^UTILITY(U,$J,601.751,14160,0)
|
|
;;=6102^1^237
|
|
;;^UTILITY(U,$J,601.751,14161,0)
|
|
;;=6102^2^241
|
|
;;^UTILITY(U,$J,601.751,14162,0)
|
|
;;=6102^3^1512
|
|
;;^UTILITY(U,$J,601.751,14163,0)
|
|
;;=6102^4^1513
|