IBDEI09B ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
Q:'DIFQR(358.3) 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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.3,22762,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22762,1,3,0)
;;=3^Claustrophobia
;;^UTILITY(U,$J,358.3,22762,1,4,0)
;;=4^F40.240
;;^UTILITY(U,$J,358.3,22762,2)
;;=^5003554
;;^UTILITY(U,$J,358.3,22763,0)
;;=F43.21^^71^918^13
;;^UTILITY(U,$J,358.3,22763,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22763,1,3,0)
;;=3^Grief Reaction
;;^UTILITY(U,$J,358.3,22763,1,4,0)
;;=4^F43.21
;;^UTILITY(U,$J,358.3,22763,2)
;;=^331948
;;^UTILITY(U,$J,358.3,22764,0)
;;=F43.10^^71^918^22
;;^UTILITY(U,$J,358.3,22764,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22764,1,3,0)
;;=3^PTSD,Unspec
;;^UTILITY(U,$J,358.3,22764,1,4,0)
;;=4^F43.10
;;^UTILITY(U,$J,358.3,22764,2)
;;=^5003570
;;^UTILITY(U,$J,358.3,22765,0)
;;=F43.11^^71^918^20
;;^UTILITY(U,$J,358.3,22765,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22765,1,3,0)
;;=3^PTSD,Acute
;;^UTILITY(U,$J,358.3,22765,1,4,0)
;;=4^F43.11
;;^UTILITY(U,$J,358.3,22765,2)
;;=^5003571
;;^UTILITY(U,$J,358.3,22766,0)
;;=F43.12^^71^918^21
;;^UTILITY(U,$J,358.3,22766,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22766,1,3,0)
;;=3^PTSD,Chronic
;;^UTILITY(U,$J,358.3,22766,1,4,0)
;;=4^F43.12
;;^UTILITY(U,$J,358.3,22766,2)
;;=^5003572
;;^UTILITY(U,$J,358.3,22767,0)
;;=F43.21^^71^918^1
;;^UTILITY(U,$J,358.3,22767,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22767,1,3,0)
;;=3^Adjustment Disorder w/ Depressed Mood
;;^UTILITY(U,$J,358.3,22767,1,4,0)
;;=4^F43.21
;;^UTILITY(U,$J,358.3,22767,2)
;;=^331948
;;^UTILITY(U,$J,358.3,22768,0)
;;=F45.9^^71^918^30
;;^UTILITY(U,$J,358.3,22768,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22768,1,3,0)
;;=3^Somatoform Disorder,Unspec
;;^UTILITY(U,$J,358.3,22768,1,4,0)
;;=4^F45.9
;;^UTILITY(U,$J,358.3,22768,2)
;;=^5003592
;;^UTILITY(U,$J,358.3,22769,0)
;;=F48.2^^71^918^24
;;^UTILITY(U,$J,358.3,22769,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22769,1,3,0)
;;=3^Pseudobulbar Affect
;;^UTILITY(U,$J,358.3,22769,1,4,0)
;;=4^F48.2
;;^UTILITY(U,$J,358.3,22769,2)
;;=^5003594
;;^UTILITY(U,$J,358.3,22770,0)
;;=G47.00^^71^918^15
;;^UTILITY(U,$J,358.3,22770,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22770,1,3,0)
;;=3^Insomnia,Unspec
;;^UTILITY(U,$J,358.3,22770,1,4,0)
;;=4^G47.00
;;^UTILITY(U,$J,358.3,22770,2)
;;=^332924
;;^UTILITY(U,$J,358.3,22771,0)
;;=F40.11^^71^918^28
;;^UTILITY(U,$J,358.3,22771,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22771,1,3,0)
;;=3^Social Phobia,Generalized
;;^UTILITY(U,$J,358.3,22771,1,4,0)
;;=4^F40.11
;;^UTILITY(U,$J,358.3,22771,2)
;;=^5003545
;;^UTILITY(U,$J,358.3,22772,0)
;;=F42.4^^71^918^11
;;^UTILITY(U,$J,358.3,22772,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22772,1,3,0)
;;=3^Excoriation (Skin-Picking) Disorder
;;^UTILITY(U,$J,358.3,22772,1,4,0)
;;=4^F42.4
;;^UTILITY(U,$J,358.3,22772,2)
;;=^5138446
;;^UTILITY(U,$J,358.3,22773,0)
;;=F42.3^^71^918^14
;;^UTILITY(U,$J,358.3,22773,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22773,1,3,0)
;;=3^Hoarding Disorder
;;^UTILITY(U,$J,358.3,22773,1,4,0)
;;=4^F42.3
;;^UTILITY(U,$J,358.3,22773,2)
;;=^5138445
;;^UTILITY(U,$J,358.3,22774,0)
;;=F42.2^^71^918^17
;;^UTILITY(U,$J,358.3,22774,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22774,1,3,0)
;;=3^Mixed Obsessional Thoughts & Acts
;;^UTILITY(U,$J,358.3,22774,1,4,0)
;;=4^F42.2
;;^UTILITY(U,$J,358.3,22774,2)
;;=^5138444
;;^UTILITY(U,$J,358.3,22775,0)
;;=F42.9^^71^918^19
;;^UTILITY(U,$J,358.3,22775,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22775,1,3,0)
;;=3^Obsessive-Compulsive Disorder,Unspec
;;^UTILITY(U,$J,358.3,22775,1,4,0)
;;=4^F42.9
;;^UTILITY(U,$J,358.3,22775,2)
;;=^5138448
;;^UTILITY(U,$J,358.3,22776,0)
;;=F42.8^^71^918^18
;;^UTILITY(U,$J,358.3,22776,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22776,1,3,0)
;;=3^Obsessive-Compulsive Disorder,Other
;;^UTILITY(U,$J,358.3,22776,1,4,0)
;;=4^F42.8
;;^UTILITY(U,$J,358.3,22776,2)
;;=^5138447
;;^UTILITY(U,$J,358.3,22777,0)
;;=F50.89^^71^918^10
;;^UTILITY(U,$J,358.3,22777,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22777,1,3,0)
;;=3^Eating Disorder,Oth Specified
;;^UTILITY(U,$J,358.3,22777,1,4,0)
;;=4^F50.89
;;^UTILITY(U,$J,358.3,22777,2)
;;=^5138449
;;^UTILITY(U,$J,358.3,22778,0)
;;=R41.0^^71^918^9
;;^UTILITY(U,$J,358.3,22778,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22778,1,3,0)
;;=3^Delirium,Disorientation NOS
;;^UTILITY(U,$J,358.3,22778,1,4,0)
;;=4^R41.0
;;^UTILITY(U,$J,358.3,22778,2)
;;=^5019436
;;^UTILITY(U,$J,358.3,22779,0)
;;=R56.00^^71^919^6
;;^UTILITY(U,$J,358.3,22779,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22779,1,3,0)
;;=3^Simple Febrile Convulsions
;;^UTILITY(U,$J,358.3,22779,1,4,0)
;;=4^R56.00
;;^UTILITY(U,$J,358.3,22779,2)
;;=^5019522
;;^UTILITY(U,$J,358.3,22780,0)
;;=R56.9^^71^919^4
;;^UTILITY(U,$J,358.3,22780,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22780,1,3,0)
;;=3^Convulsions,Unspec
;;^UTILITY(U,$J,358.3,22780,1,4,0)
;;=4^R56.9
;;^UTILITY(U,$J,358.3,22780,2)
;;=^5019524
;;^UTILITY(U,$J,358.3,22781,0)
;;=R25.0^^71^919^1
;;^UTILITY(U,$J,358.3,22781,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22781,1,3,0)
;;=3^Abnormal Head Movements
;;^UTILITY(U,$J,358.3,22781,1,4,0)
;;=4^R25.0
;;^UTILITY(U,$J,358.3,22781,2)
;;=^5019299
;;^UTILITY(U,$J,358.3,22782,0)
;;=R25.1^^71^919^7
;;^UTILITY(U,$J,358.3,22782,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22782,1,3,0)
;;=3^Tremor,Unspec
;;^UTILITY(U,$J,358.3,22782,1,4,0)
;;=4^R25.1
;;^UTILITY(U,$J,358.3,22782,2)
;;=^5019300
;;^UTILITY(U,$J,358.3,22783,0)
;;=R25.9^^71^919^3
;;^UTILITY(U,$J,358.3,22783,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22783,1,3,0)
;;=3^Abnormal Involuntary Movements,Unspec
;;^UTILITY(U,$J,358.3,22783,1,4,0)
;;=4^R25.9
;;^UTILITY(U,$J,358.3,22783,2)
;;=^5019303
;;^UTILITY(U,$J,358.3,22784,0)
;;=R25.3^^71^919^5
;;^UTILITY(U,$J,358.3,22784,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22784,1,3,0)
;;=3^Fasciculation/Twitching
;;^UTILITY(U,$J,358.3,22784,1,4,0)
;;=4^R25.3
;;^UTILITY(U,$J,358.3,22784,2)
;;=^44985
;;^UTILITY(U,$J,358.3,22785,0)
;;=R25.8^^71^919^2
;;^UTILITY(U,$J,358.3,22785,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22785,1,3,0)
;;=3^Abnormal Involuntary Movements,Other
;;^UTILITY(U,$J,358.3,22785,1,4,0)
;;=4^R25.8
;;^UTILITY(U,$J,358.3,22785,2)
;;=^5019302
;;^UTILITY(U,$J,358.3,22786,0)
;;=M02.30^^71^920^147
;;^UTILITY(U,$J,358.3,22786,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22786,1,3,0)
;;=3^Reiter's Disease,Unspec Site
;;^UTILITY(U,$J,358.3,22786,1,4,0)
;;=4^M02.30
;;^UTILITY(U,$J,358.3,22786,2)
;;=^5009790
;;^UTILITY(U,$J,358.3,22787,0)
;;=M10.9^^71^920^41
;;^UTILITY(U,$J,358.3,22787,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22787,1,3,0)
;;=3^Gout,Unspec
;;^UTILITY(U,$J,358.3,22787,1,4,0)
;;=4^M10.9
;;^UTILITY(U,$J,358.3,22787,2)
;;=^5010404
;;^UTILITY(U,$J,358.3,22788,0)
;;=G90.59^^71^920^35
;;^UTILITY(U,$J,358.3,22788,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22788,1,3,0)
;;=3^Complex Regional Pain Syndrome I,Unspec
;;^UTILITY(U,$J,358.3,22788,1,4,0)
;;=4^G90.59
;;^UTILITY(U,$J,358.3,22788,2)
;;=^5004171
;;^UTILITY(U,$J,358.3,22789,0)
;;=G56.01^^71^920^13
;;^UTILITY(U,$J,358.3,22789,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22789,1,3,0)
;;=3^Carpal Tunnel Syndrome,Right Upper Limb
;;^UTILITY(U,$J,358.3,22789,1,4,0)
;;=4^G56.01
;;^UTILITY(U,$J,358.3,22789,2)
;;=^5004018
;;^UTILITY(U,$J,358.3,22790,0)
;;=G56.02^^71^920^12
;;^UTILITY(U,$J,358.3,22790,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22790,1,3,0)
;;=3^Carpal Tunnel Syndrome,Left Upper Limb
;;^UTILITY(U,$J,358.3,22790,1,4,0)
;;=4^G56.02
;;^UTILITY(U,$J,358.3,22790,2)
;;=^5004019
;;^UTILITY(U,$J,358.3,22791,0)
;;=G56.21^^71^920^60
;;^UTILITY(U,$J,358.3,22791,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22791,1,3,0)
;;=3^Lesion of Ulnar Nerve,Right Upper Limb
;;^UTILITY(U,$J,358.3,22791,1,4,0)
;;=4^G56.21
;;^UTILITY(U,$J,358.3,22791,2)
;;=^5004024
;;^UTILITY(U,$J,358.3,22792,0)
;;=G56.22^^71^920^59
;;^UTILITY(U,$J,358.3,22792,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22792,1,3,0)
;;=3^Lesion of Ulnar Nerve,Left Upper Limb
;;^UTILITY(U,$J,358.3,22792,1,4,0)
;;=4^G56.22
;;^UTILITY(U,$J,358.3,22792,2)
;;=^5004025
;;^UTILITY(U,$J,358.3,22793,0)
;;=L40.52^^71^920^143
;;^UTILITY(U,$J,358.3,22793,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22793,1,3,0)
;;=3^Psoriatic Arthritis Mutilans
;;^UTILITY(U,$J,358.3,22793,1,4,0)
;;=4^L40.52
;;^UTILITY(U,$J,358.3,22793,2)
;;=^5009167
;;^UTILITY(U,$J,358.3,22794,0)
;;=L40.53^^71^920^144
;;^UTILITY(U,$J,358.3,22794,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22794,1,3,0)
;;=3^Psoriatic Spondylitis
;;^UTILITY(U,$J,358.3,22794,1,4,0)
;;=4^L40.53
;;^UTILITY(U,$J,358.3,22794,2)
;;=^5009168
;;^UTILITY(U,$J,358.3,22795,0)
;;=M32.9^^71^920^187
;;^UTILITY(U,$J,358.3,22795,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22795,1,3,0)
;;=3^Systemic Lupus Erythematosus,Unspec
;;^UTILITY(U,$J,358.3,22795,1,4,0)
;;=4^M32.9
;;^UTILITY(U,$J,358.3,22795,2)
;;=^5011761
;;^UTILITY(U,$J,358.3,22796,0)
;;=M32.0^^71^920^183
;;^UTILITY(U,$J,358.3,22796,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22796,1,3,0)
;;=3^Systemic Lupus Erythematosus,Drug-Induced
;;^UTILITY(U,$J,358.3,22796,1,4,0)
;;=4^M32.0
;;^UTILITY(U,$J,358.3,22796,2)
;;=^5011752
;;^UTILITY(U,$J,358.3,22797,0)
;;=M32.13^^71^920^185
;;^UTILITY(U,$J,358.3,22797,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22797,1,3,0)
;;=3^Systemic Lupus Erythematosus,Lung Involvement
;;^UTILITY(U,$J,358.3,22797,1,4,0)
;;=4^M32.13
;;^UTILITY(U,$J,358.3,22797,2)
;;=^5011756
;;^UTILITY(U,$J,358.3,22798,0)
;;=M32.14^^71^920^184
;;^UTILITY(U,$J,358.3,22798,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22798,1,3,0)
;;=3^Systemic Lupus Erythematosus,Glomerular Disease
;;^UTILITY(U,$J,358.3,22798,1,4,0)
;;=4^M32.14
;;^UTILITY(U,$J,358.3,22798,2)
;;=^5011757
;;^UTILITY(U,$J,358.3,22799,0)
;;=M32.12^^71^920^186
;;^UTILITY(U,$J,358.3,22799,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22799,1,3,0)
;;=3^Systemic Lupus Erythematosus,Pericarditis
;;^UTILITY(U,$J,358.3,22799,1,4,0)
;;=4^M32.12
;;^UTILITY(U,$J,358.3,22799,2)
;;=^5011755
;;^UTILITY(U,$J,358.3,22800,0)
;;=M05.59^^71^920^165
;;^UTILITY(U,$J,358.3,22800,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22800,1,3,0)
;;=3^Rheumatoid Polyneuropathy w/ Rheumatoid Arthritis of Mult Sites
;;^UTILITY(U,$J,358.3,22800,1,4,0)
;;=4^M05.59
;;^UTILITY(U,$J,358.3,22800,2)
;;=^5009976
;;^UTILITY(U,$J,358.3,22801,0)
;;=M05.711^^71^920^159
;;^UTILITY(U,$J,358.3,22801,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22801,1,3,0)
;;=3^Rheumatoid Arthritis of Right Shoulder
;;^UTILITY(U,$J,358.3,22801,1,4,0)
;;=4^M05.711
;;^UTILITY(U,$J,358.3,22801,2)
;;=^5010001
;;^UTILITY(U,$J,358.3,22802,0)
;;=M05.712^^71^920^152
;;^UTILITY(U,$J,358.3,22802,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22802,1,3,0)
;;=3^Rheumatoid Arthritis of Left Shoulder
;;^UTILITY(U,$J,358.3,22802,1,4,0)
;;=4^M05.712
;;^UTILITY(U,$J,358.3,22802,2)
;;=^5010002
;;^UTILITY(U,$J,358.3,22803,0)
;;=M05.731^^71^920^160
;;^UTILITY(U,$J,358.3,22803,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22803,1,3,0)
;;=3^Rheumatoid Arthritis of Right Wrist
;;^UTILITY(U,$J,358.3,22803,1,4,0)
;;=4^M05.731
;;^UTILITY(U,$J,358.3,22803,2)
;;=^5010007
;;^UTILITY(U,$J,358.3,22804,0)
;;=M05.732^^71^920^153
;;^UTILITY(U,$J,358.3,22804,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22804,1,3,0)
;;=3^Rheumatoid Arthritis of Left Wrist
;;^UTILITY(U,$J,358.3,22804,1,4,0)
;;=4^M05.732
;;^UTILITY(U,$J,358.3,22804,2)
;;=^5010008
;;^UTILITY(U,$J,358.3,22805,0)
;;=M05.741^^71^920^156
;;^UTILITY(U,$J,358.3,22805,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22805,1,3,0)
;;=3^Rheumatoid Arthritis of Right Hand
;;^UTILITY(U,$J,358.3,22805,1,4,0)
;;=4^M05.741
;;^UTILITY(U,$J,358.3,22805,2)
;;=^5010010
;;^UTILITY(U,$J,358.3,22806,0)
;;=M05.742^^71^920^149
;;^UTILITY(U,$J,358.3,22806,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22806,1,3,0)
;;=3^Rheumatoid Arthritis of Left Hand
;;^UTILITY(U,$J,358.3,22806,1,4,0)
;;=4^M05.742
;;^UTILITY(U,$J,358.3,22806,2)
;;=^5010011
;;^UTILITY(U,$J,358.3,22807,0)
;;=M05.751^^71^920^157
;;^UTILITY(U,$J,358.3,22807,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22807,1,3,0)
;;=3^Rheumatoid Arthritis of Right Hip
;;^UTILITY(U,$J,358.3,22807,1,4,0)
;;=4^M05.751
;;^UTILITY(U,$J,358.3,22807,2)
;;=^5010013
;;^UTILITY(U,$J,358.3,22808,0)
;;=M05.752^^71^920^150
;;^UTILITY(U,$J,358.3,22808,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22808,1,3,0)
;;=3^Rheumatoid Arthritis of Left Hip
;;^UTILITY(U,$J,358.3,22808,1,4,0)
;;=4^M05.752
;;^UTILITY(U,$J,358.3,22808,2)
;;=^5010014
;;^UTILITY(U,$J,358.3,22809,0)
;;=M05.761^^71^920^158
;;^UTILITY(U,$J,358.3,22809,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22809,1,3,0)
;;=3^Rheumatoid Arthritis of Right Knee
;;^UTILITY(U,$J,358.3,22809,1,4,0)
;;=4^M05.761
;;^UTILITY(U,$J,358.3,22809,2)
;;=^5010016
;;^UTILITY(U,$J,358.3,22810,0)
;;=M05.762^^71^920^151
;;^UTILITY(U,$J,358.3,22810,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22810,1,3,0)
;;=3^Rheumatoid Arthritis of Left Knee
;;^UTILITY(U,$J,358.3,22810,1,4,0)
;;=4^M05.762
;;^UTILITY(U,$J,358.3,22810,2)
;;=^5010017
;;^UTILITY(U,$J,358.3,22811,0)
;;=M05.771^^71^920^155
;;^UTILITY(U,$J,358.3,22811,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22811,1,3,0)
;;=3^Rheumatoid Arthritis of Right Ankle
;;^UTILITY(U,$J,358.3,22811,1,4,0)
;;=4^M05.771
;;^UTILITY(U,$J,358.3,22811,2)
;;=^5010019
;;^UTILITY(U,$J,358.3,22812,0)
;;=M05.772^^71^920^148
;;^UTILITY(U,$J,358.3,22812,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22812,1,3,0)
;;=3^Rheumatoid Arthritis of Left Ankle
;;^UTILITY(U,$J,358.3,22812,1,4,0)
;;=4^M05.772
;;^UTILITY(U,$J,358.3,22812,2)
;;=^5010020
;;^UTILITY(U,$J,358.3,22813,0)
;;=M05.79^^71^920^154
;;^UTILITY(U,$J,358.3,22813,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22813,1,3,0)
;;=3^Rheumatoid Arthritis of Multiple Sites
;;^UTILITY(U,$J,358.3,22813,1,4,0)
;;=4^M05.79
;;^UTILITY(U,$J,358.3,22813,2)
;;=^5010022
;;^UTILITY(U,$J,358.3,22814,0)
;;=M06.00^^71^920^161
;;^UTILITY(U,$J,358.3,22814,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22814,1,3,0)
;;=3^Rheumatoid Arthritis w/o Rhematoid Factor,Unspec Site
;;^UTILITY(U,$J,358.3,22814,1,4,0)
;;=4^M06.00
;;^UTILITY(U,$J,358.3,22814,2)
;;=^5010047
;;^UTILITY(U,$J,358.3,22815,0)
;;=M06.30^^71^920^164
;;^UTILITY(U,$J,358.3,22815,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22815,1,3,0)
;;=3^Rheumatoid Nodule,Unspec Site
;;^UTILITY(U,$J,358.3,22815,1,4,0)
;;=4^M06.30
;;^UTILITY(U,$J,358.3,22815,2)
;;=^5010096
;;^UTILITY(U,$J,358.3,22816,0)
;;=M06.4^^71^920^51
;;^UTILITY(U,$J,358.3,22816,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22816,1,3,0)
;;=3^Inflammatory Polyarthropathy
;;^UTILITY(U,$J,358.3,22816,1,4,0)
;;=4^M06.4
;;^UTILITY(U,$J,358.3,22816,2)
;;=^5010120
;;^UTILITY(U,$J,358.3,22817,0)
;;=M06.39^^71^920^163
;;^UTILITY(U,$J,358.3,22817,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22817,1,3,0)
;;=3^Rheumatoid Nodule,Mult Sites
;;^UTILITY(U,$J,358.3,22817,1,4,0)
;;=4^M06.39
;;^UTILITY(U,$J,358.3,22817,2)
;;=^5010119
;;^UTILITY(U,$J,358.3,22818,0)
;;=M15.0^^71^920^127
;;^UTILITY(U,$J,358.3,22818,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22818,1,3,0)
;;=3^Primary Generalized Osteoarthritis
;;^UTILITY(U,$J,358.3,22818,1,4,0)
;;=4^M15.0
;;^UTILITY(U,$J,358.3,22818,2)
;;=^5010762
;;^UTILITY(U,$J,358.3,22819,0)
;;=M06.9^^71^920^162
;;^UTILITY(U,$J,358.3,22819,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22819,1,3,0)
;;=3^Rheumatoid Arthritis,Unspec
;;^UTILITY(U,$J,358.3,22819,1,4,0)
;;=4^M06.9
;;^UTILITY(U,$J,358.3,22819,2)
;;=^5010145
;;^UTILITY(U,$J,358.3,22820,0)
;;=M16.0^^71^920^130
;;^UTILITY(U,$J,358.3,22820,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22820,1,3,0)
;;=3^Primary Osteoarthritis of Hip,Bilateral
;;^UTILITY(U,$J,358.3,22820,1,4,0)
;;=4^M16.0
;;^UTILITY(U,$J,358.3,22820,2)
;;=^5010769
;;^UTILITY(U,$J,358.3,22821,0)
;;=M16.11^^71^920^139
;;^UTILITY(U,$J,358.3,22821,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22821,1,3,0)
;;=3^Primary Osteoarthritis of Right Hip
;;^UTILITY(U,$J,358.3,22821,1,4,0)
;;=4^M16.11
;;^UTILITY(U,$J,358.3,22821,2)
;;=^5010771
;;^UTILITY(U,$J,358.3,22822,0)
;;=M16.12^^71^920^133
;;^UTILITY(U,$J,358.3,22822,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22822,1,3,0)
;;=3^Primary Osteoarthritis of Left Hip
;;^UTILITY(U,$J,358.3,22822,1,4,0)
;;=4^M16.12
;;^UTILITY(U,$J,358.3,22822,2)
;;=^5010772
;;^UTILITY(U,$J,358.3,22823,0)
;;=M17.0^^71^920^129
;;^UTILITY(U,$J,358.3,22823,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22823,1,3,0)
;;=3^Primary Osteoarthritis of Bilateral Knees
;;^UTILITY(U,$J,358.3,22823,1,4,0)
;;=4^M17.0
;;^UTILITY(U,$J,358.3,22823,2)
;;=^5010784
;;^UTILITY(U,$J,358.3,22824,0)
;;=M17.11^^71^920^140
;;^UTILITY(U,$J,358.3,22824,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22824,1,3,0)
;;=3^Primary Osteoarthritis of Right Knee
;;^UTILITY(U,$J,358.3,22824,1,4,0)
;;=4^M17.11
;;^UTILITY(U,$J,358.3,22824,2)
;;=^5010786
;;^UTILITY(U,$J,358.3,22825,0)
;;=M17.12^^71^920^134
;;^UTILITY(U,$J,358.3,22825,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22825,1,3,0)
;;=3^Primary Osteoarthritis of Left Knee
;;^UTILITY(U,$J,358.3,22825,1,4,0)
;;=4^M17.12
;;^UTILITY(U,$J,358.3,22825,2)
;;=^5010787
;;^UTILITY(U,$J,358.3,22826,0)
;;=M18.0^^71^920^128
;;^UTILITY(U,$J,358.3,22826,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22826,1,3,0)
;;=3^Primary Osteoarthritis of Bilateral 1st Carpometacarp Jts
;;^UTILITY(U,$J,358.3,22826,1,4,0)
;;=4^M18.0
;;^UTILITY(U,$J,358.3,22826,2)
;;=^5010795
;;^UTILITY(U,$J,358.3,22827,0)
;;=M18.11^^71^920^138
;;^UTILITY(U,$J,358.3,22827,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22827,1,3,0)
;;=3^Primary Osteoarthritis of Right Hand 1st Carpometacarp Jt
;;^UTILITY(U,$J,358.3,22827,1,4,0)
;;=4^M18.11
;;^UTILITY(U,$J,358.3,22827,2)
;;=^5010797
;;^UTILITY(U,$J,358.3,22828,0)
;;=M18.12^^71^920^132
;;^UTILITY(U,$J,358.3,22828,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22828,1,3,0)
;;=3^Primary Osteoarthritis of Left Hand 1st Carpometacarp Jt
;;^UTILITY(U,$J,358.3,22828,1,4,0)
;;=4^M18.12
;;^UTILITY(U,$J,358.3,22828,2)
;;=^5010798
;;^UTILITY(U,$J,358.3,22829,0)
;;=M19.011^^71^920^141
;;^UTILITY(U,$J,358.3,22829,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22829,1,3,0)
;;=3^Primary Osteoarthritis of Right Shoulder
;;^UTILITY(U,$J,358.3,22829,1,4,0)
;;=4^M19.011
;;^UTILITY(U,$J,358.3,22829,2)
;;=^5010808
;;^UTILITY(U,$J,358.3,22830,0)
;;=M19.012^^71^920^135
;;^UTILITY(U,$J,358.3,22830,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,22830,1,3,0)
;;=3^Primary Osteoarthritis of Left Shoulder
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI09B 19805 printed Nov 22, 2024@16:54:23 Page 2
IBDEI09B ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,22762,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,22762,1,3,0)
+4 ;;=3^Claustrophobia
+5 ;;^UTILITY(U,$J,358.3,22762,1,4,0)
+6 ;;=4^F40.240
+7 ;;^UTILITY(U,$J,358.3,22762,2)
+8 ;;=^5003554
+9 ;;^UTILITY(U,$J,358.3,22763,0)
+10 ;;=F43.21^^71^918^13
+11 ;;^UTILITY(U,$J,358.3,22763,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,22763,1,3,0)
+14 ;;=3^Grief Reaction
+15 ;;^UTILITY(U,$J,358.3,22763,1,4,0)
+16 ;;=4^F43.21
+17 ;;^UTILITY(U,$J,358.3,22763,2)
+18 ;;=^331948
+19 ;;^UTILITY(U,$J,358.3,22764,0)
+20 ;;=F43.10^^71^918^22
+21 ;;^UTILITY(U,$J,358.3,22764,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,22764,1,3,0)
+24 ;;=3^PTSD,Unspec
+25 ;;^UTILITY(U,$J,358.3,22764,1,4,0)
+26 ;;=4^F43.10
+27 ;;^UTILITY(U,$J,358.3,22764,2)
+28 ;;=^5003570
+29 ;;^UTILITY(U,$J,358.3,22765,0)
+30 ;;=F43.11^^71^918^20
+31 ;;^UTILITY(U,$J,358.3,22765,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,22765,1,3,0)
+34 ;;=3^PTSD,Acute
+35 ;;^UTILITY(U,$J,358.3,22765,1,4,0)
+36 ;;=4^F43.11
+37 ;;^UTILITY(U,$J,358.3,22765,2)
+38 ;;=^5003571
+39 ;;^UTILITY(U,$J,358.3,22766,0)
+40 ;;=F43.12^^71^918^21
+41 ;;^UTILITY(U,$J,358.3,22766,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,22766,1,3,0)
+44 ;;=3^PTSD,Chronic
+45 ;;^UTILITY(U,$J,358.3,22766,1,4,0)
+46 ;;=4^F43.12
+47 ;;^UTILITY(U,$J,358.3,22766,2)
+48 ;;=^5003572
+49 ;;^UTILITY(U,$J,358.3,22767,0)
+50 ;;=F43.21^^71^918^1
+51 ;;^UTILITY(U,$J,358.3,22767,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,22767,1,3,0)
+54 ;;=3^Adjustment Disorder w/ Depressed Mood
+55 ;;^UTILITY(U,$J,358.3,22767,1,4,0)
+56 ;;=4^F43.21
+57 ;;^UTILITY(U,$J,358.3,22767,2)
+58 ;;=^331948
+59 ;;^UTILITY(U,$J,358.3,22768,0)
+60 ;;=F45.9^^71^918^30
+61 ;;^UTILITY(U,$J,358.3,22768,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,22768,1,3,0)
+64 ;;=3^Somatoform Disorder,Unspec
+65 ;;^UTILITY(U,$J,358.3,22768,1,4,0)
+66 ;;=4^F45.9
+67 ;;^UTILITY(U,$J,358.3,22768,2)
+68 ;;=^5003592
+69 ;;^UTILITY(U,$J,358.3,22769,0)
+70 ;;=F48.2^^71^918^24
+71 ;;^UTILITY(U,$J,358.3,22769,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,22769,1,3,0)
+74 ;;=3^Pseudobulbar Affect
+75 ;;^UTILITY(U,$J,358.3,22769,1,4,0)
+76 ;;=4^F48.2
+77 ;;^UTILITY(U,$J,358.3,22769,2)
+78 ;;=^5003594
+79 ;;^UTILITY(U,$J,358.3,22770,0)
+80 ;;=G47.00^^71^918^15
+81 ;;^UTILITY(U,$J,358.3,22770,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,22770,1,3,0)
+84 ;;=3^Insomnia,Unspec
+85 ;;^UTILITY(U,$J,358.3,22770,1,4,0)
+86 ;;=4^G47.00
+87 ;;^UTILITY(U,$J,358.3,22770,2)
+88 ;;=^332924
+89 ;;^UTILITY(U,$J,358.3,22771,0)
+90 ;;=F40.11^^71^918^28
+91 ;;^UTILITY(U,$J,358.3,22771,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,22771,1,3,0)
+94 ;;=3^Social Phobia,Generalized
+95 ;;^UTILITY(U,$J,358.3,22771,1,4,0)
+96 ;;=4^F40.11
+97 ;;^UTILITY(U,$J,358.3,22771,2)
+98 ;;=^5003545
+99 ;;^UTILITY(U,$J,358.3,22772,0)
+100 ;;=F42.4^^71^918^11
+101 ;;^UTILITY(U,$J,358.3,22772,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,22772,1,3,0)
+104 ;;=3^Excoriation (Skin-Picking) Disorder
+105 ;;^UTILITY(U,$J,358.3,22772,1,4,0)
+106 ;;=4^F42.4
+107 ;;^UTILITY(U,$J,358.3,22772,2)
+108 ;;=^5138446
+109 ;;^UTILITY(U,$J,358.3,22773,0)
+110 ;;=F42.3^^71^918^14
+111 ;;^UTILITY(U,$J,358.3,22773,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,22773,1,3,0)
+114 ;;=3^Hoarding Disorder
+115 ;;^UTILITY(U,$J,358.3,22773,1,4,0)
+116 ;;=4^F42.3
+117 ;;^UTILITY(U,$J,358.3,22773,2)
+118 ;;=^5138445
+119 ;;^UTILITY(U,$J,358.3,22774,0)
+120 ;;=F42.2^^71^918^17
+121 ;;^UTILITY(U,$J,358.3,22774,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,22774,1,3,0)
+124 ;;=3^Mixed Obsessional Thoughts & Acts
+125 ;;^UTILITY(U,$J,358.3,22774,1,4,0)
+126 ;;=4^F42.2
+127 ;;^UTILITY(U,$J,358.3,22774,2)
+128 ;;=^5138444
+129 ;;^UTILITY(U,$J,358.3,22775,0)
+130 ;;=F42.9^^71^918^19
+131 ;;^UTILITY(U,$J,358.3,22775,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,22775,1,3,0)
+134 ;;=3^Obsessive-Compulsive Disorder,Unspec
+135 ;;^UTILITY(U,$J,358.3,22775,1,4,0)
+136 ;;=4^F42.9
+137 ;;^UTILITY(U,$J,358.3,22775,2)
+138 ;;=^5138448
+139 ;;^UTILITY(U,$J,358.3,22776,0)
+140 ;;=F42.8^^71^918^18
+141 ;;^UTILITY(U,$J,358.3,22776,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,22776,1,3,0)
+144 ;;=3^Obsessive-Compulsive Disorder,Other
+145 ;;^UTILITY(U,$J,358.3,22776,1,4,0)
+146 ;;=4^F42.8
+147 ;;^UTILITY(U,$J,358.3,22776,2)
+148 ;;=^5138447
+149 ;;^UTILITY(U,$J,358.3,22777,0)
+150 ;;=F50.89^^71^918^10
+151 ;;^UTILITY(U,$J,358.3,22777,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,22777,1,3,0)
+154 ;;=3^Eating Disorder,Oth Specified
+155 ;;^UTILITY(U,$J,358.3,22777,1,4,0)
+156 ;;=4^F50.89
+157 ;;^UTILITY(U,$J,358.3,22777,2)
+158 ;;=^5138449
+159 ;;^UTILITY(U,$J,358.3,22778,0)
+160 ;;=R41.0^^71^918^9
+161 ;;^UTILITY(U,$J,358.3,22778,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,22778,1,3,0)
+164 ;;=3^Delirium,Disorientation NOS
+165 ;;^UTILITY(U,$J,358.3,22778,1,4,0)
+166 ;;=4^R41.0
+167 ;;^UTILITY(U,$J,358.3,22778,2)
+168 ;;=^5019436
+169 ;;^UTILITY(U,$J,358.3,22779,0)
+170 ;;=R56.00^^71^919^6
+171 ;;^UTILITY(U,$J,358.3,22779,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,22779,1,3,0)
+174 ;;=3^Simple Febrile Convulsions
+175 ;;^UTILITY(U,$J,358.3,22779,1,4,0)
+176 ;;=4^R56.00
+177 ;;^UTILITY(U,$J,358.3,22779,2)
+178 ;;=^5019522
+179 ;;^UTILITY(U,$J,358.3,22780,0)
+180 ;;=R56.9^^71^919^4
+181 ;;^UTILITY(U,$J,358.3,22780,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,22780,1,3,0)
+184 ;;=3^Convulsions,Unspec
+185 ;;^UTILITY(U,$J,358.3,22780,1,4,0)
+186 ;;=4^R56.9
+187 ;;^UTILITY(U,$J,358.3,22780,2)
+188 ;;=^5019524
+189 ;;^UTILITY(U,$J,358.3,22781,0)
+190 ;;=R25.0^^71^919^1
+191 ;;^UTILITY(U,$J,358.3,22781,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,22781,1,3,0)
+194 ;;=3^Abnormal Head Movements
+195 ;;^UTILITY(U,$J,358.3,22781,1,4,0)
+196 ;;=4^R25.0
+197 ;;^UTILITY(U,$J,358.3,22781,2)
+198 ;;=^5019299
+199 ;;^UTILITY(U,$J,358.3,22782,0)
+200 ;;=R25.1^^71^919^7
+201 ;;^UTILITY(U,$J,358.3,22782,1,0)
+202 ;;=^358.31IA^4^2
+203 ;;^UTILITY(U,$J,358.3,22782,1,3,0)
+204 ;;=3^Tremor,Unspec
+205 ;;^UTILITY(U,$J,358.3,22782,1,4,0)
+206 ;;=4^R25.1
+207 ;;^UTILITY(U,$J,358.3,22782,2)
+208 ;;=^5019300
+209 ;;^UTILITY(U,$J,358.3,22783,0)
+210 ;;=R25.9^^71^919^3
+211 ;;^UTILITY(U,$J,358.3,22783,1,0)
+212 ;;=^358.31IA^4^2
+213 ;;^UTILITY(U,$J,358.3,22783,1,3,0)
+214 ;;=3^Abnormal Involuntary Movements,Unspec
+215 ;;^UTILITY(U,$J,358.3,22783,1,4,0)
+216 ;;=4^R25.9
+217 ;;^UTILITY(U,$J,358.3,22783,2)
+218 ;;=^5019303
+219 ;;^UTILITY(U,$J,358.3,22784,0)
+220 ;;=R25.3^^71^919^5
+221 ;;^UTILITY(U,$J,358.3,22784,1,0)
+222 ;;=^358.31IA^4^2
+223 ;;^UTILITY(U,$J,358.3,22784,1,3,0)
+224 ;;=3^Fasciculation/Twitching
+225 ;;^UTILITY(U,$J,358.3,22784,1,4,0)
+226 ;;=4^R25.3
+227 ;;^UTILITY(U,$J,358.3,22784,2)
+228 ;;=^44985
+229 ;;^UTILITY(U,$J,358.3,22785,0)
+230 ;;=R25.8^^71^919^2
+231 ;;^UTILITY(U,$J,358.3,22785,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,22785,1,3,0)
+234 ;;=3^Abnormal Involuntary Movements,Other
+235 ;;^UTILITY(U,$J,358.3,22785,1,4,0)
+236 ;;=4^R25.8
+237 ;;^UTILITY(U,$J,358.3,22785,2)
+238 ;;=^5019302
+239 ;;^UTILITY(U,$J,358.3,22786,0)
+240 ;;=M02.30^^71^920^147
+241 ;;^UTILITY(U,$J,358.3,22786,1,0)
+242 ;;=^358.31IA^4^2
+243 ;;^UTILITY(U,$J,358.3,22786,1,3,0)
+244 ;;=3^Reiter's Disease,Unspec Site
+245 ;;^UTILITY(U,$J,358.3,22786,1,4,0)
+246 ;;=4^M02.30
+247 ;;^UTILITY(U,$J,358.3,22786,2)
+248 ;;=^5009790
+249 ;;^UTILITY(U,$J,358.3,22787,0)
+250 ;;=M10.9^^71^920^41
+251 ;;^UTILITY(U,$J,358.3,22787,1,0)
+252 ;;=^358.31IA^4^2
+253 ;;^UTILITY(U,$J,358.3,22787,1,3,0)
+254 ;;=3^Gout,Unspec
+255 ;;^UTILITY(U,$J,358.3,22787,1,4,0)
+256 ;;=4^M10.9
+257 ;;^UTILITY(U,$J,358.3,22787,2)
+258 ;;=^5010404
+259 ;;^UTILITY(U,$J,358.3,22788,0)
+260 ;;=G90.59^^71^920^35
+261 ;;^UTILITY(U,$J,358.3,22788,1,0)
+262 ;;=^358.31IA^4^2
+263 ;;^UTILITY(U,$J,358.3,22788,1,3,0)
+264 ;;=3^Complex Regional Pain Syndrome I,Unspec
+265 ;;^UTILITY(U,$J,358.3,22788,1,4,0)
+266 ;;=4^G90.59
+267 ;;^UTILITY(U,$J,358.3,22788,2)
+268 ;;=^5004171
+269 ;;^UTILITY(U,$J,358.3,22789,0)
+270 ;;=G56.01^^71^920^13
+271 ;;^UTILITY(U,$J,358.3,22789,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,22789,1,3,0)
+274 ;;=3^Carpal Tunnel Syndrome,Right Upper Limb
+275 ;;^UTILITY(U,$J,358.3,22789,1,4,0)
+276 ;;=4^G56.01
+277 ;;^UTILITY(U,$J,358.3,22789,2)
+278 ;;=^5004018
+279 ;;^UTILITY(U,$J,358.3,22790,0)
+280 ;;=G56.02^^71^920^12
+281 ;;^UTILITY(U,$J,358.3,22790,1,0)
+282 ;;=^358.31IA^4^2
+283 ;;^UTILITY(U,$J,358.3,22790,1,3,0)
+284 ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
+285 ;;^UTILITY(U,$J,358.3,22790,1,4,0)
+286 ;;=4^G56.02
+287 ;;^UTILITY(U,$J,358.3,22790,2)
+288 ;;=^5004019
+289 ;;^UTILITY(U,$J,358.3,22791,0)
+290 ;;=G56.21^^71^920^60
+291 ;;^UTILITY(U,$J,358.3,22791,1,0)
+292 ;;=^358.31IA^4^2
+293 ;;^UTILITY(U,$J,358.3,22791,1,3,0)
+294 ;;=3^Lesion of Ulnar Nerve,Right Upper Limb
+295 ;;^UTILITY(U,$J,358.3,22791,1,4,0)
+296 ;;=4^G56.21
+297 ;;^UTILITY(U,$J,358.3,22791,2)
+298 ;;=^5004024
+299 ;;^UTILITY(U,$J,358.3,22792,0)
+300 ;;=G56.22^^71^920^59
+301 ;;^UTILITY(U,$J,358.3,22792,1,0)
+302 ;;=^358.31IA^4^2
+303 ;;^UTILITY(U,$J,358.3,22792,1,3,0)
+304 ;;=3^Lesion of Ulnar Nerve,Left Upper Limb
+305 ;;^UTILITY(U,$J,358.3,22792,1,4,0)
+306 ;;=4^G56.22
+307 ;;^UTILITY(U,$J,358.3,22792,2)
+308 ;;=^5004025
+309 ;;^UTILITY(U,$J,358.3,22793,0)
+310 ;;=L40.52^^71^920^143
+311 ;;^UTILITY(U,$J,358.3,22793,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,22793,1,3,0)
+314 ;;=3^Psoriatic Arthritis Mutilans
+315 ;;^UTILITY(U,$J,358.3,22793,1,4,0)
+316 ;;=4^L40.52
+317 ;;^UTILITY(U,$J,358.3,22793,2)
+318 ;;=^5009167
+319 ;;^UTILITY(U,$J,358.3,22794,0)
+320 ;;=L40.53^^71^920^144
+321 ;;^UTILITY(U,$J,358.3,22794,1,0)
+322 ;;=^358.31IA^4^2
+323 ;;^UTILITY(U,$J,358.3,22794,1,3,0)
+324 ;;=3^Psoriatic Spondylitis
+325 ;;^UTILITY(U,$J,358.3,22794,1,4,0)
+326 ;;=4^L40.53
+327 ;;^UTILITY(U,$J,358.3,22794,2)
+328 ;;=^5009168
+329 ;;^UTILITY(U,$J,358.3,22795,0)
+330 ;;=M32.9^^71^920^187
+331 ;;^UTILITY(U,$J,358.3,22795,1,0)
+332 ;;=^358.31IA^4^2
+333 ;;^UTILITY(U,$J,358.3,22795,1,3,0)
+334 ;;=3^Systemic Lupus Erythematosus,Unspec
+335 ;;^UTILITY(U,$J,358.3,22795,1,4,0)
+336 ;;=4^M32.9
+337 ;;^UTILITY(U,$J,358.3,22795,2)
+338 ;;=^5011761
+339 ;;^UTILITY(U,$J,358.3,22796,0)
+340 ;;=M32.0^^71^920^183
+341 ;;^UTILITY(U,$J,358.3,22796,1,0)
+342 ;;=^358.31IA^4^2
+343 ;;^UTILITY(U,$J,358.3,22796,1,3,0)
+344 ;;=3^Systemic Lupus Erythematosus,Drug-Induced
+345 ;;^UTILITY(U,$J,358.3,22796,1,4,0)
+346 ;;=4^M32.0
+347 ;;^UTILITY(U,$J,358.3,22796,2)
+348 ;;=^5011752
+349 ;;^UTILITY(U,$J,358.3,22797,0)
+350 ;;=M32.13^^71^920^185
+351 ;;^UTILITY(U,$J,358.3,22797,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,22797,1,3,0)
+354 ;;=3^Systemic Lupus Erythematosus,Lung Involvement
+355 ;;^UTILITY(U,$J,358.3,22797,1,4,0)
+356 ;;=4^M32.13
+357 ;;^UTILITY(U,$J,358.3,22797,2)
+358 ;;=^5011756
+359 ;;^UTILITY(U,$J,358.3,22798,0)
+360 ;;=M32.14^^71^920^184
+361 ;;^UTILITY(U,$J,358.3,22798,1,0)
+362 ;;=^358.31IA^4^2
+363 ;;^UTILITY(U,$J,358.3,22798,1,3,0)
+364 ;;=3^Systemic Lupus Erythematosus,Glomerular Disease
+365 ;;^UTILITY(U,$J,358.3,22798,1,4,0)
+366 ;;=4^M32.14
+367 ;;^UTILITY(U,$J,358.3,22798,2)
+368 ;;=^5011757
+369 ;;^UTILITY(U,$J,358.3,22799,0)
+370 ;;=M32.12^^71^920^186
+371 ;;^UTILITY(U,$J,358.3,22799,1,0)
+372 ;;=^358.31IA^4^2
+373 ;;^UTILITY(U,$J,358.3,22799,1,3,0)
+374 ;;=3^Systemic Lupus Erythematosus,Pericarditis
+375 ;;^UTILITY(U,$J,358.3,22799,1,4,0)
+376 ;;=4^M32.12
+377 ;;^UTILITY(U,$J,358.3,22799,2)
+378 ;;=^5011755
+379 ;;^UTILITY(U,$J,358.3,22800,0)
+380 ;;=M05.59^^71^920^165
+381 ;;^UTILITY(U,$J,358.3,22800,1,0)
+382 ;;=^358.31IA^4^2
+383 ;;^UTILITY(U,$J,358.3,22800,1,3,0)
+384 ;;=3^Rheumatoid Polyneuropathy w/ Rheumatoid Arthritis of Mult Sites
+385 ;;^UTILITY(U,$J,358.3,22800,1,4,0)
+386 ;;=4^M05.59
+387 ;;^UTILITY(U,$J,358.3,22800,2)
+388 ;;=^5009976
+389 ;;^UTILITY(U,$J,358.3,22801,0)
+390 ;;=M05.711^^71^920^159
+391 ;;^UTILITY(U,$J,358.3,22801,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,22801,1,3,0)
+394 ;;=3^Rheumatoid Arthritis of Right Shoulder
+395 ;;^UTILITY(U,$J,358.3,22801,1,4,0)
+396 ;;=4^M05.711
+397 ;;^UTILITY(U,$J,358.3,22801,2)
+398 ;;=^5010001
+399 ;;^UTILITY(U,$J,358.3,22802,0)
+400 ;;=M05.712^^71^920^152
+401 ;;^UTILITY(U,$J,358.3,22802,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,22802,1,3,0)
+404 ;;=3^Rheumatoid Arthritis of Left Shoulder
+405 ;;^UTILITY(U,$J,358.3,22802,1,4,0)
+406 ;;=4^M05.712
+407 ;;^UTILITY(U,$J,358.3,22802,2)
+408 ;;=^5010002
+409 ;;^UTILITY(U,$J,358.3,22803,0)
+410 ;;=M05.731^^71^920^160
+411 ;;^UTILITY(U,$J,358.3,22803,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,22803,1,3,0)
+414 ;;=3^Rheumatoid Arthritis of Right Wrist
+415 ;;^UTILITY(U,$J,358.3,22803,1,4,0)
+416 ;;=4^M05.731
+417 ;;^UTILITY(U,$J,358.3,22803,2)
+418 ;;=^5010007
+419 ;;^UTILITY(U,$J,358.3,22804,0)
+420 ;;=M05.732^^71^920^153
+421 ;;^UTILITY(U,$J,358.3,22804,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,22804,1,3,0)
+424 ;;=3^Rheumatoid Arthritis of Left Wrist
+425 ;;^UTILITY(U,$J,358.3,22804,1,4,0)
+426 ;;=4^M05.732
+427 ;;^UTILITY(U,$J,358.3,22804,2)
+428 ;;=^5010008
+429 ;;^UTILITY(U,$J,358.3,22805,0)
+430 ;;=M05.741^^71^920^156
+431 ;;^UTILITY(U,$J,358.3,22805,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,22805,1,3,0)
+434 ;;=3^Rheumatoid Arthritis of Right Hand
+435 ;;^UTILITY(U,$J,358.3,22805,1,4,0)
+436 ;;=4^M05.741
+437 ;;^UTILITY(U,$J,358.3,22805,2)
+438 ;;=^5010010
+439 ;;^UTILITY(U,$J,358.3,22806,0)
+440 ;;=M05.742^^71^920^149
+441 ;;^UTILITY(U,$J,358.3,22806,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,22806,1,3,0)
+444 ;;=3^Rheumatoid Arthritis of Left Hand
+445 ;;^UTILITY(U,$J,358.3,22806,1,4,0)
+446 ;;=4^M05.742
+447 ;;^UTILITY(U,$J,358.3,22806,2)
+448 ;;=^5010011
+449 ;;^UTILITY(U,$J,358.3,22807,0)
+450 ;;=M05.751^^71^920^157
+451 ;;^UTILITY(U,$J,358.3,22807,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,22807,1,3,0)
+454 ;;=3^Rheumatoid Arthritis of Right Hip
+455 ;;^UTILITY(U,$J,358.3,22807,1,4,0)
+456 ;;=4^M05.751
+457 ;;^UTILITY(U,$J,358.3,22807,2)
+458 ;;=^5010013
+459 ;;^UTILITY(U,$J,358.3,22808,0)
+460 ;;=M05.752^^71^920^150
+461 ;;^UTILITY(U,$J,358.3,22808,1,0)
+462 ;;=^358.31IA^4^2
+463 ;;^UTILITY(U,$J,358.3,22808,1,3,0)
+464 ;;=3^Rheumatoid Arthritis of Left Hip
+465 ;;^UTILITY(U,$J,358.3,22808,1,4,0)
+466 ;;=4^M05.752
+467 ;;^UTILITY(U,$J,358.3,22808,2)
+468 ;;=^5010014
+469 ;;^UTILITY(U,$J,358.3,22809,0)
+470 ;;=M05.761^^71^920^158
+471 ;;^UTILITY(U,$J,358.3,22809,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,22809,1,3,0)
+474 ;;=3^Rheumatoid Arthritis of Right Knee
+475 ;;^UTILITY(U,$J,358.3,22809,1,4,0)
+476 ;;=4^M05.761
+477 ;;^UTILITY(U,$J,358.3,22809,2)
+478 ;;=^5010016
+479 ;;^UTILITY(U,$J,358.3,22810,0)
+480 ;;=M05.762^^71^920^151
+481 ;;^UTILITY(U,$J,358.3,22810,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,22810,1,3,0)
+484 ;;=3^Rheumatoid Arthritis of Left Knee
+485 ;;^UTILITY(U,$J,358.3,22810,1,4,0)
+486 ;;=4^M05.762
+487 ;;^UTILITY(U,$J,358.3,22810,2)
+488 ;;=^5010017
+489 ;;^UTILITY(U,$J,358.3,22811,0)
+490 ;;=M05.771^^71^920^155
+491 ;;^UTILITY(U,$J,358.3,22811,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,22811,1,3,0)
+494 ;;=3^Rheumatoid Arthritis of Right Ankle
+495 ;;^UTILITY(U,$J,358.3,22811,1,4,0)
+496 ;;=4^M05.771
+497 ;;^UTILITY(U,$J,358.3,22811,2)
+498 ;;=^5010019
+499 ;;^UTILITY(U,$J,358.3,22812,0)
+500 ;;=M05.772^^71^920^148
+501 ;;^UTILITY(U,$J,358.3,22812,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,22812,1,3,0)
+504 ;;=3^Rheumatoid Arthritis of Left Ankle
+505 ;;^UTILITY(U,$J,358.3,22812,1,4,0)
+506 ;;=4^M05.772
+507 ;;^UTILITY(U,$J,358.3,22812,2)
+508 ;;=^5010020
+509 ;;^UTILITY(U,$J,358.3,22813,0)
+510 ;;=M05.79^^71^920^154
+511 ;;^UTILITY(U,$J,358.3,22813,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,22813,1,3,0)
+514 ;;=3^Rheumatoid Arthritis of Multiple Sites
+515 ;;^UTILITY(U,$J,358.3,22813,1,4,0)
+516 ;;=4^M05.79
+517 ;;^UTILITY(U,$J,358.3,22813,2)
+518 ;;=^5010022
+519 ;;^UTILITY(U,$J,358.3,22814,0)
+520 ;;=M06.00^^71^920^161
+521 ;;^UTILITY(U,$J,358.3,22814,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,22814,1,3,0)
+524 ;;=3^Rheumatoid Arthritis w/o Rhematoid Factor,Unspec Site
+525 ;;^UTILITY(U,$J,358.3,22814,1,4,0)
+526 ;;=4^M06.00
+527 ;;^UTILITY(U,$J,358.3,22814,2)
+528 ;;=^5010047
+529 ;;^UTILITY(U,$J,358.3,22815,0)
+530 ;;=M06.30^^71^920^164
+531 ;;^UTILITY(U,$J,358.3,22815,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,22815,1,3,0)
+534 ;;=3^Rheumatoid Nodule,Unspec Site
+535 ;;^UTILITY(U,$J,358.3,22815,1,4,0)
+536 ;;=4^M06.30
+537 ;;^UTILITY(U,$J,358.3,22815,2)
+538 ;;=^5010096
+539 ;;^UTILITY(U,$J,358.3,22816,0)
+540 ;;=M06.4^^71^920^51
+541 ;;^UTILITY(U,$J,358.3,22816,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,22816,1,3,0)
+544 ;;=3^Inflammatory Polyarthropathy
+545 ;;^UTILITY(U,$J,358.3,22816,1,4,0)
+546 ;;=4^M06.4
+547 ;;^UTILITY(U,$J,358.3,22816,2)
+548 ;;=^5010120
+549 ;;^UTILITY(U,$J,358.3,22817,0)
+550 ;;=M06.39^^71^920^163
+551 ;;^UTILITY(U,$J,358.3,22817,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,22817,1,3,0)
+554 ;;=3^Rheumatoid Nodule,Mult Sites
+555 ;;^UTILITY(U,$J,358.3,22817,1,4,0)
+556 ;;=4^M06.39
+557 ;;^UTILITY(U,$J,358.3,22817,2)
+558 ;;=^5010119
+559 ;;^UTILITY(U,$J,358.3,22818,0)
+560 ;;=M15.0^^71^920^127
+561 ;;^UTILITY(U,$J,358.3,22818,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,22818,1,3,0)
+564 ;;=3^Primary Generalized Osteoarthritis
+565 ;;^UTILITY(U,$J,358.3,22818,1,4,0)
+566 ;;=4^M15.0
+567 ;;^UTILITY(U,$J,358.3,22818,2)
+568 ;;=^5010762
+569 ;;^UTILITY(U,$J,358.3,22819,0)
+570 ;;=M06.9^^71^920^162
+571 ;;^UTILITY(U,$J,358.3,22819,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,22819,1,3,0)
+574 ;;=3^Rheumatoid Arthritis,Unspec
+575 ;;^UTILITY(U,$J,358.3,22819,1,4,0)
+576 ;;=4^M06.9
+577 ;;^UTILITY(U,$J,358.3,22819,2)
+578 ;;=^5010145
+579 ;;^UTILITY(U,$J,358.3,22820,0)
+580 ;;=M16.0^^71^920^130
+581 ;;^UTILITY(U,$J,358.3,22820,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,22820,1,3,0)
+584 ;;=3^Primary Osteoarthritis of Hip,Bilateral
+585 ;;^UTILITY(U,$J,358.3,22820,1,4,0)
+586 ;;=4^M16.0
+587 ;;^UTILITY(U,$J,358.3,22820,2)
+588 ;;=^5010769
+589 ;;^UTILITY(U,$J,358.3,22821,0)
+590 ;;=M16.11^^71^920^139
+591 ;;^UTILITY(U,$J,358.3,22821,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,22821,1,3,0)
+594 ;;=3^Primary Osteoarthritis of Right Hip
+595 ;;^UTILITY(U,$J,358.3,22821,1,4,0)
+596 ;;=4^M16.11
+597 ;;^UTILITY(U,$J,358.3,22821,2)
+598 ;;=^5010771
+599 ;;^UTILITY(U,$J,358.3,22822,0)
+600 ;;=M16.12^^71^920^133
+601 ;;^UTILITY(U,$J,358.3,22822,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,22822,1,3,0)
+604 ;;=3^Primary Osteoarthritis of Left Hip
+605 ;;^UTILITY(U,$J,358.3,22822,1,4,0)
+606 ;;=4^M16.12
+607 ;;^UTILITY(U,$J,358.3,22822,2)
+608 ;;=^5010772
+609 ;;^UTILITY(U,$J,358.3,22823,0)
+610 ;;=M17.0^^71^920^129
+611 ;;^UTILITY(U,$J,358.3,22823,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,22823,1,3,0)
+614 ;;=3^Primary Osteoarthritis of Bilateral Knees
+615 ;;^UTILITY(U,$J,358.3,22823,1,4,0)
+616 ;;=4^M17.0
+617 ;;^UTILITY(U,$J,358.3,22823,2)
+618 ;;=^5010784
+619 ;;^UTILITY(U,$J,358.3,22824,0)
+620 ;;=M17.11^^71^920^140
+621 ;;^UTILITY(U,$J,358.3,22824,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,22824,1,3,0)
+624 ;;=3^Primary Osteoarthritis of Right Knee
+625 ;;^UTILITY(U,$J,358.3,22824,1,4,0)
+626 ;;=4^M17.11
+627 ;;^UTILITY(U,$J,358.3,22824,2)
+628 ;;=^5010786
+629 ;;^UTILITY(U,$J,358.3,22825,0)
+630 ;;=M17.12^^71^920^134
+631 ;;^UTILITY(U,$J,358.3,22825,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,22825,1,3,0)
+634 ;;=3^Primary Osteoarthritis of Left Knee
+635 ;;^UTILITY(U,$J,358.3,22825,1,4,0)
+636 ;;=4^M17.12
+637 ;;^UTILITY(U,$J,358.3,22825,2)
+638 ;;=^5010787
+639 ;;^UTILITY(U,$J,358.3,22826,0)
+640 ;;=M18.0^^71^920^128
+641 ;;^UTILITY(U,$J,358.3,22826,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,22826,1,3,0)
+644 ;;=3^Primary Osteoarthritis of Bilateral 1st Carpometacarp Jts
+645 ;;^UTILITY(U,$J,358.3,22826,1,4,0)
+646 ;;=4^M18.0
+647 ;;^UTILITY(U,$J,358.3,22826,2)
+648 ;;=^5010795
+649 ;;^UTILITY(U,$J,358.3,22827,0)
+650 ;;=M18.11^^71^920^138
+651 ;;^UTILITY(U,$J,358.3,22827,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,22827,1,3,0)
+654 ;;=3^Primary Osteoarthritis of Right Hand 1st Carpometacarp Jt
+655 ;;^UTILITY(U,$J,358.3,22827,1,4,0)
+656 ;;=4^M18.11
+657 ;;^UTILITY(U,$J,358.3,22827,2)
+658 ;;=^5010797
+659 ;;^UTILITY(U,$J,358.3,22828,0)
+660 ;;=M18.12^^71^920^132
+661 ;;^UTILITY(U,$J,358.3,22828,1,0)
+662 ;;=^358.31IA^4^2
+663 ;;^UTILITY(U,$J,358.3,22828,1,3,0)
+664 ;;=3^Primary Osteoarthritis of Left Hand 1st Carpometacarp Jt
+665 ;;^UTILITY(U,$J,358.3,22828,1,4,0)
+666 ;;=4^M18.12
+667 ;;^UTILITY(U,$J,358.3,22828,2)
+668 ;;=^5010798
+669 ;;^UTILITY(U,$J,358.3,22829,0)
+670 ;;=M19.011^^71^920^141
+671 ;;^UTILITY(U,$J,358.3,22829,1,0)
+672 ;;=^358.31IA^4^2
+673 ;;^UTILITY(U,$J,358.3,22829,1,3,0)
+674 ;;=3^Primary Osteoarthritis of Right Shoulder
+675 ;;^UTILITY(U,$J,358.3,22829,1,4,0)
+676 ;;=4^M19.011
+677 ;;^UTILITY(U,$J,358.3,22829,2)
+678 ;;=^5010808
+679 ;;^UTILITY(U,$J,358.3,22830,0)
+680 ;;=M19.012^^71^920^135
+681 ;;^UTILITY(U,$J,358.3,22830,1,0)
+682 ;;=^358.31IA^4^2
+683 ;;^UTILITY(U,$J,358.3,22830,1,3,0)
+684 ;;=3^Primary Osteoarthritis of Left Shoulder
