177 lines
4.4 KiB
Mathematica
177 lines
4.4 KiB
Mathematica
YTQQI00K ;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,14523,0)
|
|
;;=6180^1^1410
|
|
;;^UTILITY(U,$J,601.751,14524,0)
|
|
;;=6180^2^1411
|
|
;;^UTILITY(U,$J,601.751,14525,0)
|
|
;;=6180^3^1063
|
|
;;^UTILITY(U,$J,601.751,14526,0)
|
|
;;=6180^4^1062
|
|
;;^UTILITY(U,$J,601.751,14527,0)
|
|
;;=6180^5^1061
|
|
;;^UTILITY(U,$J,601.751,14528,0)
|
|
;;=6180^6^1059
|
|
;;^UTILITY(U,$J,601.751,14529,0)
|
|
;;=6181^1^100884
|
|
;;^UTILITY(U,$J,601.751,14530,0)
|
|
;;=6181^2^1412
|
|
;;^UTILITY(U,$J,601.751,14531,0)
|
|
;;=6181^3^1413
|
|
;;^UTILITY(U,$J,601.751,14532,0)
|
|
;;=6181^4^1414
|
|
;;^UTILITY(U,$J,601.751,14533,0)
|
|
;;=6181^5^1415
|
|
;;^UTILITY(U,$J,601.751,14534,0)
|
|
;;=6181^6^1416
|
|
;;^UTILITY(U,$J,601.751,14535,0)
|
|
;;=6182^1^100884
|
|
;;^UTILITY(U,$J,601.751,14536,0)
|
|
;;=6182^2^1412
|
|
;;^UTILITY(U,$J,601.751,14537,0)
|
|
;;=6182^3^1413
|
|
;;^UTILITY(U,$J,601.751,14538,0)
|
|
;;=6182^4^1414
|
|
;;^UTILITY(U,$J,601.751,14539,0)
|
|
;;=6182^5^1415
|
|
;;^UTILITY(U,$J,601.751,14540,0)
|
|
;;=6182^6^1416
|
|
;;^UTILITY(U,$J,601.751,14541,0)
|
|
;;=6183^1^237
|
|
;;^UTILITY(U,$J,601.751,14542,0)
|
|
;;=6183^2^241
|
|
;;^UTILITY(U,$J,601.751,14543,0)
|
|
;;=6184^1^237
|
|
;;^UTILITY(U,$J,601.751,14544,0)
|
|
;;=6184^2^241
|
|
;;^UTILITY(U,$J,601.751,14545,0)
|
|
;;=6185^1^237
|
|
;;^UTILITY(U,$J,601.751,14546,0)
|
|
;;=6185^2^241
|
|
;;^UTILITY(U,$J,601.751,14547,0)
|
|
;;=6186^1^237
|
|
;;^UTILITY(U,$J,601.751,14548,0)
|
|
;;=6186^2^241
|
|
;;^UTILITY(U,$J,601.751,14549,0)
|
|
;;=6187^1^237
|
|
;;^UTILITY(U,$J,601.751,14550,0)
|
|
;;=6187^2^241
|
|
;;^UTILITY(U,$J,601.751,14551,0)
|
|
;;=6188^1^237
|
|
;;^UTILITY(U,$J,601.751,14552,0)
|
|
;;=6188^2^241
|
|
;;^UTILITY(U,$J,601.751,14553,0)
|
|
;;=6189^1^237
|
|
;;^UTILITY(U,$J,601.751,14554,0)
|
|
;;=6189^2^241
|
|
;;^UTILITY(U,$J,601.751,14555,0)
|
|
;;=6190^1^237
|
|
;;^UTILITY(U,$J,601.751,14556,0)
|
|
;;=6190^2^241
|
|
;;^UTILITY(U,$J,601.751,14557,0)
|
|
;;=6191^1^237
|
|
;;^UTILITY(U,$J,601.751,14558,0)
|
|
;;=6191^2^241
|
|
;;^UTILITY(U,$J,601.751,14559,0)
|
|
;;=6192^1^237
|
|
;;^UTILITY(U,$J,601.751,14560,0)
|
|
;;=6192^2^241
|
|
;;^UTILITY(U,$J,601.751,14561,0)
|
|
;;=6193^1^237
|
|
;;^UTILITY(U,$J,601.751,14562,0)
|
|
;;=6193^2^241
|
|
;;^UTILITY(U,$J,601.751,14563,0)
|
|
;;=6194^1^237
|
|
;;^UTILITY(U,$J,601.751,14564,0)
|
|
;;=6194^2^241
|
|
;;^UTILITY(U,$J,601.751,14565,0)
|
|
;;=6195^1^237
|
|
;;^UTILITY(U,$J,601.751,14566,0)
|
|
;;=6195^2^241
|
|
;;^UTILITY(U,$J,601.751,14567,0)
|
|
;;=6196^1^237
|
|
;;^UTILITY(U,$J,601.751,14568,0)
|
|
;;=6196^2^241
|
|
;;^UTILITY(U,$J,601.751,14569,0)
|
|
;;=6197^1^237
|
|
;;^UTILITY(U,$J,601.751,14570,0)
|
|
;;=6197^2^241
|
|
;;^UTILITY(U,$J,601.751,14571,0)
|
|
;;=6198^1^237
|
|
;;^UTILITY(U,$J,601.751,14572,0)
|
|
;;=6198^2^241
|
|
;;^UTILITY(U,$J,601.751,14573,0)
|
|
;;=6199^1^237
|
|
;;^UTILITY(U,$J,601.751,14574,0)
|
|
;;=6199^2^241
|
|
;;^UTILITY(U,$J,601.751,14575,0)
|
|
;;=6200^1^237
|
|
;;^UTILITY(U,$J,601.751,14576,0)
|
|
;;=6200^2^241
|
|
;;^UTILITY(U,$J,601.751,14577,0)
|
|
;;=6201^1^237
|
|
;;^UTILITY(U,$J,601.751,14578,0)
|
|
;;=6201^2^241
|
|
;;^UTILITY(U,$J,601.751,14579,0)
|
|
;;=6202^1^237
|
|
;;^UTILITY(U,$J,601.751,14580,0)
|
|
;;=6202^2^241
|
|
;;^UTILITY(U,$J,601.751,14581,0)
|
|
;;=6203^1^237
|
|
;;^UTILITY(U,$J,601.751,14582,0)
|
|
;;=6203^2^241
|
|
;;^UTILITY(U,$J,601.751,14583,0)
|
|
;;=6204^1^237
|
|
;;^UTILITY(U,$J,601.751,14584,0)
|
|
;;=6204^2^241
|
|
;;^UTILITY(U,$J,601.751,14585,0)
|
|
;;=6205^1^237
|
|
;;^UTILITY(U,$J,601.751,14586,0)
|
|
;;=6205^2^241
|
|
;;^UTILITY(U,$J,601.751,14587,0)
|
|
;;=6206^1^237
|
|
;;^UTILITY(U,$J,601.751,14588,0)
|
|
;;=6206^2^241
|
|
;;^UTILITY(U,$J,601.751,14589,0)
|
|
;;=6207^1^237
|
|
;;^UTILITY(U,$J,601.751,14590,0)
|
|
;;=6207^2^241
|
|
;;^UTILITY(U,$J,601.751,14609,0)
|
|
;;=6214^1^1833
|
|
;;^UTILITY(U,$J,601.751,14610,0)
|
|
;;=6214^2^1834
|
|
;;^UTILITY(U,$J,601.751,14611,0)
|
|
;;=6215^1^1835
|
|
;;^UTILITY(U,$J,601.751,14612,0)
|
|
;;=6215^2^1836
|
|
;;^UTILITY(U,$J,601.751,14613,0)
|
|
;;=6216^1^1837
|
|
;;^UTILITY(U,$J,601.751,14614,0)
|
|
;;=6216^2^1838
|
|
;;^UTILITY(U,$J,601.751,14615,0)
|
|
;;=6217^1^1839
|
|
;;^UTILITY(U,$J,601.751,14616,0)
|
|
;;=6217^2^1840
|
|
;;^UTILITY(U,$J,601.751,14617,0)
|
|
;;=6217^3^1841
|
|
;;^UTILITY(U,$J,601.751,14618,0)
|
|
;;=6218^1^1839
|
|
;;^UTILITY(U,$J,601.751,14619,0)
|
|
;;=6218^2^1840
|
|
;;^UTILITY(U,$J,601.751,14620,0)
|
|
;;=6218^3^1841
|
|
;;^UTILITY(U,$J,601.751,14621,0)
|
|
;;=6219^1^1842
|
|
;;^UTILITY(U,$J,601.751,14622,0)
|
|
;;=6219^2^1843
|
|
;;^UTILITY(U,$J,601.751,14623,0)
|
|
;;=6219^3^1844
|
|
;;^UTILITY(U,$J,601.751,14624,0)
|
|
;;=6219^4^1845
|
|
;;^UTILITY(U,$J,601.751,14625,0)
|
|
;;=6219^5^1846
|
|
;;^UTILITY(U,$J,601.751,14626,0)
|
|
;;=6219^6^1847
|