IBDEI0C9 ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,30732,1,3,0)
;;=3^Pyothorax w/ Fistula
;;^UTILITY(U,$J,358.3,30732,1,4,0)
;;=4^J86.0
;;^UTILITY(U,$J,358.3,30732,2)
;;=^5008308
;;^UTILITY(U,$J,358.3,30733,0)
;;=J86.9^^86^1229^11
;;^UTILITY(U,$J,358.3,30733,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30733,1,3,0)
;;=3^Pyothorax w/o Fistula
;;^UTILITY(U,$J,358.3,30733,1,4,0)
;;=4^J86.9
;;^UTILITY(U,$J,358.3,30733,2)
;;=^5008309
;;^UTILITY(U,$J,358.3,30734,0)
;;=F41.9^^86^1230^2
;;^UTILITY(U,$J,358.3,30734,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30734,1,3,0)
;;=3^Anxiety Disorder,Unspec
;;^UTILITY(U,$J,358.3,30734,1,4,0)
;;=4^F41.9
;;^UTILITY(U,$J,358.3,30734,2)
;;=^5003567
;;^UTILITY(U,$J,358.3,30735,0)
;;=F10.20^^86^1230^1
;;^UTILITY(U,$J,358.3,30735,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30735,1,3,0)
;;=3^Alcohol Dependence,Uncomplicated
;;^UTILITY(U,$J,358.3,30735,1,4,0)
;;=4^F10.20
;;^UTILITY(U,$J,358.3,30735,2)
;;=^5003081
;;^UTILITY(U,$J,358.3,30736,0)
;;=F32.9^^86^1230^13
;;^UTILITY(U,$J,358.3,30736,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30736,1,3,0)
;;=3^MDD,Single Episode,Unspec
;;^UTILITY(U,$J,358.3,30736,1,4,0)
;;=4^F32.9
;;^UTILITY(U,$J,358.3,30736,2)
;;=^5003528
;;^UTILITY(U,$J,358.3,30737,0)
;;=F17.221^^86^1230^14
;;^UTILITY(U,$J,358.3,30737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30737,1,3,0)
;;=3^Nicotine Dependence,Chewing Tobacco,In Remission
;;^UTILITY(U,$J,358.3,30737,1,4,0)
;;=4^F17.221
;;^UTILITY(U,$J,358.3,30737,2)
;;=^5003371
;;^UTILITY(U,$J,358.3,30738,0)
;;=F17.220^^86^1230^15
;;^UTILITY(U,$J,358.3,30738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30738,1,3,0)
;;=3^Nicotine Dependence,Chewing Tobacco,Uncomplicated
;;^UTILITY(U,$J,358.3,30738,1,4,0)
;;=4^F17.220
;;^UTILITY(U,$J,358.3,30738,2)
;;=^5003370
;;^UTILITY(U,$J,358.3,30739,0)
;;=F17.211^^86^1230^16
;;^UTILITY(U,$J,358.3,30739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30739,1,3,0)
;;=3^Nicotine Dependence,Cigarettes,In Remission
;;^UTILITY(U,$J,358.3,30739,1,4,0)
;;=4^F17.211
;;^UTILITY(U,$J,358.3,30739,2)
;;=^5003366
;;^UTILITY(U,$J,358.3,30740,0)
;;=F17.210^^86^1230^17
;;^UTILITY(U,$J,358.3,30740,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30740,1,3,0)
;;=3^Nicotine Dependence,Cigarettes,Uncomplicated
;;^UTILITY(U,$J,358.3,30740,1,4,0)
;;=4^F17.210
;;^UTILITY(U,$J,358.3,30740,2)
;;=^5003365
;;^UTILITY(U,$J,358.3,30741,0)
;;=F17.291^^86^1230^18
;;^UTILITY(U,$J,358.3,30741,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30741,1,3,0)
;;=3^Nicotine Dependence,Oth Tobacco Product,In Remission
;;^UTILITY(U,$J,358.3,30741,1,4,0)
;;=4^F17.291
;;^UTILITY(U,$J,358.3,30741,2)
;;=^5003376
;;^UTILITY(U,$J,358.3,30742,0)
;;=F17.290^^86^1230^19
;;^UTILITY(U,$J,358.3,30742,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30742,1,3,0)
;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomplicated
;;^UTILITY(U,$J,358.3,30742,1,4,0)
;;=4^F17.290
;;^UTILITY(U,$J,358.3,30742,2)
;;=^5003375
;;^UTILITY(U,$J,358.3,30743,0)
;;=F17.201^^86^1230^20
;;^UTILITY(U,$J,358.3,30743,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30743,1,3,0)
;;=3^Nicotine Dependence,Unspec,In Remission
;;^UTILITY(U,$J,358.3,30743,1,4,0)
;;=4^F17.201
;;^UTILITY(U,$J,358.3,30743,2)
;;=^5003361
;;^UTILITY(U,$J,358.3,30744,0)
;;=F17.200^^86^1230^21
;;^UTILITY(U,$J,358.3,30744,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30744,1,3,0)
;;=3^Nicotine Dependence,Unspec,Uncomplicated
;;^UTILITY(U,$J,358.3,30744,1,4,0)
;;=4^F17.200
;;^UTILITY(U,$J,358.3,30744,2)
;;=^5003360
;;^UTILITY(U,$J,358.3,30745,0)
;;=F19.20^^86^1230^25
;;^UTILITY(U,$J,358.3,30745,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30745,1,3,0)
;;=3^Psychoactive Substance Dependence,Uncomplicated
;;^UTILITY(U,$J,358.3,30745,1,4,0)
;;=4^F19.20
;;^UTILITY(U,$J,358.3,30745,2)
;;=^5003431
;;^UTILITY(U,$J,358.3,30746,0)
;;=F43.11^^86^1230^22
;;^UTILITY(U,$J,358.3,30746,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30746,1,3,0)
;;=3^PTSD,Acute
;;^UTILITY(U,$J,358.3,30746,1,4,0)
;;=4^F43.11
;;^UTILITY(U,$J,358.3,30746,2)
;;=^5003571
;;^UTILITY(U,$J,358.3,30747,0)
;;=F43.12^^86^1230^23
;;^UTILITY(U,$J,358.3,30747,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30747,1,3,0)
;;=3^PTSD,Chronic
;;^UTILITY(U,$J,358.3,30747,1,4,0)
;;=4^F43.12
;;^UTILITY(U,$J,358.3,30747,2)
;;=^5003572
;;^UTILITY(U,$J,358.3,30748,0)
;;=F43.10^^86^1230^24
;;^UTILITY(U,$J,358.3,30748,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30748,1,3,0)
;;=3^PTSD,Unspec
;;^UTILITY(U,$J,358.3,30748,1,4,0)
;;=4^F43.10
;;^UTILITY(U,$J,358.3,30748,2)
;;=^5003570
;;^UTILITY(U,$J,358.3,30749,0)
;;=Z87.891^^86^1230^4
;;^UTILITY(U,$J,358.3,30749,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30749,1,3,0)
;;=3^Hx of Nicotine Dependence
;;^UTILITY(U,$J,358.3,30749,1,4,0)
;;=4^Z87.891
;;^UTILITY(U,$J,358.3,30749,2)
;;=^5063518
;;^UTILITY(U,$J,358.3,30750,0)
;;=F32.A^^86^1230^3
;;^UTILITY(U,$J,358.3,30750,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30750,1,3,0)
;;=3^Depression NOS
;;^UTILITY(U,$J,358.3,30750,1,4,0)
;;=4^F32.A
;;^UTILITY(U,$J,358.3,30750,2)
;;=^5161153
;;^UTILITY(U,$J,358.3,30751,0)
;;=F32.0^^86^1230^9
;;^UTILITY(U,$J,358.3,30751,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30751,1,3,0)
;;=3^MDD,Single Episode,Mild
;;^UTILITY(U,$J,358.3,30751,1,4,0)
;;=4^F32.0
;;^UTILITY(U,$J,358.3,30751,2)
;;=^5003521
;;^UTILITY(U,$J,358.3,30752,0)
;;=F32.1^^86^1230^10
;;^UTILITY(U,$J,358.3,30752,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30752,1,3,0)
;;=3^MDD,Single Episode,Moderate
;;^UTILITY(U,$J,358.3,30752,1,4,0)
;;=4^F32.1
;;^UTILITY(U,$J,358.3,30752,2)
;;=^5003522
;;^UTILITY(U,$J,358.3,30753,0)
;;=F32.2^^86^1230^12
;;^UTILITY(U,$J,358.3,30753,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30753,1,3,0)
;;=3^MDD,Single Episode,Severe w/o Psych Features
;;^UTILITY(U,$J,358.3,30753,1,4,0)
;;=4^F32.2
;;^UTILITY(U,$J,358.3,30753,2)
;;=^5003523
;;^UTILITY(U,$J,358.3,30754,0)
;;=F32.3^^86^1230^11
;;^UTILITY(U,$J,358.3,30754,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30754,1,3,0)
;;=3^MDD,Single Episode,Severe w/ Psych Features
;;^UTILITY(U,$J,358.3,30754,1,4,0)
;;=4^F32.3
;;^UTILITY(U,$J,358.3,30754,2)
;;=^5003524
;;^UTILITY(U,$J,358.3,30755,0)
;;=F33.0^^86^1230^5
;;^UTILITY(U,$J,358.3,30755,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30755,1,3,0)
;;=3^MDD,Recurrent,Mild
;;^UTILITY(U,$J,358.3,30755,1,4,0)
;;=4^F33.0
;;^UTILITY(U,$J,358.3,30755,2)
;;=^5003529
;;^UTILITY(U,$J,358.3,30756,0)
;;=F33.1^^86^1230^6
;;^UTILITY(U,$J,358.3,30756,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30756,1,3,0)
;;=3^MDD,Recurrent,Moderate
;;^UTILITY(U,$J,358.3,30756,1,4,0)
;;=4^F33.1
;;^UTILITY(U,$J,358.3,30756,2)
;;=^5003530
;;^UTILITY(U,$J,358.3,30757,0)
;;=F33.2^^86^1230^8
;;^UTILITY(U,$J,358.3,30757,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30757,1,3,0)
;;=3^MDD,Recurrent,Severe w/o Psych Features
;;^UTILITY(U,$J,358.3,30757,1,4,0)
;;=4^F33.2
;;^UTILITY(U,$J,358.3,30757,2)
;;=^5003531
;;^UTILITY(U,$J,358.3,30758,0)
;;=F33.3^^86^1230^7
;;^UTILITY(U,$J,358.3,30758,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30758,1,3,0)
;;=3^MDD,Recurrent,Severe w/ Psych Features
;;^UTILITY(U,$J,358.3,30758,1,4,0)
;;=4^F33.3
;;^UTILITY(U,$J,358.3,30758,2)
;;=^5003532
;;^UTILITY(U,$J,358.3,30759,0)
;;=L40.2^^86^1231^1
;;^UTILITY(U,$J,358.3,30759,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30759,1,3,0)
;;=3^Acrodermatitis Continua
;;^UTILITY(U,$J,358.3,30759,1,4,0)
;;=4^L40.2
;;^UTILITY(U,$J,358.3,30759,2)
;;=^5009162
;;^UTILITY(U,$J,358.3,30760,0)
;;=L03.91^^86^1231^2
;;^UTILITY(U,$J,358.3,30760,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30760,1,3,0)
;;=3^Acute Lymphangitis,Unspec
;;^UTILITY(U,$J,358.3,30760,1,4,0)
;;=4^L03.91
;;^UTILITY(U,$J,358.3,30760,2)
;;=^5009068
;;^UTILITY(U,$J,358.3,30761,0)
;;=L23.9^^86^1231^3
;;^UTILITY(U,$J,358.3,30761,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30761,1,3,0)
;;=3^Allergic Contact Dermatitis
;;^UTILITY(U,$J,358.3,30761,1,4,0)
;;=4^L23.9
;;^UTILITY(U,$J,358.3,30761,2)
;;=^5009125
;;^UTILITY(U,$J,358.3,30762,0)
;;=L03.90^^86^1231^4
;;^UTILITY(U,$J,358.3,30762,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30762,1,3,0)
;;=3^Cellulitis,Unspec
;;^UTILITY(U,$J,358.3,30762,1,4,0)
;;=4^L03.90
;;^UTILITY(U,$J,358.3,30762,2)
;;=^5009067
;;^UTILITY(U,$J,358.3,30763,0)
;;=L02.91^^86^1231^7
;;^UTILITY(U,$J,358.3,30763,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30763,1,3,0)
;;=3^Cutaneous Abscess,Unspec
;;^UTILITY(U,$J,358.3,30763,1,4,0)
;;=4^L02.91
;;^UTILITY(U,$J,358.3,30763,2)
;;=^5009016
;;^UTILITY(U,$J,358.3,30764,0)
;;=L30.2^^86^1231^8
;;^UTILITY(U,$J,358.3,30764,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30764,1,3,0)
;;=3^Cutaneous Autosensitization
;;^UTILITY(U,$J,358.3,30764,1,4,0)
;;=4^L30.2
;;^UTILITY(U,$J,358.3,30764,2)
;;=^5009155
;;^UTILITY(U,$J,358.3,30765,0)
;;=L30.9^^86^1231^10
;;^UTILITY(U,$J,358.3,30765,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30765,1,3,0)
;;=3^Dermatitis,Unspec
;;^UTILITY(U,$J,358.3,30765,1,4,0)
;;=4^L30.9
;;^UTILITY(U,$J,358.3,30765,2)
;;=^5009159
;;^UTILITY(U,$J,358.3,30766,0)
;;=Z48.01^^86^1231^5
;;^UTILITY(U,$J,358.3,30766,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30766,1,3,0)
;;=3^Change/Removal of Surgical Wound Dressing
;;^UTILITY(U,$J,358.3,30766,1,4,0)
;;=4^Z48.01
;;^UTILITY(U,$J,358.3,30766,2)
;;=^5063034
;;^UTILITY(U,$J,358.3,30767,0)
;;=L98.3^^86^1231^11
;;^UTILITY(U,$J,358.3,30767,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30767,1,3,0)
;;=3^Eosinophilic Cellulitis
;;^UTILITY(U,$J,358.3,30767,1,4,0)
;;=4^L98.3
;;^UTILITY(U,$J,358.3,30767,2)
;;=^5009576
;;^UTILITY(U,$J,358.3,30768,0)
;;=L40.1^^86^1231^18
;;^UTILITY(U,$J,358.3,30768,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30768,1,3,0)
;;=3^Pustular Psoriasis,Generalized
;;^UTILITY(U,$J,358.3,30768,1,4,0)
;;=4^L40.1
;;^UTILITY(U,$J,358.3,30768,2)
;;=^5009161
;;^UTILITY(U,$J,358.3,30769,0)
;;=L40.4^^86^1231^12
;;^UTILITY(U,$J,358.3,30769,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30769,1,3,0)
;;=3^Guttate Psoriasis
;;^UTILITY(U,$J,358.3,30769,1,4,0)
;;=4^L40.4
;;^UTILITY(U,$J,358.3,30769,2)
;;=^5009164
;;^UTILITY(U,$J,358.3,30770,0)
;;=L24.9^^86^1231^13
;;^UTILITY(U,$J,358.3,30770,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30770,1,3,0)
;;=3^Irritant Contact Dermatitis
;;^UTILITY(U,$J,358.3,30770,1,4,0)
;;=4^L24.9
;;^UTILITY(U,$J,358.3,30770,2)
;;=^5009136
;;^UTILITY(U,$J,358.3,30771,0)
;;=L30.0^^86^1231^14
;;^UTILITY(U,$J,358.3,30771,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30771,1,3,0)
;;=3^Nummular Dermatitis
;;^UTILITY(U,$J,358.3,30771,1,4,0)
;;=4^L30.0
;;^UTILITY(U,$J,358.3,30771,2)
;;=^186823
;;^UTILITY(U,$J,358.3,30772,0)
;;=L40.8^^86^1231^15
;;^UTILITY(U,$J,358.3,30772,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30772,1,3,0)
;;=3^Psoriasis NEC
;;^UTILITY(U,$J,358.3,30772,1,4,0)
;;=4^L40.8
;;^UTILITY(U,$J,358.3,30772,2)
;;=^271917
;;^UTILITY(U,$J,358.3,30773,0)
;;=L30.8^^86^1231^9
;;^UTILITY(U,$J,358.3,30773,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30773,1,3,0)
;;=3^Dermatitis NEC
;;^UTILITY(U,$J,358.3,30773,1,4,0)
;;=4^L30.8
;;^UTILITY(U,$J,358.3,30773,2)
;;=^5009158
;;^UTILITY(U,$J,358.3,30774,0)
;;=L40.0^^86^1231^16
;;^UTILITY(U,$J,358.3,30774,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30774,1,3,0)
;;=3^Psoriasis Vulgaris
;;^UTILITY(U,$J,358.3,30774,1,4,0)
;;=4^L40.0
;;^UTILITY(U,$J,358.3,30774,2)
;;=^5009160
;;^UTILITY(U,$J,358.3,30775,0)
;;=L40.9^^86^1231^17
;;^UTILITY(U,$J,358.3,30775,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30775,1,3,0)
;;=3^Psoriasis,Unspec
;;^UTILITY(U,$J,358.3,30775,1,4,0)
;;=4^L40.9
;;^UTILITY(U,$J,358.3,30775,2)
;;=^5009171
;;^UTILITY(U,$J,358.3,30776,0)
;;=L40.3^^86^1231^19
;;^UTILITY(U,$J,358.3,30776,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30776,1,3,0)
;;=3^Pustulosis Palmaris et Plantaris
;;^UTILITY(U,$J,358.3,30776,1,4,0)
;;=4^L40.3
;;^UTILITY(U,$J,358.3,30776,2)
;;=^5009163
;;^UTILITY(U,$J,358.3,30777,0)
;;=R21.^^86^1231^20
;;^UTILITY(U,$J,358.3,30777,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30777,1,3,0)
;;=3^Rash/Oth Nonspecific Skin Eruption
;;^UTILITY(U,$J,358.3,30777,1,4,0)
;;=4^R21.
;;^UTILITY(U,$J,358.3,30777,2)
;;=^5019283
;;^UTILITY(U,$J,358.3,30778,0)
;;=L25.9^^86^1231^6
;;^UTILITY(U,$J,358.3,30778,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30778,1,3,0)
;;=3^Contact Dermatitis,Unspec
;;^UTILITY(U,$J,358.3,30778,1,4,0)
;;=4^L25.9
;;^UTILITY(U,$J,358.3,30778,2)
;;=^5133647
;;^UTILITY(U,$J,358.3,30779,0)
;;=M34.89^^86^1232^31
;;^UTILITY(U,$J,358.3,30779,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30779,1,3,0)
;;=3^Systemic Sclerosis NEC
;;^UTILITY(U,$J,358.3,30779,1,4,0)
;;=4^M34.89
;;^UTILITY(U,$J,358.3,30779,2)
;;=^5011784
;;^UTILITY(U,$J,358.3,30780,0)
;;=M34.0^^86^1232^25
;;^UTILITY(U,$J,358.3,30780,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30780,1,3,0)
;;=3^Progressive Systemic Sclerosis
;;^UTILITY(U,$J,358.3,30780,1,4,0)
;;=4^M34.0
;;^UTILITY(U,$J,358.3,30780,2)
;;=^5011778
;;^UTILITY(U,$J,358.3,30781,0)
;;=F03.90^^86^1232^15
;;^UTILITY(U,$J,358.3,30781,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30781,1,3,0)
;;=3^Dementia w/o Behavioral Disturbance,Unspec
;;^UTILITY(U,$J,358.3,30781,1,4,0)
;;=4^F03.90
;;^UTILITY(U,$J,358.3,30781,2)
;;=^5003050
;;^UTILITY(U,$J,358.3,30782,0)
;;=F06.8^^86^1232^22
;;^UTILITY(U,$J,358.3,30782,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30782,1,3,0)
;;=3^Mental Disorders d/t Physiological Condition
;;^UTILITY(U,$J,358.3,30782,1,4,0)
;;=4^F06.8
;;^UTILITY(U,$J,358.3,30782,2)
;;=^5003062
;;^UTILITY(U,$J,358.3,30783,0)
;;=F06.1^^86^1232^1
;;^UTILITY(U,$J,358.3,30783,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30783,1,3,0)
;;=3^Catatonic Disorder d/t Physiological Condition
;;^UTILITY(U,$J,358.3,30783,1,4,0)
;;=4^F06.1
;;^UTILITY(U,$J,358.3,30783,2)
;;=^5003054
;;^UTILITY(U,$J,358.3,30784,0)
;;=G35.^^86^1232^23
;;^UTILITY(U,$J,358.3,30784,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30784,1,3,0)
;;=3^Multiple Sclerosis
;;^UTILITY(U,$J,358.3,30784,1,4,0)
;;=4^G35.
;;^UTILITY(U,$J,358.3,30784,2)
;;=^79761
;;^UTILITY(U,$J,358.3,30785,0)
;;=G60.9^^86^1232^20
;;^UTILITY(U,$J,358.3,30785,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30785,1,3,0)
;;=3^Hereditary/Idiopathic Neuropathy,Unspec
;;^UTILITY(U,$J,358.3,30785,1,4,0)
;;=4^G60.9
;;^UTILITY(U,$J,358.3,30785,2)
;;=^5004071
;;^UTILITY(U,$J,358.3,30786,0)
;;=G62.9^^86^1232^24
;;^UTILITY(U,$J,358.3,30786,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30786,1,3,0)
;;=3^Polyneuropathy,Unspec
;;^UTILITY(U,$J,358.3,30786,1,4,0)
;;=4^G62.9
;;^UTILITY(U,$J,358.3,30786,2)
;;=^5004079
;;^UTILITY(U,$J,358.3,30787,0)
;;=I63.9^^86^1232^14
;;^UTILITY(U,$J,358.3,30787,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30787,1,3,0)
;;=3^Cerebral Infarction,Unspec
;;^UTILITY(U,$J,358.3,30787,1,4,0)
;;=4^I63.9
;;^UTILITY(U,$J,358.3,30787,2)
;;=^5007355
;;^UTILITY(U,$J,358.3,30788,0)
;;=I63.50^^86^1232^7
;;^UTILITY(U,$J,358.3,30788,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30788,1,3,0)
;;=3^Cerebral Infarction d/t Occls/Stenosis,Unspec Cerebral Artery
;;^UTILITY(U,$J,358.3,30788,1,4,0)
;;=4^I63.50
;;^UTILITY(U,$J,358.3,30788,2)
;;=^5007343
;;^UTILITY(U,$J,358.3,30789,0)
;;=I63.549^^86^1232^8
;;^UTILITY(U,$J,358.3,30789,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30789,1,3,0)
;;=3^Cerebral Infarction d/t Occls/Stenosis, Unspec Cerebellar Artery
;;^UTILITY(U,$J,358.3,30789,1,4,0)
;;=4^I63.549
;;^UTILITY(U,$J,358.3,30789,2)
;;=^5133571
;;^UTILITY(U,$J,358.3,30790,0)
;;=I63.512^^86^1232^4
;;^UTILITY(U,$J,358.3,30790,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30790,1,3,0)
;;=3^Cerebral Infarction d/t Left Middle Cerebral Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30790,1,4,0)
;;=4^I63.512
;;^UTILITY(U,$J,358.3,30790,2)
;;=^5007345
;;^UTILITY(U,$J,358.3,30791,0)
;;=I63.522^^86^1232^2
;;^UTILITY(U,$J,358.3,30791,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30791,1,3,0)
;;=3^Cerebral Infarction d/t Left Anterior Cerebral Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30791,1,4,0)
;;=4^I63.522
;;^UTILITY(U,$J,358.3,30791,2)
;;=^5007347
;;^UTILITY(U,$J,358.3,30792,0)
;;=I63.532^^86^1232^5
;;^UTILITY(U,$J,358.3,30792,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30792,1,3,0)
;;=3^Cerebral Infarction d/t Left Posterior Cerebral Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30792,1,4,0)
;;=4^I63.532
;;^UTILITY(U,$J,358.3,30792,2)
;;=^5007349
;;^UTILITY(U,$J,358.3,30793,0)
;;=I63.542^^86^1232^3
;;^UTILITY(U,$J,358.3,30793,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30793,1,3,0)
;;=3^Cerebral Infarction d/t Left Cerebellar Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30793,1,4,0)
;;=4^I63.542
;;^UTILITY(U,$J,358.3,30793,2)
;;=^5007351
;;^UTILITY(U,$J,358.3,30794,0)
;;=I63.511^^86^1232^11
;;^UTILITY(U,$J,358.3,30794,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30794,1,3,0)
;;=3^Cerebral Infarction d/t Right Middle Cerebral Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30794,1,4,0)
;;=4^I63.511
;;^UTILITY(U,$J,358.3,30794,2)
;;=^5007344
;;^UTILITY(U,$J,358.3,30795,0)
;;=I63.521^^86^1232^9
;;^UTILITY(U,$J,358.3,30795,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30795,1,3,0)
;;=3^Cerebral Infarction d/t Right Anterior Cerebral Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30795,1,4,0)
;;=4^I63.521
;;^UTILITY(U,$J,358.3,30795,2)
;;=^5007346
;;^UTILITY(U,$J,358.3,30796,0)
;;=I63.531^^86^1232^12
;;^UTILITY(U,$J,358.3,30796,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30796,1,3,0)
;;=3^Cerebral Infarction d/t Right Posterior Cerebral Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30796,1,4,0)
;;=4^I63.531
;;^UTILITY(U,$J,358.3,30796,2)
;;=^5007348
;;^UTILITY(U,$J,358.3,30797,0)
;;=I63.541^^86^1232^10
;;^UTILITY(U,$J,358.3,30797,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30797,1,3,0)
;;=3^Cerebral Infarction d/t Right Cerebellar Artery Occls/Stenosis
;;^UTILITY(U,$J,358.3,30797,1,4,0)
;;=4^I63.541
;;^UTILITY(U,$J,358.3,30797,2)
;;=^5007350
;;^UTILITY(U,$J,358.3,30798,0)
;;=G45.9^^86^1232^32
;;^UTILITY(U,$J,358.3,30798,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30798,1,3,0)
;;=3^Transient Cerebral Ischemic Attack,Unspec
;;^UTILITY(U,$J,358.3,30798,1,4,0)
;;=4^G45.9
;;^UTILITY(U,$J,358.3,30798,2)
;;=^5003959
;;^UTILITY(U,$J,358.3,30799,0)
;;=Z86.73^^86^1232^21
;;^UTILITY(U,$J,358.3,30799,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,30799,1,3,0)
;;=3^Hx of TIA and Cerebral Infarction w/o Residual Deficits
;;^UTILITY(U,$J,358.3,30799,1,4,0)
;;=4^Z86.73
;;^UTILITY(U,$J,358.3,30799,2)
;;=^5063477
;;^UTILITY(U,$J,358.3,30800,0)
;;=G82.50^^86^1232^30
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0C9 19775 printed Sep 23, 2025@19:21:49 Page 2
IBDEI0C9 ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,30732,1,3,0)
+2 ;;=3^Pyothorax w/ Fistula
+3 ;;^UTILITY(U,$J,358.3,30732,1,4,0)
+4 ;;=4^J86.0
+5 ;;^UTILITY(U,$J,358.3,30732,2)
+6 ;;=^5008308
+7 ;;^UTILITY(U,$J,358.3,30733,0)
+8 ;;=J86.9^^86^1229^11
+9 ;;^UTILITY(U,$J,358.3,30733,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,30733,1,3,0)
+12 ;;=3^Pyothorax w/o Fistula
+13 ;;^UTILITY(U,$J,358.3,30733,1,4,0)
+14 ;;=4^J86.9
+15 ;;^UTILITY(U,$J,358.3,30733,2)
+16 ;;=^5008309
+17 ;;^UTILITY(U,$J,358.3,30734,0)
+18 ;;=F41.9^^86^1230^2
+19 ;;^UTILITY(U,$J,358.3,30734,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,30734,1,3,0)
+22 ;;=3^Anxiety Disorder,Unspec
+23 ;;^UTILITY(U,$J,358.3,30734,1,4,0)
+24 ;;=4^F41.9
+25 ;;^UTILITY(U,$J,358.3,30734,2)
+26 ;;=^5003567
+27 ;;^UTILITY(U,$J,358.3,30735,0)
+28 ;;=F10.20^^86^1230^1
+29 ;;^UTILITY(U,$J,358.3,30735,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,30735,1,3,0)
+32 ;;=3^Alcohol Dependence,Uncomplicated
+33 ;;^UTILITY(U,$J,358.3,30735,1,4,0)
+34 ;;=4^F10.20
+35 ;;^UTILITY(U,$J,358.3,30735,2)
+36 ;;=^5003081
+37 ;;^UTILITY(U,$J,358.3,30736,0)
+38 ;;=F32.9^^86^1230^13
+39 ;;^UTILITY(U,$J,358.3,30736,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,30736,1,3,0)
+42 ;;=3^MDD,Single Episode,Unspec
+43 ;;^UTILITY(U,$J,358.3,30736,1,4,0)
+44 ;;=4^F32.9
+45 ;;^UTILITY(U,$J,358.3,30736,2)
+46 ;;=^5003528
+47 ;;^UTILITY(U,$J,358.3,30737,0)
+48 ;;=F17.221^^86^1230^14
+49 ;;^UTILITY(U,$J,358.3,30737,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,30737,1,3,0)
+52 ;;=3^Nicotine Dependence,Chewing Tobacco,In Remission
+53 ;;^UTILITY(U,$J,358.3,30737,1,4,0)
+54 ;;=4^F17.221
+55 ;;^UTILITY(U,$J,358.3,30737,2)
+56 ;;=^5003371
+57 ;;^UTILITY(U,$J,358.3,30738,0)
+58 ;;=F17.220^^86^1230^15
+59 ;;^UTILITY(U,$J,358.3,30738,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,30738,1,3,0)
+62 ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomplicated
+63 ;;^UTILITY(U,$J,358.3,30738,1,4,0)
+64 ;;=4^F17.220
+65 ;;^UTILITY(U,$J,358.3,30738,2)
+66 ;;=^5003370
+67 ;;^UTILITY(U,$J,358.3,30739,0)
+68 ;;=F17.211^^86^1230^16
+69 ;;^UTILITY(U,$J,358.3,30739,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,30739,1,3,0)
+72 ;;=3^Nicotine Dependence,Cigarettes,In Remission
+73 ;;^UTILITY(U,$J,358.3,30739,1,4,0)
+74 ;;=4^F17.211
+75 ;;^UTILITY(U,$J,358.3,30739,2)
+76 ;;=^5003366
+77 ;;^UTILITY(U,$J,358.3,30740,0)
+78 ;;=F17.210^^86^1230^17
+79 ;;^UTILITY(U,$J,358.3,30740,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,30740,1,3,0)
+82 ;;=3^Nicotine Dependence,Cigarettes,Uncomplicated
+83 ;;^UTILITY(U,$J,358.3,30740,1,4,0)
+84 ;;=4^F17.210
+85 ;;^UTILITY(U,$J,358.3,30740,2)
+86 ;;=^5003365
+87 ;;^UTILITY(U,$J,358.3,30741,0)
+88 ;;=F17.291^^86^1230^18
+89 ;;^UTILITY(U,$J,358.3,30741,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,30741,1,3,0)
+92 ;;=3^Nicotine Dependence,Oth Tobacco Product,In Remission
+93 ;;^UTILITY(U,$J,358.3,30741,1,4,0)
+94 ;;=4^F17.291
+95 ;;^UTILITY(U,$J,358.3,30741,2)
+96 ;;=^5003376
+97 ;;^UTILITY(U,$J,358.3,30742,0)
+98 ;;=F17.290^^86^1230^19
+99 ;;^UTILITY(U,$J,358.3,30742,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,30742,1,3,0)
+102 ;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomplicated
+103 ;;^UTILITY(U,$J,358.3,30742,1,4,0)
+104 ;;=4^F17.290
+105 ;;^UTILITY(U,$J,358.3,30742,2)
+106 ;;=^5003375
+107 ;;^UTILITY(U,$J,358.3,30743,0)
+108 ;;=F17.201^^86^1230^20
+109 ;;^UTILITY(U,$J,358.3,30743,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,30743,1,3,0)
+112 ;;=3^Nicotine Dependence,Unspec,In Remission
+113 ;;^UTILITY(U,$J,358.3,30743,1,4,0)
+114 ;;=4^F17.201
+115 ;;^UTILITY(U,$J,358.3,30743,2)
+116 ;;=^5003361
+117 ;;^UTILITY(U,$J,358.3,30744,0)
+118 ;;=F17.200^^86^1230^21
+119 ;;^UTILITY(U,$J,358.3,30744,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,30744,1,3,0)
+122 ;;=3^Nicotine Dependence,Unspec,Uncomplicated
+123 ;;^UTILITY(U,$J,358.3,30744,1,4,0)
+124 ;;=4^F17.200
+125 ;;^UTILITY(U,$J,358.3,30744,2)
+126 ;;=^5003360
+127 ;;^UTILITY(U,$J,358.3,30745,0)
+128 ;;=F19.20^^86^1230^25
+129 ;;^UTILITY(U,$J,358.3,30745,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,30745,1,3,0)
+132 ;;=3^Psychoactive Substance Dependence,Uncomplicated
+133 ;;^UTILITY(U,$J,358.3,30745,1,4,0)
+134 ;;=4^F19.20
+135 ;;^UTILITY(U,$J,358.3,30745,2)
+136 ;;=^5003431
+137 ;;^UTILITY(U,$J,358.3,30746,0)
+138 ;;=F43.11^^86^1230^22
+139 ;;^UTILITY(U,$J,358.3,30746,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,30746,1,3,0)
+142 ;;=3^PTSD,Acute
+143 ;;^UTILITY(U,$J,358.3,30746,1,4,0)
+144 ;;=4^F43.11
+145 ;;^UTILITY(U,$J,358.3,30746,2)
+146 ;;=^5003571
+147 ;;^UTILITY(U,$J,358.3,30747,0)
+148 ;;=F43.12^^86^1230^23
+149 ;;^UTILITY(U,$J,358.3,30747,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,30747,1,3,0)
+152 ;;=3^PTSD,Chronic
+153 ;;^UTILITY(U,$J,358.3,30747,1,4,0)
+154 ;;=4^F43.12
+155 ;;^UTILITY(U,$J,358.3,30747,2)
+156 ;;=^5003572
+157 ;;^UTILITY(U,$J,358.3,30748,0)
+158 ;;=F43.10^^86^1230^24
+159 ;;^UTILITY(U,$J,358.3,30748,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,30748,1,3,0)
+162 ;;=3^PTSD,Unspec
+163 ;;^UTILITY(U,$J,358.3,30748,1,4,0)
+164 ;;=4^F43.10
+165 ;;^UTILITY(U,$J,358.3,30748,2)
+166 ;;=^5003570
+167 ;;^UTILITY(U,$J,358.3,30749,0)
+168 ;;=Z87.891^^86^1230^4
+169 ;;^UTILITY(U,$J,358.3,30749,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,30749,1,3,0)
+172 ;;=3^Hx of Nicotine Dependence
+173 ;;^UTILITY(U,$J,358.3,30749,1,4,0)
+174 ;;=4^Z87.891
+175 ;;^UTILITY(U,$J,358.3,30749,2)
+176 ;;=^5063518
+177 ;;^UTILITY(U,$J,358.3,30750,0)
+178 ;;=F32.A^^86^1230^3
+179 ;;^UTILITY(U,$J,358.3,30750,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,30750,1,3,0)
+182 ;;=3^Depression NOS
+183 ;;^UTILITY(U,$J,358.3,30750,1,4,0)
+184 ;;=4^F32.A
+185 ;;^UTILITY(U,$J,358.3,30750,2)
+186 ;;=^5161153
+187 ;;^UTILITY(U,$J,358.3,30751,0)
+188 ;;=F32.0^^86^1230^9
+189 ;;^UTILITY(U,$J,358.3,30751,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,30751,1,3,0)
+192 ;;=3^MDD,Single Episode,Mild
+193 ;;^UTILITY(U,$J,358.3,30751,1,4,0)
+194 ;;=4^F32.0
+195 ;;^UTILITY(U,$J,358.3,30751,2)
+196 ;;=^5003521
+197 ;;^UTILITY(U,$J,358.3,30752,0)
+198 ;;=F32.1^^86^1230^10
+199 ;;^UTILITY(U,$J,358.3,30752,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,30752,1,3,0)
+202 ;;=3^MDD,Single Episode,Moderate
+203 ;;^UTILITY(U,$J,358.3,30752,1,4,0)
+204 ;;=4^F32.1
+205 ;;^UTILITY(U,$J,358.3,30752,2)
+206 ;;=^5003522
+207 ;;^UTILITY(U,$J,358.3,30753,0)
+208 ;;=F32.2^^86^1230^12
+209 ;;^UTILITY(U,$J,358.3,30753,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,30753,1,3,0)
+212 ;;=3^MDD,Single Episode,Severe w/o Psych Features
+213 ;;^UTILITY(U,$J,358.3,30753,1,4,0)
+214 ;;=4^F32.2
+215 ;;^UTILITY(U,$J,358.3,30753,2)
+216 ;;=^5003523
+217 ;;^UTILITY(U,$J,358.3,30754,0)
+218 ;;=F32.3^^86^1230^11
+219 ;;^UTILITY(U,$J,358.3,30754,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,30754,1,3,0)
+222 ;;=3^MDD,Single Episode,Severe w/ Psych Features
+223 ;;^UTILITY(U,$J,358.3,30754,1,4,0)
+224 ;;=4^F32.3
+225 ;;^UTILITY(U,$J,358.3,30754,2)
+226 ;;=^5003524
+227 ;;^UTILITY(U,$J,358.3,30755,0)
+228 ;;=F33.0^^86^1230^5
+229 ;;^UTILITY(U,$J,358.3,30755,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,30755,1,3,0)
+232 ;;=3^MDD,Recurrent,Mild
+233 ;;^UTILITY(U,$J,358.3,30755,1,4,0)
+234 ;;=4^F33.0
+235 ;;^UTILITY(U,$J,358.3,30755,2)
+236 ;;=^5003529
+237 ;;^UTILITY(U,$J,358.3,30756,0)
+238 ;;=F33.1^^86^1230^6
+239 ;;^UTILITY(U,$J,358.3,30756,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,30756,1,3,0)
+242 ;;=3^MDD,Recurrent,Moderate
+243 ;;^UTILITY(U,$J,358.3,30756,1,4,0)
+244 ;;=4^F33.1
+245 ;;^UTILITY(U,$J,358.3,30756,2)
+246 ;;=^5003530
+247 ;;^UTILITY(U,$J,358.3,30757,0)
+248 ;;=F33.2^^86^1230^8
+249 ;;^UTILITY(U,$J,358.3,30757,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,30757,1,3,0)
+252 ;;=3^MDD,Recurrent,Severe w/o Psych Features
+253 ;;^UTILITY(U,$J,358.3,30757,1,4,0)
+254 ;;=4^F33.2
+255 ;;^UTILITY(U,$J,358.3,30757,2)
+256 ;;=^5003531
+257 ;;^UTILITY(U,$J,358.3,30758,0)
+258 ;;=F33.3^^86^1230^7
+259 ;;^UTILITY(U,$J,358.3,30758,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,30758,1,3,0)
+262 ;;=3^MDD,Recurrent,Severe w/ Psych Features
+263 ;;^UTILITY(U,$J,358.3,30758,1,4,0)
+264 ;;=4^F33.3
+265 ;;^UTILITY(U,$J,358.3,30758,2)
+266 ;;=^5003532
+267 ;;^UTILITY(U,$J,358.3,30759,0)
+268 ;;=L40.2^^86^1231^1
+269 ;;^UTILITY(U,$J,358.3,30759,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,30759,1,3,0)
+272 ;;=3^Acrodermatitis Continua
+273 ;;^UTILITY(U,$J,358.3,30759,1,4,0)
+274 ;;=4^L40.2
+275 ;;^UTILITY(U,$J,358.3,30759,2)
+276 ;;=^5009162
+277 ;;^UTILITY(U,$J,358.3,30760,0)
+278 ;;=L03.91^^86^1231^2
+279 ;;^UTILITY(U,$J,358.3,30760,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,30760,1,3,0)
+282 ;;=3^Acute Lymphangitis,Unspec
+283 ;;^UTILITY(U,$J,358.3,30760,1,4,0)
+284 ;;=4^L03.91
+285 ;;^UTILITY(U,$J,358.3,30760,2)
+286 ;;=^5009068
+287 ;;^UTILITY(U,$J,358.3,30761,0)
+288 ;;=L23.9^^86^1231^3
+289 ;;^UTILITY(U,$J,358.3,30761,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,30761,1,3,0)
+292 ;;=3^Allergic Contact Dermatitis
+293 ;;^UTILITY(U,$J,358.3,30761,1,4,0)
+294 ;;=4^L23.9
+295 ;;^UTILITY(U,$J,358.3,30761,2)
+296 ;;=^5009125
+297 ;;^UTILITY(U,$J,358.3,30762,0)
+298 ;;=L03.90^^86^1231^4
+299 ;;^UTILITY(U,$J,358.3,30762,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,30762,1,3,0)
+302 ;;=3^Cellulitis,Unspec
+303 ;;^UTILITY(U,$J,358.3,30762,1,4,0)
+304 ;;=4^L03.90
+305 ;;^UTILITY(U,$J,358.3,30762,2)
+306 ;;=^5009067
+307 ;;^UTILITY(U,$J,358.3,30763,0)
+308 ;;=L02.91^^86^1231^7
+309 ;;^UTILITY(U,$J,358.3,30763,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,30763,1,3,0)
+312 ;;=3^Cutaneous Abscess,Unspec
+313 ;;^UTILITY(U,$J,358.3,30763,1,4,0)
+314 ;;=4^L02.91
+315 ;;^UTILITY(U,$J,358.3,30763,2)
+316 ;;=^5009016
+317 ;;^UTILITY(U,$J,358.3,30764,0)
+318 ;;=L30.2^^86^1231^8
+319 ;;^UTILITY(U,$J,358.3,30764,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,30764,1,3,0)
+322 ;;=3^Cutaneous Autosensitization
+323 ;;^UTILITY(U,$J,358.3,30764,1,4,0)
+324 ;;=4^L30.2
+325 ;;^UTILITY(U,$J,358.3,30764,2)
+326 ;;=^5009155
+327 ;;^UTILITY(U,$J,358.3,30765,0)
+328 ;;=L30.9^^86^1231^10
+329 ;;^UTILITY(U,$J,358.3,30765,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,30765,1,3,0)
+332 ;;=3^Dermatitis,Unspec
+333 ;;^UTILITY(U,$J,358.3,30765,1,4,0)
+334 ;;=4^L30.9
+335 ;;^UTILITY(U,$J,358.3,30765,2)
+336 ;;=^5009159
+337 ;;^UTILITY(U,$J,358.3,30766,0)
+338 ;;=Z48.01^^86^1231^5
+339 ;;^UTILITY(U,$J,358.3,30766,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,30766,1,3,0)
+342 ;;=3^Change/Removal of Surgical Wound Dressing
+343 ;;^UTILITY(U,$J,358.3,30766,1,4,0)
+344 ;;=4^Z48.01
+345 ;;^UTILITY(U,$J,358.3,30766,2)
+346 ;;=^5063034
+347 ;;^UTILITY(U,$J,358.3,30767,0)
+348 ;;=L98.3^^86^1231^11
+349 ;;^UTILITY(U,$J,358.3,30767,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,30767,1,3,0)
+352 ;;=3^Eosinophilic Cellulitis
+353 ;;^UTILITY(U,$J,358.3,30767,1,4,0)
+354 ;;=4^L98.3
+355 ;;^UTILITY(U,$J,358.3,30767,2)
+356 ;;=^5009576
+357 ;;^UTILITY(U,$J,358.3,30768,0)
+358 ;;=L40.1^^86^1231^18
+359 ;;^UTILITY(U,$J,358.3,30768,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,30768,1,3,0)
+362 ;;=3^Pustular Psoriasis,Generalized
+363 ;;^UTILITY(U,$J,358.3,30768,1,4,0)
+364 ;;=4^L40.1
+365 ;;^UTILITY(U,$J,358.3,30768,2)
+366 ;;=^5009161
+367 ;;^UTILITY(U,$J,358.3,30769,0)
+368 ;;=L40.4^^86^1231^12
+369 ;;^UTILITY(U,$J,358.3,30769,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,30769,1,3,0)
+372 ;;=3^Guttate Psoriasis
+373 ;;^UTILITY(U,$J,358.3,30769,1,4,0)
+374 ;;=4^L40.4
+375 ;;^UTILITY(U,$J,358.3,30769,2)
+376 ;;=^5009164
+377 ;;^UTILITY(U,$J,358.3,30770,0)
+378 ;;=L24.9^^86^1231^13
+379 ;;^UTILITY(U,$J,358.3,30770,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,30770,1,3,0)
+382 ;;=3^Irritant Contact Dermatitis
+383 ;;^UTILITY(U,$J,358.3,30770,1,4,0)
+384 ;;=4^L24.9
+385 ;;^UTILITY(U,$J,358.3,30770,2)
+386 ;;=^5009136
+387 ;;^UTILITY(U,$J,358.3,30771,0)
+388 ;;=L30.0^^86^1231^14
+389 ;;^UTILITY(U,$J,358.3,30771,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,30771,1,3,0)
+392 ;;=3^Nummular Dermatitis
+393 ;;^UTILITY(U,$J,358.3,30771,1,4,0)
+394 ;;=4^L30.0
+395 ;;^UTILITY(U,$J,358.3,30771,2)
+396 ;;=^186823
+397 ;;^UTILITY(U,$J,358.3,30772,0)
+398 ;;=L40.8^^86^1231^15
+399 ;;^UTILITY(U,$J,358.3,30772,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,30772,1,3,0)
+402 ;;=3^Psoriasis NEC
+403 ;;^UTILITY(U,$J,358.3,30772,1,4,0)
+404 ;;=4^L40.8
+405 ;;^UTILITY(U,$J,358.3,30772,2)
+406 ;;=^271917
+407 ;;^UTILITY(U,$J,358.3,30773,0)
+408 ;;=L30.8^^86^1231^9
+409 ;;^UTILITY(U,$J,358.3,30773,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,30773,1,3,0)
+412 ;;=3^Dermatitis NEC
+413 ;;^UTILITY(U,$J,358.3,30773,1,4,0)
+414 ;;=4^L30.8
+415 ;;^UTILITY(U,$J,358.3,30773,2)
+416 ;;=^5009158
+417 ;;^UTILITY(U,$J,358.3,30774,0)
+418 ;;=L40.0^^86^1231^16
+419 ;;^UTILITY(U,$J,358.3,30774,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,30774,1,3,0)
+422 ;;=3^Psoriasis Vulgaris
+423 ;;^UTILITY(U,$J,358.3,30774,1,4,0)
+424 ;;=4^L40.0
+425 ;;^UTILITY(U,$J,358.3,30774,2)
+426 ;;=^5009160
+427 ;;^UTILITY(U,$J,358.3,30775,0)
+428 ;;=L40.9^^86^1231^17
+429 ;;^UTILITY(U,$J,358.3,30775,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,30775,1,3,0)
+432 ;;=3^Psoriasis,Unspec
+433 ;;^UTILITY(U,$J,358.3,30775,1,4,0)
+434 ;;=4^L40.9
+435 ;;^UTILITY(U,$J,358.3,30775,2)
+436 ;;=^5009171
+437 ;;^UTILITY(U,$J,358.3,30776,0)
+438 ;;=L40.3^^86^1231^19
+439 ;;^UTILITY(U,$J,358.3,30776,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,30776,1,3,0)
+442 ;;=3^Pustulosis Palmaris et Plantaris
+443 ;;^UTILITY(U,$J,358.3,30776,1,4,0)
+444 ;;=4^L40.3
+445 ;;^UTILITY(U,$J,358.3,30776,2)
+446 ;;=^5009163
+447 ;;^UTILITY(U,$J,358.3,30777,0)
+448 ;;=R21.^^86^1231^20
+449 ;;^UTILITY(U,$J,358.3,30777,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,30777,1,3,0)
+452 ;;=3^Rash/Oth Nonspecific Skin Eruption
+453 ;;^UTILITY(U,$J,358.3,30777,1,4,0)
+454 ;;=4^R21.
+455 ;;^UTILITY(U,$J,358.3,30777,2)
+456 ;;=^5019283
+457 ;;^UTILITY(U,$J,358.3,30778,0)
+458 ;;=L25.9^^86^1231^6
+459 ;;^UTILITY(U,$J,358.3,30778,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,30778,1,3,0)
+462 ;;=3^Contact Dermatitis,Unspec
+463 ;;^UTILITY(U,$J,358.3,30778,1,4,0)
+464 ;;=4^L25.9
+465 ;;^UTILITY(U,$J,358.3,30778,2)
+466 ;;=^5133647
+467 ;;^UTILITY(U,$J,358.3,30779,0)
+468 ;;=M34.89^^86^1232^31
+469 ;;^UTILITY(U,$J,358.3,30779,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,30779,1,3,0)
+472 ;;=3^Systemic Sclerosis NEC
+473 ;;^UTILITY(U,$J,358.3,30779,1,4,0)
+474 ;;=4^M34.89
+475 ;;^UTILITY(U,$J,358.3,30779,2)
+476 ;;=^5011784
+477 ;;^UTILITY(U,$J,358.3,30780,0)
+478 ;;=M34.0^^86^1232^25
+479 ;;^UTILITY(U,$J,358.3,30780,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,30780,1,3,0)
+482 ;;=3^Progressive Systemic Sclerosis
+483 ;;^UTILITY(U,$J,358.3,30780,1,4,0)
+484 ;;=4^M34.0
+485 ;;^UTILITY(U,$J,358.3,30780,2)
+486 ;;=^5011778
+487 ;;^UTILITY(U,$J,358.3,30781,0)
+488 ;;=F03.90^^86^1232^15
+489 ;;^UTILITY(U,$J,358.3,30781,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,30781,1,3,0)
+492 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
+493 ;;^UTILITY(U,$J,358.3,30781,1,4,0)
+494 ;;=4^F03.90
+495 ;;^UTILITY(U,$J,358.3,30781,2)
+496 ;;=^5003050
+497 ;;^UTILITY(U,$J,358.3,30782,0)
+498 ;;=F06.8^^86^1232^22
+499 ;;^UTILITY(U,$J,358.3,30782,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,30782,1,3,0)
+502 ;;=3^Mental Disorders d/t Physiological Condition
+503 ;;^UTILITY(U,$J,358.3,30782,1,4,0)
+504 ;;=4^F06.8
+505 ;;^UTILITY(U,$J,358.3,30782,2)
+506 ;;=^5003062
+507 ;;^UTILITY(U,$J,358.3,30783,0)
+508 ;;=F06.1^^86^1232^1
+509 ;;^UTILITY(U,$J,358.3,30783,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,30783,1,3,0)
+512 ;;=3^Catatonic Disorder d/t Physiological Condition
+513 ;;^UTILITY(U,$J,358.3,30783,1,4,0)
+514 ;;=4^F06.1
+515 ;;^UTILITY(U,$J,358.3,30783,2)
+516 ;;=^5003054
+517 ;;^UTILITY(U,$J,358.3,30784,0)
+518 ;;=G35.^^86^1232^23
+519 ;;^UTILITY(U,$J,358.3,30784,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,30784,1,3,0)
+522 ;;=3^Multiple Sclerosis
+523 ;;^UTILITY(U,$J,358.3,30784,1,4,0)
+524 ;;=4^G35.
+525 ;;^UTILITY(U,$J,358.3,30784,2)
+526 ;;=^79761
+527 ;;^UTILITY(U,$J,358.3,30785,0)
+528 ;;=G60.9^^86^1232^20
+529 ;;^UTILITY(U,$J,358.3,30785,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,30785,1,3,0)
+532 ;;=3^Hereditary/Idiopathic Neuropathy,Unspec
+533 ;;^UTILITY(U,$J,358.3,30785,1,4,0)
+534 ;;=4^G60.9
+535 ;;^UTILITY(U,$J,358.3,30785,2)
+536 ;;=^5004071
+537 ;;^UTILITY(U,$J,358.3,30786,0)
+538 ;;=G62.9^^86^1232^24
+539 ;;^UTILITY(U,$J,358.3,30786,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,30786,1,3,0)
+542 ;;=3^Polyneuropathy,Unspec
+543 ;;^UTILITY(U,$J,358.3,30786,1,4,0)
+544 ;;=4^G62.9
+545 ;;^UTILITY(U,$J,358.3,30786,2)
+546 ;;=^5004079
+547 ;;^UTILITY(U,$J,358.3,30787,0)
+548 ;;=I63.9^^86^1232^14
+549 ;;^UTILITY(U,$J,358.3,30787,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,30787,1,3,0)
+552 ;;=3^Cerebral Infarction,Unspec
+553 ;;^UTILITY(U,$J,358.3,30787,1,4,0)
+554 ;;=4^I63.9
+555 ;;^UTILITY(U,$J,358.3,30787,2)
+556 ;;=^5007355
+557 ;;^UTILITY(U,$J,358.3,30788,0)
+558 ;;=I63.50^^86^1232^7
+559 ;;^UTILITY(U,$J,358.3,30788,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,30788,1,3,0)
+562 ;;=3^Cerebral Infarction d/t Occls/Stenosis,Unspec Cerebral Artery
+563 ;;^UTILITY(U,$J,358.3,30788,1,4,0)
+564 ;;=4^I63.50
+565 ;;^UTILITY(U,$J,358.3,30788,2)
+566 ;;=^5007343
+567 ;;^UTILITY(U,$J,358.3,30789,0)
+568 ;;=I63.549^^86^1232^8
+569 ;;^UTILITY(U,$J,358.3,30789,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,30789,1,3,0)
+572 ;;=3^Cerebral Infarction d/t Occls/Stenosis, Unspec Cerebellar Artery
+573 ;;^UTILITY(U,$J,358.3,30789,1,4,0)
+574 ;;=4^I63.549
+575 ;;^UTILITY(U,$J,358.3,30789,2)
+576 ;;=^5133571
+577 ;;^UTILITY(U,$J,358.3,30790,0)
+578 ;;=I63.512^^86^1232^4
+579 ;;^UTILITY(U,$J,358.3,30790,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,30790,1,3,0)
+582 ;;=3^Cerebral Infarction d/t Left Middle Cerebral Artery Occls/Stenosis
+583 ;;^UTILITY(U,$J,358.3,30790,1,4,0)
+584 ;;=4^I63.512
+585 ;;^UTILITY(U,$J,358.3,30790,2)
+586 ;;=^5007345
+587 ;;^UTILITY(U,$J,358.3,30791,0)
+588 ;;=I63.522^^86^1232^2
+589 ;;^UTILITY(U,$J,358.3,30791,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,30791,1,3,0)
+592 ;;=3^Cerebral Infarction d/t Left Anterior Cerebral Artery Occls/Stenosis
+593 ;;^UTILITY(U,$J,358.3,30791,1,4,0)
+594 ;;=4^I63.522
+595 ;;^UTILITY(U,$J,358.3,30791,2)
+596 ;;=^5007347
+597 ;;^UTILITY(U,$J,358.3,30792,0)
+598 ;;=I63.532^^86^1232^5
+599 ;;^UTILITY(U,$J,358.3,30792,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,30792,1,3,0)
+602 ;;=3^Cerebral Infarction d/t Left Posterior Cerebral Artery Occls/Stenosis
+603 ;;^UTILITY(U,$J,358.3,30792,1,4,0)
+604 ;;=4^I63.532
+605 ;;^UTILITY(U,$J,358.3,30792,2)
+606 ;;=^5007349
+607 ;;^UTILITY(U,$J,358.3,30793,0)
+608 ;;=I63.542^^86^1232^3
+609 ;;^UTILITY(U,$J,358.3,30793,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,30793,1,3,0)
+612 ;;=3^Cerebral Infarction d/t Left Cerebellar Artery Occls/Stenosis
+613 ;;^UTILITY(U,$J,358.3,30793,1,4,0)
+614 ;;=4^I63.542
+615 ;;^UTILITY(U,$J,358.3,30793,2)
+616 ;;=^5007351
+617 ;;^UTILITY(U,$J,358.3,30794,0)
+618 ;;=I63.511^^86^1232^11
+619 ;;^UTILITY(U,$J,358.3,30794,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,30794,1,3,0)
+622 ;;=3^Cerebral Infarction d/t Right Middle Cerebral Artery Occls/Stenosis
+623 ;;^UTILITY(U,$J,358.3,30794,1,4,0)
+624 ;;=4^I63.511
+625 ;;^UTILITY(U,$J,358.3,30794,2)
+626 ;;=^5007344
+627 ;;^UTILITY(U,$J,358.3,30795,0)
+628 ;;=I63.521^^86^1232^9
+629 ;;^UTILITY(U,$J,358.3,30795,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,30795,1,3,0)
+632 ;;=3^Cerebral Infarction d/t Right Anterior Cerebral Artery Occls/Stenosis
+633 ;;^UTILITY(U,$J,358.3,30795,1,4,0)
+634 ;;=4^I63.521
+635 ;;^UTILITY(U,$J,358.3,30795,2)
+636 ;;=^5007346
+637 ;;^UTILITY(U,$J,358.3,30796,0)
+638 ;;=I63.531^^86^1232^12
+639 ;;^UTILITY(U,$J,358.3,30796,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,30796,1,3,0)
+642 ;;=3^Cerebral Infarction d/t Right Posterior Cerebral Artery Occls/Stenosis
+643 ;;^UTILITY(U,$J,358.3,30796,1,4,0)
+644 ;;=4^I63.531
+645 ;;^UTILITY(U,$J,358.3,30796,2)
+646 ;;=^5007348
+647 ;;^UTILITY(U,$J,358.3,30797,0)
+648 ;;=I63.541^^86^1232^10
+649 ;;^UTILITY(U,$J,358.3,30797,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,30797,1,3,0)
+652 ;;=3^Cerebral Infarction d/t Right Cerebellar Artery Occls/Stenosis
+653 ;;^UTILITY(U,$J,358.3,30797,1,4,0)
+654 ;;=4^I63.541
+655 ;;^UTILITY(U,$J,358.3,30797,2)
+656 ;;=^5007350
+657 ;;^UTILITY(U,$J,358.3,30798,0)
+658 ;;=G45.9^^86^1232^32
+659 ;;^UTILITY(U,$J,358.3,30798,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,30798,1,3,0)
+662 ;;=3^Transient Cerebral Ischemic Attack,Unspec
+663 ;;^UTILITY(U,$J,358.3,30798,1,4,0)
+664 ;;=4^G45.9
+665 ;;^UTILITY(U,$J,358.3,30798,2)
+666 ;;=^5003959
+667 ;;^UTILITY(U,$J,358.3,30799,0)
+668 ;;=Z86.73^^86^1232^21
+669 ;;^UTILITY(U,$J,358.3,30799,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,30799,1,3,0)
+672 ;;=3^Hx of TIA and Cerebral Infarction w/o Residual Deficits
+673 ;;^UTILITY(U,$J,358.3,30799,1,4,0)
+674 ;;=4^Z86.73
+675 ;;^UTILITY(U,$J,358.3,30799,2)
+676 ;;=^5063477
+677 ;;^UTILITY(U,$J,358.3,30800,0)
+678 ;;=G82.50^^86^1232^30
