389 lines
8.9 KiB
Mathematica
389 lines
8.9 KiB
Mathematica
YTQQI005 ;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,591,0)
|
|
;;=140^1^484
|
|
;;^UTILITY(U,$J,601.751,592,0)
|
|
;;=140^2^485
|
|
;;^UTILITY(U,$J,601.751,593,0)
|
|
;;=140^3^486
|
|
;;^UTILITY(U,$J,601.751,594,0)
|
|
;;=140^4^487
|
|
;;^UTILITY(U,$J,601.751,595,0)
|
|
;;=141^1^488
|
|
;;^UTILITY(U,$J,601.751,596,0)
|
|
;;=141^2^489
|
|
;;^UTILITY(U,$J,601.751,597,0)
|
|
;;=141^3^490
|
|
;;^UTILITY(U,$J,601.751,598,0)
|
|
;;=141^4^491
|
|
;;^UTILITY(U,$J,601.751,599,0)
|
|
;;=142^1^492
|
|
;;^UTILITY(U,$J,601.751,600,0)
|
|
;;=142^2^493
|
|
;;^UTILITY(U,$J,601.751,601,0)
|
|
;;=142^3^494
|
|
;;^UTILITY(U,$J,601.751,602,0)
|
|
;;=142^4^495
|
|
;;^UTILITY(U,$J,601.751,603,0)
|
|
;;=143^1^496
|
|
;;^UTILITY(U,$J,601.751,604,0)
|
|
;;=143^2^497
|
|
;;^UTILITY(U,$J,601.751,605,0)
|
|
;;=143^3^498
|
|
;;^UTILITY(U,$J,601.751,606,0)
|
|
;;=143^4^499
|
|
;;^UTILITY(U,$J,601.751,607,0)
|
|
;;=144^1^500
|
|
;;^UTILITY(U,$J,601.751,608,0)
|
|
;;=144^2^501
|
|
;;^UTILITY(U,$J,601.751,609,0)
|
|
;;=144^3^502
|
|
;;^UTILITY(U,$J,601.751,610,0)
|
|
;;=144^4^503
|
|
;;^UTILITY(U,$J,601.751,611,0)
|
|
;;=145^1^504
|
|
;;^UTILITY(U,$J,601.751,612,0)
|
|
;;=145^2^505
|
|
;;^UTILITY(U,$J,601.751,613,0)
|
|
;;=145^3^506
|
|
;;^UTILITY(U,$J,601.751,614,0)
|
|
;;=145^4^507
|
|
;;^UTILITY(U,$J,601.751,615,0)
|
|
;;=146^1^508
|
|
;;^UTILITY(U,$J,601.751,616,0)
|
|
;;=146^2^509
|
|
;;^UTILITY(U,$J,601.751,617,0)
|
|
;;=146^3^510
|
|
;;^UTILITY(U,$J,601.751,618,0)
|
|
;;=146^4^511
|
|
;;^UTILITY(U,$J,601.751,619,0)
|
|
;;=147^1^512
|
|
;;^UTILITY(U,$J,601.751,620,0)
|
|
;;=147^2^513
|
|
;;^UTILITY(U,$J,601.751,621,0)
|
|
;;=148^1^514
|
|
;;^UTILITY(U,$J,601.751,622,0)
|
|
;;=148^2^515
|
|
;;^UTILITY(U,$J,601.751,623,0)
|
|
;;=148^3^516
|
|
;;^UTILITY(U,$J,601.751,624,0)
|
|
;;=148^4^517
|
|
;;^UTILITY(U,$J,601.751,625,0)
|
|
;;=149^1^518
|
|
;;^UTILITY(U,$J,601.751,626,0)
|
|
;;=149^2^519
|
|
;;^UTILITY(U,$J,601.751,627,0)
|
|
;;=149^3^520
|
|
;;^UTILITY(U,$J,601.751,628,0)
|
|
;;=149^4^521
|
|
;;^UTILITY(U,$J,601.751,629,0)
|
|
;;=150^1^522
|
|
;;^UTILITY(U,$J,601.751,630,0)
|
|
;;=150^2^523
|
|
;;^UTILITY(U,$J,601.751,631,0)
|
|
;;=150^3^524
|
|
;;^UTILITY(U,$J,601.751,632,0)
|
|
;;=150^4^525
|
|
;;^UTILITY(U,$J,601.751,633,0)
|
|
;;=151^1^526
|
|
;;^UTILITY(U,$J,601.751,634,0)
|
|
;;=151^2^527
|
|
;;^UTILITY(U,$J,601.751,635,0)
|
|
;;=151^3^528
|
|
;;^UTILITY(U,$J,601.751,636,0)
|
|
;;=151^4^529
|
|
;;^UTILITY(U,$J,601.751,637,0)
|
|
;;=152^1^530
|
|
;;^UTILITY(U,$J,601.751,638,0)
|
|
;;=152^2^531
|
|
;;^UTILITY(U,$J,601.751,639,0)
|
|
;;=152^3^532
|
|
;;^UTILITY(U,$J,601.751,640,0)
|
|
;;=152^4^533
|
|
;;^UTILITY(U,$J,601.751,641,0)
|
|
;;=153^1^534
|
|
;;^UTILITY(U,$J,601.751,642,0)
|
|
;;=153^2^535
|
|
;;^UTILITY(U,$J,601.751,643,0)
|
|
;;=153^3^536
|
|
;;^UTILITY(U,$J,601.751,644,0)
|
|
;;=153^4^537
|
|
;;^UTILITY(U,$J,601.751,645,0)
|
|
;;=154^1^538
|
|
;;^UTILITY(U,$J,601.751,646,0)
|
|
;;=154^2^539
|
|
;;^UTILITY(U,$J,601.751,647,0)
|
|
;;=154^3^540
|
|
;;^UTILITY(U,$J,601.751,648,0)
|
|
;;=154^4^541
|
|
;;^UTILITY(U,$J,601.751,649,0)
|
|
;;=155^1^542
|
|
;;^UTILITY(U,$J,601.751,650,0)
|
|
;;=155^2^543
|
|
;;^UTILITY(U,$J,601.751,651,0)
|
|
;;=155^3^544
|
|
;;^UTILITY(U,$J,601.751,652,0)
|
|
;;=155^4^545
|
|
;;^UTILITY(U,$J,601.751,653,0)
|
|
;;=156^1^546
|
|
;;^UTILITY(U,$J,601.751,654,0)
|
|
;;=156^2^547
|
|
;;^UTILITY(U,$J,601.751,655,0)
|
|
;;=156^3^548
|
|
;;^UTILITY(U,$J,601.751,656,0)
|
|
;;=156^4^549
|
|
;;^UTILITY(U,$J,601.751,657,0)
|
|
;;=157^1^550
|
|
;;^UTILITY(U,$J,601.751,658,0)
|
|
;;=157^2^551
|
|
;;^UTILITY(U,$J,601.751,659,0)
|
|
;;=157^3^552
|
|
;;^UTILITY(U,$J,601.751,660,0)
|
|
;;=157^4^553
|
|
;;^UTILITY(U,$J,601.751,661,0)
|
|
;;=158^1^554
|
|
;;^UTILITY(U,$J,601.751,662,0)
|
|
;;=158^2^555
|
|
;;^UTILITY(U,$J,601.751,663,0)
|
|
;;=158^3^556
|
|
;;^UTILITY(U,$J,601.751,664,0)
|
|
;;=158^4^557
|
|
;;^UTILITY(U,$J,601.751,665,0)
|
|
;;=159^1^558
|
|
;;^UTILITY(U,$J,601.751,666,0)
|
|
;;=159^2^559
|
|
;;^UTILITY(U,$J,601.751,667,0)
|
|
;;=159^3^560
|
|
;;^UTILITY(U,$J,601.751,668,0)
|
|
;;=159^4^561
|
|
;;^UTILITY(U,$J,601.751,669,0)
|
|
;;=160^1^562
|
|
;;^UTILITY(U,$J,601.751,670,0)
|
|
;;=160^2^563
|
|
;;^UTILITY(U,$J,601.751,671,0)
|
|
;;=160^3^564
|
|
;;^UTILITY(U,$J,601.751,672,0)
|
|
;;=160^4^565
|
|
;;^UTILITY(U,$J,601.751,673,0)
|
|
;;=161^1^566
|
|
;;^UTILITY(U,$J,601.751,674,0)
|
|
;;=161^2^567
|
|
;;^UTILITY(U,$J,601.751,675,0)
|
|
;;=161^3^568
|
|
;;^UTILITY(U,$J,601.751,676,0)
|
|
;;=161^4^569
|
|
;;^UTILITY(U,$J,601.751,677,0)
|
|
;;=162^1^570
|
|
;;^UTILITY(U,$J,601.751,678,0)
|
|
;;=162^2^571
|
|
;;^UTILITY(U,$J,601.751,679,0)
|
|
;;=162^3^572
|
|
;;^UTILITY(U,$J,601.751,680,0)
|
|
;;=162^4^573
|
|
;;^UTILITY(U,$J,601.751,681,0)
|
|
;;=163^1^574
|
|
;;^UTILITY(U,$J,601.751,682,0)
|
|
;;=163^2^575
|
|
;;^UTILITY(U,$J,601.751,683,0)
|
|
;;=163^3^576
|
|
;;^UTILITY(U,$J,601.751,684,0)
|
|
;;=163^4^577
|
|
;;^UTILITY(U,$J,601.751,685,0)
|
|
;;=164^1^578
|
|
;;^UTILITY(U,$J,601.751,686,0)
|
|
;;=164^2^579
|
|
;;^UTILITY(U,$J,601.751,687,0)
|
|
;;=164^3^580
|
|
;;^UTILITY(U,$J,601.751,688,0)
|
|
;;=164^4^581
|
|
;;^UTILITY(U,$J,601.751,689,0)
|
|
;;=165^1^582
|
|
;;^UTILITY(U,$J,601.751,690,0)
|
|
;;=165^2^583
|
|
;;^UTILITY(U,$J,601.751,691,0)
|
|
;;=165^3^584
|
|
;;^UTILITY(U,$J,601.751,692,0)
|
|
;;=165^4^585
|
|
;;^UTILITY(U,$J,601.751,693,0)
|
|
;;=165^5^586
|
|
;;^UTILITY(U,$J,601.751,694,0)
|
|
;;=165^6^587
|
|
;;^UTILITY(U,$J,601.751,695,0)
|
|
;;=165^7^588
|
|
;;^UTILITY(U,$J,601.751,696,0)
|
|
;;=166^1^589
|
|
;;^UTILITY(U,$J,601.751,697,0)
|
|
;;=166^2^590
|
|
;;^UTILITY(U,$J,601.751,698,0)
|
|
;;=166^3^591
|
|
;;^UTILITY(U,$J,601.751,699,0)
|
|
;;=166^4^592
|
|
;;^UTILITY(U,$J,601.751,700,0)
|
|
;;=167^1^593
|
|
;;^UTILITY(U,$J,601.751,701,0)
|
|
;;=167^2^594
|
|
;;^UTILITY(U,$J,601.751,702,0)
|
|
;;=167^3^595
|
|
;;^UTILITY(U,$J,601.751,703,0)
|
|
;;=167^4^596
|
|
;;^UTILITY(U,$J,601.751,704,0)
|
|
;;=167^5^597
|
|
;;^UTILITY(U,$J,601.751,705,0)
|
|
;;=167^6^598
|
|
;;^UTILITY(U,$J,601.751,706,0)
|
|
;;=167^7^599
|
|
;;^UTILITY(U,$J,601.751,707,0)
|
|
;;=168^1^600
|
|
;;^UTILITY(U,$J,601.751,708,0)
|
|
;;=168^2^601
|
|
;;^UTILITY(U,$J,601.751,709,0)
|
|
;;=168^3^602
|
|
;;^UTILITY(U,$J,601.751,710,0)
|
|
;;=168^4^603
|
|
;;^UTILITY(U,$J,601.751,711,0)
|
|
;;=169^1^604
|
|
;;^UTILITY(U,$J,601.751,712,0)
|
|
;;=169^2^605
|
|
;;^UTILITY(U,$J,601.751,713,0)
|
|
;;=169^3^606
|
|
;;^UTILITY(U,$J,601.751,714,0)
|
|
;;=169^4^607
|
|
;;^UTILITY(U,$J,601.751,715,0)
|
|
;;=170^1^608
|
|
;;^UTILITY(U,$J,601.751,716,0)
|
|
;;=170^2^609
|
|
;;^UTILITY(U,$J,601.751,717,0)
|
|
;;=170^3^610
|
|
;;^UTILITY(U,$J,601.751,718,0)
|
|
;;=170^4^611
|
|
;;^UTILITY(U,$J,601.751,719,0)
|
|
;;=171^1^612
|
|
;;^UTILITY(U,$J,601.751,720,0)
|
|
;;=171^2^613
|
|
;;^UTILITY(U,$J,601.751,721,0)
|
|
;;=172^1^614
|
|
;;^UTILITY(U,$J,601.751,722,0)
|
|
;;=172^2^615
|
|
;;^UTILITY(U,$J,601.751,723,0)
|
|
;;=172^3^616
|
|
;;^UTILITY(U,$J,601.751,724,0)
|
|
;;=172^4^617
|
|
;;^UTILITY(U,$J,601.751,725,0)
|
|
;;=172^5^618
|
|
;;^UTILITY(U,$J,601.751,726,0)
|
|
;;=172^6^619
|
|
;;^UTILITY(U,$J,601.751,727,0)
|
|
;;=172^7^620
|
|
;;^UTILITY(U,$J,601.751,728,0)
|
|
;;=173^1^621
|
|
;;^UTILITY(U,$J,601.751,729,0)
|
|
;;=173^2^622
|
|
;;^UTILITY(U,$J,601.751,730,0)
|
|
;;=173^3^623
|
|
;;^UTILITY(U,$J,601.751,731,0)
|
|
;;=174^1^624
|
|
;;^UTILITY(U,$J,601.751,732,0)
|
|
;;=174^2^625
|
|
;;^UTILITY(U,$J,601.751,733,0)
|
|
;;=174^3^626
|
|
;;^UTILITY(U,$J,601.751,734,0)
|
|
;;=175^1^627
|
|
;;^UTILITY(U,$J,601.751,735,0)
|
|
;;=175^2^628
|
|
;;^UTILITY(U,$J,601.751,736,0)
|
|
;;=175^3^629
|
|
;;^UTILITY(U,$J,601.751,737,0)
|
|
;;=176^1^630
|
|
;;^UTILITY(U,$J,601.751,738,0)
|
|
;;=176^2^631
|
|
;;^UTILITY(U,$J,601.751,739,0)
|
|
;;=176^3^632
|
|
;;^UTILITY(U,$J,601.751,740,0)
|
|
;;=177^1^633
|
|
;;^UTILITY(U,$J,601.751,741,0)
|
|
;;=177^2^634
|
|
;;^UTILITY(U,$J,601.751,742,0)
|
|
;;=177^3^635
|
|
;;^UTILITY(U,$J,601.751,743,0)
|
|
;;=178^1^636
|
|
;;^UTILITY(U,$J,601.751,744,0)
|
|
;;=178^2^637
|
|
;;^UTILITY(U,$J,601.751,745,0)
|
|
;;=178^3^638
|
|
;;^UTILITY(U,$J,601.751,746,0)
|
|
;;=179^1^639
|
|
;;^UTILITY(U,$J,601.751,747,0)
|
|
;;=179^2^640
|
|
;;^UTILITY(U,$J,601.751,748,0)
|
|
;;=179^3^641
|
|
;;^UTILITY(U,$J,601.751,749,0)
|
|
;;=180^1^642
|
|
;;^UTILITY(U,$J,601.751,750,0)
|
|
;;=180^2^643
|
|
;;^UTILITY(U,$J,601.751,751,0)
|
|
;;=180^3^644
|
|
;;^UTILITY(U,$J,601.751,752,0)
|
|
;;=181^1^645
|
|
;;^UTILITY(U,$J,601.751,753,0)
|
|
;;=181^2^646
|
|
;;^UTILITY(U,$J,601.751,754,0)
|
|
;;=181^3^647
|
|
;;^UTILITY(U,$J,601.751,755,0)
|
|
;;=182^1^648
|
|
;;^UTILITY(U,$J,601.751,756,0)
|
|
;;=182^2^649
|
|
;;^UTILITY(U,$J,601.751,757,0)
|
|
;;=182^3^650
|
|
;;^UTILITY(U,$J,601.751,758,0)
|
|
;;=183^1^651
|
|
;;^UTILITY(U,$J,601.751,759,0)
|
|
;;=183^2^652
|
|
;;^UTILITY(U,$J,601.751,760,0)
|
|
;;=183^3^653
|
|
;;^UTILITY(U,$J,601.751,761,0)
|
|
;;=184^1^654
|
|
;;^UTILITY(U,$J,601.751,762,0)
|
|
;;=184^2^655
|
|
;;^UTILITY(U,$J,601.751,763,0)
|
|
;;=184^3^656
|
|
;;^UTILITY(U,$J,601.751,764,0)
|
|
;;=185^1^657
|
|
;;^UTILITY(U,$J,601.751,765,0)
|
|
;;=185^2^658
|
|
;;^UTILITY(U,$J,601.751,766,0)
|
|
;;=185^3^659
|
|
;;^UTILITY(U,$J,601.751,767,0)
|
|
;;=186^1^660
|
|
;;^UTILITY(U,$J,601.751,768,0)
|
|
;;=186^2^661
|
|
;;^UTILITY(U,$J,601.751,769,0)
|
|
;;=186^3^662
|
|
;;^UTILITY(U,$J,601.751,770,0)
|
|
;;=187^1^663
|
|
;;^UTILITY(U,$J,601.751,771,0)
|
|
;;=187^2^664
|
|
;;^UTILITY(U,$J,601.751,772,0)
|
|
;;=187^3^665
|
|
;;^UTILITY(U,$J,601.751,773,0)
|
|
;;=188^1^666
|
|
;;^UTILITY(U,$J,601.751,774,0)
|
|
;;=188^2^667
|
|
;;^UTILITY(U,$J,601.751,775,0)
|
|
;;=188^3^668
|
|
;;^UTILITY(U,$J,601.751,776,0)
|
|
;;=189^1^669
|
|
;;^UTILITY(U,$J,601.751,777,0)
|
|
;;=189^2^670
|
|
;;^UTILITY(U,$J,601.751,778,0)
|
|
;;=189^3^671
|
|
;;^UTILITY(U,$J,601.751,779,0)
|
|
;;=190^1^672
|
|
;;^UTILITY(U,$J,601.751,780,0)
|
|
;;=190^2^673
|
|
;;^UTILITY(U,$J,601.751,781,0)
|
|
;;=190^3^674
|
|
;;^UTILITY(U,$J,601.751,782,0)
|
|
;;=191^1^675
|