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