391 lines
8.9 KiB
Mathematica
391 lines
8.9 KiB
Mathematica
YTQQI004 ;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,398,0)
|
|
;;=91^1^240
|
|
;;^UTILITY(U,$J,601.751,399,0)
|
|
;;=91^2^343
|
|
;;^UTILITY(U,$J,601.751,400,0)
|
|
;;=91^3^344
|
|
;;^UTILITY(U,$J,601.751,401,0)
|
|
;;=91^4^345
|
|
;;^UTILITY(U,$J,601.751,402,0)
|
|
;;=92^1^240
|
|
;;^UTILITY(U,$J,601.751,403,0)
|
|
;;=92^2^265
|
|
;;^UTILITY(U,$J,601.751,404,0)
|
|
;;=92^3^266
|
|
;;^UTILITY(U,$J,601.751,405,0)
|
|
;;=92^4^346
|
|
;;^UTILITY(U,$J,601.751,406,0)
|
|
;;=93^1^347
|
|
;;^UTILITY(U,$J,601.751,407,0)
|
|
;;=93^2^276
|
|
;;^UTILITY(U,$J,601.751,408,0)
|
|
;;=93^3^310
|
|
;;^UTILITY(U,$J,601.751,409,0)
|
|
;;=93^4^348
|
|
;;^UTILITY(U,$J,601.751,410,0)
|
|
;;=94^1^240
|
|
;;^UTILITY(U,$J,601.751,411,0)
|
|
;;=94^2^290
|
|
;;^UTILITY(U,$J,601.751,412,0)
|
|
;;=94^3^277
|
|
;;^UTILITY(U,$J,601.751,413,0)
|
|
;;=94^4^291
|
|
;;^UTILITY(U,$J,601.751,414,0)
|
|
;;=95^1^349
|
|
;;^UTILITY(U,$J,601.751,415,0)
|
|
;;=95^2^350
|
|
;;^UTILITY(U,$J,601.751,416,0)
|
|
;;=95^3^351
|
|
;;^UTILITY(U,$J,601.751,417,0)
|
|
;;=95^4^352
|
|
;;^UTILITY(U,$J,601.751,418,0)
|
|
;;=96^1^353
|
|
;;^UTILITY(U,$J,601.751,419,0)
|
|
;;=96^2^354
|
|
;;^UTILITY(U,$J,601.751,420,0)
|
|
;;=96^3^355
|
|
;;^UTILITY(U,$J,601.751,421,0)
|
|
;;=96^4^356
|
|
;;^UTILITY(U,$J,601.751,422,0)
|
|
;;=97^1^240
|
|
;;^UTILITY(U,$J,601.751,423,0)
|
|
;;=97^2^329
|
|
;;^UTILITY(U,$J,601.751,424,0)
|
|
;;=97^3^334
|
|
;;^UTILITY(U,$J,601.751,425,0)
|
|
;;=97^4^330
|
|
;;^UTILITY(U,$J,601.751,426,0)
|
|
;;=98^1^240
|
|
;;^UTILITY(U,$J,601.751,427,0)
|
|
;;=98^2^297
|
|
;;^UTILITY(U,$J,601.751,428,0)
|
|
;;=98^3^257
|
|
;;^UTILITY(U,$J,601.751,429,0)
|
|
;;=98^4^258
|
|
;;^UTILITY(U,$J,601.751,430,0)
|
|
;;=99^1^357
|
|
;;^UTILITY(U,$J,601.751,431,0)
|
|
;;=99^2^358
|
|
;;^UTILITY(U,$J,601.751,432,0)
|
|
;;=99^3^359
|
|
;;^UTILITY(U,$J,601.751,433,0)
|
|
;;=99^4^360
|
|
;;^UTILITY(U,$J,601.751,434,0)
|
|
;;=100^1^361
|
|
;;^UTILITY(U,$J,601.751,435,0)
|
|
;;=100^2^276
|
|
;;^UTILITY(U,$J,601.751,436,0)
|
|
;;=100^3^362
|
|
;;^UTILITY(U,$J,601.751,437,0)
|
|
;;=101^1^289
|
|
;;^UTILITY(U,$J,601.751,438,0)
|
|
;;=101^2^331
|
|
;;^UTILITY(U,$J,601.751,439,0)
|
|
;;=101^3^334
|
|
;;^UTILITY(U,$J,601.751,440,0)
|
|
;;=102^1^363
|
|
;;^UTILITY(U,$J,601.751,441,0)
|
|
;;=102^2^339
|
|
;;^UTILITY(U,$J,601.751,442,0)
|
|
;;=102^3^340
|
|
;;^UTILITY(U,$J,601.751,443,0)
|
|
;;=102^4^364
|
|
;;^UTILITY(U,$J,601.751,444,0)
|
|
;;=103^1^365
|
|
;;^UTILITY(U,$J,601.751,445,0)
|
|
;;=103^2^366
|
|
;;^UTILITY(U,$J,601.751,446,0)
|
|
;;=103^3^367
|
|
;;^UTILITY(U,$J,601.751,447,0)
|
|
;;=103^4^368
|
|
;;^UTILITY(U,$J,601.751,448,0)
|
|
;;=104^1^259
|
|
;;^UTILITY(U,$J,601.751,449,0)
|
|
;;=104^2^369
|
|
;;^UTILITY(U,$J,601.751,450,0)
|
|
;;=104^3^370
|
|
;;^UTILITY(U,$J,601.751,451,0)
|
|
;;=104^4^371
|
|
;;^UTILITY(U,$J,601.751,452,0)
|
|
;;=105^1^372
|
|
;;^UTILITY(U,$J,601.751,453,0)
|
|
;;=105^2^373
|
|
;;^UTILITY(U,$J,601.751,454,0)
|
|
;;=105^3^374
|
|
;;^UTILITY(U,$J,601.751,455,0)
|
|
;;=105^4^375
|
|
;;^UTILITY(U,$J,601.751,456,0)
|
|
;;=106^1^240
|
|
;;^UTILITY(U,$J,601.751,457,0)
|
|
;;=106^2^256
|
|
;;^UTILITY(U,$J,601.751,458,0)
|
|
;;=106^3^376
|
|
;;^UTILITY(U,$J,601.751,459,0)
|
|
;;=106^4^377
|
|
;;^UTILITY(U,$J,601.751,460,0)
|
|
;;=106^5^378
|
|
;;^UTILITY(U,$J,601.751,461,0)
|
|
;;=107^1^379
|
|
;;^UTILITY(U,$J,601.751,462,0)
|
|
;;=107^2^380
|
|
;;^UTILITY(U,$J,601.751,463,0)
|
|
;;=107^3^381
|
|
;;^UTILITY(U,$J,601.751,464,0)
|
|
;;=108^1^289
|
|
;;^UTILITY(U,$J,601.751,465,0)
|
|
;;=108^2^331
|
|
;;^UTILITY(U,$J,601.751,466,0)
|
|
;;=108^3^332
|
|
;;^UTILITY(U,$J,601.751,467,0)
|
|
;;=108^4^382
|
|
;;^UTILITY(U,$J,601.751,468,0)
|
|
;;=109^1^383
|
|
;;^UTILITY(U,$J,601.751,469,0)
|
|
;;=109^2^339
|
|
;;^UTILITY(U,$J,601.751,470,0)
|
|
;;=109^3^340
|
|
;;^UTILITY(U,$J,601.751,471,0)
|
|
;;=109^4^364
|
|
;;^UTILITY(U,$J,601.751,472,0)
|
|
;;=110^1^384
|
|
;;^UTILITY(U,$J,601.751,473,0)
|
|
;;=110^2^385
|
|
;;^UTILITY(U,$J,601.751,474,0)
|
|
;;=110^3^386
|
|
;;^UTILITY(U,$J,601.751,475,0)
|
|
;;=110^4^387
|
|
;;^UTILITY(U,$J,601.751,476,0)
|
|
;;=111^1^289
|
|
;;^UTILITY(U,$J,601.751,477,0)
|
|
;;=111^2^276
|
|
;;^UTILITY(U,$J,601.751,478,0)
|
|
;;=111^3^277
|
|
;;^UTILITY(U,$J,601.751,479,0)
|
|
;;=111^4^325
|
|
;;^UTILITY(U,$J,601.751,480,0)
|
|
;;=112^1^240
|
|
;;^UTILITY(U,$J,601.751,481,0)
|
|
;;=112^2^297
|
|
;;^UTILITY(U,$J,601.751,482,0)
|
|
;;=112^3^388
|
|
;;^UTILITY(U,$J,601.751,483,0)
|
|
;;=112^4^389
|
|
;;^UTILITY(U,$J,601.751,484,0)
|
|
;;=113^1^240
|
|
;;^UTILITY(U,$J,601.751,485,0)
|
|
;;=113^2^390
|
|
;;^UTILITY(U,$J,601.751,486,0)
|
|
;;=113^3^391
|
|
;;^UTILITY(U,$J,601.751,487,0)
|
|
;;=113^4^392
|
|
;;^UTILITY(U,$J,601.751,488,0)
|
|
;;=114^1^240
|
|
;;^UTILITY(U,$J,601.751,489,0)
|
|
;;=114^2^393
|
|
;;^UTILITY(U,$J,601.751,490,0)
|
|
;;=114^3^394
|
|
;;^UTILITY(U,$J,601.751,491,0)
|
|
;;=114^4^395
|
|
;;^UTILITY(U,$J,601.751,492,0)
|
|
;;=115^1^289
|
|
;;^UTILITY(U,$J,601.751,493,0)
|
|
;;=115^2^331
|
|
;;^UTILITY(U,$J,601.751,494,0)
|
|
;;=115^3^332
|
|
;;^UTILITY(U,$J,601.751,495,0)
|
|
;;=115^4^396
|
|
;;^UTILITY(U,$J,601.751,496,0)
|
|
;;=116^1^397
|
|
;;^UTILITY(U,$J,601.751,497,0)
|
|
;;=116^2^398
|
|
;;^UTILITY(U,$J,601.751,498,0)
|
|
;;=116^3^399
|
|
;;^UTILITY(U,$J,601.751,499,0)
|
|
;;=116^4^400
|
|
;;^UTILITY(U,$J,601.751,500,0)
|
|
;;=117^1^401
|
|
;;^UTILITY(U,$J,601.751,501,0)
|
|
;;=117^2^402
|
|
;;^UTILITY(U,$J,601.751,502,0)
|
|
;;=117^3^403
|
|
;;^UTILITY(U,$J,601.751,503,0)
|
|
;;=117^4^404
|
|
;;^UTILITY(U,$J,601.751,504,0)
|
|
;;=118^1^405
|
|
;;^UTILITY(U,$J,601.751,505,0)
|
|
;;=118^2^406
|
|
;;^UTILITY(U,$J,601.751,506,0)
|
|
;;=118^3^407
|
|
;;^UTILITY(U,$J,601.751,507,0)
|
|
;;=119^1^240
|
|
;;^UTILITY(U,$J,601.751,508,0)
|
|
;;=119^2^329
|
|
;;^UTILITY(U,$J,601.751,509,0)
|
|
;;=119^3^334
|
|
;;^UTILITY(U,$J,601.751,510,0)
|
|
;;=119^4^244
|
|
;;^UTILITY(U,$J,601.751,511,0)
|
|
;;=120^1^240
|
|
;;^UTILITY(U,$J,601.751,512,0)
|
|
;;=120^2^408
|
|
;;^UTILITY(U,$J,601.751,513,0)
|
|
;;=120^3^409
|
|
;;^UTILITY(U,$J,601.751,514,0)
|
|
;;=120^4^410
|
|
;;^UTILITY(U,$J,601.751,515,0)
|
|
;;=121^1^411
|
|
;;^UTILITY(U,$J,601.751,516,0)
|
|
;;=121^2^412
|
|
;;^UTILITY(U,$J,601.751,517,0)
|
|
;;=121^3^413
|
|
;;^UTILITY(U,$J,601.751,518,0)
|
|
;;=121^4^414
|
|
;;^UTILITY(U,$J,601.751,519,0)
|
|
;;=122^1^415
|
|
;;^UTILITY(U,$J,601.751,520,0)
|
|
;;=122^2^416
|
|
;;^UTILITY(U,$J,601.751,521,0)
|
|
;;=122^3^417
|
|
;;^UTILITY(U,$J,601.751,522,0)
|
|
;;=122^4^418
|
|
;;^UTILITY(U,$J,601.751,523,0)
|
|
;;=123^1^419
|
|
;;^UTILITY(U,$J,601.751,524,0)
|
|
;;=123^2^420
|
|
;;^UTILITY(U,$J,601.751,525,0)
|
|
;;=123^3^421
|
|
;;^UTILITY(U,$J,601.751,526,0)
|
|
;;=123^4^422
|
|
;;^UTILITY(U,$J,601.751,527,0)
|
|
;;=124^1^423
|
|
;;^UTILITY(U,$J,601.751,528,0)
|
|
;;=124^2^424
|
|
;;^UTILITY(U,$J,601.751,529,0)
|
|
;;=124^3^425
|
|
;;^UTILITY(U,$J,601.751,530,0)
|
|
;;=124^4^426
|
|
;;^UTILITY(U,$J,601.751,531,0)
|
|
;;=125^1^427
|
|
;;^UTILITY(U,$J,601.751,532,0)
|
|
;;=125^2^428
|
|
;;^UTILITY(U,$J,601.751,533,0)
|
|
;;=125^3^429
|
|
;;^UTILITY(U,$J,601.751,534,0)
|
|
;;=125^4^430
|
|
;;^UTILITY(U,$J,601.751,535,0)
|
|
;;=126^1^240
|
|
;;^UTILITY(U,$J,601.751,536,0)
|
|
;;=126^2^331
|
|
;;^UTILITY(U,$J,601.751,537,0)
|
|
;;=126^3^431
|
|
;;^UTILITY(U,$J,601.751,538,0)
|
|
;;=126^4^396
|
|
;;^UTILITY(U,$J,601.751,539,0)
|
|
;;=127^1^432
|
|
;;^UTILITY(U,$J,601.751,540,0)
|
|
;;=127^2^433
|
|
;;^UTILITY(U,$J,601.751,541,0)
|
|
;;=127^3^434
|
|
;;^UTILITY(U,$J,601.751,542,0)
|
|
;;=127^4^435
|
|
;;^UTILITY(U,$J,601.751,543,0)
|
|
;;=128^1^436
|
|
;;^UTILITY(U,$J,601.751,544,0)
|
|
;;=128^2^437
|
|
;;^UTILITY(U,$J,601.751,545,0)
|
|
;;=128^3^438
|
|
;;^UTILITY(U,$J,601.751,546,0)
|
|
;;=128^4^439
|
|
;;^UTILITY(U,$J,601.751,547,0)
|
|
;;=129^1^440
|
|
;;^UTILITY(U,$J,601.751,548,0)
|
|
;;=129^2^441
|
|
;;^UTILITY(U,$J,601.751,549,0)
|
|
;;=129^3^442
|
|
;;^UTILITY(U,$J,601.751,550,0)
|
|
;;=129^4^443
|
|
;;^UTILITY(U,$J,601.751,551,0)
|
|
;;=130^1^444
|
|
;;^UTILITY(U,$J,601.751,552,0)
|
|
;;=130^2^445
|
|
;;^UTILITY(U,$J,601.751,553,0)
|
|
;;=130^3^446
|
|
;;^UTILITY(U,$J,601.751,554,0)
|
|
;;=130^4^447
|
|
;;^UTILITY(U,$J,601.751,555,0)
|
|
;;=131^1^448
|
|
;;^UTILITY(U,$J,601.751,556,0)
|
|
;;=131^2^449
|
|
;;^UTILITY(U,$J,601.751,557,0)
|
|
;;=131^3^450
|
|
;;^UTILITY(U,$J,601.751,558,0)
|
|
;;=131^4^451
|
|
;;^UTILITY(U,$J,601.751,559,0)
|
|
;;=132^1^452
|
|
;;^UTILITY(U,$J,601.751,560,0)
|
|
;;=132^2^453
|
|
;;^UTILITY(U,$J,601.751,561,0)
|
|
;;=132^3^454
|
|
;;^UTILITY(U,$J,601.751,562,0)
|
|
;;=132^4^455
|
|
;;^UTILITY(U,$J,601.751,563,0)
|
|
;;=133^1^456
|
|
;;^UTILITY(U,$J,601.751,564,0)
|
|
;;=133^2^457
|
|
;;^UTILITY(U,$J,601.751,565,0)
|
|
;;=133^3^458
|
|
;;^UTILITY(U,$J,601.751,566,0)
|
|
;;=133^4^459
|
|
;;^UTILITY(U,$J,601.751,567,0)
|
|
;;=134^1^460
|
|
;;^UTILITY(U,$J,601.751,568,0)
|
|
;;=134^2^461
|
|
;;^UTILITY(U,$J,601.751,569,0)
|
|
;;=134^3^462
|
|
;;^UTILITY(U,$J,601.751,570,0)
|
|
;;=134^4^463
|
|
;;^UTILITY(U,$J,601.751,571,0)
|
|
;;=135^1^464
|
|
;;^UTILITY(U,$J,601.751,572,0)
|
|
;;=135^2^465
|
|
;;^UTILITY(U,$J,601.751,573,0)
|
|
;;=135^3^466
|
|
;;^UTILITY(U,$J,601.751,574,0)
|
|
;;=135^4^467
|
|
;;^UTILITY(U,$J,601.751,575,0)
|
|
;;=136^1^468
|
|
;;^UTILITY(U,$J,601.751,576,0)
|
|
;;=136^2^469
|
|
;;^UTILITY(U,$J,601.751,577,0)
|
|
;;=136^3^470
|
|
;;^UTILITY(U,$J,601.751,578,0)
|
|
;;=136^4^471
|
|
;;^UTILITY(U,$J,601.751,579,0)
|
|
;;=137^1^472
|
|
;;^UTILITY(U,$J,601.751,580,0)
|
|
;;=137^2^473
|
|
;;^UTILITY(U,$J,601.751,581,0)
|
|
;;=137^3^474
|
|
;;^UTILITY(U,$J,601.751,582,0)
|
|
;;=137^4^475
|
|
;;^UTILITY(U,$J,601.751,583,0)
|
|
;;=138^1^476
|
|
;;^UTILITY(U,$J,601.751,584,0)
|
|
;;=138^2^477
|
|
;;^UTILITY(U,$J,601.751,585,0)
|
|
;;=138^3^478
|
|
;;^UTILITY(U,$J,601.751,586,0)
|
|
;;=138^4^479
|
|
;;^UTILITY(U,$J,601.751,587,0)
|
|
;;=139^1^480
|
|
;;^UTILITY(U,$J,601.751,588,0)
|
|
;;=139^2^481
|
|
;;^UTILITY(U,$J,601.751,589,0)
|
|
;;=139^3^482
|
|
;;^UTILITY(U,$J,601.751,590,0)
|
|
;;=139^4^483
|