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

IBDEI03J.m

Go to the documentation of this file.
IBDEI03J ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
 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,8141,1,3,0)
 ;;=3^Mycosis Fungoides,Axilla/Upper Limb Lymph Nodes
 ;;^UTILITY(U,$J,358.3,8141,1,4,0)
 ;;=4^C84.04
 ;;^UTILITY(U,$J,358.3,8141,2)
 ;;=^5001625
 ;;^UTILITY(U,$J,358.3,8142,0)
 ;;=C84.01^^55^500^94
 ;;^UTILITY(U,$J,358.3,8142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8142,1,3,0)
 ;;=3^Mycosis Fungoides,Head/Face/Neck Lymph Nodes
 ;;^UTILITY(U,$J,358.3,8142,1,4,0)
 ;;=4^C84.01
 ;;^UTILITY(U,$J,358.3,8142,2)
 ;;=^5001622
 ;;^UTILITY(U,$J,358.3,8143,0)
 ;;=C84.05^^55^500^95
 ;;^UTILITY(U,$J,358.3,8143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8143,1,3,0)
 ;;=3^Mycosis Fungoides,Inguinal Region/LE Lymph Nodes
 ;;^UTILITY(U,$J,358.3,8143,1,4,0)
 ;;=4^C84.05
 ;;^UTILITY(U,$J,358.3,8143,2)
 ;;=^5001626
 ;;^UTILITY(U,$J,358.3,8144,0)
 ;;=C84.08^^55^500^99
 ;;^UTILITY(U,$J,358.3,8144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8144,1,3,0)
 ;;=3^Mycosis Fungoides,Multiple Site Lymph Nodes
 ;;^UTILITY(U,$J,358.3,8144,1,4,0)
 ;;=4^C84.08
 ;;^UTILITY(U,$J,358.3,8144,2)
 ;;=^5001629
 ;;^UTILITY(U,$J,358.3,8145,0)
 ;;=C84.07^^55^500^100
 ;;^UTILITY(U,$J,358.3,8145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8145,1,3,0)
 ;;=3^Mycosis Fungoides,Spleen
 ;;^UTILITY(U,$J,358.3,8145,1,4,0)
 ;;=4^C84.07
 ;;^UTILITY(U,$J,358.3,8145,2)
 ;;=^5001628
 ;;^UTILITY(U,$J,358.3,8146,0)
 ;;=C84.00^^55^500^101
 ;;^UTILITY(U,$J,358.3,8146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8146,1,3,0)
 ;;=3^Mycosis Fungoides,Unspec Site
 ;;^UTILITY(U,$J,358.3,8146,1,4,0)
 ;;=4^C84.00
 ;;^UTILITY(U,$J,358.3,8146,2)
 ;;=^5001621
 ;;^UTILITY(U,$J,358.3,8147,0)
 ;;=C43.122^^55^500^4
 ;;^UTILITY(U,$J,358.3,8147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8147,1,3,0)
 ;;=3^Malig Melanoma of Left Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8147,1,4,0)
 ;;=4^C43.122
 ;;^UTILITY(U,$J,358.3,8147,2)
 ;;=^5157252
 ;;^UTILITY(U,$J,358.3,8148,0)
 ;;=C43.121^^55^500^6
 ;;^UTILITY(U,$J,358.3,8148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8148,1,3,0)
 ;;=3^Malig Melanoma of Left Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8148,1,4,0)
 ;;=4^C43.121
 ;;^UTILITY(U,$J,358.3,8148,2)
 ;;=^5157251
 ;;^UTILITY(U,$J,358.3,8149,0)
 ;;=C43.112^^55^500^12
 ;;^UTILITY(U,$J,358.3,8149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8149,1,3,0)
 ;;=3^Malig Melanoma of Right Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8149,1,4,0)
 ;;=4^C43.112
 ;;^UTILITY(U,$J,358.3,8149,2)
 ;;=^5157250
 ;;^UTILITY(U,$J,358.3,8150,0)
 ;;=C43.111^^55^500^14
 ;;^UTILITY(U,$J,358.3,8150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8150,1,3,0)
 ;;=3^Malig Melanoma of Right Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8150,1,4,0)
 ;;=4^C43.111
 ;;^UTILITY(U,$J,358.3,8150,2)
 ;;=^5157249
 ;;^UTILITY(U,$J,358.3,8151,0)
 ;;=C44.1922^^55^500^30
 ;;^UTILITY(U,$J,358.3,8151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8151,1,3,0)
 ;;=3^Malig Neop Skin of Right Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8151,1,4,0)
 ;;=4^C44.1922
 ;;^UTILITY(U,$J,358.3,8151,2)
 ;;=^5157271
 ;;^UTILITY(U,$J,358.3,8152,0)
 ;;=C44.1921^^55^500^32
 ;;^UTILITY(U,$J,358.3,8152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8152,1,3,0)
 ;;=3^Malig Neop Skin of Right Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8152,1,4,0)
 ;;=4^C44.1921
 ;;^UTILITY(U,$J,358.3,8152,2)
 ;;=^5157270
 ;;^UTILITY(U,$J,358.3,8153,0)
 ;;=C44.1992^^55^500^22
 ;;^UTILITY(U,$J,358.3,8153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8153,1,3,0)
 ;;=3^Malig Neop Skin of Left Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8153,1,4,0)
 ;;=4^C44.1992
 ;;^UTILITY(U,$J,358.3,8153,2)
 ;;=^5157273
 ;;^UTILITY(U,$J,358.3,8154,0)
 ;;=C44.1991^^55^500^24
 ;;^UTILITY(U,$J,358.3,8154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8154,1,3,0)
 ;;=3^Malig Neop Skin of Left Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8154,1,4,0)
 ;;=4^C44.1991
 ;;^UTILITY(U,$J,358.3,8154,2)
 ;;=^5157272
 ;;^UTILITY(U,$J,358.3,8155,0)
 ;;=D22.122^^55^500^39
 ;;^UTILITY(U,$J,358.3,8155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8155,1,3,0)
 ;;=3^Melanocytic Nevi of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,8155,1,4,0)
 ;;=4^D22.122
 ;;^UTILITY(U,$J,358.3,8155,2)
 ;;=^5157289
 ;;^UTILITY(U,$J,358.3,8156,0)
 ;;=D22.121^^55^500^41
 ;;^UTILITY(U,$J,358.3,8156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8156,1,3,0)
 ;;=3^Melanocytic Nevi of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,8156,1,4,0)
 ;;=4^D22.121
 ;;^UTILITY(U,$J,358.3,8156,2)
 ;;=^5157288
 ;;^UTILITY(U,$J,358.3,8157,0)
 ;;=D22.112^^55^500^45
 ;;^UTILITY(U,$J,358.3,8157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8157,1,3,0)
 ;;=3^Melanocytic Nevi of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,8157,1,4,0)
 ;;=4^D22.112
 ;;^UTILITY(U,$J,358.3,8157,2)
 ;;=^5157287
 ;;^UTILITY(U,$J,358.3,8158,0)
 ;;=D22.111^^55^500^47
 ;;^UTILITY(U,$J,358.3,8158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8158,1,3,0)
 ;;=3^Melanocytic Nevi of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,8158,1,4,0)
 ;;=4^D22.111
 ;;^UTILITY(U,$J,358.3,8158,2)
 ;;=^5157286
 ;;^UTILITY(U,$J,358.3,8159,0)
 ;;=D03.122^^55^500^64
 ;;^UTILITY(U,$J,358.3,8159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8159,1,3,0)
 ;;=3^Melanoma in Situ of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,8159,1,4,0)
 ;;=4^D03.122
 ;;^UTILITY(U,$J,358.3,8159,2)
 ;;=^5157281
 ;;^UTILITY(U,$J,358.3,8160,0)
 ;;=D03.121^^55^500^65
 ;;^UTILITY(U,$J,358.3,8160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8160,1,3,0)
 ;;=3^Melanoma in Situ of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,8160,1,4,0)
 ;;=4^D03.121
 ;;^UTILITY(U,$J,358.3,8160,2)
 ;;=^5157280
 ;;^UTILITY(U,$J,358.3,8161,0)
 ;;=D03.112^^55^500^68
 ;;^UTILITY(U,$J,358.3,8161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8161,1,3,0)
 ;;=3^Melanoma in Situ of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,8161,1,4,0)
 ;;=4^D03.112
 ;;^UTILITY(U,$J,358.3,8161,2)
 ;;=^5157279
 ;;^UTILITY(U,$J,358.3,8162,0)
 ;;=D03.111^^55^500^69
 ;;^UTILITY(U,$J,358.3,8162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8162,1,3,0)
 ;;=3^Melanoma in Situ of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,8162,1,4,0)
 ;;=4^D03.111
 ;;^UTILITY(U,$J,358.3,8162,2)
 ;;=^5157278
 ;;^UTILITY(U,$J,358.3,8163,0)
 ;;=C4A.122^^55^500^77
 ;;^UTILITY(U,$J,358.3,8163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8163,1,3,0)
 ;;=3^Merkle Cell CA,Left Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8163,1,4,0)
 ;;=4^C4A.122
 ;;^UTILITY(U,$J,358.3,8163,2)
 ;;=^5157277
 ;;^UTILITY(U,$J,358.3,8164,0)
 ;;=C4A.121^^55^500^71
 ;;^UTILITY(U,$J,358.3,8164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8164,1,3,0)
 ;;=3^Merkel Cell CA,Left Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8164,1,4,0)
 ;;=4^C4A.121
 ;;^UTILITY(U,$J,358.3,8164,2)
 ;;=^5157276
 ;;^UTILITY(U,$J,358.3,8165,0)
 ;;=C4A.111^^55^500^73
 ;;^UTILITY(U,$J,358.3,8165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8165,1,3,0)
 ;;=3^Merkel Cell CA,Right Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8165,1,4,0)
 ;;=4^C4A.111
 ;;^UTILITY(U,$J,358.3,8165,2)
 ;;=^5157274
 ;;^UTILITY(U,$J,358.3,8166,0)
 ;;=C4A.112^^55^500^72
 ;;^UTILITY(U,$J,358.3,8166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8166,1,3,0)
 ;;=3^Merkel Cell CA,Right Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,8166,1,4,0)
 ;;=4^C4A.112
 ;;^UTILITY(U,$J,358.3,8166,2)
 ;;=^5157275
 ;;^UTILITY(U,$J,358.3,8167,0)
 ;;=I78.1^^55^501^9
 ;;^UTILITY(U,$J,358.3,8167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8167,1,3,0)
 ;;=3^Nevus,Non-Neoplastic
 ;;^UTILITY(U,$J,358.3,8167,1,4,0)
 ;;=4^I78.1
 ;;^UTILITY(U,$J,358.3,8167,2)
 ;;=^269807
 ;;^UTILITY(U,$J,358.3,8168,0)
 ;;=L60.3^^55^501^2
 ;;^UTILITY(U,$J,358.3,8168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8168,1,3,0)
 ;;=3^Nail Dystrophy
 ;;^UTILITY(U,$J,358.3,8168,1,4,0)
 ;;=4^L60.3
 ;;^UTILITY(U,$J,358.3,8168,2)
 ;;=^5009236
 ;;^UTILITY(U,$J,358.3,8169,0)
 ;;=L92.1^^55^501^4
 ;;^UTILITY(U,$J,358.3,8169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8169,1,3,0)
 ;;=3^Necrobiosis Lipoidica NEC
 ;;^UTILITY(U,$J,358.3,8169,1,4,0)
 ;;=4^L92.1
 ;;^UTILITY(U,$J,358.3,8169,2)
 ;;=^5009462
 ;;^UTILITY(U,$J,358.3,8170,0)
 ;;=L20.81^^55^501^8
 ;;^UTILITY(U,$J,358.3,8170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8170,1,3,0)
 ;;=3^Neurodermatitis,Atopic
 ;;^UTILITY(U,$J,358.3,8170,1,4,0)
 ;;=4^L20.81
 ;;^UTILITY(U,$J,358.3,8170,2)
 ;;=^5009108
 ;;^UTILITY(U,$J,358.3,8171,0)
 ;;=D48.5^^55^501^7
 ;;^UTILITY(U,$J,358.3,8171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8171,1,3,0)
 ;;=3^Neoplasm,Skin,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,8171,1,4,0)
 ;;=4^D48.5
 ;;^UTILITY(U,$J,358.3,8171,2)
 ;;=^267777
 ;;^UTILITY(U,$J,358.3,8172,0)
 ;;=D49.2^^55^501^6
 ;;^UTILITY(U,$J,358.3,8172,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8172,1,3,0)
 ;;=3^Neoplasm,Bone/Soft Tissue/Skin,Unspec Behavior
 ;;^UTILITY(U,$J,358.3,8172,1,4,0)
 ;;=4^D49.2
 ;;^UTILITY(U,$J,358.3,8172,2)
 ;;=^5002272
 ;;^UTILITY(U,$J,358.3,8173,0)
 ;;=L60.0^^55^501^3
 ;;^UTILITY(U,$J,358.3,8173,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8173,1,3,0)
 ;;=3^Nail,Ingrowing
 ;;^UTILITY(U,$J,358.3,8173,1,4,0)
 ;;=4^L60.0
 ;;^UTILITY(U,$J,358.3,8173,2)
 ;;=^5009234
 ;;^UTILITY(U,$J,358.3,8174,0)
 ;;=L60.9^^55^501^1
 ;;^UTILITY(U,$J,358.3,8174,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8174,1,3,0)
 ;;=3^Nail Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,8174,1,4,0)
 ;;=4^L60.9
 ;;^UTILITY(U,$J,358.3,8174,2)
 ;;=^5009240
 ;;^UTILITY(U,$J,358.3,8175,0)
 ;;=Z91.19^^55^501^10
 ;;^UTILITY(U,$J,358.3,8175,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8175,1,3,0)
 ;;=3^Noncompliance w/ Medical Treatment/Regimen
 ;;^UTILITY(U,$J,358.3,8175,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,8175,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,8176,0)
 ;;=Z23.^^55^501^5
 ;;^UTILITY(U,$J,358.3,8176,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8176,1,3,0)
 ;;=3^Need for Immunization(s)
 ;;^UTILITY(U,$J,358.3,8176,1,4,0)
 ;;=4^Z23.
 ;;^UTILITY(U,$J,358.3,8176,2)
 ;;=^5062795
 ;;^UTILITY(U,$J,358.3,8177,0)
 ;;=E80.1^^55^502^21
 ;;^UTILITY(U,$J,358.3,8177,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8177,1,3,0)
 ;;=3^Porphyria Cutanea Tarda
 ;;^UTILITY(U,$J,358.3,8177,1,4,0)
 ;;=4^E80.1
 ;;^UTILITY(U,$J,358.3,8177,2)
 ;;=^5002982
 ;;^UTILITY(U,$J,358.3,8178,0)
 ;;=L56.4^^55^502^20
 ;;^UTILITY(U,$J,358.3,8178,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8178,1,3,0)
 ;;=3^Polymorphous Light Eruption
 ;;^UTILITY(U,$J,358.3,8178,1,4,0)
 ;;=4^L56.4
 ;;^UTILITY(U,$J,358.3,8178,2)
 ;;=^5009218
 ;;^UTILITY(U,$J,358.3,8179,0)
 ;;=L10.0^^55^502^4
 ;;^UTILITY(U,$J,358.3,8179,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8179,1,3,0)
 ;;=3^Pemphigus Vulgaris
 ;;^UTILITY(U,$J,358.3,8179,1,4,0)
 ;;=4^L10.0
 ;;^UTILITY(U,$J,358.3,8179,2)
 ;;=^91129
 ;;^UTILITY(U,$J,358.3,8180,0)
 ;;=L41.3^^55^502^2
 ;;^UTILITY(U,$J,358.3,8180,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8180,1,3,0)
 ;;=3^Parapsoriasis,Small Plague
 ;;^UTILITY(U,$J,358.3,8180,1,4,0)
 ;;=4^L41.3
 ;;^UTILITY(U,$J,358.3,8180,2)
 ;;=^5009173
 ;;^UTILITY(U,$J,358.3,8181,0)
 ;;=L41.4^^55^502^1
 ;;^UTILITY(U,$J,358.3,8181,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8181,1,3,0)
 ;;=3^Parapsoriasis,Large Plague
 ;;^UTILITY(U,$J,358.3,8181,1,4,0)
 ;;=4^L41.4
 ;;^UTILITY(U,$J,358.3,8181,2)
 ;;=^5009174
 ;;^UTILITY(U,$J,358.3,8182,0)
 ;;=L28.1^^55^502^34
 ;;^UTILITY(U,$J,358.3,8182,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8182,1,3,0)
 ;;=3^Prurigo Nodularis
 ;;^UTILITY(U,$J,358.3,8182,1,4,0)
 ;;=4^L28.1
 ;;^UTILITY(U,$J,358.3,8182,2)
 ;;=^5009148
 ;;^UTILITY(U,$J,358.3,8183,0)
 ;;=H61.001^^55^502^6
 ;;^UTILITY(U,$J,358.3,8183,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8183,1,3,0)
 ;;=3^Perichondritis Right External Ear,Unspec
 ;;^UTILITY(U,$J,358.3,8183,1,4,0)
 ;;=4^H61.001
 ;;^UTILITY(U,$J,358.3,8183,2)
 ;;=^5006499
 ;;^UTILITY(U,$J,358.3,8184,0)
 ;;=H61.002^^55^502^5
 ;;^UTILITY(U,$J,358.3,8184,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8184,1,3,0)
 ;;=3^Perichondritis Left External Ear,Unspec
 ;;^UTILITY(U,$J,358.3,8184,1,4,0)
 ;;=4^H61.002
 ;;^UTILITY(U,$J,358.3,8184,2)
 ;;=^5006500
 ;;^UTILITY(U,$J,358.3,8185,0)
 ;;=L81.0^^55^502^22
 ;;^UTILITY(U,$J,358.3,8185,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8185,1,3,0)
 ;;=3^Postinflammatory Hyperpigmentation
 ;;^UTILITY(U,$J,358.3,8185,1,4,0)
 ;;=4^L81.0
 ;;^UTILITY(U,$J,358.3,8185,2)
 ;;=^5009310
 ;;^UTILITY(U,$J,358.3,8186,0)
 ;;=L81.7^^55^502^16
 ;;^UTILITY(U,$J,358.3,8186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8186,1,3,0)
 ;;=3^Pigmented Purpuric Dermatosis
 ;;^UTILITY(U,$J,358.3,8186,1,4,0)
 ;;=4^L81.7
 ;;^UTILITY(U,$J,358.3,8186,2)
 ;;=^5009317
 ;;^UTILITY(U,$J,358.3,8187,0)
 ;;=L29.8^^55^502^36
 ;;^UTILITY(U,$J,358.3,8187,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8187,1,3,0)
 ;;=3^Pruritus NEC
 ;;^UTILITY(U,$J,358.3,8187,1,4,0)
 ;;=4^L29.8
 ;;^UTILITY(U,$J,358.3,8187,2)
 ;;=^5009152
 ;;^UTILITY(U,$J,358.3,8188,0)
 ;;=Z85.828^^55^502^10
 ;;^UTILITY(U,$J,358.3,8188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8188,1,3,0)
 ;;=3^Personal Hx of Malig Neop of Skin
 ;;^UTILITY(U,$J,358.3,8188,1,4,0)
 ;;=4^Z85.828
 ;;^UTILITY(U,$J,358.3,8188,2)
 ;;=^5063443
 ;;^UTILITY(U,$J,358.3,8189,0)
 ;;=B36.0^^55^502^19
 ;;^UTILITY(U,$J,358.3,8189,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8189,1,3,0)
 ;;=3^Pityriasis Versicolor
 ;;^UTILITY(U,$J,358.3,8189,1,4,0)
 ;;=4^B36.0
 ;;^UTILITY(U,$J,358.3,8189,2)
 ;;=^5000608
 ;;^UTILITY(U,$J,358.3,8190,0)
 ;;=Z92.3^^55^502^8
 ;;^UTILITY(U,$J,358.3,8190,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8190,1,3,0)
 ;;=3^Personal Hx of Irradiation (Therapeutic)
 ;;^UTILITY(U,$J,358.3,8190,1,4,0)
 ;;=4^Z92.3
 ;;^UTILITY(U,$J,358.3,8190,2)
 ;;=^5063637
 ;;^UTILITY(U,$J,358.3,8191,0)
 ;;=Z91.82^^55^502^11
 ;;^UTILITY(U,$J,358.3,8191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8191,1,3,0)
 ;;=3^Personal Hx of Military Deployment
 ;;^UTILITY(U,$J,358.3,8191,1,4,0)
 ;;=4^Z91.82
 ;;^UTILITY(U,$J,358.3,8191,2)
 ;;=^5063626
 ;;^UTILITY(U,$J,358.3,8192,0)
 ;;=L66.0^^55^502^42
 ;;^UTILITY(U,$J,358.3,8192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8192,1,3,0)
 ;;=3^Pseudopelade
 ;;^UTILITY(U,$J,358.3,8192,1,4,0)
 ;;=4^L66.0
 ;;^UTILITY(U,$J,358.3,8192,2)
 ;;=^191705
 ;;^UTILITY(U,$J,358.3,8193,0)
 ;;=Z85.820^^55^502^9
 ;;^UTILITY(U,$J,358.3,8193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8193,1,3,0)
 ;;=3^Personal Hx of Malig Melanoma of Skin
 ;;^UTILITY(U,$J,358.3,8193,1,4,0)
 ;;=4^Z85.820
 ;;^UTILITY(U,$J,358.3,8193,2)
 ;;=^5063441
 ;;^UTILITY(U,$J,358.3,8194,0)
 ;;=Z87.2^^55^502^12
 ;;^UTILITY(U,$J,358.3,8194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8194,1,3,0)
 ;;=3^Personal Hx of Skin Diseases
 ;;^UTILITY(U,$J,358.3,8194,1,4,0)
 ;;=4^Z87.2
 ;;^UTILITY(U,$J,358.3,8194,2)
 ;;=^5063484
 ;;^UTILITY(U,$J,358.3,8195,0)
 ;;=L08.0^^55^502^49
 ;;^UTILITY(U,$J,358.3,8195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8195,1,3,0)
 ;;=3^Pyoderma
 ;;^UTILITY(U,$J,358.3,8195,1,4,0)
 ;;=4^L08.0
 ;;^UTILITY(U,$J,358.3,8195,2)
 ;;=^5009078
 ;;^UTILITY(U,$J,358.3,8196,0)
 ;;=L73.1^^55^502^41
 ;;^UTILITY(U,$J,358.3,8196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8196,1,3,0)
 ;;=3^Pseudofolliculitis Barbae
 ;;^UTILITY(U,$J,358.3,8196,1,4,0)
 ;;=4^L73.1
 ;;^UTILITY(U,$J,358.3,8196,2)
 ;;=^5009284
 ;;^UTILITY(U,$J,358.3,8197,0)
 ;;=L42.^^55^502^17
 ;;^UTILITY(U,$J,358.3,8197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8197,1,3,0)
 ;;=3^Pityriasis Rosea
 ;;^UTILITY(U,$J,358.3,8197,1,4,0)
 ;;=4^L42.
 ;;^UTILITY(U,$J,358.3,8197,2)
 ;;=^94726
 ;;^UTILITY(U,$J,358.3,8198,0)
 ;;=L44.0^^55^502^18
 ;;^UTILITY(U,$J,358.3,8198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8198,1,3,0)
 ;;=3^Pityriasis Rubra Pilaris
 ;;^UTILITY(U,$J,358.3,8198,1,4,0)
 ;;=4^L44.0
 ;;^UTILITY(U,$J,358.3,8198,2)
 ;;=^94729
 ;;^UTILITY(U,$J,358.3,8199,0)
 ;;=L29.0^^55^502^35
 ;;^UTILITY(U,$J,358.3,8199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8199,1,3,0)
 ;;=3^Pruritus Ani
 ;;^UTILITY(U,$J,358.3,8199,1,4,0)
 ;;=4^L29.0
 ;;^UTILITY(U,$J,358.3,8199,2)
 ;;=^100061
 ;;^UTILITY(U,$J,358.3,8200,0)
 ;;=L29.1^^55^502^37
 ;;^UTILITY(U,$J,358.3,8200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8200,1,3,0)
 ;;=3^Pruritus Scroti
 ;;^UTILITY(U,$J,358.3,8200,1,4,0)
 ;;=4^L29.1
 ;;^UTILITY(U,$J,358.3,8200,2)
 ;;=^5009150
 ;;^UTILITY(U,$J,358.3,8201,0)
 ;;=L29.2^^55^502^38
 ;;^UTILITY(U,$J,358.3,8201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8201,1,3,0)
 ;;=3^Pruritus Vulvae
 ;;^UTILITY(U,$J,358.3,8201,1,4,0)
 ;;=4^L29.2
 ;;^UTILITY(U,$J,358.3,8201,2)
 ;;=^100075
 ;;^UTILITY(U,$J,358.3,8202,0)
 ;;=L29.3^^55^502^39
 ;;^UTILITY(U,$J,358.3,8202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8202,1,3,0)
 ;;=3^Pruritus,Anogenital,Unspec
 ;;^UTILITY(U,$J,358.3,8202,1,4,0)
 ;;=4^L29.3
 ;;^UTILITY(U,$J,358.3,8202,2)
 ;;=^5009151
 ;;^UTILITY(U,$J,358.3,8203,0)
 ;;=L29.9^^55^502^40
 ;;^UTILITY(U,$J,358.3,8203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8203,1,3,0)
 ;;=3^Pruritus,Unspec
 ;;^UTILITY(U,$J,358.3,8203,1,4,0)
 ;;=4^L29.9
 ;;^UTILITY(U,$J,358.3,8203,2)
 ;;=^5009153
 ;;^UTILITY(U,$J,358.3,8204,0)
 ;;=L40.0^^55^502^44
 ;;^UTILITY(U,$J,358.3,8204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8204,1,3,0)
 ;;=3^Psoriasis Vulgaris
 ;;^UTILITY(U,$J,358.3,8204,1,4,0)
 ;;=4^L40.0
 ;;^UTILITY(U,$J,358.3,8204,2)
 ;;=^5009160
 ;;^UTILITY(U,$J,358.3,8205,0)
 ;;=L40.3^^55^502^48
 ;;^UTILITY(U,$J,358.3,8205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8205,1,3,0)
 ;;=3^Pustulosis Palmaris et Plantaris
 ;;^UTILITY(U,$J,358.3,8205,1,4,0)
 ;;=4^L40.3
 ;;^UTILITY(U,$J,358.3,8205,2)
 ;;=^5009163
 ;;^UTILITY(U,$J,358.3,8206,0)
 ;;=L40.4^^55^502^45
 ;;^UTILITY(U,$J,358.3,8206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8206,1,3,0)
 ;;=3^Psoriasis,Guttate
 ;;^UTILITY(U,$J,358.3,8206,1,4,0)
 ;;=4^L40.4
 ;;^UTILITY(U,$J,358.3,8206,2)
 ;;=^5009164
 ;;^UTILITY(U,$J,358.3,8207,0)
 ;;=L40.8^^55^502^43
 ;;^UTILITY(U,$J,358.3,8207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8207,1,3,0)
 ;;=3^Psoriasis NEC
 ;;^UTILITY(U,$J,358.3,8207,1,4,0)
 ;;=4^L40.8
 ;;^UTILITY(U,$J,358.3,8207,2)
 ;;=^271917
 ;;^UTILITY(U,$J,358.3,8208,0)
 ;;=L89.95^^55^502^33
 ;;^UTILITY(U,$J,358.3,8208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8208,1,3,0)
 ;;=3^Pressure Ulcer Unspec Site,Unstageable (Covered by Eschar)
 ;;^UTILITY(U,$J,358.3,8208,1,4,0)
 ;;=4^L89.95
 ;;^UTILITY(U,$J,358.3,8208,2)
 ;;=^5133660
 ;;^UTILITY(U,$J,358.3,8209,0)
 ;;=L89.92^^55^502^29
 ;;^UTILITY(U,$J,358.3,8209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8209,1,3,0)
 ;;=3^Pressure Ulcer Unspec Site,Stage 2
 ;;^UTILITY(U,$J,358.3,8209,1,4,0)
 ;;=4^L89.92
 ;;^UTILITY(U,$J,358.3,8209,2)
 ;;=^5133667
 ;;^UTILITY(U,$J,358.3,8210,0)
 ;;=L89.93^^55^502^30
 ;;^UTILITY(U,$J,358.3,8210,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8210,1,3,0)
 ;;=3^Pressure Ulcer Unspec Site,Stage 3
 ;;^UTILITY(U,$J,358.3,8210,1,4,0)
 ;;=4^L89.93
 ;;^UTILITY(U,$J,358.3,8210,2)
 ;;=^5133668
 ;;^UTILITY(U,$J,358.3,8211,0)
 ;;=L89.94^^55^502^31