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

IBDEI0DG.m

Go to the documentation of this file.
  1. IBDEI0DG ; ; 03-MAY-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,33763,1,3,0)
  1. ;;=3^Allergic Contact Dermatitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33763,1,4,0)
  1. ;;=4^L23.9
  1. ;;^UTILITY(U,$J,358.3,33763,2)
  1. ;;=^5009125
  1. ;;^UTILITY(U,$J,358.3,33764,0)
  1. ;;=L24.9^^105^1423^166
  1. ;;^UTILITY(U,$J,358.3,33764,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33764,1,3,0)
  1. ;;=3^Irritant Contact Dermatitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33764,1,4,0)
  1. ;;=4^L24.9
  1. ;;^UTILITY(U,$J,358.3,33764,2)
  1. ;;=^5009136
  1. ;;^UTILITY(U,$J,358.3,33765,0)
  1. ;;=L25.9^^105^1423^117
  1. ;;^UTILITY(U,$J,358.3,33765,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33765,1,3,0)
  1. ;;=3^Contact Dermatitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33765,1,4,0)
  1. ;;=4^L25.9
  1. ;;^UTILITY(U,$J,358.3,33765,2)
  1. ;;=^5133647
  1. ;;^UTILITY(U,$J,358.3,33766,0)
  1. ;;=L26.^^105^1423^151
  1. ;;^UTILITY(U,$J,358.3,33766,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33766,1,3,0)
  1. ;;=3^Exfoliative Dermatitis
  1. ;;^UTILITY(U,$J,358.3,33766,1,4,0)
  1. ;;=4^L26.
  1. ;;^UTILITY(U,$J,358.3,33766,2)
  1. ;;=^263886
  1. ;;^UTILITY(U,$J,358.3,33767,0)
  1. ;;=L27.0^^105^1423^305
  1. ;;^UTILITY(U,$J,358.3,33767,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33767,1,3,0)
  1. ;;=3^Skin Eruption d/t Drugs/Meds,Generalized
  1. ;;^UTILITY(U,$J,358.3,33767,1,4,0)
  1. ;;=4^L27.0
  1. ;;^UTILITY(U,$J,358.3,33767,2)
  1. ;;=^5009144
  1. ;;^UTILITY(U,$J,358.3,33768,0)
  1. ;;=L27.1^^105^1423^306
  1. ;;^UTILITY(U,$J,358.3,33768,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33768,1,3,0)
  1. ;;=3^Skin Eruption d/t Drugs/Meds,Localized
  1. ;;^UTILITY(U,$J,358.3,33768,1,4,0)
  1. ;;=4^L27.1
  1. ;;^UTILITY(U,$J,358.3,33768,2)
  1. ;;=^5009145
  1. ;;^UTILITY(U,$J,358.3,33769,0)
  1. ;;=L29.0^^105^1423^290
  1. ;;^UTILITY(U,$J,358.3,33769,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33769,1,3,0)
  1. ;;=3^Pruritus Ani
  1. ;;^UTILITY(U,$J,358.3,33769,1,4,0)
  1. ;;=4^L29.0
  1. ;;^UTILITY(U,$J,358.3,33769,2)
  1. ;;=^100061
  1. ;;^UTILITY(U,$J,358.3,33770,0)
  1. ;;=L29.9^^105^1423^291
  1. ;;^UTILITY(U,$J,358.3,33770,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33770,1,3,0)
  1. ;;=3^Pruritus,Unspec
  1. ;;^UTILITY(U,$J,358.3,33770,1,4,0)
  1. ;;=4^L29.9
  1. ;;^UTILITY(U,$J,358.3,33770,2)
  1. ;;=^5009153
  1. ;;^UTILITY(U,$J,358.3,33771,0)
  1. ;;=L30.0^^105^1423^270
  1. ;;^UTILITY(U,$J,358.3,33771,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33771,1,3,0)
  1. ;;=3^Nummular Dermatitis
  1. ;;^UTILITY(U,$J,358.3,33771,1,4,0)
  1. ;;=4^L30.0
  1. ;;^UTILITY(U,$J,358.3,33771,2)
  1. ;;=^186823
  1. ;;^UTILITY(U,$J,358.3,33772,0)
  1. ;;=L30.1^^105^1423^143
  1. ;;^UTILITY(U,$J,358.3,33772,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33772,1,3,0)
  1. ;;=3^Dyshidrosis
  1. ;;^UTILITY(U,$J,358.3,33772,1,4,0)
  1. ;;=4^L30.1
  1. ;;^UTILITY(U,$J,358.3,33772,2)
  1. ;;=^5009154
  1. ;;^UTILITY(U,$J,358.3,33773,0)
  1. ;;=L30.2^^105^1423^135
  1. ;;^UTILITY(U,$J,358.3,33773,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33773,1,3,0)
  1. ;;=3^Cutaneous Autosensitization
  1. ;;^UTILITY(U,$J,358.3,33773,1,4,0)
  1. ;;=4^L30.2
  1. ;;^UTILITY(U,$J,358.3,33773,2)
  1. ;;=^5009155
  1. ;;^UTILITY(U,$J,358.3,33774,0)
  1. ;;=L30.4^^105^1423^147
  1. ;;^UTILITY(U,$J,358.3,33774,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33774,1,3,0)
  1. ;;=3^Erythema Intertrigo
  1. ;;^UTILITY(U,$J,358.3,33774,1,4,0)
  1. ;;=4^L30.4
  1. ;;^UTILITY(U,$J,358.3,33774,2)
  1. ;;=^5009157
  1. ;;^UTILITY(U,$J,358.3,33775,0)
  1. ;;=L30.8^^105^1423^138
  1. ;;^UTILITY(U,$J,358.3,33775,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33775,1,3,0)
  1. ;;=3^Dermatitis NEC
  1. ;;^UTILITY(U,$J,358.3,33775,1,4,0)
  1. ;;=4^L30.8
  1. ;;^UTILITY(U,$J,358.3,33775,2)
  1. ;;=^5009158
  1. ;;^UTILITY(U,$J,358.3,33776,0)
  1. ;;=L30.9^^105^1423^139
  1. ;;^UTILITY(U,$J,358.3,33776,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33776,1,3,0)
  1. ;;=3^Dermatitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33776,1,4,0)
  1. ;;=4^L30.9
  1. ;;^UTILITY(U,$J,358.3,33776,2)
  1. ;;=^5009159
  1. ;;^UTILITY(U,$J,358.3,33777,0)
  1. ;;=L40.0^^105^1423^293
  1. ;;^UTILITY(U,$J,358.3,33777,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33777,1,3,0)
  1. ;;=3^Psoriasis Vulgaris
  1. ;;^UTILITY(U,$J,358.3,33777,1,4,0)
  1. ;;=4^L40.0
  1. ;;^UTILITY(U,$J,358.3,33777,2)
  1. ;;=^5009160
  1. ;;^UTILITY(U,$J,358.3,33778,0)
  1. ;;=L40.1^^105^1423^296
  1. ;;^UTILITY(U,$J,358.3,33778,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33778,1,3,0)
  1. ;;=3^Pustulosis Psoriasis,Generalized
  1. ;;^UTILITY(U,$J,358.3,33778,1,4,0)
  1. ;;=4^L40.1
  1. ;;^UTILITY(U,$J,358.3,33778,2)
  1. ;;=^5009161
  1. ;;^UTILITY(U,$J,358.3,33779,0)
  1. ;;=L40.2^^105^1423^12
  1. ;;^UTILITY(U,$J,358.3,33779,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33779,1,3,0)
  1. ;;=3^Acrodermatitis Continua
  1. ;;^UTILITY(U,$J,358.3,33779,1,4,0)
  1. ;;=4^L40.2
  1. ;;^UTILITY(U,$J,358.3,33779,2)
  1. ;;=^5009162
  1. ;;^UTILITY(U,$J,358.3,33780,0)
  1. ;;=L40.3^^105^1423^295
  1. ;;^UTILITY(U,$J,358.3,33780,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33780,1,3,0)
  1. ;;=3^Pustulosis Palmaris et Plantaris
  1. ;;^UTILITY(U,$J,358.3,33780,1,4,0)
  1. ;;=4^L40.3
  1. ;;^UTILITY(U,$J,358.3,33780,2)
  1. ;;=^5009163
  1. ;;^UTILITY(U,$J,358.3,33781,0)
  1. ;;=L40.4^^105^1423^160
  1. ;;^UTILITY(U,$J,358.3,33781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33781,1,3,0)
  1. ;;=3^Guttate Psoriasis
  1. ;;^UTILITY(U,$J,358.3,33781,1,4,0)
  1. ;;=4^L40.4
  1. ;;^UTILITY(U,$J,358.3,33781,2)
  1. ;;=^5009164
  1. ;;^UTILITY(U,$J,358.3,33782,0)
  1. ;;=L40.8^^105^1423^292
  1. ;;^UTILITY(U,$J,358.3,33782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33782,1,3,0)
  1. ;;=3^Psoriasis NEC
  1. ;;^UTILITY(U,$J,358.3,33782,1,4,0)
  1. ;;=4^L40.8
  1. ;;^UTILITY(U,$J,358.3,33782,2)
  1. ;;=^271917
  1. ;;^UTILITY(U,$J,358.3,33783,0)
  1. ;;=L40.9^^105^1423^294
  1. ;;^UTILITY(U,$J,358.3,33783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33783,1,3,0)
  1. ;;=3^Psoriasis,Unspec
  1. ;;^UTILITY(U,$J,358.3,33783,1,4,0)
  1. ;;=4^L40.9
  1. ;;^UTILITY(U,$J,358.3,33783,2)
  1. ;;=^5009171
  1. ;;^UTILITY(U,$J,358.3,33784,0)
  1. ;;=L50.9^^105^1423^326
  1. ;;^UTILITY(U,$J,358.3,33784,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33784,1,3,0)
  1. ;;=3^Urticaria,Unspec
  1. ;;^UTILITY(U,$J,358.3,33784,1,4,0)
  1. ;;=4^L50.9
  1. ;;^UTILITY(U,$J,358.3,33784,2)
  1. ;;=^5009204
  1. ;;^UTILITY(U,$J,358.3,33785,0)
  1. ;;=L53.8^^105^1423^150
  1. ;;^UTILITY(U,$J,358.3,33785,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33785,1,3,0)
  1. ;;=3^Erythematous Conditions NEC
  1. ;;^UTILITY(U,$J,358.3,33785,1,4,0)
  1. ;;=4^L53.8
  1. ;;^UTILITY(U,$J,358.3,33785,2)
  1. ;;=^88044
  1. ;;^UTILITY(U,$J,358.3,33786,0)
  1. ;;=L53.9^^105^1423^149
  1. ;;^UTILITY(U,$J,358.3,33786,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33786,1,3,0)
  1. ;;=3^Erythematous Condition,Unspec
  1. ;;^UTILITY(U,$J,358.3,33786,1,4,0)
  1. ;;=4^L53.9
  1. ;;^UTILITY(U,$J,358.3,33786,2)
  1. ;;=^5009210
  1. ;;^UTILITY(U,$J,358.3,33787,0)
  1. ;;=L54.^^105^1423^148
  1. ;;^UTILITY(U,$J,358.3,33787,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33787,1,3,0)
  1. ;;=3^Erythema in Diseases Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,33787,1,4,0)
  1. ;;=4^L54.
  1. ;;^UTILITY(U,$J,358.3,33787,2)
  1. ;;=^5009211
  1. ;;^UTILITY(U,$J,358.3,33788,0)
  1. ;;=L56.0^^105^1423^142
  1. ;;^UTILITY(U,$J,358.3,33788,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33788,1,3,0)
  1. ;;=3^Drug Phototoxic Response
  1. ;;^UTILITY(U,$J,358.3,33788,1,4,0)
  1. ;;=4^L56.0
  1. ;;^UTILITY(U,$J,358.3,33788,2)
  1. ;;=^5009214
  1. ;;^UTILITY(U,$J,358.3,33789,0)
  1. ;;=L56.1^^105^1423^141
  1. ;;^UTILITY(U,$J,358.3,33789,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33789,1,3,0)
  1. ;;=3^Drug Photoallergic Response
  1. ;;^UTILITY(U,$J,358.3,33789,1,4,0)
  1. ;;=4^L56.1
  1. ;;^UTILITY(U,$J,358.3,33789,2)
  1. ;;=^5009215
  1. ;;^UTILITY(U,$J,358.3,33790,0)
  1. ;;=L56.2^^105^1423^274
  1. ;;^UTILITY(U,$J,358.3,33790,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33790,1,3,0)
  1. ;;=3^Photocontact Dermatitis
  1. ;;^UTILITY(U,$J,358.3,33790,1,4,0)
  1. ;;=4^L56.2
  1. ;;^UTILITY(U,$J,358.3,33790,2)
  1. ;;=^5009216
  1. ;;^UTILITY(U,$J,358.3,33791,0)
  1. ;;=L56.3^^105^1423^308
  1. ;;^UTILITY(U,$J,358.3,33791,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33791,1,3,0)
  1. ;;=3^Solar Urticaria
  1. ;;^UTILITY(U,$J,358.3,33791,1,4,0)
  1. ;;=4^L56.3
  1. ;;^UTILITY(U,$J,358.3,33791,2)
  1. ;;=^5009217
  1. ;;^UTILITY(U,$J,358.3,33792,0)
  1. ;;=L57.0^^105^1423^13
  1. ;;^UTILITY(U,$J,358.3,33792,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33792,1,3,0)
  1. ;;=3^Actinic Keratosis
  1. ;;^UTILITY(U,$J,358.3,33792,1,4,0)
  1. ;;=4^L57.0
  1. ;;^UTILITY(U,$J,358.3,33792,2)
  1. ;;=^66900
  1. ;;^UTILITY(U,$J,358.3,33793,0)
  1. ;;=L60.0^^105^1423^164
  1. ;;^UTILITY(U,$J,358.3,33793,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33793,1,3,0)
  1. ;;=3^Ingrowing Nail
  1. ;;^UTILITY(U,$J,358.3,33793,1,4,0)
  1. ;;=4^L60.0
  1. ;;^UTILITY(U,$J,358.3,33793,2)
  1. ;;=^5009234
  1. ;;^UTILITY(U,$J,358.3,33794,0)
  1. ;;=L60.1^^105^1423^272
  1. ;;^UTILITY(U,$J,358.3,33794,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33794,1,3,0)
  1. ;;=3^Onycholysis
  1. ;;^UTILITY(U,$J,358.3,33794,1,4,0)
  1. ;;=4^L60.1
  1. ;;^UTILITY(U,$J,358.3,33794,2)
  1. ;;=^186837
  1. ;;^UTILITY(U,$J,358.3,33795,0)
  1. ;;=L60.2^^105^1423^271
  1. ;;^UTILITY(U,$J,358.3,33795,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33795,1,3,0)
  1. ;;=3^Onychogryphosis
  1. ;;^UTILITY(U,$J,358.3,33795,1,4,0)
  1. ;;=4^L60.2
  1. ;;^UTILITY(U,$J,358.3,33795,2)
  1. ;;=^5009235
  1. ;;^UTILITY(U,$J,358.3,33796,0)
  1. ;;=L60.3^^105^1423^176
  1. ;;^UTILITY(U,$J,358.3,33796,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33796,1,3,0)
  1. ;;=3^Nail Dystrophy
  1. ;;^UTILITY(U,$J,358.3,33796,1,4,0)
  1. ;;=4^L60.3
  1. ;;^UTILITY(U,$J,358.3,33796,2)
  1. ;;=^5009236
  1. ;;^UTILITY(U,$J,358.3,33797,0)
  1. ;;=L60.4^^105^1423^89
  1. ;;^UTILITY(U,$J,358.3,33797,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33797,1,3,0)
  1. ;;=3^Beau's Lines
  1. ;;^UTILITY(U,$J,358.3,33797,1,4,0)
  1. ;;=4^L60.4
  1. ;;^UTILITY(U,$J,358.3,33797,2)
  1. ;;=^5009237
  1. ;;^UTILITY(U,$J,358.3,33798,0)
  1. ;;=L60.5^^105^1423^330
  1. ;;^UTILITY(U,$J,358.3,33798,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33798,1,3,0)
  1. ;;=3^Yellow Nail Syndrome
  1. ;;^UTILITY(U,$J,358.3,33798,1,4,0)
  1. ;;=4^L60.5
  1. ;;^UTILITY(U,$J,358.3,33798,2)
  1. ;;=^5009238
  1. ;;^UTILITY(U,$J,358.3,33799,0)
  1. ;;=L60.8^^105^1423^174
  1. ;;^UTILITY(U,$J,358.3,33799,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33799,1,3,0)
  1. ;;=3^Nail Disorders NEC
  1. ;;^UTILITY(U,$J,358.3,33799,1,4,0)
  1. ;;=4^L60.8
  1. ;;^UTILITY(U,$J,358.3,33799,2)
  1. ;;=^5009239
  1. ;;^UTILITY(U,$J,358.3,33800,0)
  1. ;;=L62.^^105^1423^175
  1. ;;^UTILITY(U,$J,358.3,33800,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33800,1,3,0)
  1. ;;=3^Nail Disorders in Diseases Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,33800,1,4,0)
  1. ;;=4^L62.
  1. ;;^UTILITY(U,$J,358.3,33800,2)
  1. ;;=^5009241
  1. ;;^UTILITY(U,$J,358.3,33801,0)
  1. ;;=L64.9^^105^1423^34
  1. ;;^UTILITY(U,$J,358.3,33801,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33801,1,3,0)
  1. ;;=3^Androgenic Alopecia,Unspec
  1. ;;^UTILITY(U,$J,358.3,33801,1,4,0)
  1. ;;=4^L64.9
  1. ;;^UTILITY(U,$J,358.3,33801,2)
  1. ;;=^5009249
  1. ;;^UTILITY(U,$J,358.3,33802,0)
  1. ;;=L65.9^^105^1423^269
  1. ;;^UTILITY(U,$J,358.3,33802,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33802,1,3,0)
  1. ;;=3^Nonscarring Hair Loss,Unspec
  1. ;;^UTILITY(U,$J,358.3,33802,1,4,0)
  1. ;;=4^L65.9
  1. ;;^UTILITY(U,$J,358.3,33802,2)
  1. ;;=^5009252
  1. ;;^UTILITY(U,$J,358.3,33803,0)
  1. ;;=L70.0^^105^1423^7
  1. ;;^UTILITY(U,$J,358.3,33803,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33803,1,3,0)
  1. ;;=3^Acne Vulgaris
  1. ;;^UTILITY(U,$J,358.3,33803,1,4,0)
  1. ;;=4^L70.0
  1. ;;^UTILITY(U,$J,358.3,33803,2)
  1. ;;=^5009268
  1. ;;^UTILITY(U,$J,358.3,33804,0)
  1. ;;=L70.1^^105^1423^2
  1. ;;^UTILITY(U,$J,358.3,33804,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33804,1,3,0)
  1. ;;=3^Acne Conglobata
  1. ;;^UTILITY(U,$J,358.3,33804,1,4,0)
  1. ;;=4^L70.1
  1. ;;^UTILITY(U,$J,358.3,33804,2)
  1. ;;=^5009269
  1. ;;^UTILITY(U,$J,358.3,33805,0)
  1. ;;=L70.3^^105^1423^6
  1. ;;^UTILITY(U,$J,358.3,33805,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33805,1,3,0)
  1. ;;=3^Acne Tropica
  1. ;;^UTILITY(U,$J,358.3,33805,1,4,0)
  1. ;;=4^L70.3
  1. ;;^UTILITY(U,$J,358.3,33805,2)
  1. ;;=^5009270
  1. ;;^UTILITY(U,$J,358.3,33806,0)
  1. ;;=L70.5^^105^1423^3
  1. ;;^UTILITY(U,$J,358.3,33806,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33806,1,3,0)
  1. ;;=3^Acne Excoriee des Jeunes Filles
  1. ;;^UTILITY(U,$J,358.3,33806,1,4,0)
  1. ;;=4^L70.5
  1. ;;^UTILITY(U,$J,358.3,33806,2)
  1. ;;=^5009272
  1. ;;^UTILITY(U,$J,358.3,33807,0)
  1. ;;=L70.8^^105^1423^5
  1. ;;^UTILITY(U,$J,358.3,33807,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33807,1,3,0)
  1. ;;=3^Acne NEC
  1. ;;^UTILITY(U,$J,358.3,33807,1,4,0)
  1. ;;=4^L70.8
  1. ;;^UTILITY(U,$J,358.3,33807,2)
  1. ;;=^87239
  1. ;;^UTILITY(U,$J,358.3,33808,0)
  1. ;;=L70.9^^105^1423^8
  1. ;;^UTILITY(U,$J,358.3,33808,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33808,1,3,0)
  1. ;;=3^Acne,Unspec
  1. ;;^UTILITY(U,$J,358.3,33808,1,4,0)
  1. ;;=4^L70.9
  1. ;;^UTILITY(U,$J,358.3,33808,2)
  1. ;;=^5009273
  1. ;;^UTILITY(U,$J,358.3,33809,0)
  1. ;;=L71.0^^105^1423^273
  1. ;;^UTILITY(U,$J,358.3,33809,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33809,1,3,0)
  1. ;;=3^Perioral Dermatitis
  1. ;;^UTILITY(U,$J,358.3,33809,1,4,0)
  1. ;;=4^L71.0
  1. ;;^UTILITY(U,$J,358.3,33809,2)
  1. ;;=^5009274
  1. ;;^UTILITY(U,$J,358.3,33810,0)
  1. ;;=L71.1^^105^1423^299
  1. ;;^UTILITY(U,$J,358.3,33810,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33810,1,3,0)
  1. ;;=3^Rhinophyma
  1. ;;^UTILITY(U,$J,358.3,33810,1,4,0)
  1. ;;=4^L71.1
  1. ;;^UTILITY(U,$J,358.3,33810,2)
  1. ;;=^106083
  1. ;;^UTILITY(U,$J,358.3,33811,0)
  1. ;;=L71.8^^105^1423^300
  1. ;;^UTILITY(U,$J,358.3,33811,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33811,1,3,0)
  1. ;;=3^Rosacea NEC
  1. ;;^UTILITY(U,$J,358.3,33811,1,4,0)
  1. ;;=4^L71.8
  1. ;;^UTILITY(U,$J,358.3,33811,2)
  1. ;;=^5009275
  1. ;;^UTILITY(U,$J,358.3,33812,0)
  1. ;;=L71.9^^105^1423^301
  1. ;;^UTILITY(U,$J,358.3,33812,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33812,1,3,0)
  1. ;;=3^Rosacea,Unspec
  1. ;;^UTILITY(U,$J,358.3,33812,1,4,0)
  1. ;;=4^L71.9
  1. ;;^UTILITY(U,$J,358.3,33812,2)
  1. ;;=^5009276
  1. ;;^UTILITY(U,$J,358.3,33813,0)
  1. ;;=L72.0^^105^1423^145
  1. ;;^UTILITY(U,$J,358.3,33813,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33813,1,3,0)
  1. ;;=3^Epidermal Cyst
  1. ;;^UTILITY(U,$J,358.3,33813,1,4,0)
  1. ;;=4^L72.0
  1. ;;^UTILITY(U,$J,358.3,33813,2)
  1. ;;=^5009277
  1. ;;^UTILITY(U,$J,358.3,33814,0)
  1. ;;=L72.12^^105^1423^325
  1. ;;^UTILITY(U,$J,358.3,33814,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33814,1,3,0)
  1. ;;=3^Trichodermal Cyst
  1. ;;^UTILITY(U,$J,358.3,33814,1,4,0)
  1. ;;=4^L72.12
  1. ;;^UTILITY(U,$J,358.3,33814,2)
  1. ;;=^5009279
  1. ;;^UTILITY(U,$J,358.3,33815,0)
  1. ;;=L72.2^^105^1423^310
  1. ;;^UTILITY(U,$J,358.3,33815,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33815,1,3,0)
  1. ;;=3^Steatocystoma Multiplex
  1. ;;^UTILITY(U,$J,358.3,33815,1,4,0)
  1. ;;=4^L72.2
  1. ;;^UTILITY(U,$J,358.3,33815,2)
  1. ;;=^5009280
  1. ;;^UTILITY(U,$J,358.3,33816,0)
  1. ;;=L72.8^^105^1423^154
  1. ;;^UTILITY(U,$J,358.3,33816,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33816,1,3,0)
  1. ;;=3^Follicular Cysts of Skin/Subcutaneous Tissue NEC
  1. ;;^UTILITY(U,$J,358.3,33816,1,4,0)
  1. ;;=4^L72.8
  1. ;;^UTILITY(U,$J,358.3,33816,2)
  1. ;;=^5009282
  1. ;;^UTILITY(U,$J,358.3,33817,0)
  1. ;;=L72.9^^105^1423^155
  1. ;;^UTILITY(U,$J,358.3,33817,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33817,1,3,0)
  1. ;;=3^Follicular Cysts of Skin/Subcutaneous Tissue,Unspec
  1. ;;^UTILITY(U,$J,358.3,33817,1,4,0)
  1. ;;=4^L72.9
  1. ;;^UTILITY(U,$J,358.3,33817,2)
  1. ;;=^5009283
  1. ;;^UTILITY(U,$J,358.3,33818,0)
  1. ;;=L73.0^^105^1423^4
  1. ;;^UTILITY(U,$J,358.3,33818,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33818,1,3,0)
  1. ;;=3^Acne Keloid
  1. ;;^UTILITY(U,$J,358.3,33818,1,4,0)
  1. ;;=4^L73.0
  1. ;;^UTILITY(U,$J,358.3,33818,2)
  1. ;;=^2149
  1. ;;^UTILITY(U,$J,358.3,33819,0)
  1. ;;=L73.2^^105^1423^162
  1. ;;^UTILITY(U,$J,358.3,33819,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33819,1,3,0)
  1. ;;=3^Hidradenitis Suppurativa
  1. ;;^UTILITY(U,$J,358.3,33819,1,4,0)
  1. ;;=4^L73.2
  1. ;;^UTILITY(U,$J,358.3,33819,2)
  1. ;;=^278979
  1. ;;^UTILITY(U,$J,358.3,33820,0)
  1. ;;=L73.9^^105^1423^156
  1. ;;^UTILITY(U,$J,358.3,33820,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33820,1,3,0)
  1. ;;=3^Follicular Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,33820,1,4,0)
  1. ;;=4^L73.9
  1. ;;^UTILITY(U,$J,358.3,33820,2)
  1. ;;=^5009286
  1. ;;^UTILITY(U,$J,358.3,33821,0)
  1. ;;=L82.0^^105^1423^163
  1. ;;^UTILITY(U,$J,358.3,33821,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33821,1,3,0)
  1. ;;=3^Inflamed Seborrheic Keratosis
  1. ;;^UTILITY(U,$J,358.3,33821,1,4,0)
  1. ;;=4^L82.0
  1. ;;^UTILITY(U,$J,358.3,33821,2)
  1. ;;=^303311
  1. ;;^UTILITY(U,$J,358.3,33822,0)
  1. ;;=L82.1^^105^1423^304
  1. ;;^UTILITY(U,$J,358.3,33822,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33822,1,3,0)
  1. ;;=3^Seborrheic Keratosis NEC
  1. ;;^UTILITY(U,$J,358.3,33822,1,4,0)
  1. ;;=4^L82.1
  1. ;;^UTILITY(U,$J,358.3,33822,2)
  1. ;;=^303312
  1. ;;^UTILITY(U,$J,358.3,33823,0)
  1. ;;=L84.^^105^1423^118
  1. ;;^UTILITY(U,$J,358.3,33823,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33823,1,3,0)
  1. ;;=3^Corns and Callosities
  1. ;;^UTILITY(U,$J,358.3,33823,1,4,0)
  1. ;;=4^L84.
  1. ;;^UTILITY(U,$J,358.3,33823,2)
  1. ;;=^271920
  1. ;;^UTILITY(U,$J,358.3,33824,0)
  1. ;;=L85.0^^105^1423^9
  1. ;;^UTILITY(U,$J,358.3,33824,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33824,1,3,0)
  1. ;;=3^Acquired Ichthyosis
  1. ;;^UTILITY(U,$J,358.3,33824,1,4,0)
  1. ;;=4^L85.0
  1. ;;^UTILITY(U,$J,358.3,33824,2)
  1. ;;=^5009320
  1. ;;^UTILITY(U,$J,358.3,33825,0)
  1. ;;=L85.1^^105^1423^11
  1. ;;^UTILITY(U,$J,358.3,33825,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33825,1,3,0)
  1. ;;=3^Acquired Keratosis Palmaris et Plantaris
  1. ;;^UTILITY(U,$J,358.3,33825,1,4,0)
  1. ;;=4^L85.1
  1. ;;^UTILITY(U,$J,358.3,33825,2)
  1. ;;=^5009321
  1. ;;^UTILITY(U,$J,358.3,33826,0)
  1. ;;=L85.2^^105^1423^169
  1. ;;^UTILITY(U,$J,358.3,33826,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33826,1,3,0)
  1. ;;=3^Keratosis Punctata
  1. ;;^UTILITY(U,$J,358.3,33826,1,4,0)
  1. ;;=4^L85.2
  1. ;;^UTILITY(U,$J,358.3,33826,2)
  1. ;;=^5009322
  1. ;;^UTILITY(U,$J,358.3,33827,0)
  1. ;;=L85.3^^105^1423^329
  1. ;;^UTILITY(U,$J,358.3,33827,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33827,1,3,0)
  1. ;;=3^Xerosis Cutis
  1. ;;^UTILITY(U,$J,358.3,33827,1,4,0)
  1. ;;=4^L85.3
  1. ;;^UTILITY(U,$J,358.3,33827,2)
  1. ;;=^5009323
  1. ;;^UTILITY(U,$J,358.3,33828,0)
  1. ;;=L86.^^105^1423^167
  1. ;;^UTILITY(U,$J,358.3,33828,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33828,1,3,0)
  1. ;;=3^Keratoderma in Diseases Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,33828,1,4,0)
  1. ;;=4^L86.
  1. ;;^UTILITY(U,$J,358.3,33828,2)
  1. ;;=^5009326
  1. ;;^UTILITY(U,$J,358.3,33829,0)
  1. ;;=L87.0^^105^1423^168
  1. ;;^UTILITY(U,$J,358.3,33829,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33829,1,3,0)
  1. ;;=3^Keratosis Follicularis et Parafollicularis in Cutem Penetrans
  1. ;;^UTILITY(U,$J,358.3,33829,1,4,0)
  1. ;;=4^L87.0
  1. ;;^UTILITY(U,$J,358.3,33829,2)
  1. ;;=^5009327
  1. ;;^UTILITY(U,$J,358.3,33830,0)
  1. ;;=L87.2^^105^1423^144
  1. ;;^UTILITY(U,$J,358.3,33830,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33830,1,3,0)
  1. ;;=3^Elastosis Perforans Serpiginosa
  1. ;;^UTILITY(U,$J,358.3,33830,1,4,0)
  1. ;;=4^L87.2
  1. ;;^UTILITY(U,$J,358.3,33830,2)
  1. ;;=^5009329
  1. ;;^UTILITY(U,$J,358.3,33831,0)
  1. ;;=L89.300^^105^1423^282
  1. ;;^UTILITY(U,$J,358.3,33831,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33831,1,3,0)
  1. ;;=3^Pressure Ulcer of Buttock,Unstageable
  1. ;;^UTILITY(U,$J,358.3,33831,1,4,0)
  1. ;;=4^L89.300
  1. ;;^UTILITY(U,$J,358.3,33831,2)
  1. ;;=^5009389
  1. ;;^UTILITY(U,$J,358.3,33832,0)
  1. ;;=L89.301^^105^1423^277
  1. ;;^UTILITY(U,$J,358.3,33832,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33832,1,3,0)
  1. ;;=3^Pressure Ulcer of Buttock,Stage 1
  1. ;;^UTILITY(U,$J,358.3,33832,1,4,0)
  1. ;;=4^L89.301
  1. ;;^UTILITY(U,$J,358.3,33832,2)
  1. ;;=^5009390
  1. ;;^UTILITY(U,$J,358.3,33833,0)
  1. ;;=L89.302^^105^1423^278
  1. ;;^UTILITY(U,$J,358.3,33833,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,33833,1,3,0)
  1. ;;=3^Pressure Ulcer of Buttock,Stage 2
  1. ;;^UTILITY(U,$J,358.3,33833,1,4,0)
  1. ;;=4^L89.302