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

IBDEI0CR.m

Go to the documentation of this file.
IBDEI0CR ; ; 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,32011,1,3,0)
 ;;=3^Melanocytic Nevi of Left Upper Limb
 ;;^UTILITY(U,$J,358.3,32011,1,4,0)
 ;;=4^D22.62
 ;;^UTILITY(U,$J,358.3,32011,2)
 ;;=^5002054
 ;;^UTILITY(U,$J,358.3,32012,0)
 ;;=D22.71^^97^1317^46
 ;;^UTILITY(U,$J,358.3,32012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32012,1,3,0)
 ;;=3^Melanocytic Nevi of Right Lower Limb
 ;;^UTILITY(U,$J,358.3,32012,1,4,0)
 ;;=4^D22.71
 ;;^UTILITY(U,$J,358.3,32012,2)
 ;;=^5002056
 ;;^UTILITY(U,$J,358.3,32013,0)
 ;;=D22.72^^97^1317^40
 ;;^UTILITY(U,$J,358.3,32013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32013,1,3,0)
 ;;=3^Melanocytic Nevi of Left Lower Limb
 ;;^UTILITY(U,$J,358.3,32013,1,4,0)
 ;;=4^D22.72
 ;;^UTILITY(U,$J,358.3,32013,2)
 ;;=^5002057
 ;;^UTILITY(U,$J,358.3,32014,0)
 ;;=C44.390^^97^1317^36
 ;;^UTILITY(U,$J,358.3,32014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32014,1,3,0)
 ;;=3^Malig Neop Skin of Unspec Part of Face
 ;;^UTILITY(U,$J,358.3,32014,1,4,0)
 ;;=4^C44.390
 ;;^UTILITY(U,$J,358.3,32014,2)
 ;;=^5001049
 ;;^UTILITY(U,$J,358.3,32015,0)
 ;;=L81.1^^97^1317^70
 ;;^UTILITY(U,$J,358.3,32015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32015,1,3,0)
 ;;=3^Melasma
 ;;^UTILITY(U,$J,358.3,32015,1,4,0)
 ;;=4^L81.1
 ;;^UTILITY(U,$J,358.3,32015,2)
 ;;=^5009311
 ;;^UTILITY(U,$J,358.3,32016,0)
 ;;=L72.0^^97^1317^90
 ;;^UTILITY(U,$J,358.3,32016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32016,1,3,0)
 ;;=3^Milium
 ;;^UTILITY(U,$J,358.3,32016,1,4,0)
 ;;=4^L72.0
 ;;^UTILITY(U,$J,358.3,32016,2)
 ;;=^5009277
 ;;^UTILITY(U,$J,358.3,32017,0)
 ;;=C4A.51^^97^1317^74
 ;;^UTILITY(U,$J,358.3,32017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32017,1,3,0)
 ;;=3^Merkle Cell CA,Anal Skin
 ;;^UTILITY(U,$J,358.3,32017,1,4,0)
 ;;=4^C4A.51
 ;;^UTILITY(U,$J,358.3,32017,2)
 ;;=^5001148
 ;;^UTILITY(U,$J,358.3,32018,0)
 ;;=C4A.52^^97^1317^75
 ;;^UTILITY(U,$J,358.3,32018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32018,1,3,0)
 ;;=3^Merkle Cell CA,Breast Skin
 ;;^UTILITY(U,$J,358.3,32018,1,4,0)
 ;;=4^C4A.52
 ;;^UTILITY(U,$J,358.3,32018,2)
 ;;=^5001149
 ;;^UTILITY(U,$J,358.3,32019,0)
 ;;=C4A.22^^97^1317^76
 ;;^UTILITY(U,$J,358.3,32019,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32019,1,3,0)
 ;;=3^Merkle Cell CA,Left Ear & Ext Auricular Canal
 ;;^UTILITY(U,$J,358.3,32019,1,4,0)
 ;;=4^C4A.22
 ;;^UTILITY(U,$J,358.3,32019,2)
 ;;=^5001143
 ;;^UTILITY(U,$J,358.3,32020,0)
 ;;=C4A.0^^97^1317^80
 ;;^UTILITY(U,$J,358.3,32020,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32020,1,3,0)
 ;;=3^Merkle Cell CA,Lip
 ;;^UTILITY(U,$J,358.3,32020,1,4,0)
 ;;=4^C4A.0
 ;;^UTILITY(U,$J,358.3,32020,2)
 ;;=^5001137
 ;;^UTILITY(U,$J,358.3,32021,0)
 ;;=C4A.21^^97^1317^85
 ;;^UTILITY(U,$J,358.3,32021,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32021,1,3,0)
 ;;=3^Merkle Cell CA,Right Ear & Ext Auricular Canal
 ;;^UTILITY(U,$J,358.3,32021,1,4,0)
 ;;=4^C4A.21
 ;;^UTILITY(U,$J,358.3,32021,2)
 ;;=^5001142
 ;;^UTILITY(U,$J,358.3,32022,0)
 ;;=C4A.72^^97^1317^78
 ;;^UTILITY(U,$J,358.3,32022,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32022,1,3,0)
 ;;=3^Merkle Cell CA,Left Lower Limb,Incl Hip
 ;;^UTILITY(U,$J,358.3,32022,1,4,0)
 ;;=4^C4A.72
 ;;^UTILITY(U,$J,358.3,32022,2)
 ;;=^5001156
 ;;^UTILITY(U,$J,358.3,32023,0)
 ;;=C4A.62^^97^1317^79
 ;;^UTILITY(U,$J,358.3,32023,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32023,1,3,0)
 ;;=3^Merkle Cell CA,Left Upper Limb,Incl Shoulder
 ;;^UTILITY(U,$J,358.3,32023,1,4,0)
 ;;=4^C4A.62
 ;;^UTILITY(U,$J,358.3,32023,2)
 ;;=^5001153
 ;;^UTILITY(U,$J,358.3,32024,0)
 ;;=C4A.71^^97^1317^86
 ;;^UTILITY(U,$J,358.3,32024,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32024,1,3,0)
 ;;=3^Merkle Cell CA,Right Lower Limb,Incl Hip
 ;;^UTILITY(U,$J,358.3,32024,1,4,0)
 ;;=4^C4A.71
 ;;^UTILITY(U,$J,358.3,32024,2)
 ;;=^5001155
 ;;^UTILITY(U,$J,358.3,32025,0)
 ;;=C4A.61^^97^1317^87
 ;;^UTILITY(U,$J,358.3,32025,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32025,1,3,0)
 ;;=3^Merkle Cell CA,Right Upper Limb,Incl Shoulder
 ;;^UTILITY(U,$J,358.3,32025,1,4,0)
 ;;=4^C4A.61
 ;;^UTILITY(U,$J,358.3,32025,2)
 ;;=^5001152
 ;;^UTILITY(U,$J,358.3,32026,0)
 ;;=C4A.31^^97^1317^81
 ;;^UTILITY(U,$J,358.3,32026,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32026,1,3,0)
 ;;=3^Merkle Cell CA,Nose
 ;;^UTILITY(U,$J,358.3,32026,1,4,0)
 ;;=4^C4A.31
 ;;^UTILITY(U,$J,358.3,32026,2)
 ;;=^5001145
 ;;^UTILITY(U,$J,358.3,32027,0)
 ;;=C4A.39^^97^1317^83
 ;;^UTILITY(U,$J,358.3,32027,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32027,1,3,0)
 ;;=3^Merkle Cell CA,Parts of Face,Other
 ;;^UTILITY(U,$J,358.3,32027,1,4,0)
 ;;=4^C4A.39
 ;;^UTILITY(U,$J,358.3,32027,2)
 ;;=^5001146
 ;;^UTILITY(U,$J,358.3,32028,0)
 ;;=C4A.59^^97^1317^84
 ;;^UTILITY(U,$J,358.3,32028,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32028,1,3,0)
 ;;=3^Merkle Cell CA,Parts of Trunk,Other
 ;;^UTILITY(U,$J,358.3,32028,1,4,0)
 ;;=4^C4A.59
 ;;^UTILITY(U,$J,358.3,32028,2)
 ;;=^5001150
 ;;^UTILITY(U,$J,358.3,32029,0)
 ;;=C4A.8^^97^1317^82
 ;;^UTILITY(U,$J,358.3,32029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32029,1,3,0)
 ;;=3^Merkle Cell CA,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,32029,1,4,0)
 ;;=4^C4A.8
 ;;^UTILITY(U,$J,358.3,32029,2)
 ;;=^5001157
 ;;^UTILITY(U,$J,358.3,32030,0)
 ;;=C4A.9^^97^1317^88
 ;;^UTILITY(U,$J,358.3,32030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32030,1,3,0)
 ;;=3^Merkle Cell CA,Unspec
 ;;^UTILITY(U,$J,358.3,32030,1,4,0)
 ;;=4^C4A.9
 ;;^UTILITY(U,$J,358.3,32030,2)
 ;;=^5001158
 ;;^UTILITY(U,$J,358.3,32031,0)
 ;;=C84.09^^97^1317^93
 ;;^UTILITY(U,$J,358.3,32031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32031,1,3,0)
 ;;=3^Mycosis Fungoides,Extranodal/Solid Organ Sites
 ;;^UTILITY(U,$J,358.3,32031,1,4,0)
 ;;=4^C84.09
 ;;^UTILITY(U,$J,358.3,32031,2)
 ;;=^5001630
 ;;^UTILITY(U,$J,358.3,32032,0)
 ;;=C84.03^^97^1317^96
 ;;^UTILITY(U,$J,358.3,32032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32032,1,3,0)
 ;;=3^Mycosis Fungoides,Intra-Abdominal Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32032,1,4,0)
 ;;=4^C84.03
 ;;^UTILITY(U,$J,358.3,32032,2)
 ;;=^5001624
 ;;^UTILITY(U,$J,358.3,32033,0)
 ;;=C84.06^^97^1317^97
 ;;^UTILITY(U,$J,358.3,32033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32033,1,3,0)
 ;;=3^Mycosis Fungoides,Intrapelvic Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32033,1,4,0)
 ;;=4^C84.06
 ;;^UTILITY(U,$J,358.3,32033,2)
 ;;=^5001627
 ;;^UTILITY(U,$J,358.3,32034,0)
 ;;=C84.02^^97^1317^98
 ;;^UTILITY(U,$J,358.3,32034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32034,1,3,0)
 ;;=3^Mycosis Fungoides,Intrathoracic Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32034,1,4,0)
 ;;=4^C84.02
 ;;^UTILITY(U,$J,358.3,32034,2)
 ;;=^5001623
 ;;^UTILITY(U,$J,358.3,32035,0)
 ;;=C84.04^^97^1317^92
 ;;^UTILITY(U,$J,358.3,32035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32035,1,3,0)
 ;;=3^Mycosis Fungoides,Axilla/Upper Limb Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32035,1,4,0)
 ;;=4^C84.04
 ;;^UTILITY(U,$J,358.3,32035,2)
 ;;=^5001625
 ;;^UTILITY(U,$J,358.3,32036,0)
 ;;=C84.01^^97^1317^94
 ;;^UTILITY(U,$J,358.3,32036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32036,1,3,0)
 ;;=3^Mycosis Fungoides,Head/Face/Neck Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32036,1,4,0)
 ;;=4^C84.01
 ;;^UTILITY(U,$J,358.3,32036,2)
 ;;=^5001622
 ;;^UTILITY(U,$J,358.3,32037,0)
 ;;=C84.05^^97^1317^95
 ;;^UTILITY(U,$J,358.3,32037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32037,1,3,0)
 ;;=3^Mycosis Fungoides,Inguinal Region/LE Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32037,1,4,0)
 ;;=4^C84.05
 ;;^UTILITY(U,$J,358.3,32037,2)
 ;;=^5001626
 ;;^UTILITY(U,$J,358.3,32038,0)
 ;;=C84.08^^97^1317^99
 ;;^UTILITY(U,$J,358.3,32038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32038,1,3,0)
 ;;=3^Mycosis Fungoides,Multiple Site Lymph Nodes
 ;;^UTILITY(U,$J,358.3,32038,1,4,0)
 ;;=4^C84.08
 ;;^UTILITY(U,$J,358.3,32038,2)
 ;;=^5001629
 ;;^UTILITY(U,$J,358.3,32039,0)
 ;;=C84.07^^97^1317^100
 ;;^UTILITY(U,$J,358.3,32039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32039,1,3,0)
 ;;=3^Mycosis Fungoides,Spleen
 ;;^UTILITY(U,$J,358.3,32039,1,4,0)
 ;;=4^C84.07
 ;;^UTILITY(U,$J,358.3,32039,2)
 ;;=^5001628
 ;;^UTILITY(U,$J,358.3,32040,0)
 ;;=C84.00^^97^1317^101
 ;;^UTILITY(U,$J,358.3,32040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32040,1,3,0)
 ;;=3^Mycosis Fungoides,Unspec Site
 ;;^UTILITY(U,$J,358.3,32040,1,4,0)
 ;;=4^C84.00
 ;;^UTILITY(U,$J,358.3,32040,2)
 ;;=^5001621
 ;;^UTILITY(U,$J,358.3,32041,0)
 ;;=C43.122^^97^1317^4
 ;;^UTILITY(U,$J,358.3,32041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32041,1,3,0)
 ;;=3^Malig Melanoma of Left Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32041,1,4,0)
 ;;=4^C43.122
 ;;^UTILITY(U,$J,358.3,32041,2)
 ;;=^5157252
 ;;^UTILITY(U,$J,358.3,32042,0)
 ;;=C43.121^^97^1317^6
 ;;^UTILITY(U,$J,358.3,32042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32042,1,3,0)
 ;;=3^Malig Melanoma of Left Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32042,1,4,0)
 ;;=4^C43.121
 ;;^UTILITY(U,$J,358.3,32042,2)
 ;;=^5157251
 ;;^UTILITY(U,$J,358.3,32043,0)
 ;;=C43.112^^97^1317^12
 ;;^UTILITY(U,$J,358.3,32043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32043,1,3,0)
 ;;=3^Malig Melanoma of Right Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32043,1,4,0)
 ;;=4^C43.112
 ;;^UTILITY(U,$J,358.3,32043,2)
 ;;=^5157250
 ;;^UTILITY(U,$J,358.3,32044,0)
 ;;=C43.111^^97^1317^14
 ;;^UTILITY(U,$J,358.3,32044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32044,1,3,0)
 ;;=3^Malig Melanoma of Right Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32044,1,4,0)
 ;;=4^C43.111
 ;;^UTILITY(U,$J,358.3,32044,2)
 ;;=^5157249
 ;;^UTILITY(U,$J,358.3,32045,0)
 ;;=C44.1922^^97^1317^30
 ;;^UTILITY(U,$J,358.3,32045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32045,1,3,0)
 ;;=3^Malig Neop Skin of Right Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32045,1,4,0)
 ;;=4^C44.1922
 ;;^UTILITY(U,$J,358.3,32045,2)
 ;;=^5157271
 ;;^UTILITY(U,$J,358.3,32046,0)
 ;;=C44.1921^^97^1317^32
 ;;^UTILITY(U,$J,358.3,32046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32046,1,3,0)
 ;;=3^Malig Neop Skin of Right Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32046,1,4,0)
 ;;=4^C44.1921
 ;;^UTILITY(U,$J,358.3,32046,2)
 ;;=^5157270
 ;;^UTILITY(U,$J,358.3,32047,0)
 ;;=C44.1992^^97^1317^22
 ;;^UTILITY(U,$J,358.3,32047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32047,1,3,0)
 ;;=3^Malig Neop Skin of Left Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32047,1,4,0)
 ;;=4^C44.1992
 ;;^UTILITY(U,$J,358.3,32047,2)
 ;;=^5157273
 ;;^UTILITY(U,$J,358.3,32048,0)
 ;;=C44.1991^^97^1317^24
 ;;^UTILITY(U,$J,358.3,32048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32048,1,3,0)
 ;;=3^Malig Neop Skin of Left Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32048,1,4,0)
 ;;=4^C44.1991
 ;;^UTILITY(U,$J,358.3,32048,2)
 ;;=^5157272
 ;;^UTILITY(U,$J,358.3,32049,0)
 ;;=D22.122^^97^1317^39
 ;;^UTILITY(U,$J,358.3,32049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32049,1,3,0)
 ;;=3^Melanocytic Nevi of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,32049,1,4,0)
 ;;=4^D22.122
 ;;^UTILITY(U,$J,358.3,32049,2)
 ;;=^5157289
 ;;^UTILITY(U,$J,358.3,32050,0)
 ;;=D22.121^^97^1317^41
 ;;^UTILITY(U,$J,358.3,32050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32050,1,3,0)
 ;;=3^Melanocytic Nevi of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,32050,1,4,0)
 ;;=4^D22.121
 ;;^UTILITY(U,$J,358.3,32050,2)
 ;;=^5157288
 ;;^UTILITY(U,$J,358.3,32051,0)
 ;;=D22.112^^97^1317^45
 ;;^UTILITY(U,$J,358.3,32051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32051,1,3,0)
 ;;=3^Melanocytic Nevi of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,32051,1,4,0)
 ;;=4^D22.112
 ;;^UTILITY(U,$J,358.3,32051,2)
 ;;=^5157287
 ;;^UTILITY(U,$J,358.3,32052,0)
 ;;=D22.111^^97^1317^47
 ;;^UTILITY(U,$J,358.3,32052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32052,1,3,0)
 ;;=3^Melanocytic Nevi of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,32052,1,4,0)
 ;;=4^D22.111
 ;;^UTILITY(U,$J,358.3,32052,2)
 ;;=^5157286
 ;;^UTILITY(U,$J,358.3,32053,0)
 ;;=D03.122^^97^1317^64
 ;;^UTILITY(U,$J,358.3,32053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32053,1,3,0)
 ;;=3^Melanoma in Situ of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,32053,1,4,0)
 ;;=4^D03.122
 ;;^UTILITY(U,$J,358.3,32053,2)
 ;;=^5157281
 ;;^UTILITY(U,$J,358.3,32054,0)
 ;;=D03.121^^97^1317^65
 ;;^UTILITY(U,$J,358.3,32054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32054,1,3,0)
 ;;=3^Melanoma in Situ of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,32054,1,4,0)
 ;;=4^D03.121
 ;;^UTILITY(U,$J,358.3,32054,2)
 ;;=^5157280
 ;;^UTILITY(U,$J,358.3,32055,0)
 ;;=D03.112^^97^1317^68
 ;;^UTILITY(U,$J,358.3,32055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32055,1,3,0)
 ;;=3^Melanoma in Situ of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,32055,1,4,0)
 ;;=4^D03.112
 ;;^UTILITY(U,$J,358.3,32055,2)
 ;;=^5157279
 ;;^UTILITY(U,$J,358.3,32056,0)
 ;;=D03.111^^97^1317^69
 ;;^UTILITY(U,$J,358.3,32056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32056,1,3,0)
 ;;=3^Melanoma in Situ of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,32056,1,4,0)
 ;;=4^D03.111
 ;;^UTILITY(U,$J,358.3,32056,2)
 ;;=^5157278
 ;;^UTILITY(U,$J,358.3,32057,0)
 ;;=C4A.122^^97^1317^77
 ;;^UTILITY(U,$J,358.3,32057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32057,1,3,0)
 ;;=3^Merkle Cell CA,Left Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32057,1,4,0)
 ;;=4^C4A.122
 ;;^UTILITY(U,$J,358.3,32057,2)
 ;;=^5157277
 ;;^UTILITY(U,$J,358.3,32058,0)
 ;;=C4A.121^^97^1317^71
 ;;^UTILITY(U,$J,358.3,32058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32058,1,3,0)
 ;;=3^Merkel Cell CA,Left Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32058,1,4,0)
 ;;=4^C4A.121
 ;;^UTILITY(U,$J,358.3,32058,2)
 ;;=^5157276
 ;;^UTILITY(U,$J,358.3,32059,0)
 ;;=C4A.111^^97^1317^73
 ;;^UTILITY(U,$J,358.3,32059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32059,1,3,0)
 ;;=3^Merkel Cell CA,Right Upper Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32059,1,4,0)
 ;;=4^C4A.111
 ;;^UTILITY(U,$J,358.3,32059,2)
 ;;=^5157274
 ;;^UTILITY(U,$J,358.3,32060,0)
 ;;=C4A.112^^97^1317^72
 ;;^UTILITY(U,$J,358.3,32060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32060,1,3,0)
 ;;=3^Merkel Cell CA,Right Lower Eyelid,Incl Canthus
 ;;^UTILITY(U,$J,358.3,32060,1,4,0)
 ;;=4^C4A.112
 ;;^UTILITY(U,$J,358.3,32060,2)
 ;;=^5157275
 ;;^UTILITY(U,$J,358.3,32061,0)
 ;;=I78.1^^97^1318^9
 ;;^UTILITY(U,$J,358.3,32061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32061,1,3,0)
 ;;=3^Nevus,Non-Neoplastic
 ;;^UTILITY(U,$J,358.3,32061,1,4,0)
 ;;=4^I78.1
 ;;^UTILITY(U,$J,358.3,32061,2)
 ;;=^269807
 ;;^UTILITY(U,$J,358.3,32062,0)
 ;;=L60.3^^97^1318^2
 ;;^UTILITY(U,$J,358.3,32062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32062,1,3,0)
 ;;=3^Nail Dystrophy
 ;;^UTILITY(U,$J,358.3,32062,1,4,0)
 ;;=4^L60.3
 ;;^UTILITY(U,$J,358.3,32062,2)
 ;;=^5009236
 ;;^UTILITY(U,$J,358.3,32063,0)
 ;;=L92.1^^97^1318^4
 ;;^UTILITY(U,$J,358.3,32063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32063,1,3,0)
 ;;=3^Necrobiosis Lipoidica NEC
 ;;^UTILITY(U,$J,358.3,32063,1,4,0)
 ;;=4^L92.1
 ;;^UTILITY(U,$J,358.3,32063,2)
 ;;=^5009462
 ;;^UTILITY(U,$J,358.3,32064,0)
 ;;=L20.81^^97^1318^8
 ;;^UTILITY(U,$J,358.3,32064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32064,1,3,0)
 ;;=3^Neurodermatitis,Atopic
 ;;^UTILITY(U,$J,358.3,32064,1,4,0)
 ;;=4^L20.81
 ;;^UTILITY(U,$J,358.3,32064,2)
 ;;=^5009108
 ;;^UTILITY(U,$J,358.3,32065,0)
 ;;=D48.5^^97^1318^7
 ;;^UTILITY(U,$J,358.3,32065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32065,1,3,0)
 ;;=3^Neoplasm,Skin,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,32065,1,4,0)
 ;;=4^D48.5
 ;;^UTILITY(U,$J,358.3,32065,2)
 ;;=^267777
 ;;^UTILITY(U,$J,358.3,32066,0)
 ;;=D49.2^^97^1318^6
 ;;^UTILITY(U,$J,358.3,32066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32066,1,3,0)
 ;;=3^Neoplasm,Bone/Soft Tissue/Skin,Unspec Behavior
 ;;^UTILITY(U,$J,358.3,32066,1,4,0)
 ;;=4^D49.2
 ;;^UTILITY(U,$J,358.3,32066,2)
 ;;=^5002272
 ;;^UTILITY(U,$J,358.3,32067,0)
 ;;=L60.0^^97^1318^3
 ;;^UTILITY(U,$J,358.3,32067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32067,1,3,0)
 ;;=3^Nail,Ingrowing
 ;;^UTILITY(U,$J,358.3,32067,1,4,0)
 ;;=4^L60.0
 ;;^UTILITY(U,$J,358.3,32067,2)
 ;;=^5009234
 ;;^UTILITY(U,$J,358.3,32068,0)
 ;;=L60.9^^97^1318^1
 ;;^UTILITY(U,$J,358.3,32068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32068,1,3,0)
 ;;=3^Nail Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,32068,1,4,0)
 ;;=4^L60.9
 ;;^UTILITY(U,$J,358.3,32068,2)
 ;;=^5009240
 ;;^UTILITY(U,$J,358.3,32069,0)
 ;;=Z91.19^^97^1318^10
 ;;^UTILITY(U,$J,358.3,32069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32069,1,3,0)
 ;;=3^Noncompliance w/ Medical Treatment/Regimen
 ;;^UTILITY(U,$J,358.3,32069,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,32069,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,32070,0)
 ;;=Z23.^^97^1318^5
 ;;^UTILITY(U,$J,358.3,32070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32070,1,3,0)
 ;;=3^Need for Immunization(s)
 ;;^UTILITY(U,$J,358.3,32070,1,4,0)
 ;;=4^Z23.
 ;;^UTILITY(U,$J,358.3,32070,2)
 ;;=^5062795
 ;;^UTILITY(U,$J,358.3,32071,0)
 ;;=E80.1^^97^1319^21
 ;;^UTILITY(U,$J,358.3,32071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32071,1,3,0)
 ;;=3^Porphyria Cutanea Tarda
 ;;^UTILITY(U,$J,358.3,32071,1,4,0)
 ;;=4^E80.1
 ;;^UTILITY(U,$J,358.3,32071,2)
 ;;=^5002982
 ;;^UTILITY(U,$J,358.3,32072,0)
 ;;=L56.4^^97^1319^20
 ;;^UTILITY(U,$J,358.3,32072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32072,1,3,0)
 ;;=3^Polymorphous Light Eruption
 ;;^UTILITY(U,$J,358.3,32072,1,4,0)
 ;;=4^L56.4
 ;;^UTILITY(U,$J,358.3,32072,2)
 ;;=^5009218
 ;;^UTILITY(U,$J,358.3,32073,0)
 ;;=L10.0^^97^1319^4
 ;;^UTILITY(U,$J,358.3,32073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32073,1,3,0)
 ;;=3^Pemphigus Vulgaris
 ;;^UTILITY(U,$J,358.3,32073,1,4,0)
 ;;=4^L10.0
 ;;^UTILITY(U,$J,358.3,32073,2)
 ;;=^91129
 ;;^UTILITY(U,$J,358.3,32074,0)
 ;;=L41.3^^97^1319^2
 ;;^UTILITY(U,$J,358.3,32074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32074,1,3,0)
 ;;=3^Parapsoriasis,Small Plague
 ;;^UTILITY(U,$J,358.3,32074,1,4,0)
 ;;=4^L41.3
 ;;^UTILITY(U,$J,358.3,32074,2)
 ;;=^5009173
 ;;^UTILITY(U,$J,358.3,32075,0)
 ;;=L41.4^^97^1319^1
 ;;^UTILITY(U,$J,358.3,32075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32075,1,3,0)
 ;;=3^Parapsoriasis,Large Plague
 ;;^UTILITY(U,$J,358.3,32075,1,4,0)
 ;;=4^L41.4
 ;;^UTILITY(U,$J,358.3,32075,2)
 ;;=^5009174
 ;;^UTILITY(U,$J,358.3,32076,0)
 ;;=L28.1^^97^1319^34
 ;;^UTILITY(U,$J,358.3,32076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32076,1,3,0)
 ;;=3^Prurigo Nodularis
 ;;^UTILITY(U,$J,358.3,32076,1,4,0)
 ;;=4^L28.1
 ;;^UTILITY(U,$J,358.3,32076,2)
 ;;=^5009148
 ;;^UTILITY(U,$J,358.3,32077,0)
 ;;=H61.001^^97^1319^6
 ;;^UTILITY(U,$J,358.3,32077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32077,1,3,0)
 ;;=3^Perichondritis Right External Ear,Unspec
 ;;^UTILITY(U,$J,358.3,32077,1,4,0)
 ;;=4^H61.001
 ;;^UTILITY(U,$J,358.3,32077,2)
 ;;=^5006499
 ;;^UTILITY(U,$J,358.3,32078,0)
 ;;=H61.002^^97^1319^5
 ;;^UTILITY(U,$J,358.3,32078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32078,1,3,0)
 ;;=3^Perichondritis Left External Ear,Unspec
 ;;^UTILITY(U,$J,358.3,32078,1,4,0)
 ;;=4^H61.002