399 lines
8.9 KiB
Mathematica
399 lines
8.9 KiB
Mathematica
YTQQI003 ;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,201,0)
|
|
;;=41^4^196
|
|
;;^UTILITY(U,$J,601.751,202,0)
|
|
;;=41^5^197
|
|
;;^UTILITY(U,$J,601.751,203,0)
|
|
;;=42^1^198
|
|
;;^UTILITY(U,$J,601.751,204,0)
|
|
;;=42^2^199
|
|
;;^UTILITY(U,$J,601.751,205,0)
|
|
;;=42^3^102
|
|
;;^UTILITY(U,$J,601.751,206,0)
|
|
;;=42^4^200
|
|
;;^UTILITY(U,$J,601.751,207,0)
|
|
;;=42^5^201
|
|
;;^UTILITY(U,$J,601.751,208,0)
|
|
;;=43^1^202
|
|
;;^UTILITY(U,$J,601.751,209,0)
|
|
;;=43^2^203
|
|
;;^UTILITY(U,$J,601.751,210,0)
|
|
;;=43^3^204
|
|
;;^UTILITY(U,$J,601.751,211,0)
|
|
;;=43^4^205
|
|
;;^UTILITY(U,$J,601.751,212,0)
|
|
;;=43^5^206
|
|
;;^UTILITY(U,$J,601.751,213,0)
|
|
;;=44^1^207
|
|
;;^UTILITY(U,$J,601.751,214,0)
|
|
;;=44^2^208
|
|
;;^UTILITY(U,$J,601.751,215,0)
|
|
;;=44^3^209
|
|
;;^UTILITY(U,$J,601.751,216,0)
|
|
;;=44^4^210
|
|
;;^UTILITY(U,$J,601.751,217,0)
|
|
;;=44^5^211
|
|
;;^UTILITY(U,$J,601.751,218,0)
|
|
;;=45^1^212
|
|
;;^UTILITY(U,$J,601.751,219,0)
|
|
;;=45^2^213
|
|
;;^UTILITY(U,$J,601.751,220,0)
|
|
;;=45^3^214
|
|
;;^UTILITY(U,$J,601.751,221,0)
|
|
;;=45^4^215
|
|
;;^UTILITY(U,$J,601.751,222,0)
|
|
;;=45^5^216
|
|
;;^UTILITY(U,$J,601.751,223,0)
|
|
;;=46^1^217
|
|
;;^UTILITY(U,$J,601.751,224,0)
|
|
;;=46^2^218
|
|
;;^UTILITY(U,$J,601.751,225,0)
|
|
;;=46^3^219
|
|
;;^UTILITY(U,$J,601.751,226,0)
|
|
;;=46^4^220
|
|
;;^UTILITY(U,$J,601.751,227,0)
|
|
;;=46^5^221
|
|
;;^UTILITY(U,$J,601.751,228,0)
|
|
;;=47^1^222
|
|
;;^UTILITY(U,$J,601.751,229,0)
|
|
;;=47^3^223
|
|
;;^UTILITY(U,$J,601.751,230,0)
|
|
;;=47^4^224
|
|
;;^UTILITY(U,$J,601.751,231,0)
|
|
;;=47^40^225
|
|
;;^UTILITY(U,$J,601.751,232,0)
|
|
;;=47^50^226
|
|
;;^UTILITY(U,$J,601.751,233,0)
|
|
;;=48^1^217
|
|
;;^UTILITY(U,$J,601.751,234,0)
|
|
;;=48^2^227
|
|
;;^UTILITY(U,$J,601.751,235,0)
|
|
;;=48^3^228
|
|
;;^UTILITY(U,$J,601.751,236,0)
|
|
;;=48^4^229
|
|
;;^UTILITY(U,$J,601.751,237,0)
|
|
;;=48^5^230
|
|
;;^UTILITY(U,$J,601.751,238,0)
|
|
;;=49^1^231
|
|
;;^UTILITY(U,$J,601.751,239,0)
|
|
;;=49^2^232
|
|
;;^UTILITY(U,$J,601.751,240,0)
|
|
;;=49^3^233
|
|
;;^UTILITY(U,$J,601.751,241,0)
|
|
;;=49^4^234
|
|
;;^UTILITY(U,$J,601.751,242,0)
|
|
;;=49^5^235
|
|
;;^UTILITY(U,$J,601.751,243,0)
|
|
;;=49^6^236
|
|
;;^UTILITY(U,$J,601.751,244,0)
|
|
;;=50^1^237
|
|
;;^UTILITY(U,$J,601.751,245,0)
|
|
;;=50^2^238
|
|
;;^UTILITY(U,$J,601.751,246,0)
|
|
;;=50^3^239
|
|
;;^UTILITY(U,$J,601.751,247,0)
|
|
;;=51^1^240
|
|
;;^UTILITY(U,$J,601.751,248,0)
|
|
;;=51^2^241
|
|
;;^UTILITY(U,$J,601.751,249,0)
|
|
;;=52^1^240
|
|
;;^UTILITY(U,$J,601.751,250,0)
|
|
;;=52^2^242
|
|
;;^UTILITY(U,$J,601.751,251,0)
|
|
;;=52^3^243
|
|
;;^UTILITY(U,$J,601.751,252,0)
|
|
;;=52^4^244
|
|
;;^UTILITY(U,$J,601.751,253,0)
|
|
;;=53^1^240
|
|
;;^UTILITY(U,$J,601.751,254,0)
|
|
;;=53^2^245
|
|
;;^UTILITY(U,$J,601.751,255,0)
|
|
;;=53^3^246
|
|
;;^UTILITY(U,$J,601.751,256,0)
|
|
;;=54^1^247
|
|
;;^UTILITY(U,$J,601.751,257,0)
|
|
;;=54^2^248
|
|
;;^UTILITY(U,$J,601.751,258,0)
|
|
;;=54^3^249
|
|
;;^UTILITY(U,$J,601.751,259,0)
|
|
;;=54^4^250
|
|
;;^UTILITY(U,$J,601.751,260,0)
|
|
;;=55^1^240
|
|
;;^UTILITY(U,$J,601.751,261,0)
|
|
;;=55^2^251
|
|
;;^UTILITY(U,$J,601.751,262,0)
|
|
;;=55^3^252
|
|
;;^UTILITY(U,$J,601.751,263,0)
|
|
;;=55^4^253
|
|
;;^UTILITY(U,$J,601.751,264,0)
|
|
;;=56^1^240
|
|
;;^UTILITY(U,$J,601.751,265,0)
|
|
;;=56^2^254
|
|
;;^UTILITY(U,$J,601.751,266,0)
|
|
;;=56^3^255
|
|
;;^UTILITY(U,$J,601.751,267,0)
|
|
;;=57^1^240
|
|
;;^UTILITY(U,$J,601.751,268,0)
|
|
;;=57^2^256
|
|
;;^UTILITY(U,$J,601.751,269,0)
|
|
;;=57^3^257
|
|
;;^UTILITY(U,$J,601.751,270,0)
|
|
;;=57^4^258
|
|
;;^UTILITY(U,$J,601.751,271,0)
|
|
;;=58^1^259
|
|
;;^UTILITY(U,$J,601.751,272,0)
|
|
;;=58^2^260
|
|
;;^UTILITY(U,$J,601.751,273,0)
|
|
;;=58^3^261
|
|
;;^UTILITY(U,$J,601.751,274,0)
|
|
;;=58^4^262
|
|
;;^UTILITY(U,$J,601.751,275,0)
|
|
;;=58^5^263
|
|
;;^UTILITY(U,$J,601.751,276,0)
|
|
;;=58^6^264
|
|
;;^UTILITY(U,$J,601.751,277,0)
|
|
;;=59^1^240
|
|
;;^UTILITY(U,$J,601.751,278,0)
|
|
;;=59^2^265
|
|
;;^UTILITY(U,$J,601.751,279,0)
|
|
;;=59^3^266
|
|
;;^UTILITY(U,$J,601.751,280,0)
|
|
;;=59^4^267
|
|
;;^UTILITY(U,$J,601.751,281,0)
|
|
;;=60^1^268
|
|
;;^UTILITY(U,$J,601.751,282,0)
|
|
;;=60^2^269
|
|
;;^UTILITY(U,$J,601.751,283,0)
|
|
;;=60^3^243
|
|
;;^UTILITY(U,$J,601.751,284,0)
|
|
;;=60^4^270
|
|
;;^UTILITY(U,$J,601.751,285,0)
|
|
;;=61^1^240
|
|
;;^UTILITY(U,$J,601.751,286,0)
|
|
;;=61^2^271
|
|
;;^UTILITY(U,$J,601.751,287,0)
|
|
;;=61^3^272
|
|
;;^UTILITY(U,$J,601.751,288,0)
|
|
;;=62^1^273
|
|
;;^UTILITY(U,$J,601.751,289,0)
|
|
;;=62^2^274
|
|
;;^UTILITY(U,$J,601.751,290,0)
|
|
;;=63^1^275
|
|
;;^UTILITY(U,$J,601.751,291,0)
|
|
;;=63^2^276
|
|
;;^UTILITY(U,$J,601.751,292,0)
|
|
;;=63^3^277
|
|
;;^UTILITY(U,$J,601.751,293,0)
|
|
;;=63^4^278
|
|
;;^UTILITY(U,$J,601.751,294,0)
|
|
;;=64^1^240
|
|
;;^UTILITY(U,$J,601.751,295,0)
|
|
;;=64^2^245
|
|
;;^UTILITY(U,$J,601.751,296,0)
|
|
;;=64^3^279
|
|
;;^UTILITY(U,$J,601.751,297,0)
|
|
;;=65^1^259
|
|
;;^UTILITY(U,$J,601.751,298,0)
|
|
;;=65^2^280
|
|
;;^UTILITY(U,$J,601.751,299,0)
|
|
;;=65^3^281
|
|
;;^UTILITY(U,$J,601.751,300,0)
|
|
;;=65^4^282
|
|
;;^UTILITY(U,$J,601.751,301,0)
|
|
;;=65^5^283
|
|
;;^UTILITY(U,$J,601.751,302,0)
|
|
;;=65^6^284
|
|
;;^UTILITY(U,$J,601.751,303,0)
|
|
;;=66^1^285
|
|
;;^UTILITY(U,$J,601.751,304,0)
|
|
;;=66^2^286
|
|
;;^UTILITY(U,$J,601.751,305,0)
|
|
;;=66^3^287
|
|
;;^UTILITY(U,$J,601.751,306,0)
|
|
;;=66^4^288
|
|
;;^UTILITY(U,$J,601.751,307,0)
|
|
;;=67^1^240
|
|
;;^UTILITY(U,$J,601.751,308,0)
|
|
;;=67^2^276
|
|
;;^UTILITY(U,$J,601.751,309,0)
|
|
;;=67^3^277
|
|
;;^UTILITY(U,$J,601.751,310,0)
|
|
;;=68^1^289
|
|
;;^UTILITY(U,$J,601.751,311,0)
|
|
;;=68^2^290
|
|
;;^UTILITY(U,$J,601.751,312,0)
|
|
;;=68^3^277
|
|
;;^UTILITY(U,$J,601.751,313,0)
|
|
;;=68^4^291
|
|
;;^UTILITY(U,$J,601.751,314,0)
|
|
;;=69^1^292
|
|
;;^UTILITY(U,$J,601.751,315,0)
|
|
;;=69^2^290
|
|
;;^UTILITY(U,$J,601.751,316,0)
|
|
;;=69^3^277
|
|
;;^UTILITY(U,$J,601.751,317,0)
|
|
;;=69^4^293
|
|
;;^UTILITY(U,$J,601.751,318,0)
|
|
;;=70^1^294
|
|
;;^UTILITY(U,$J,601.751,319,0)
|
|
;;=70^2^295
|
|
;;^UTILITY(U,$J,601.751,320,0)
|
|
;;=70^3^296
|
|
;;^UTILITY(U,$J,601.751,321,0)
|
|
;;=71^1^240
|
|
;;^UTILITY(U,$J,601.751,322,0)
|
|
;;=71^2^297
|
|
;;^UTILITY(U,$J,601.751,323,0)
|
|
;;=71^3^298
|
|
;;^UTILITY(U,$J,601.751,324,0)
|
|
;;=72^1^259
|
|
;;^UTILITY(U,$J,601.751,325,0)
|
|
;;=72^2^299
|
|
;;^UTILITY(U,$J,601.751,326,0)
|
|
;;=72^3^300
|
|
;;^UTILITY(U,$J,601.751,327,0)
|
|
;;=72^4^301
|
|
;;^UTILITY(U,$J,601.751,328,0)
|
|
;;=72^5^302
|
|
;;^UTILITY(U,$J,601.751,329,0)
|
|
;;=72^6^303
|
|
;;^UTILITY(U,$J,601.751,330,0)
|
|
;;=73^1^240
|
|
;;^UTILITY(U,$J,601.751,331,0)
|
|
;;=73^2^304
|
|
;;^UTILITY(U,$J,601.751,332,0)
|
|
;;=73^3^305
|
|
;;^UTILITY(U,$J,601.751,333,0)
|
|
;;=73^4^306
|
|
;;^UTILITY(U,$J,601.751,334,0)
|
|
;;=74^1^240
|
|
;;^UTILITY(U,$J,601.751,335,0)
|
|
;;=74^2^276
|
|
;;^UTILITY(U,$J,601.751,336,0)
|
|
;;=74^3^277
|
|
;;^UTILITY(U,$J,601.751,337,0)
|
|
;;=74^4^291
|
|
;;^UTILITY(U,$J,601.751,338,0)
|
|
;;=75^1^240
|
|
;;^UTILITY(U,$J,601.751,339,0)
|
|
;;=75^2^307
|
|
;;^UTILITY(U,$J,601.751,340,0)
|
|
;;=75^3^308
|
|
;;^UTILITY(U,$J,601.751,341,0)
|
|
;;=75^4^309
|
|
;;^UTILITY(U,$J,601.751,342,0)
|
|
;;=76^1^240
|
|
;;^UTILITY(U,$J,601.751,343,0)
|
|
;;=76^2^276
|
|
;;^UTILITY(U,$J,601.751,344,0)
|
|
;;=76^3^310
|
|
;;^UTILITY(U,$J,601.751,345,0)
|
|
;;=76^4^311
|
|
;;^UTILITY(U,$J,601.751,346,0)
|
|
;;=77^1^312
|
|
;;^UTILITY(U,$J,601.751,347,0)
|
|
;;=77^2^313
|
|
;;^UTILITY(U,$J,601.751,348,0)
|
|
;;=77^3^314
|
|
;;^UTILITY(U,$J,601.751,349,0)
|
|
;;=77^4^315
|
|
;;^UTILITY(U,$J,601.751,350,0)
|
|
;;=78^1^240
|
|
;;^UTILITY(U,$J,601.751,351,0)
|
|
;;=78^2^316
|
|
;;^UTILITY(U,$J,601.751,352,0)
|
|
;;=78^3^317
|
|
;;^UTILITY(U,$J,601.751,353,0)
|
|
;;=79^1^240
|
|
;;^UTILITY(U,$J,601.751,354,0)
|
|
;;=79^2^318
|
|
;;^UTILITY(U,$J,601.751,355,0)
|
|
;;=79^3^319
|
|
;;^UTILITY(U,$J,601.751,356,0)
|
|
;;=80^1^240
|
|
;;^UTILITY(U,$J,601.751,357,0)
|
|
;;=80^2^276
|
|
;;^UTILITY(U,$J,601.751,358,0)
|
|
;;=80^3^320
|
|
;;^UTILITY(U,$J,601.751,359,0)
|
|
;;=81^1^321
|
|
;;^UTILITY(U,$J,601.751,360,0)
|
|
;;=81^2^322
|
|
;;^UTILITY(U,$J,601.751,361,0)
|
|
;;=81^3^323
|
|
;;^UTILITY(U,$J,601.751,362,0)
|
|
;;=81^4^324
|
|
;;^UTILITY(U,$J,601.751,363,0)
|
|
;;=82^1^240
|
|
;;^UTILITY(U,$J,601.751,364,0)
|
|
;;=82^2^276
|
|
;;^UTILITY(U,$J,601.751,365,0)
|
|
;;=82^3^277
|
|
;;^UTILITY(U,$J,601.751,366,0)
|
|
;;=82^4^325
|
|
;;^UTILITY(U,$J,601.751,367,0)
|
|
;;=83^1^326
|
|
;;^UTILITY(U,$J,601.751,368,0)
|
|
;;=83^2^327
|
|
;;^UTILITY(U,$J,601.751,369,0)
|
|
;;=83^3^328
|
|
;;^UTILITY(U,$J,601.751,370,0)
|
|
;;=83^4^315
|
|
;;^UTILITY(U,$J,601.751,371,0)
|
|
;;=84^1^240
|
|
;;^UTILITY(U,$J,601.751,372,0)
|
|
;;=84^2^329
|
|
;;^UTILITY(U,$J,601.751,373,0)
|
|
;;=84^3^277
|
|
;;^UTILITY(U,$J,601.751,374,0)
|
|
;;=84^4^330
|
|
;;^UTILITY(U,$J,601.751,375,0)
|
|
;;=85^1^240
|
|
;;^UTILITY(U,$J,601.751,376,0)
|
|
;;=85^2^331
|
|
;;^UTILITY(U,$J,601.751,377,0)
|
|
;;=85^3^332
|
|
;;^UTILITY(U,$J,601.751,378,0)
|
|
;;=85^4^333
|
|
;;^UTILITY(U,$J,601.751,379,0)
|
|
;;=86^1^240
|
|
;;^UTILITY(U,$J,601.751,380,0)
|
|
;;=86^2^331
|
|
;;^UTILITY(U,$J,601.751,381,0)
|
|
;;=86^3^334
|
|
;;^UTILITY(U,$J,601.751,382,0)
|
|
;;=87^1^335
|
|
;;^UTILITY(U,$J,601.751,383,0)
|
|
;;=87^2^336
|
|
;;^UTILITY(U,$J,601.751,384,0)
|
|
;;=87^3^337
|
|
;;^UTILITY(U,$J,601.751,385,0)
|
|
;;=87^4^338
|
|
;;^UTILITY(U,$J,601.751,386,0)
|
|
;;=88^1^240
|
|
;;^UTILITY(U,$J,601.751,387,0)
|
|
;;=88^2^339
|
|
;;^UTILITY(U,$J,601.751,388,0)
|
|
;;=88^3^340
|
|
;;^UTILITY(U,$J,601.751,389,0)
|
|
;;=88^4^341
|
|
;;^UTILITY(U,$J,601.751,390,0)
|
|
;;=89^1^289
|
|
;;^UTILITY(U,$J,601.751,391,0)
|
|
;;=89^2^329
|
|
;;^UTILITY(U,$J,601.751,392,0)
|
|
;;=89^3^342
|
|
;;^UTILITY(U,$J,601.751,393,0)
|
|
;;=89^4^291
|
|
;;^UTILITY(U,$J,601.751,394,0)
|
|
;;=90^1^240
|
|
;;^UTILITY(U,$J,601.751,395,0)
|
|
;;=90^2^329
|
|
;;^UTILITY(U,$J,601.751,396,0)
|
|
;;=90^3^277
|
|
;;^UTILITY(U,$J,601.751,397,0)
|
|
;;=90^4^291
|