371 lines
8.9 KiB
Mathematica
371 lines
8.9 KiB
Mathematica
YTQQI00I ;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,14164,0)
|
|
;;=6103^1^237
|
|
;;^UTILITY(U,$J,601.751,14165,0)
|
|
;;=6103^2^241
|
|
;;^UTILITY(U,$J,601.751,14166,0)
|
|
;;=6103^3^1512
|
|
;;^UTILITY(U,$J,601.751,14167,0)
|
|
;;=6103^4^1513
|
|
;;^UTILITY(U,$J,601.751,14168,0)
|
|
;;=6104^1^237
|
|
;;^UTILITY(U,$J,601.751,14169,0)
|
|
;;=6104^2^241
|
|
;;^UTILITY(U,$J,601.751,14170,0)
|
|
;;=6105^1^1
|
|
;;^UTILITY(U,$J,601.751,14171,0)
|
|
;;=6105^2^3
|
|
;;^UTILITY(U,$J,601.751,14172,0)
|
|
;;=6105^3^4
|
|
;;^UTILITY(U,$J,601.751,14173,0)
|
|
;;=6105^4^5
|
|
;;^UTILITY(U,$J,601.751,14174,0)
|
|
;;=6105^5^1457
|
|
;;^UTILITY(U,$J,601.751,14175,0)
|
|
;;=6106^1^1
|
|
;;^UTILITY(U,$J,601.751,14176,0)
|
|
;;=6106^2^3
|
|
;;^UTILITY(U,$J,601.751,14177,0)
|
|
;;=6106^3^4
|
|
;;^UTILITY(U,$J,601.751,14178,0)
|
|
;;=6106^4^5
|
|
;;^UTILITY(U,$J,601.751,14179,0)
|
|
;;=6106^5^1457
|
|
;;^UTILITY(U,$J,601.751,14180,0)
|
|
;;=6107^1^1
|
|
;;^UTILITY(U,$J,601.751,14181,0)
|
|
;;=6107^2^3
|
|
;;^UTILITY(U,$J,601.751,14182,0)
|
|
;;=6107^3^4
|
|
;;^UTILITY(U,$J,601.751,14183,0)
|
|
;;=6107^4^5
|
|
;;^UTILITY(U,$J,601.751,14184,0)
|
|
;;=6107^5^1457
|
|
;;^UTILITY(U,$J,601.751,14185,0)
|
|
;;=6108^1^1
|
|
;;^UTILITY(U,$J,601.751,14186,0)
|
|
;;=6108^2^3
|
|
;;^UTILITY(U,$J,601.751,14187,0)
|
|
;;=6108^3^4
|
|
;;^UTILITY(U,$J,601.751,14188,0)
|
|
;;=6108^4^5
|
|
;;^UTILITY(U,$J,601.751,14189,0)
|
|
;;=6108^5^1457
|
|
;;^UTILITY(U,$J,601.751,14190,0)
|
|
;;=6109^1^1
|
|
;;^UTILITY(U,$J,601.751,14191,0)
|
|
;;=6109^2^3
|
|
;;^UTILITY(U,$J,601.751,14192,0)
|
|
;;=6109^3^4
|
|
;;^UTILITY(U,$J,601.751,14193,0)
|
|
;;=6109^4^5
|
|
;;^UTILITY(U,$J,601.751,14194,0)
|
|
;;=6109^5^1457
|
|
;;^UTILITY(U,$J,601.751,14195,0)
|
|
;;=6110^1^1
|
|
;;^UTILITY(U,$J,601.751,14196,0)
|
|
;;=6110^2^3
|
|
;;^UTILITY(U,$J,601.751,14197,0)
|
|
;;=6110^3^4
|
|
;;^UTILITY(U,$J,601.751,14198,0)
|
|
;;=6110^4^5
|
|
;;^UTILITY(U,$J,601.751,14199,0)
|
|
;;=6110^5^1457
|
|
;;^UTILITY(U,$J,601.751,14200,0)
|
|
;;=6111^1^1
|
|
;;^UTILITY(U,$J,601.751,14201,0)
|
|
;;=6111^2^3
|
|
;;^UTILITY(U,$J,601.751,14202,0)
|
|
;;=6111^3^4
|
|
;;^UTILITY(U,$J,601.751,14203,0)
|
|
;;=6111^4^5
|
|
;;^UTILITY(U,$J,601.751,14204,0)
|
|
;;=6111^5^1457
|
|
;;^UTILITY(U,$J,601.751,14205,0)
|
|
;;=6112^1^1
|
|
;;^UTILITY(U,$J,601.751,14206,0)
|
|
;;=6112^2^3
|
|
;;^UTILITY(U,$J,601.751,14207,0)
|
|
;;=6112^3^4
|
|
;;^UTILITY(U,$J,601.751,14208,0)
|
|
;;=6112^4^5
|
|
;;^UTILITY(U,$J,601.751,14209,0)
|
|
;;=6112^5^1457
|
|
;;^UTILITY(U,$J,601.751,14210,0)
|
|
;;=6113^1^1
|
|
;;^UTILITY(U,$J,601.751,14211,0)
|
|
;;=6113^2^3
|
|
;;^UTILITY(U,$J,601.751,14212,0)
|
|
;;=6113^3^4
|
|
;;^UTILITY(U,$J,601.751,14213,0)
|
|
;;=6113^4^5
|
|
;;^UTILITY(U,$J,601.751,14214,0)
|
|
;;=6113^5^1457
|
|
;;^UTILITY(U,$J,601.751,14215,0)
|
|
;;=6114^1^1
|
|
;;^UTILITY(U,$J,601.751,14216,0)
|
|
;;=6114^2^3
|
|
;;^UTILITY(U,$J,601.751,14217,0)
|
|
;;=6114^3^4
|
|
;;^UTILITY(U,$J,601.751,14218,0)
|
|
;;=6114^4^5
|
|
;;^UTILITY(U,$J,601.751,14219,0)
|
|
;;=6114^5^1457
|
|
;;^UTILITY(U,$J,601.751,14220,0)
|
|
;;=6115^1^1
|
|
;;^UTILITY(U,$J,601.751,14221,0)
|
|
;;=6115^2^3
|
|
;;^UTILITY(U,$J,601.751,14222,0)
|
|
;;=6115^3^4
|
|
;;^UTILITY(U,$J,601.751,14223,0)
|
|
;;=6115^4^5
|
|
;;^UTILITY(U,$J,601.751,14224,0)
|
|
;;=6115^5^1457
|
|
;;^UTILITY(U,$J,601.751,14225,0)
|
|
;;=6116^1^1
|
|
;;^UTILITY(U,$J,601.751,14226,0)
|
|
;;=6116^2^3
|
|
;;^UTILITY(U,$J,601.751,14227,0)
|
|
;;=6116^3^4
|
|
;;^UTILITY(U,$J,601.751,14228,0)
|
|
;;=6116^4^5
|
|
;;^UTILITY(U,$J,601.751,14229,0)
|
|
;;=6116^5^1457
|
|
;;^UTILITY(U,$J,601.751,14230,0)
|
|
;;=6117^1^1
|
|
;;^UTILITY(U,$J,601.751,14231,0)
|
|
;;=6117^2^3
|
|
;;^UTILITY(U,$J,601.751,14232,0)
|
|
;;=6117^3^4
|
|
;;^UTILITY(U,$J,601.751,14233,0)
|
|
;;=6117^4^5
|
|
;;^UTILITY(U,$J,601.751,14234,0)
|
|
;;=6117^5^1457
|
|
;;^UTILITY(U,$J,601.751,14235,0)
|
|
;;=6118^1^1
|
|
;;^UTILITY(U,$J,601.751,14236,0)
|
|
;;=6118^2^3
|
|
;;^UTILITY(U,$J,601.751,14237,0)
|
|
;;=6118^3^4
|
|
;;^UTILITY(U,$J,601.751,14238,0)
|
|
;;=6118^4^5
|
|
;;^UTILITY(U,$J,601.751,14239,0)
|
|
;;=6118^5^1457
|
|
;;^UTILITY(U,$J,601.751,14240,0)
|
|
;;=6119^1^1
|
|
;;^UTILITY(U,$J,601.751,14241,0)
|
|
;;=6119^2^3
|
|
;;^UTILITY(U,$J,601.751,14242,0)
|
|
;;=6119^3^4
|
|
;;^UTILITY(U,$J,601.751,14243,0)
|
|
;;=6119^4^5
|
|
;;^UTILITY(U,$J,601.751,14244,0)
|
|
;;=6119^5^1457
|
|
;;^UTILITY(U,$J,601.751,14245,0)
|
|
;;=6120^1^1
|
|
;;^UTILITY(U,$J,601.751,14246,0)
|
|
;;=6120^2^3
|
|
;;^UTILITY(U,$J,601.751,14247,0)
|
|
;;=6120^3^4
|
|
;;^UTILITY(U,$J,601.751,14248,0)
|
|
;;=6120^4^5
|
|
;;^UTILITY(U,$J,601.751,14249,0)
|
|
;;=6120^5^1457
|
|
;;^UTILITY(U,$J,601.751,14250,0)
|
|
;;=6121^1^1
|
|
;;^UTILITY(U,$J,601.751,14251,0)
|
|
;;=6121^2^3
|
|
;;^UTILITY(U,$J,601.751,14252,0)
|
|
;;=6121^3^4
|
|
;;^UTILITY(U,$J,601.751,14253,0)
|
|
;;=6121^4^5
|
|
;;^UTILITY(U,$J,601.751,14254,0)
|
|
;;=6121^5^1457
|
|
;;^UTILITY(U,$J,601.751,14255,0)
|
|
;;=6122^1^1
|
|
;;^UTILITY(U,$J,601.751,14256,0)
|
|
;;=6122^2^3
|
|
;;^UTILITY(U,$J,601.751,14257,0)
|
|
;;=6122^3^4
|
|
;;^UTILITY(U,$J,601.751,14258,0)
|
|
;;=6122^4^5
|
|
;;^UTILITY(U,$J,601.751,14259,0)
|
|
;;=6122^5^1457
|
|
;;^UTILITY(U,$J,601.751,14260,0)
|
|
;;=6123^1^1
|
|
;;^UTILITY(U,$J,601.751,14261,0)
|
|
;;=6123^2^3
|
|
;;^UTILITY(U,$J,601.751,14262,0)
|
|
;;=6123^3^4
|
|
;;^UTILITY(U,$J,601.751,14263,0)
|
|
;;=6123^4^5
|
|
;;^UTILITY(U,$J,601.751,14264,0)
|
|
;;=6123^5^1457
|
|
;;^UTILITY(U,$J,601.751,14265,0)
|
|
;;=6124^1^1
|
|
;;^UTILITY(U,$J,601.751,14266,0)
|
|
;;=6124^2^3
|
|
;;^UTILITY(U,$J,601.751,14267,0)
|
|
;;=6124^3^4
|
|
;;^UTILITY(U,$J,601.751,14268,0)
|
|
;;=6124^4^5
|
|
;;^UTILITY(U,$J,601.751,14269,0)
|
|
;;=6124^5^1457
|
|
;;^UTILITY(U,$J,601.751,14270,0)
|
|
;;=6125^1^1
|
|
;;^UTILITY(U,$J,601.751,14271,0)
|
|
;;=6125^2^3
|
|
;;^UTILITY(U,$J,601.751,14272,0)
|
|
;;=6125^3^4
|
|
;;^UTILITY(U,$J,601.751,14273,0)
|
|
;;=6125^4^5
|
|
;;^UTILITY(U,$J,601.751,14274,0)
|
|
;;=6125^5^1457
|
|
;;^UTILITY(U,$J,601.751,14275,0)
|
|
;;=6126^1^1
|
|
;;^UTILITY(U,$J,601.751,14276,0)
|
|
;;=6126^2^3
|
|
;;^UTILITY(U,$J,601.751,14277,0)
|
|
;;=6126^3^4
|
|
;;^UTILITY(U,$J,601.751,14278,0)
|
|
;;=6126^4^5
|
|
;;^UTILITY(U,$J,601.751,14279,0)
|
|
;;=6126^5^1457
|
|
;;^UTILITY(U,$J,601.751,14280,0)
|
|
;;=6127^1^1
|
|
;;^UTILITY(U,$J,601.751,14281,0)
|
|
;;=6127^2^3
|
|
;;^UTILITY(U,$J,601.751,14282,0)
|
|
;;=6127^3^4
|
|
;;^UTILITY(U,$J,601.751,14283,0)
|
|
;;=6127^4^5
|
|
;;^UTILITY(U,$J,601.751,14284,0)
|
|
;;=6127^5^1457
|
|
;;^UTILITY(U,$J,601.751,14285,0)
|
|
;;=6128^1^237
|
|
;;^UTILITY(U,$J,601.751,14286,0)
|
|
;;=6128^2^241
|
|
;;^UTILITY(U,$J,601.751,14287,0)
|
|
;;=6129^1^1514
|
|
;;^UTILITY(U,$J,601.751,14288,0)
|
|
;;=6129^2^1515
|
|
;;^UTILITY(U,$J,601.751,14289,0)
|
|
;;=6129^3^1516
|
|
;;^UTILITY(U,$J,601.751,14290,0)
|
|
;;=6129^4^1517
|
|
;;^UTILITY(U,$J,601.751,14291,0)
|
|
;;=6129^5^1518
|
|
;;^UTILITY(U,$J,601.751,14292,0)
|
|
;;=6129^6^1519
|
|
;;^UTILITY(U,$J,601.751,14293,0)
|
|
;;=6129^7^1520
|
|
;;^UTILITY(U,$J,601.751,14294,0)
|
|
;;=6129^8^743
|
|
;;^UTILITY(U,$J,601.751,14295,0)
|
|
;;=6130^1^1
|
|
;;^UTILITY(U,$J,601.751,14296,0)
|
|
;;=6130^2^3
|
|
;;^UTILITY(U,$J,601.751,14297,0)
|
|
;;=6130^3^4
|
|
;;^UTILITY(U,$J,601.751,14298,0)
|
|
;;=6130^4^5
|
|
;;^UTILITY(U,$J,601.751,14299,0)
|
|
;;=6130^5^1457
|
|
;;^UTILITY(U,$J,601.751,14300,0)
|
|
;;=6131^1^1521
|
|
;;^UTILITY(U,$J,601.751,14301,0)
|
|
;;=6131^2^1522
|
|
;;^UTILITY(U,$J,601.751,14302,0)
|
|
;;=6131^3^1523
|
|
;;^UTILITY(U,$J,601.751,14303,0)
|
|
;;=6132^1^237
|
|
;;^UTILITY(U,$J,601.751,14304,0)
|
|
;;=6132^2^1513
|
|
;;^UTILITY(U,$J,601.751,14305,0)
|
|
;;=6132^3^1524
|
|
;;^UTILITY(U,$J,601.751,14306,0)
|
|
;;=6132^4^241
|
|
;;^UTILITY(U,$J,601.751,14307,0)
|
|
;;=6133^1^1525
|
|
;;^UTILITY(U,$J,601.751,14308,0)
|
|
;;=6133^2^1526
|
|
;;^UTILITY(U,$J,601.751,14309,0)
|
|
;;=6133^3^1527
|
|
;;^UTILITY(U,$J,601.751,14310,0)
|
|
;;=6133^4^1528
|
|
;;^UTILITY(U,$J,601.751,14311,0)
|
|
;;=6133^5^1665
|
|
;;^UTILITY(U,$J,601.751,14312,0)
|
|
;;=6133^6^1530
|
|
;;^UTILITY(U,$J,601.751,14313,0)
|
|
;;=6133^7^1531
|
|
;;^UTILITY(U,$J,601.751,14314,0)
|
|
;;=6133^8^1532
|
|
;;^UTILITY(U,$J,601.751,14315,0)
|
|
;;=6134^1^237
|
|
;;^UTILITY(U,$J,601.751,14316,0)
|
|
;;=6134^2^241
|
|
;;^UTILITY(U,$J,601.751,14317,0)
|
|
;;=6135^1^1
|
|
;;^UTILITY(U,$J,601.751,14318,0)
|
|
;;=6135^2^1533
|
|
;;^UTILITY(U,$J,601.751,14319,0)
|
|
;;=6135^3^1534
|
|
;;^UTILITY(U,$J,601.751,14320,0)
|
|
;;=6135^4^1535
|
|
;;^UTILITY(U,$J,601.751,14321,0)
|
|
;;=6135^5^1536
|
|
;;^UTILITY(U,$J,601.751,14322,0)
|
|
;;=6135^6^1537
|
|
;;^UTILITY(U,$J,601.751,14323,0)
|
|
;;=6135^7^1538
|
|
;;^UTILITY(U,$J,601.751,14324,0)
|
|
;;=6135^8^1539
|
|
;;^UTILITY(U,$J,601.751,14325,0)
|
|
;;=6135^9^1540
|
|
;;^UTILITY(U,$J,601.751,14326,0)
|
|
;;=6136^1^237
|
|
;;^UTILITY(U,$J,601.751,14327,0)
|
|
;;=6136^2^241
|
|
;;^UTILITY(U,$J,601.751,14328,0)
|
|
;;=6136^3^1513
|
|
;;^UTILITY(U,$J,601.751,14329,0)
|
|
;;=6137^1^237
|
|
;;^UTILITY(U,$J,601.751,14330,0)
|
|
;;=6137^2^241
|
|
;;^UTILITY(U,$J,601.751,14331,0)
|
|
;;=6137^3^1512
|
|
;;^UTILITY(U,$J,601.751,14332,0)
|
|
;;=6138^1^1541
|
|
;;^UTILITY(U,$J,601.751,14333,0)
|
|
;;=6138^2^1542
|
|
;;^UTILITY(U,$J,601.751,14334,0)
|
|
;;=6138^3^1543
|
|
;;^UTILITY(U,$J,601.751,14335,0)
|
|
;;=6138^4^1544
|
|
;;^UTILITY(U,$J,601.751,14336,0)
|
|
;;=6139^1^237
|
|
;;^UTILITY(U,$J,601.751,14337,0)
|
|
;;=6139^2^241
|
|
;;^UTILITY(U,$J,601.751,14338,0)
|
|
;;=6140^1^1545
|
|
;;^UTILITY(U,$J,601.751,14339,0)
|
|
;;=6140^2^1546
|
|
;;^UTILITY(U,$J,601.751,14340,0)
|
|
;;=6140^3^1547
|
|
;;^UTILITY(U,$J,601.751,14341,0)
|
|
;;=6140^4^1548
|
|
;;^UTILITY(U,$J,601.751,14342,0)
|
|
;;=6140^5^1549
|
|
;;^UTILITY(U,$J,601.751,14343,0)
|
|
;;=6140^6^1550
|
|
;;^UTILITY(U,$J,601.751,14344,0)
|
|
;;=6140^7^1551
|
|
;;^UTILITY(U,$J,601.751,14345,0)
|
|
;;=6140^8^1552
|
|
;;^UTILITY(U,$J,601.751,14346,0)
|
|
;;=6140^9^1553
|