363 lines
8.9 KiB
Mathematica
363 lines
8.9 KiB
Mathematica
YTQQI00F ;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,10225,0)
|
|
;;=5410^3^1791
|
|
;;^UTILITY(U,$J,601.751,10226,0)
|
|
;;=5410^4^1792
|
|
;;^UTILITY(U,$J,601.751,10227,0)
|
|
;;=5410^5^1793
|
|
;;^UTILITY(U,$J,601.751,10228,0)
|
|
;;=5411^1^237
|
|
;;^UTILITY(U,$J,601.751,10229,0)
|
|
;;=5411^2^241
|
|
;;^UTILITY(U,$J,601.751,10230,0)
|
|
;;=5412^1^1794
|
|
;;^UTILITY(U,$J,601.751,10231,0)
|
|
;;=5412^2^1217
|
|
;;^UTILITY(U,$J,601.751,10232,0)
|
|
;;=5412^3^1795
|
|
;;^UTILITY(U,$J,601.751,10233,0)
|
|
;;=5412^4^1796
|
|
;;^UTILITY(U,$J,601.751,10234,0)
|
|
;;=5413^1^1797
|
|
;;^UTILITY(U,$J,601.751,10235,0)
|
|
;;=5413^2^1217
|
|
;;^UTILITY(U,$J,601.751,10236,0)
|
|
;;=5413^3^1795
|
|
;;^UTILITY(U,$J,601.751,10237,0)
|
|
;;=5413^4^1798
|
|
;;^UTILITY(U,$J,601.751,10238,0)
|
|
;;=5414^1^1799
|
|
;;^UTILITY(U,$J,601.751,10239,0)
|
|
;;=5414^2^1217
|
|
;;^UTILITY(U,$J,601.751,10240,0)
|
|
;;=5414^3^1795
|
|
;;^UTILITY(U,$J,601.751,10241,0)
|
|
;;=5414^4^1800
|
|
;;^UTILITY(U,$J,601.751,10242,0)
|
|
;;=5415^1^1801
|
|
;;^UTILITY(U,$J,601.751,10243,0)
|
|
;;=5415^2^1813
|
|
;;^UTILITY(U,$J,601.751,10244,0)
|
|
;;=5415^3^1803
|
|
;;^UTILITY(U,$J,601.751,10245,0)
|
|
;;=5416^1^1804
|
|
;;^UTILITY(U,$J,601.751,10246,0)
|
|
;;=5416^2^1805
|
|
;;^UTILITY(U,$J,601.751,10247,0)
|
|
;;=5416^3^1806
|
|
;;^UTILITY(U,$J,601.751,10248,0)
|
|
;;=5416^4^1807
|
|
;;^UTILITY(U,$J,601.751,10249,0)
|
|
;;=5417^1^780
|
|
;;^UTILITY(U,$J,601.751,10250,0)
|
|
;;=5417^2^781
|
|
;;^UTILITY(U,$J,601.751,10251,0)
|
|
;;=5417^3^1808
|
|
;;^UTILITY(U,$J,601.751,10252,0)
|
|
;;=5417^4^1809
|
|
;;^UTILITY(U,$J,601.751,10253,0)
|
|
;;=5417^5^1810
|
|
;;^UTILITY(U,$J,601.751,10254,0)
|
|
;;=5417^6^784
|
|
;;^UTILITY(U,$J,601.751,10255,0)
|
|
;;=5417^7^785
|
|
;;^UTILITY(U,$J,601.751,10537,0)
|
|
;;=3110^1^803
|
|
;;^UTILITY(U,$J,601.751,10538,0)
|
|
;;=3110^2^804
|
|
;;^UTILITY(U,$J,601.751,10539,0)
|
|
;;=3110^3^805
|
|
;;^UTILITY(U,$J,601.751,10540,0)
|
|
;;=3110^4^806
|
|
;;^UTILITY(U,$J,601.751,10541,0)
|
|
;;=3110^5^807
|
|
;;^UTILITY(U,$J,601.751,10542,0)
|
|
;;=3111^1^803
|
|
;;^UTILITY(U,$J,601.751,10543,0)
|
|
;;=3111^2^804
|
|
;;^UTILITY(U,$J,601.751,10544,0)
|
|
;;=3111^3^805
|
|
;;^UTILITY(U,$J,601.751,10545,0)
|
|
;;=3111^4^806
|
|
;;^UTILITY(U,$J,601.751,10546,0)
|
|
;;=3111^5^807
|
|
;;^UTILITY(U,$J,601.751,10547,0)
|
|
;;=3112^1^803
|
|
;;^UTILITY(U,$J,601.751,10548,0)
|
|
;;=3112^2^804
|
|
;;^UTILITY(U,$J,601.751,10549,0)
|
|
;;=3112^3^805
|
|
;;^UTILITY(U,$J,601.751,10550,0)
|
|
;;=3112^4^806
|
|
;;^UTILITY(U,$J,601.751,10551,0)
|
|
;;=3112^5^807
|
|
;;^UTILITY(U,$J,601.751,10552,0)
|
|
;;=3113^1^814
|
|
;;^UTILITY(U,$J,601.751,10553,0)
|
|
;;=3113^2^815
|
|
;;^UTILITY(U,$J,601.751,10554,0)
|
|
;;=3113^3^884
|
|
;;^UTILITY(U,$J,601.751,10555,0)
|
|
;;=3113^4^772
|
|
;;^UTILITY(U,$J,601.751,10556,0)
|
|
;;=3113^5^817
|
|
;;^UTILITY(U,$J,601.751,10557,0)
|
|
;;=3114^1^814
|
|
;;^UTILITY(U,$J,601.751,10558,0)
|
|
;;=3114^2^815
|
|
;;^UTILITY(U,$J,601.751,10559,0)
|
|
;;=3114^3^884
|
|
;;^UTILITY(U,$J,601.751,10560,0)
|
|
;;=3114^4^772
|
|
;;^UTILITY(U,$J,601.751,10561,0)
|
|
;;=3114^5^817
|
|
;;^UTILITY(U,$J,601.751,10562,0)
|
|
;;=3115^1^814
|
|
;;^UTILITY(U,$J,601.751,10563,0)
|
|
;;=3115^2^815
|
|
;;^UTILITY(U,$J,601.751,10564,0)
|
|
;;=3115^3^884
|
|
;;^UTILITY(U,$J,601.751,10565,0)
|
|
;;=3115^4^772
|
|
;;^UTILITY(U,$J,601.751,10566,0)
|
|
;;=3115^5^817
|
|
;;^UTILITY(U,$J,601.751,10567,0)
|
|
;;=3116^1^814
|
|
;;^UTILITY(U,$J,601.751,10568,0)
|
|
;;=3116^2^815
|
|
;;^UTILITY(U,$J,601.751,10569,0)
|
|
;;=3116^3^884
|
|
;;^UTILITY(U,$J,601.751,10570,0)
|
|
;;=3116^4^772
|
|
;;^UTILITY(U,$J,601.751,10571,0)
|
|
;;=3116^5^817
|
|
;;^UTILITY(U,$J,601.751,10572,0)
|
|
;;=3117^1^814
|
|
;;^UTILITY(U,$J,601.751,10573,0)
|
|
;;=3117^2^815
|
|
;;^UTILITY(U,$J,601.751,10574,0)
|
|
;;=3117^3^884
|
|
;;^UTILITY(U,$J,601.751,10575,0)
|
|
;;=3117^4^772
|
|
;;^UTILITY(U,$J,601.751,10576,0)
|
|
;;=3117^5^817
|
|
;;^UTILITY(U,$J,601.751,10577,0)
|
|
;;=3118^1^814
|
|
;;^UTILITY(U,$J,601.751,10578,0)
|
|
;;=3118^2^815
|
|
;;^UTILITY(U,$J,601.751,10579,0)
|
|
;;=3118^3^884
|
|
;;^UTILITY(U,$J,601.751,10580,0)
|
|
;;=3118^4^772
|
|
;;^UTILITY(U,$J,601.751,10581,0)
|
|
;;=3118^5^817
|
|
;;^UTILITY(U,$J,601.751,10582,0)
|
|
;;=3119^1^814
|
|
;;^UTILITY(U,$J,601.751,10583,0)
|
|
;;=3119^2^815
|
|
;;^UTILITY(U,$J,601.751,10584,0)
|
|
;;=3119^3^884
|
|
;;^UTILITY(U,$J,601.751,10585,0)
|
|
;;=3119^4^772
|
|
;;^UTILITY(U,$J,601.751,10586,0)
|
|
;;=3119^5^817
|
|
;;^UTILITY(U,$J,601.751,10587,0)
|
|
;;=3120^1^814
|
|
;;^UTILITY(U,$J,601.751,10588,0)
|
|
;;=3120^2^815
|
|
;;^UTILITY(U,$J,601.751,10589,0)
|
|
;;=3120^3^884
|
|
;;^UTILITY(U,$J,601.751,10590,0)
|
|
;;=3120^4^772
|
|
;;^UTILITY(U,$J,601.751,10591,0)
|
|
;;=3120^5^817
|
|
;;^UTILITY(U,$J,601.751,10592,0)
|
|
;;=3121^1^814
|
|
;;^UTILITY(U,$J,601.751,10593,0)
|
|
;;=3121^2^815
|
|
;;^UTILITY(U,$J,601.751,10594,0)
|
|
;;=3121^3^884
|
|
;;^UTILITY(U,$J,601.751,10595,0)
|
|
;;=3121^4^772
|
|
;;^UTILITY(U,$J,601.751,10596,0)
|
|
;;=3121^5^817
|
|
;;^UTILITY(U,$J,601.751,10597,0)
|
|
;;=3122^1^217
|
|
;;^UTILITY(U,$J,601.751,10598,0)
|
|
;;=3122^2^242
|
|
;;^UTILITY(U,$J,601.751,10599,0)
|
|
;;=3122^3^213
|
|
;;^UTILITY(U,$J,601.751,10600,0)
|
|
;;=3122^4^215
|
|
;;^UTILITY(U,$J,601.751,10601,0)
|
|
;;=3122^5^995
|
|
;;^UTILITY(U,$J,601.751,10602,0)
|
|
;;=3123^1^217
|
|
;;^UTILITY(U,$J,601.751,10603,0)
|
|
;;=3123^2^242
|
|
;;^UTILITY(U,$J,601.751,10604,0)
|
|
;;=3123^3^213
|
|
;;^UTILITY(U,$J,601.751,10605,0)
|
|
;;=3123^4^215
|
|
;;^UTILITY(U,$J,601.751,10606,0)
|
|
;;=3123^5^995
|
|
;;^UTILITY(U,$J,601.751,10607,0)
|
|
;;=3124^1^217
|
|
;;^UTILITY(U,$J,601.751,10608,0)
|
|
;;=3124^2^242
|
|
;;^UTILITY(U,$J,601.751,10609,0)
|
|
;;=3124^3^213
|
|
;;^UTILITY(U,$J,601.751,10610,0)
|
|
;;=3124^4^215
|
|
;;^UTILITY(U,$J,601.751,10611,0)
|
|
;;=3124^5^995
|
|
;;^UTILITY(U,$J,601.751,10612,0)
|
|
;;=3125^1^217
|
|
;;^UTILITY(U,$J,601.751,10613,0)
|
|
;;=3125^2^242
|
|
;;^UTILITY(U,$J,601.751,10614,0)
|
|
;;=3125^3^213
|
|
;;^UTILITY(U,$J,601.751,10615,0)
|
|
;;=3125^4^215
|
|
;;^UTILITY(U,$J,601.751,10616,0)
|
|
;;=3125^5^995
|
|
;;^UTILITY(U,$J,601.751,10617,0)
|
|
;;=3126^1^217
|
|
;;^UTILITY(U,$J,601.751,10618,0)
|
|
;;=3126^2^242
|
|
;;^UTILITY(U,$J,601.751,10619,0)
|
|
;;=3126^3^213
|
|
;;^UTILITY(U,$J,601.751,10620,0)
|
|
;;=3126^4^215
|
|
;;^UTILITY(U,$J,601.751,10621,0)
|
|
;;=3126^5^995
|
|
;;^UTILITY(U,$J,601.751,10622,0)
|
|
;;=3127^1^217
|
|
;;^UTILITY(U,$J,601.751,10623,0)
|
|
;;=3127^2^242
|
|
;;^UTILITY(U,$J,601.751,10624,0)
|
|
;;=3127^3^213
|
|
;;^UTILITY(U,$J,601.751,10625,0)
|
|
;;=3127^4^215
|
|
;;^UTILITY(U,$J,601.751,10626,0)
|
|
;;=3127^5^995
|
|
;;^UTILITY(U,$J,601.751,10627,0)
|
|
;;=3128^1^217
|
|
;;^UTILITY(U,$J,601.751,10628,0)
|
|
;;=3128^2^242
|
|
;;^UTILITY(U,$J,601.751,10629,0)
|
|
;;=3128^3^213
|
|
;;^UTILITY(U,$J,601.751,10630,0)
|
|
;;=3128^4^215
|
|
;;^UTILITY(U,$J,601.751,10631,0)
|
|
;;=3128^5^995
|
|
;;^UTILITY(U,$J,601.751,10632,0)
|
|
;;=3129^1^217
|
|
;;^UTILITY(U,$J,601.751,10633,0)
|
|
;;=3129^2^242
|
|
;;^UTILITY(U,$J,601.751,10634,0)
|
|
;;=3129^3^213
|
|
;;^UTILITY(U,$J,601.751,10635,0)
|
|
;;=3129^4^215
|
|
;;^UTILITY(U,$J,601.751,10636,0)
|
|
;;=3129^5^995
|
|
;;^UTILITY(U,$J,601.751,10637,0)
|
|
;;=3130^1^217
|
|
;;^UTILITY(U,$J,601.751,10638,0)
|
|
;;=3130^2^242
|
|
;;^UTILITY(U,$J,601.751,10639,0)
|
|
;;=3130^3^213
|
|
;;^UTILITY(U,$J,601.751,10640,0)
|
|
;;=3130^4^215
|
|
;;^UTILITY(U,$J,601.751,10641,0)
|
|
;;=3130^5^995
|
|
;;^UTILITY(U,$J,601.751,10642,0)
|
|
;;=3131^1^217
|
|
;;^UTILITY(U,$J,601.751,10643,0)
|
|
;;=3131^2^242
|
|
;;^UTILITY(U,$J,601.751,10644,0)
|
|
;;=3131^3^213
|
|
;;^UTILITY(U,$J,601.751,10645,0)
|
|
;;=3131^4^215
|
|
;;^UTILITY(U,$J,601.751,10646,0)
|
|
;;=3131^5^995
|
|
;;^UTILITY(U,$J,601.751,10647,0)
|
|
;;=3132^1^217
|
|
;;^UTILITY(U,$J,601.751,10648,0)
|
|
;;=3132^2^242
|
|
;;^UTILITY(U,$J,601.751,10649,0)
|
|
;;=3132^3^213
|
|
;;^UTILITY(U,$J,601.751,10650,0)
|
|
;;=3132^4^215
|
|
;;^UTILITY(U,$J,601.751,10651,0)
|
|
;;=3132^5^995
|
|
;;^UTILITY(U,$J,601.751,10652,0)
|
|
;;=3133^1^217
|
|
;;^UTILITY(U,$J,601.751,10653,0)
|
|
;;=3133^2^242
|
|
;;^UTILITY(U,$J,601.751,10654,0)
|
|
;;=3133^3^213
|
|
;;^UTILITY(U,$J,601.751,10655,0)
|
|
;;=3133^4^215
|
|
;;^UTILITY(U,$J,601.751,10656,0)
|
|
;;=3133^5^995
|
|
;;^UTILITY(U,$J,601.751,10657,0)
|
|
;;=3134^1^237
|
|
;;^UTILITY(U,$J,601.751,10658,0)
|
|
;;=3134^2^241
|
|
;;^UTILITY(U,$J,601.751,10659,0)
|
|
;;=3135^1^237
|
|
;;^UTILITY(U,$J,601.751,10660,0)
|
|
;;=3135^2^241
|
|
;;^UTILITY(U,$J,601.751,10661,0)
|
|
;;=3136^1^1425
|
|
;;^UTILITY(U,$J,601.751,10662,0)
|
|
;;=3136^2^1426
|
|
;;^UTILITY(U,$J,601.751,10663,0)
|
|
;;=3136^3^1427
|
|
;;^UTILITY(U,$J,601.751,10664,0)
|
|
;;=3136^4^1428
|
|
;;^UTILITY(U,$J,601.751,10665,0)
|
|
;;=3136^5^1429
|
|
;;^UTILITY(U,$J,601.751,10666,0)
|
|
;;=3136^6^1430
|
|
;;^UTILITY(U,$J,601.751,10667,0)
|
|
;;=3136^7^1431
|
|
;;^UTILITY(U,$J,601.751,10668,0)
|
|
;;=3136^8^1432
|
|
;;^UTILITY(U,$J,601.751,10669,0)
|
|
;;=3136^9^1433
|
|
;;^UTILITY(U,$J,601.751,10670,0)
|
|
;;=3137^1^1434
|
|
;;^UTILITY(U,$J,601.751,10671,0)
|
|
;;=3137^2^1435
|
|
;;^UTILITY(U,$J,601.751,10672,0)
|
|
;;=3137^3^1436
|
|
;;^UTILITY(U,$J,601.751,10673,0)
|
|
;;=3137^4^1437
|
|
;;^UTILITY(U,$J,601.751,10674,0)
|
|
;;=3137^5^1438
|
|
;;^UTILITY(U,$J,601.751,10675,0)
|
|
;;=3138^1^237
|
|
;;^UTILITY(U,$J,601.751,10676,0)
|
|
;;=3138^2^241
|
|
;;^UTILITY(U,$J,601.751,10677,0)
|
|
;;=3139^1^100805
|
|
;;^UTILITY(U,$J,601.751,10678,0)
|
|
;;=3139^2^1439
|
|
;;^UTILITY(U,$J,601.751,10679,0)
|
|
;;=3139^3^1440
|
|
;;^UTILITY(U,$J,601.751,10680,0)
|
|
;;=3140^1^237
|
|
;;^UTILITY(U,$J,601.751,10681,0)
|
|
;;=3140^2^241
|
|
;;^UTILITY(U,$J,601.751,10682,0)
|
|
;;=3141^1^237
|
|
;;^UTILITY(U,$J,601.751,10683,0)
|
|
;;=3141^2^241
|
|
;;^UTILITY(U,$J,601.751,10684,0)
|
|
;;=3142^1^237
|