Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI0EK

IBDEI0EK.m

Go to the documentation of this file.
IBDEI0EK ; ; 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,36460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36460,1,3,0)
 ;;=3^Flexural Eczema
 ;;^UTILITY(U,$J,358.3,36460,1,4,0)
 ;;=4^L20.82
 ;;^UTILITY(U,$J,358.3,36460,2)
 ;;=^5009109
 ;;^UTILITY(U,$J,358.3,36461,0)
 ;;=L20.84^^107^1477^165
 ;;^UTILITY(U,$J,358.3,36461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36461,1,3,0)
 ;;=3^Intrinsic Eczema
 ;;^UTILITY(U,$J,358.3,36461,1,4,0)
 ;;=4^L20.84
 ;;^UTILITY(U,$J,358.3,36461,2)
 ;;=^5009111
 ;;^UTILITY(U,$J,358.3,36462,0)
 ;;=L20.89^^107^1477^86
 ;;^UTILITY(U,$J,358.3,36462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36462,1,3,0)
 ;;=3^Atopic Dermatitis NEC
 ;;^UTILITY(U,$J,358.3,36462,1,4,0)
 ;;=4^L20.89
 ;;^UTILITY(U,$J,358.3,36462,2)
 ;;=^5009112
 ;;^UTILITY(U,$J,358.3,36463,0)
 ;;=L20.9^^107^1477^87
 ;;^UTILITY(U,$J,358.3,36463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36463,1,3,0)
 ;;=3^Atopic Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,36463,1,4,0)
 ;;=4^L20.9
 ;;^UTILITY(U,$J,358.3,36463,2)
 ;;=^5009113
 ;;^UTILITY(U,$J,358.3,36464,0)
 ;;=L21.8^^107^1477^302
 ;;^UTILITY(U,$J,358.3,36464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36464,1,3,0)
 ;;=3^Seborrheic Dermatitis NEC
 ;;^UTILITY(U,$J,358.3,36464,1,4,0)
 ;;=4^L21.8
 ;;^UTILITY(U,$J,358.3,36464,2)
 ;;=^303310
 ;;^UTILITY(U,$J,358.3,36465,0)
 ;;=L21.9^^107^1477^303
 ;;^UTILITY(U,$J,358.3,36465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36465,1,3,0)
 ;;=3^Seborrheic Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,36465,1,4,0)
 ;;=4^L21.9
 ;;^UTILITY(U,$J,358.3,36465,2)
 ;;=^188703
 ;;^UTILITY(U,$J,358.3,36466,0)
 ;;=L23.7^^107^1477^31
 ;;^UTILITY(U,$J,358.3,36466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36466,1,3,0)
 ;;=3^Allergic Contact Dermatitis d/t Plants
 ;;^UTILITY(U,$J,358.3,36466,1,4,0)
 ;;=4^L23.7
 ;;^UTILITY(U,$J,358.3,36466,2)
 ;;=^5009122
 ;;^UTILITY(U,$J,358.3,36467,0)
 ;;=L23.9^^107^1477^32
 ;;^UTILITY(U,$J,358.3,36467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36467,1,3,0)
 ;;=3^Allergic Contact Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,36467,1,4,0)
 ;;=4^L23.9
 ;;^UTILITY(U,$J,358.3,36467,2)
 ;;=^5009125
 ;;^UTILITY(U,$J,358.3,36468,0)
 ;;=L24.9^^107^1477^166
 ;;^UTILITY(U,$J,358.3,36468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36468,1,3,0)
 ;;=3^Irritant Contact Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,36468,1,4,0)
 ;;=4^L24.9
 ;;^UTILITY(U,$J,358.3,36468,2)
 ;;=^5009136
 ;;^UTILITY(U,$J,358.3,36469,0)
 ;;=L25.9^^107^1477^117
 ;;^UTILITY(U,$J,358.3,36469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36469,1,3,0)
 ;;=3^Contact Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,36469,1,4,0)
 ;;=4^L25.9
 ;;^UTILITY(U,$J,358.3,36469,2)
 ;;=^5133647
 ;;^UTILITY(U,$J,358.3,36470,0)
 ;;=L26.^^107^1477^151
 ;;^UTILITY(U,$J,358.3,36470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36470,1,3,0)
 ;;=3^Exfoliative Dermatitis
 ;;^UTILITY(U,$J,358.3,36470,1,4,0)
 ;;=4^L26.
 ;;^UTILITY(U,$J,358.3,36470,2)
 ;;=^263886
 ;;^UTILITY(U,$J,358.3,36471,0)
 ;;=L27.0^^107^1477^305
 ;;^UTILITY(U,$J,358.3,36471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36471,1,3,0)
 ;;=3^Skin Eruption d/t Drugs/Meds,Generalized
 ;;^UTILITY(U,$J,358.3,36471,1,4,0)
 ;;=4^L27.0
 ;;^UTILITY(U,$J,358.3,36471,2)
 ;;=^5009144
 ;;^UTILITY(U,$J,358.3,36472,0)
 ;;=L27.1^^107^1477^306
 ;;^UTILITY(U,$J,358.3,36472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36472,1,3,0)
 ;;=3^Skin Eruption d/t Drugs/Meds,Localized
 ;;^UTILITY(U,$J,358.3,36472,1,4,0)
 ;;=4^L27.1
 ;;^UTILITY(U,$J,358.3,36472,2)
 ;;=^5009145
 ;;^UTILITY(U,$J,358.3,36473,0)
 ;;=L29.0^^107^1477^290
 ;;^UTILITY(U,$J,358.3,36473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36473,1,3,0)
 ;;=3^Pruritus Ani
 ;;^UTILITY(U,$J,358.3,36473,1,4,0)
 ;;=4^L29.0
 ;;^UTILITY(U,$J,358.3,36473,2)
 ;;=^100061
 ;;^UTILITY(U,$J,358.3,36474,0)
 ;;=L29.9^^107^1477^291
 ;;^UTILITY(U,$J,358.3,36474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36474,1,3,0)
 ;;=3^Pruritus,Unspec
 ;;^UTILITY(U,$J,358.3,36474,1,4,0)
 ;;=4^L29.9
 ;;^UTILITY(U,$J,358.3,36474,2)
 ;;=^5009153
 ;;^UTILITY(U,$J,358.3,36475,0)
 ;;=L30.0^^107^1477^270
 ;;^UTILITY(U,$J,358.3,36475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36475,1,3,0)
 ;;=3^Nummular Dermatitis
 ;;^UTILITY(U,$J,358.3,36475,1,4,0)
 ;;=4^L30.0
 ;;^UTILITY(U,$J,358.3,36475,2)
 ;;=^186823
 ;;^UTILITY(U,$J,358.3,36476,0)
 ;;=L30.1^^107^1477^143
 ;;^UTILITY(U,$J,358.3,36476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36476,1,3,0)
 ;;=3^Dyshidrosis
 ;;^UTILITY(U,$J,358.3,36476,1,4,0)
 ;;=4^L30.1
 ;;^UTILITY(U,$J,358.3,36476,2)
 ;;=^5009154
 ;;^UTILITY(U,$J,358.3,36477,0)
 ;;=L30.2^^107^1477^135
 ;;^UTILITY(U,$J,358.3,36477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36477,1,3,0)
 ;;=3^Cutaneous Autosensitization
 ;;^UTILITY(U,$J,358.3,36477,1,4,0)
 ;;=4^L30.2
 ;;^UTILITY(U,$J,358.3,36477,2)
 ;;=^5009155
 ;;^UTILITY(U,$J,358.3,36478,0)
 ;;=L30.4^^107^1477^147
 ;;^UTILITY(U,$J,358.3,36478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36478,1,3,0)
 ;;=3^Erythema Intertrigo
 ;;^UTILITY(U,$J,358.3,36478,1,4,0)
 ;;=4^L30.4
 ;;^UTILITY(U,$J,358.3,36478,2)
 ;;=^5009157
 ;;^UTILITY(U,$J,358.3,36479,0)
 ;;=L30.8^^107^1477^138
 ;;^UTILITY(U,$J,358.3,36479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36479,1,3,0)
 ;;=3^Dermatitis NEC
 ;;^UTILITY(U,$J,358.3,36479,1,4,0)
 ;;=4^L30.8
 ;;^UTILITY(U,$J,358.3,36479,2)
 ;;=^5009158
 ;;^UTILITY(U,$J,358.3,36480,0)
 ;;=L30.9^^107^1477^139
 ;;^UTILITY(U,$J,358.3,36480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36480,1,3,0)
 ;;=3^Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,36480,1,4,0)
 ;;=4^L30.9
 ;;^UTILITY(U,$J,358.3,36480,2)
 ;;=^5009159
 ;;^UTILITY(U,$J,358.3,36481,0)
 ;;=L40.0^^107^1477^293
 ;;^UTILITY(U,$J,358.3,36481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36481,1,3,0)
 ;;=3^Psoriasis Vulgaris
 ;;^UTILITY(U,$J,358.3,36481,1,4,0)
 ;;=4^L40.0
 ;;^UTILITY(U,$J,358.3,36481,2)
 ;;=^5009160
 ;;^UTILITY(U,$J,358.3,36482,0)
 ;;=L40.1^^107^1477^296
 ;;^UTILITY(U,$J,358.3,36482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36482,1,3,0)
 ;;=3^Pustulosis Psoriasis,Generalized
 ;;^UTILITY(U,$J,358.3,36482,1,4,0)
 ;;=4^L40.1
 ;;^UTILITY(U,$J,358.3,36482,2)
 ;;=^5009161
 ;;^UTILITY(U,$J,358.3,36483,0)
 ;;=L40.2^^107^1477^12
 ;;^UTILITY(U,$J,358.3,36483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36483,1,3,0)
 ;;=3^Acrodermatitis Continua
 ;;^UTILITY(U,$J,358.3,36483,1,4,0)
 ;;=4^L40.2
 ;;^UTILITY(U,$J,358.3,36483,2)
 ;;=^5009162
 ;;^UTILITY(U,$J,358.3,36484,0)
 ;;=L40.3^^107^1477^295
 ;;^UTILITY(U,$J,358.3,36484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36484,1,3,0)
 ;;=3^Pustulosis Palmaris et Plantaris
 ;;^UTILITY(U,$J,358.3,36484,1,4,0)
 ;;=4^L40.3
 ;;^UTILITY(U,$J,358.3,36484,2)
 ;;=^5009163
 ;;^UTILITY(U,$J,358.3,36485,0)
 ;;=L40.4^^107^1477^160
 ;;^UTILITY(U,$J,358.3,36485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36485,1,3,0)
 ;;=3^Guttate Psoriasis
 ;;^UTILITY(U,$J,358.3,36485,1,4,0)
 ;;=4^L40.4
 ;;^UTILITY(U,$J,358.3,36485,2)
 ;;=^5009164
 ;;^UTILITY(U,$J,358.3,36486,0)
 ;;=L40.8^^107^1477^292
 ;;^UTILITY(U,$J,358.3,36486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36486,1,3,0)
 ;;=3^Psoriasis NEC
 ;;^UTILITY(U,$J,358.3,36486,1,4,0)
 ;;=4^L40.8
 ;;^UTILITY(U,$J,358.3,36486,2)
 ;;=^271917
 ;;^UTILITY(U,$J,358.3,36487,0)
 ;;=L40.9^^107^1477^294
 ;;^UTILITY(U,$J,358.3,36487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36487,1,3,0)
 ;;=3^Psoriasis,Unspec
 ;;^UTILITY(U,$J,358.3,36487,1,4,0)
 ;;=4^L40.9
 ;;^UTILITY(U,$J,358.3,36487,2)
 ;;=^5009171
 ;;^UTILITY(U,$J,358.3,36488,0)
 ;;=L50.9^^107^1477^326
 ;;^UTILITY(U,$J,358.3,36488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36488,1,3,0)
 ;;=3^Urticaria,Unspec
 ;;^UTILITY(U,$J,358.3,36488,1,4,0)
 ;;=4^L50.9
 ;;^UTILITY(U,$J,358.3,36488,2)
 ;;=^5009204
 ;;^UTILITY(U,$J,358.3,36489,0)
 ;;=L53.8^^107^1477^150
 ;;^UTILITY(U,$J,358.3,36489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36489,1,3,0)
 ;;=3^Erythematous Conditions NEC
 ;;^UTILITY(U,$J,358.3,36489,1,4,0)
 ;;=4^L53.8
 ;;^UTILITY(U,$J,358.3,36489,2)
 ;;=^88044
 ;;^UTILITY(U,$J,358.3,36490,0)
 ;;=L53.9^^107^1477^149
 ;;^UTILITY(U,$J,358.3,36490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36490,1,3,0)
 ;;=3^Erythematous Condition,Unspec
 ;;^UTILITY(U,$J,358.3,36490,1,4,0)
 ;;=4^L53.9
 ;;^UTILITY(U,$J,358.3,36490,2)
 ;;=^5009210
 ;;^UTILITY(U,$J,358.3,36491,0)
 ;;=L54.^^107^1477^148
 ;;^UTILITY(U,$J,358.3,36491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36491,1,3,0)
 ;;=3^Erythema in Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,36491,1,4,0)
 ;;=4^L54.
 ;;^UTILITY(U,$J,358.3,36491,2)
 ;;=^5009211
 ;;^UTILITY(U,$J,358.3,36492,0)
 ;;=L56.0^^107^1477^142
 ;;^UTILITY(U,$J,358.3,36492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36492,1,3,0)
 ;;=3^Drug Phototoxic Response
 ;;^UTILITY(U,$J,358.3,36492,1,4,0)
 ;;=4^L56.0
 ;;^UTILITY(U,$J,358.3,36492,2)
 ;;=^5009214
 ;;^UTILITY(U,$J,358.3,36493,0)
 ;;=L56.1^^107^1477^141
 ;;^UTILITY(U,$J,358.3,36493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36493,1,3,0)
 ;;=3^Drug Photoallergic Response
 ;;^UTILITY(U,$J,358.3,36493,1,4,0)
 ;;=4^L56.1
 ;;^UTILITY(U,$J,358.3,36493,2)
 ;;=^5009215
 ;;^UTILITY(U,$J,358.3,36494,0)
 ;;=L56.2^^107^1477^274
 ;;^UTILITY(U,$J,358.3,36494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36494,1,3,0)
 ;;=3^Photocontact Dermatitis
 ;;^UTILITY(U,$J,358.3,36494,1,4,0)
 ;;=4^L56.2
 ;;^UTILITY(U,$J,358.3,36494,2)
 ;;=^5009216
 ;;^UTILITY(U,$J,358.3,36495,0)
 ;;=L56.3^^107^1477^308
 ;;^UTILITY(U,$J,358.3,36495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36495,1,3,0)
 ;;=3^Solar Urticaria
 ;;^UTILITY(U,$J,358.3,36495,1,4,0)
 ;;=4^L56.3
 ;;^UTILITY(U,$J,358.3,36495,2)
 ;;=^5009217
 ;;^UTILITY(U,$J,358.3,36496,0)
 ;;=L57.0^^107^1477^13
 ;;^UTILITY(U,$J,358.3,36496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36496,1,3,0)
 ;;=3^Actinic Keratosis
 ;;^UTILITY(U,$J,358.3,36496,1,4,0)
 ;;=4^L57.0
 ;;^UTILITY(U,$J,358.3,36496,2)
 ;;=^66900
 ;;^UTILITY(U,$J,358.3,36497,0)
 ;;=L60.0^^107^1477^164
 ;;^UTILITY(U,$J,358.3,36497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36497,1,3,0)
 ;;=3^Ingrowing Nail
 ;;^UTILITY(U,$J,358.3,36497,1,4,0)
 ;;=4^L60.0
 ;;^UTILITY(U,$J,358.3,36497,2)
 ;;=^5009234
 ;;^UTILITY(U,$J,358.3,36498,0)
 ;;=L60.1^^107^1477^272
 ;;^UTILITY(U,$J,358.3,36498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36498,1,3,0)
 ;;=3^Onycholysis
 ;;^UTILITY(U,$J,358.3,36498,1,4,0)
 ;;=4^L60.1
 ;;^UTILITY(U,$J,358.3,36498,2)
 ;;=^186837
 ;;^UTILITY(U,$J,358.3,36499,0)
 ;;=L60.2^^107^1477^271
 ;;^UTILITY(U,$J,358.3,36499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36499,1,3,0)
 ;;=3^Onychogryphosis
 ;;^UTILITY(U,$J,358.3,36499,1,4,0)
 ;;=4^L60.2
 ;;^UTILITY(U,$J,358.3,36499,2)
 ;;=^5009235
 ;;^UTILITY(U,$J,358.3,36500,0)
 ;;=L60.3^^107^1477^176
 ;;^UTILITY(U,$J,358.3,36500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36500,1,3,0)
 ;;=3^Nail Dystrophy
 ;;^UTILITY(U,$J,358.3,36500,1,4,0)
 ;;=4^L60.3
 ;;^UTILITY(U,$J,358.3,36500,2)
 ;;=^5009236
 ;;^UTILITY(U,$J,358.3,36501,0)
 ;;=L60.4^^107^1477^89
 ;;^UTILITY(U,$J,358.3,36501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36501,1,3,0)
 ;;=3^Beau's Lines
 ;;^UTILITY(U,$J,358.3,36501,1,4,0)
 ;;=4^L60.4
 ;;^UTILITY(U,$J,358.3,36501,2)
 ;;=^5009237
 ;;^UTILITY(U,$J,358.3,36502,0)
 ;;=L60.5^^107^1477^330
 ;;^UTILITY(U,$J,358.3,36502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36502,1,3,0)
 ;;=3^Yellow Nail Syndrome
 ;;^UTILITY(U,$J,358.3,36502,1,4,0)
 ;;=4^L60.5
 ;;^UTILITY(U,$J,358.3,36502,2)
 ;;=^5009238
 ;;^UTILITY(U,$J,358.3,36503,0)
 ;;=L60.8^^107^1477^174
 ;;^UTILITY(U,$J,358.3,36503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36503,1,3,0)
 ;;=3^Nail Disorders NEC
 ;;^UTILITY(U,$J,358.3,36503,1,4,0)
 ;;=4^L60.8
 ;;^UTILITY(U,$J,358.3,36503,2)
 ;;=^5009239
 ;;^UTILITY(U,$J,358.3,36504,0)
 ;;=L62.^^107^1477^175
 ;;^UTILITY(U,$J,358.3,36504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36504,1,3,0)
 ;;=3^Nail Disorders in Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,36504,1,4,0)
 ;;=4^L62.
 ;;^UTILITY(U,$J,358.3,36504,2)
 ;;=^5009241
 ;;^UTILITY(U,$J,358.3,36505,0)
 ;;=L64.9^^107^1477^34
 ;;^UTILITY(U,$J,358.3,36505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36505,1,3,0)
 ;;=3^Androgenic Alopecia,Unspec
 ;;^UTILITY(U,$J,358.3,36505,1,4,0)
 ;;=4^L64.9
 ;;^UTILITY(U,$J,358.3,36505,2)
 ;;=^5009249
 ;;^UTILITY(U,$J,358.3,36506,0)
 ;;=L65.9^^107^1477^269
 ;;^UTILITY(U,$J,358.3,36506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36506,1,3,0)
 ;;=3^Nonscarring Hair Loss,Unspec
 ;;^UTILITY(U,$J,358.3,36506,1,4,0)
 ;;=4^L65.9
 ;;^UTILITY(U,$J,358.3,36506,2)
 ;;=^5009252
 ;;^UTILITY(U,$J,358.3,36507,0)
 ;;=L70.0^^107^1477^7
 ;;^UTILITY(U,$J,358.3,36507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36507,1,3,0)
 ;;=3^Acne Vulgaris
 ;;^UTILITY(U,$J,358.3,36507,1,4,0)
 ;;=4^L70.0
 ;;^UTILITY(U,$J,358.3,36507,2)
 ;;=^5009268
 ;;^UTILITY(U,$J,358.3,36508,0)
 ;;=L70.1^^107^1477^2
 ;;^UTILITY(U,$J,358.3,36508,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36508,1,3,0)
 ;;=3^Acne Conglobata
 ;;^UTILITY(U,$J,358.3,36508,1,4,0)
 ;;=4^L70.1
 ;;^UTILITY(U,$J,358.3,36508,2)
 ;;=^5009269
 ;;^UTILITY(U,$J,358.3,36509,0)
 ;;=L70.3^^107^1477^6
 ;;^UTILITY(U,$J,358.3,36509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36509,1,3,0)
 ;;=3^Acne Tropica
 ;;^UTILITY(U,$J,358.3,36509,1,4,0)
 ;;=4^L70.3
 ;;^UTILITY(U,$J,358.3,36509,2)
 ;;=^5009270
 ;;^UTILITY(U,$J,358.3,36510,0)
 ;;=L70.5^^107^1477^3
 ;;^UTILITY(U,$J,358.3,36510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36510,1,3,0)
 ;;=3^Acne Excoriee des Jeunes Filles
 ;;^UTILITY(U,$J,358.3,36510,1,4,0)
 ;;=4^L70.5
 ;;^UTILITY(U,$J,358.3,36510,2)
 ;;=^5009272
 ;;^UTILITY(U,$J,358.3,36511,0)
 ;;=L70.8^^107^1477^5
 ;;^UTILITY(U,$J,358.3,36511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36511,1,3,0)
 ;;=3^Acne NEC
 ;;^UTILITY(U,$J,358.3,36511,1,4,0)
 ;;=4^L70.8
 ;;^UTILITY(U,$J,358.3,36511,2)
 ;;=^87239
 ;;^UTILITY(U,$J,358.3,36512,0)
 ;;=L70.9^^107^1477^8
 ;;^UTILITY(U,$J,358.3,36512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36512,1,3,0)
 ;;=3^Acne,Unspec
 ;;^UTILITY(U,$J,358.3,36512,1,4,0)
 ;;=4^L70.9
 ;;^UTILITY(U,$J,358.3,36512,2)
 ;;=^5009273
 ;;^UTILITY(U,$J,358.3,36513,0)
 ;;=L71.0^^107^1477^273
 ;;^UTILITY(U,$J,358.3,36513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36513,1,3,0)
 ;;=3^Perioral Dermatitis
 ;;^UTILITY(U,$J,358.3,36513,1,4,0)
 ;;=4^L71.0
 ;;^UTILITY(U,$J,358.3,36513,2)
 ;;=^5009274
 ;;^UTILITY(U,$J,358.3,36514,0)
 ;;=L71.1^^107^1477^299
 ;;^UTILITY(U,$J,358.3,36514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36514,1,3,0)
 ;;=3^Rhinophyma
 ;;^UTILITY(U,$J,358.3,36514,1,4,0)
 ;;=4^L71.1
 ;;^UTILITY(U,$J,358.3,36514,2)
 ;;=^106083
 ;;^UTILITY(U,$J,358.3,36515,0)
 ;;=L71.8^^107^1477^300
 ;;^UTILITY(U,$J,358.3,36515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36515,1,3,0)
 ;;=3^Rosacea NEC
 ;;^UTILITY(U,$J,358.3,36515,1,4,0)
 ;;=4^L71.8
 ;;^UTILITY(U,$J,358.3,36515,2)
 ;;=^5009275
 ;;^UTILITY(U,$J,358.3,36516,0)
 ;;=L71.9^^107^1477^301
 ;;^UTILITY(U,$J,358.3,36516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36516,1,3,0)
 ;;=3^Rosacea,Unspec
 ;;^UTILITY(U,$J,358.3,36516,1,4,0)
 ;;=4^L71.9
 ;;^UTILITY(U,$J,358.3,36516,2)
 ;;=^5009276
 ;;^UTILITY(U,$J,358.3,36517,0)
 ;;=L72.0^^107^1477^145
 ;;^UTILITY(U,$J,358.3,36517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36517,1,3,0)
 ;;=3^Epidermal Cyst
 ;;^UTILITY(U,$J,358.3,36517,1,4,0)
 ;;=4^L72.0
 ;;^UTILITY(U,$J,358.3,36517,2)
 ;;=^5009277
 ;;^UTILITY(U,$J,358.3,36518,0)
 ;;=L72.12^^107^1477^325
 ;;^UTILITY(U,$J,358.3,36518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36518,1,3,0)
 ;;=3^Trichodermal Cyst
 ;;^UTILITY(U,$J,358.3,36518,1,4,0)
 ;;=4^L72.12
 ;;^UTILITY(U,$J,358.3,36518,2)
 ;;=^5009279
 ;;^UTILITY(U,$J,358.3,36519,0)
 ;;=L72.2^^107^1477^310
 ;;^UTILITY(U,$J,358.3,36519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36519,1,3,0)
 ;;=3^Steatocystoma Multiplex
 ;;^UTILITY(U,$J,358.3,36519,1,4,0)
 ;;=4^L72.2
 ;;^UTILITY(U,$J,358.3,36519,2)
 ;;=^5009280
 ;;^UTILITY(U,$J,358.3,36520,0)
 ;;=L72.8^^107^1477^154
 ;;^UTILITY(U,$J,358.3,36520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36520,1,3,0)
 ;;=3^Follicular Cysts of Skin/Subcutaneous Tissue NEC
 ;;^UTILITY(U,$J,358.3,36520,1,4,0)
 ;;=4^L72.8
 ;;^UTILITY(U,$J,358.3,36520,2)
 ;;=^5009282
 ;;^UTILITY(U,$J,358.3,36521,0)
 ;;=L72.9^^107^1477^155
 ;;^UTILITY(U,$J,358.3,36521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36521,1,3,0)
 ;;=3^Follicular Cysts of Skin/Subcutaneous Tissue,Unspec
 ;;^UTILITY(U,$J,358.3,36521,1,4,0)
 ;;=4^L72.9
 ;;^UTILITY(U,$J,358.3,36521,2)
 ;;=^5009283
 ;;^UTILITY(U,$J,358.3,36522,0)
 ;;=L73.0^^107^1477^4
 ;;^UTILITY(U,$J,358.3,36522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36522,1,3,0)
 ;;=3^Acne Keloid
 ;;^UTILITY(U,$J,358.3,36522,1,4,0)
 ;;=4^L73.0
 ;;^UTILITY(U,$J,358.3,36522,2)
 ;;=^2149
 ;;^UTILITY(U,$J,358.3,36523,0)
 ;;=L73.2^^107^1477^162
 ;;^UTILITY(U,$J,358.3,36523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36523,1,3,0)
 ;;=3^Hidradenitis Suppurativa
 ;;^UTILITY(U,$J,358.3,36523,1,4,0)
 ;;=4^L73.2
 ;;^UTILITY(U,$J,358.3,36523,2)
 ;;=^278979
 ;;^UTILITY(U,$J,358.3,36524,0)
 ;;=L73.9^^107^1477^156
 ;;^UTILITY(U,$J,358.3,36524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36524,1,3,0)
 ;;=3^Follicular Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,36524,1,4,0)
 ;;=4^L73.9
 ;;^UTILITY(U,$J,358.3,36524,2)
 ;;=^5009286
 ;;^UTILITY(U,$J,358.3,36525,0)
 ;;=L82.0^^107^1477^163
 ;;^UTILITY(U,$J,358.3,36525,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36525,1,3,0)
 ;;=3^Inflamed Seborrheic Keratosis
 ;;^UTILITY(U,$J,358.3,36525,1,4,0)
 ;;=4^L82.0
 ;;^UTILITY(U,$J,358.3,36525,2)
 ;;=^303311
 ;;^UTILITY(U,$J,358.3,36526,0)
 ;;=L82.1^^107^1477^304
 ;;^UTILITY(U,$J,358.3,36526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36526,1,3,0)
 ;;=3^Seborrheic Keratosis NEC
 ;;^UTILITY(U,$J,358.3,36526,1,4,0)
 ;;=4^L82.1
 ;;^UTILITY(U,$J,358.3,36526,2)
 ;;=^303312
 ;;^UTILITY(U,$J,358.3,36527,0)
 ;;=L84.^^107^1477^118
 ;;^UTILITY(U,$J,358.3,36527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36527,1,3,0)
 ;;=3^Corns and Callosities
 ;;^UTILITY(U,$J,358.3,36527,1,4,0)
 ;;=4^L84.
 ;;^UTILITY(U,$J,358.3,36527,2)
 ;;=^271920
 ;;^UTILITY(U,$J,358.3,36528,0)
 ;;=L85.0^^107^1477^9
 ;;^UTILITY(U,$J,358.3,36528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36528,1,3,0)
 ;;=3^Acquired Ichthyosis
 ;;^UTILITY(U,$J,358.3,36528,1,4,0)
 ;;=4^L85.0
 ;;^UTILITY(U,$J,358.3,36528,2)
 ;;=^5009320
 ;;^UTILITY(U,$J,358.3,36529,0)
 ;;=L85.1^^107^1477^11
 ;;^UTILITY(U,$J,358.3,36529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36529,1,3,0)
 ;;=3^Acquired Keratosis Palmaris et Plantaris
 ;;^UTILITY(U,$J,358.3,36529,1,4,0)
 ;;=4^L85.1
 ;;^UTILITY(U,$J,358.3,36529,2)
 ;;=^5009321
 ;;^UTILITY(U,$J,358.3,36530,0)
 ;;=L85.2^^107^1477^169
 ;;^UTILITY(U,$J,358.3,36530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36530,1,3,0)
 ;;=3^Keratosis Punctata
 ;;^UTILITY(U,$J,358.3,36530,1,4,0)
 ;;=4^L85.2
 ;;^UTILITY(U,$J,358.3,36530,2)
 ;;=^5009322