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

IBDEI0CQ.m

Go to the documentation of this file.
IBDEI0CQ ; ; 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,31943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31943,1,3,0)
 ;;=3^Furuncle,Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31943,1,4,0)
 ;;=4^L02.423
 ;;^UTILITY(U,$J,358.3,31943,2)
 ;;=^5008982
 ;;^UTILITY(U,$J,358.3,31944,0)
 ;;=L73.8^^97^1314^3
 ;;^UTILITY(U,$J,358.3,31944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31944,1,3,0)
 ;;=3^Follicular D/O,Oth Spec (Superficial Folliculitis)
 ;;^UTILITY(U,$J,358.3,31944,1,4,0)
 ;;=4^L73.8
 ;;^UTILITY(U,$J,358.3,31944,2)
 ;;=^5009285
 ;;^UTILITY(U,$J,358.3,31945,0)
 ;;=Z80.8^^97^1314^2
 ;;^UTILITY(U,$J,358.3,31945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31945,1,3,0)
 ;;=3^Family Hx of Malig Neop of Organs/Systems
 ;;^UTILITY(U,$J,358.3,31945,1,4,0)
 ;;=4^Z80.8
 ;;^UTILITY(U,$J,358.3,31945,2)
 ;;=^5063356
 ;;^UTILITY(U,$J,358.3,31946,0)
 ;;=L73.8^^97^1314^4
 ;;^UTILITY(U,$J,358.3,31946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31946,1,3,0)
 ;;=3^Follicular D/O,Oth Spec (Superficial Folliculitis)
 ;;^UTILITY(U,$J,358.3,31946,1,4,0)
 ;;=4^L73.8
 ;;^UTILITY(U,$J,358.3,31946,2)
 ;;=^5009285
 ;;^UTILITY(U,$J,358.3,31947,0)
 ;;=B09.^^97^1315^4
 ;;^UTILITY(U,$J,358.3,31947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31947,1,3,0)
 ;;=3^Infection,Viral w/ Skin/Mucous Membrane Lesions
 ;;^UTILITY(U,$J,358.3,31947,1,4,0)
 ;;=4^B09.
 ;;^UTILITY(U,$J,358.3,31947,2)
 ;;=^5000534
 ;;^UTILITY(U,$J,358.3,31948,0)
 ;;=L08.9^^97^1315^3
 ;;^UTILITY(U,$J,358.3,31948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31948,1,3,0)
 ;;=3^Infection Local of Skin/Subcutaneous Tissue,Unspec
 ;;^UTILITY(U,$J,358.3,31948,1,4,0)
 ;;=4^L08.9
 ;;^UTILITY(U,$J,358.3,31948,2)
 ;;=^5009082
 ;;^UTILITY(U,$J,358.3,31949,0)
 ;;=Q80.0^^97^1315^1
 ;;^UTILITY(U,$J,358.3,31949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31949,1,3,0)
 ;;=3^Ichthyosis Vulgaris
 ;;^UTILITY(U,$J,358.3,31949,1,4,0)
 ;;=4^Q80.0
 ;;^UTILITY(U,$J,358.3,31949,2)
 ;;=^175407
 ;;^UTILITY(U,$J,358.3,31950,0)
 ;;=Q80.1^^97^1315^2
 ;;^UTILITY(U,$J,358.3,31950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31950,1,3,0)
 ;;=3^Ichthyosis,X-Linked
 ;;^UTILITY(U,$J,358.3,31950,1,4,0)
 ;;=4^Q80.1
 ;;^UTILITY(U,$J,358.3,31950,2)
 ;;=^5019041
 ;;^UTILITY(U,$J,358.3,31951,0)
 ;;=L76.01^^97^1315^7
 ;;^UTILITY(U,$J,358.3,31951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31951,1,3,0)
 ;;=3^Intraop Hemor/Hemtom Skin/SQ Tissue,Comp Derm Procedure
 ;;^UTILITY(U,$J,358.3,31951,1,4,0)
 ;;=4^L76.01
 ;;^UTILITY(U,$J,358.3,31951,2)
 ;;=^5009302
 ;;^UTILITY(U,$J,358.3,31952,0)
 ;;=L76.02^^97^1315^8
 ;;^UTILITY(U,$J,358.3,31952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31952,1,3,0)
 ;;=3^Intraop Hemor/Hemtom Skin/SQ Tissue,Comp Oth Procedure
 ;;^UTILITY(U,$J,358.3,31952,1,4,0)
 ;;=4^L76.02
 ;;^UTILITY(U,$J,358.3,31952,2)
 ;;=^5009303
 ;;^UTILITY(U,$J,358.3,31953,0)
 ;;=L60.0^^97^1315^5
 ;;^UTILITY(U,$J,358.3,31953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31953,1,3,0)
 ;;=3^Ingrown Nail
 ;;^UTILITY(U,$J,358.3,31953,1,4,0)
 ;;=4^L60.0
 ;;^UTILITY(U,$J,358.3,31953,2)
 ;;=^5009234
 ;;^UTILITY(U,$J,358.3,31954,0)
 ;;=L30.4^^97^1315^6
 ;;^UTILITY(U,$J,358.3,31954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31954,1,3,0)
 ;;=3^Intertrigo Erythema
 ;;^UTILITY(U,$J,358.3,31954,1,4,0)
 ;;=4^L30.4
 ;;^UTILITY(U,$J,358.3,31954,2)
 ;;=^5009157
 ;;^UTILITY(U,$J,358.3,31955,0)
 ;;=L11.0^^97^1316^3
 ;;^UTILITY(U,$J,358.3,31955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31955,1,3,0)
 ;;=3^Keratosis,Follicularis,Acquired
 ;;^UTILITY(U,$J,358.3,31955,1,4,0)
 ;;=4^L11.0
 ;;^UTILITY(U,$J,358.3,31955,2)
 ;;=^5009091
 ;;^UTILITY(U,$J,358.3,31956,0)
 ;;=L85.8^^97^1316^1
 ;;^UTILITY(U,$J,358.3,31956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31956,1,3,0)
 ;;=3^Keratoacantoma (Benign)
 ;;^UTILITY(U,$J,358.3,31956,1,4,0)
 ;;=4^L85.8
 ;;^UTILITY(U,$J,358.3,31956,2)
 ;;=^5009324
 ;;^UTILITY(U,$J,358.3,31957,0)
 ;;=L57.0^^97^1316^2
 ;;^UTILITY(U,$J,358.3,31957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31957,1,3,0)
 ;;=3^Keratosis,Actinic
 ;;^UTILITY(U,$J,358.3,31957,1,4,0)
 ;;=4^L57.0
 ;;^UTILITY(U,$J,358.3,31957,2)
 ;;=^66900
 ;;^UTILITY(U,$J,358.3,31958,0)
 ;;=L82.0^^97^1316^4
 ;;^UTILITY(U,$J,358.3,31958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31958,1,3,0)
 ;;=3^Keratosis,Inflamed Seborrheic
 ;;^UTILITY(U,$J,358.3,31958,1,4,0)
 ;;=4^L82.0
 ;;^UTILITY(U,$J,358.3,31958,2)
 ;;=^303311
 ;;^UTILITY(U,$J,358.3,31959,0)
 ;;=L82.1^^97^1316^5
 ;;^UTILITY(U,$J,358.3,31959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31959,1,3,0)
 ;;=3^Keratosis,Seborrheic
 ;;^UTILITY(U,$J,358.3,31959,1,4,0)
 ;;=4^L82.1
 ;;^UTILITY(U,$J,358.3,31959,2)
 ;;=^303312
 ;;^UTILITY(U,$J,358.3,31960,0)
 ;;=B08.1^^97^1317^91
 ;;^UTILITY(U,$J,358.3,31960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31960,1,3,0)
 ;;=3^Molluscum Contagiosum
 ;;^UTILITY(U,$J,358.3,31960,1,4,0)
 ;;=4^B08.1
 ;;^UTILITY(U,$J,358.3,31960,2)
 ;;=^78675
 ;;^UTILITY(U,$J,358.3,31961,0)
 ;;=L74.0^^97^1317^89
 ;;^UTILITY(U,$J,358.3,31961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31961,1,3,0)
 ;;=3^Miliaria Rubra
 ;;^UTILITY(U,$J,358.3,31961,1,4,0)
 ;;=4^L74.0
 ;;^UTILITY(U,$J,358.3,31961,2)
 ;;=^277258
 ;;^UTILITY(U,$J,358.3,31962,0)
 ;;=D22.9^^97^1317^52
 ;;^UTILITY(U,$J,358.3,31962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31962,1,3,0)
 ;;=3^Melanocytic Nevi,Unspec
 ;;^UTILITY(U,$J,358.3,31962,1,4,0)
 ;;=4^D22.9
 ;;^UTILITY(U,$J,358.3,31962,2)
 ;;=^5002058
 ;;^UTILITY(U,$J,358.3,31963,0)
 ;;=C44.00^^97^1317^26
 ;;^UTILITY(U,$J,358.3,31963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31963,1,3,0)
 ;;=3^Malig Neop Skin of Lip,Unspec
 ;;^UTILITY(U,$J,358.3,31963,1,4,0)
 ;;=4^C44.00
 ;;^UTILITY(U,$J,358.3,31963,2)
 ;;=^340596
 ;;^UTILITY(U,$J,358.3,31964,0)
 ;;=C44.202^^97^1317^29
 ;;^UTILITY(U,$J,358.3,31964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31964,1,3,0)
 ;;=3^Malig Neop Skin of Right Ear/External Auric Canal
 ;;^UTILITY(U,$J,358.3,31964,1,4,0)
 ;;=4^C44.202
 ;;^UTILITY(U,$J,358.3,31964,2)
 ;;=^5001029
 ;;^UTILITY(U,$J,358.3,31965,0)
 ;;=C44.209^^97^1317^21
 ;;^UTILITY(U,$J,358.3,31965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31965,1,3,0)
 ;;=3^Malig Neop Skin of Left Ear/External Auric Canal
 ;;^UTILITY(U,$J,358.3,31965,1,4,0)
 ;;=4^C44.209
 ;;^UTILITY(U,$J,358.3,31965,2)
 ;;=^5001030
 ;;^UTILITY(U,$J,358.3,31966,0)
 ;;=C44.301^^97^1317^27
 ;;^UTILITY(U,$J,358.3,31966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31966,1,3,0)
 ;;=3^Malig Neop Skin of Nose
 ;;^UTILITY(U,$J,358.3,31966,1,4,0)
 ;;=4^C44.301
 ;;^UTILITY(U,$J,358.3,31966,2)
 ;;=^5001041
 ;;^UTILITY(U,$J,358.3,31967,0)
 ;;=C44.49^^97^1317^34
 ;;^UTILITY(U,$J,358.3,31967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31967,1,3,0)
 ;;=3^Malig Neop Skin of Scalp/Neck
 ;;^UTILITY(U,$J,358.3,31967,1,4,0)
 ;;=4^C44.49
 ;;^UTILITY(U,$J,358.3,31967,2)
 ;;=^340478
 ;;^UTILITY(U,$J,358.3,31968,0)
 ;;=C44.509^^97^1317^35
 ;;^UTILITY(U,$J,358.3,31968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31968,1,3,0)
 ;;=3^Malig Neop Skin of Trunk,Other Part
 ;;^UTILITY(U,$J,358.3,31968,1,4,0)
 ;;=4^C44.509
 ;;^UTILITY(U,$J,358.3,31968,2)
 ;;=^5001053
 ;;^UTILITY(U,$J,358.3,31969,0)
 ;;=C44.590^^97^1317^19
 ;;^UTILITY(U,$J,358.3,31969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31969,1,3,0)
 ;;=3^Malig Neop Skin of Anus
 ;;^UTILITY(U,$J,358.3,31969,1,4,0)
 ;;=4^C44.590
 ;;^UTILITY(U,$J,358.3,31969,2)
 ;;=^5001060
 ;;^UTILITY(U,$J,358.3,31970,0)
 ;;=C44.591^^97^1317^20
 ;;^UTILITY(U,$J,358.3,31970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31970,1,3,0)
 ;;=3^Malig Neop Skin of Breast
 ;;^UTILITY(U,$J,358.3,31970,1,4,0)
 ;;=4^C44.591
 ;;^UTILITY(U,$J,358.3,31970,2)
 ;;=^5001061
 ;;^UTILITY(U,$J,358.3,31971,0)
 ;;=C44.692^^97^1317^33
 ;;^UTILITY(U,$J,358.3,31971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31971,1,3,0)
 ;;=3^Malig Neop Skin of Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31971,1,4,0)
 ;;=4^C44.692
 ;;^UTILITY(U,$J,358.3,31971,2)
 ;;=^5001073
 ;;^UTILITY(U,$J,358.3,31972,0)
 ;;=C44.699^^97^1317^25
 ;;^UTILITY(U,$J,358.3,31972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31972,1,3,0)
 ;;=3^Malig Neop Skin of Left Upper Limb
 ;;^UTILITY(U,$J,358.3,31972,1,4,0)
 ;;=4^C44.699
 ;;^UTILITY(U,$J,358.3,31972,2)
 ;;=^5001074
 ;;^UTILITY(U,$J,358.3,31973,0)
 ;;=C44.99^^97^1317^37
 ;;^UTILITY(U,$J,358.3,31973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31973,1,3,0)
 ;;=3^Malig Neop Skin,Unspec Site
 ;;^UTILITY(U,$J,358.3,31973,1,4,0)
 ;;=4^C44.99
 ;;^UTILITY(U,$J,358.3,31973,2)
 ;;=^5001094
 ;;^UTILITY(U,$J,358.3,31974,0)
 ;;=C44.792^^97^1317^31
 ;;^UTILITY(U,$J,358.3,31974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31974,1,3,0)
 ;;=3^Malig Neop Skin of Right Lower Limb
 ;;^UTILITY(U,$J,358.3,31974,1,4,0)
 ;;=4^C44.792
 ;;^UTILITY(U,$J,358.3,31974,2)
 ;;=^5001085
 ;;^UTILITY(U,$J,358.3,31975,0)
 ;;=C44.799^^97^1317^23
 ;;^UTILITY(U,$J,358.3,31975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31975,1,3,0)
 ;;=3^Malig Neop Skin of Left Lower Limb
 ;;^UTILITY(U,$J,358.3,31975,1,4,0)
 ;;=4^C44.799
 ;;^UTILITY(U,$J,358.3,31975,2)
 ;;=^5001086
 ;;^UTILITY(U,$J,358.3,31976,0)
 ;;=C44.89^^97^1317^28
 ;;^UTILITY(U,$J,358.3,31976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31976,1,3,0)
 ;;=3^Malig Neop Skin of Overlapping Sites
 ;;^UTILITY(U,$J,358.3,31976,1,4,0)
 ;;=4^C44.89
 ;;^UTILITY(U,$J,358.3,31976,2)
 ;;=^5001090
 ;;^UTILITY(U,$J,358.3,31977,0)
 ;;=C43.0^^97^1317^8
 ;;^UTILITY(U,$J,358.3,31977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31977,1,3,0)
 ;;=3^Malig Melanoma of Lip
 ;;^UTILITY(U,$J,358.3,31977,1,4,0)
 ;;=4^C43.0
 ;;^UTILITY(U,$J,358.3,31977,2)
 ;;=^5000994
 ;;^UTILITY(U,$J,358.3,31978,0)
 ;;=C43.21^^97^1317^11
 ;;^UTILITY(U,$J,358.3,31978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31978,1,3,0)
 ;;=3^Malig Melanoma of Right Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,31978,1,4,0)
 ;;=4^C43.21
 ;;^UTILITY(U,$J,358.3,31978,2)
 ;;=^5000999
 ;;^UTILITY(U,$J,358.3,31979,0)
 ;;=C43.22^^97^1317^3
 ;;^UTILITY(U,$J,358.3,31979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31979,1,3,0)
 ;;=3^Malig Melanoma of Left Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,31979,1,4,0)
 ;;=4^C43.22
 ;;^UTILITY(U,$J,358.3,31979,2)
 ;;=^5001000
 ;;^UTILITY(U,$J,358.3,31980,0)
 ;;=C43.31^^97^1317^9
 ;;^UTILITY(U,$J,358.3,31980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31980,1,3,0)
 ;;=3^Malig Melanoma of Nose
 ;;^UTILITY(U,$J,358.3,31980,1,4,0)
 ;;=4^C43.31
 ;;^UTILITY(U,$J,358.3,31980,2)
 ;;=^5001002
 ;;^UTILITY(U,$J,358.3,31981,0)
 ;;=C43.39^^97^1317^2
 ;;^UTILITY(U,$J,358.3,31981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31981,1,3,0)
 ;;=3^Malig Melanoma of Face,Other Parts
 ;;^UTILITY(U,$J,358.3,31981,1,4,0)
 ;;=4^C43.39
 ;;^UTILITY(U,$J,358.3,31981,2)
 ;;=^5001003
 ;;^UTILITY(U,$J,358.3,31982,0)
 ;;=C43.4^^97^1317^16
 ;;^UTILITY(U,$J,358.3,31982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31982,1,3,0)
 ;;=3^Malig Melanoma of Scalp/Neck
 ;;^UTILITY(U,$J,358.3,31982,1,4,0)
 ;;=4^C43.4
 ;;^UTILITY(U,$J,358.3,31982,2)
 ;;=^5001004
 ;;^UTILITY(U,$J,358.3,31983,0)
 ;;=C43.59^^97^1317^18
 ;;^UTILITY(U,$J,358.3,31983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31983,1,3,0)
 ;;=3^Malig Melanoma of Trunk,Other Part
 ;;^UTILITY(U,$J,358.3,31983,1,4,0)
 ;;=4^C43.59
 ;;^UTILITY(U,$J,358.3,31983,2)
 ;;=^5001007
 ;;^UTILITY(U,$J,358.3,31984,0)
 ;;=C43.51^^97^1317^1
 ;;^UTILITY(U,$J,358.3,31984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31984,1,3,0)
 ;;=3^Malig Melanoma of Anal Skin
 ;;^UTILITY(U,$J,358.3,31984,1,4,0)
 ;;=4^C43.51
 ;;^UTILITY(U,$J,358.3,31984,2)
 ;;=^5001005
 ;;^UTILITY(U,$J,358.3,31985,0)
 ;;=C43.52^^97^1317^17
 ;;^UTILITY(U,$J,358.3,31985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31985,1,3,0)
 ;;=3^Malig Melanoma of Skin of Breast
 ;;^UTILITY(U,$J,358.3,31985,1,4,0)
 ;;=4^C43.52
 ;;^UTILITY(U,$J,358.3,31985,2)
 ;;=^5001006
 ;;^UTILITY(U,$J,358.3,31986,0)
 ;;=C43.61^^97^1317^15
 ;;^UTILITY(U,$J,358.3,31986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31986,1,3,0)
 ;;=3^Malig Melanoma of Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31986,1,4,0)
 ;;=4^C43.61
 ;;^UTILITY(U,$J,358.3,31986,2)
 ;;=^5001009
 ;;^UTILITY(U,$J,358.3,31987,0)
 ;;=C43.62^^97^1317^7
 ;;^UTILITY(U,$J,358.3,31987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31987,1,3,0)
 ;;=3^Malig Melanoma of Left Upper Limb
 ;;^UTILITY(U,$J,358.3,31987,1,4,0)
 ;;=4^C43.62
 ;;^UTILITY(U,$J,358.3,31987,2)
 ;;=^5001010
 ;;^UTILITY(U,$J,358.3,31988,0)
 ;;=C43.71^^97^1317^13
 ;;^UTILITY(U,$J,358.3,31988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31988,1,3,0)
 ;;=3^Malig Melanoma of Right Lower Limb
 ;;^UTILITY(U,$J,358.3,31988,1,4,0)
 ;;=4^C43.71
 ;;^UTILITY(U,$J,358.3,31988,2)
 ;;=^5001012
 ;;^UTILITY(U,$J,358.3,31989,0)
 ;;=C43.72^^97^1317^5
 ;;^UTILITY(U,$J,358.3,31989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31989,1,3,0)
 ;;=3^Malig Melanoma of Left Lower Limb
 ;;^UTILITY(U,$J,358.3,31989,1,4,0)
 ;;=4^C43.72
 ;;^UTILITY(U,$J,358.3,31989,2)
 ;;=^5001013
 ;;^UTILITY(U,$J,358.3,31990,0)
 ;;=C43.8^^97^1317^10
 ;;^UTILITY(U,$J,358.3,31990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31990,1,3,0)
 ;;=3^Malig Melanoma of Overlapping Sites of Skin
 ;;^UTILITY(U,$J,358.3,31990,1,4,0)
 ;;=4^C43.8
 ;;^UTILITY(U,$J,358.3,31990,2)
 ;;=^5001014
 ;;^UTILITY(U,$J,358.3,31991,0)
 ;;=D03.0^^97^1317^66
 ;;^UTILITY(U,$J,358.3,31991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31991,1,3,0)
 ;;=3^Melanoma in Situ of Lip
 ;;^UTILITY(U,$J,358.3,31991,1,4,0)
 ;;=4^D03.0
 ;;^UTILITY(U,$J,358.3,31991,2)
 ;;=^5001888
 ;;^UTILITY(U,$J,358.3,31992,0)
 ;;=D03.21^^97^1317^58
 ;;^UTILITY(U,$J,358.3,31992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31992,1,3,0)
 ;;=3^Melanoma in Situ Right Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,31992,1,4,0)
 ;;=4^D03.21
 ;;^UTILITY(U,$J,358.3,31992,2)
 ;;=^5001893
 ;;^UTILITY(U,$J,358.3,31993,0)
 ;;=D03.22^^97^1317^55
 ;;^UTILITY(U,$J,358.3,31993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31993,1,3,0)
 ;;=3^Melanoma in Situ Left Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,31993,1,4,0)
 ;;=4^D03.22
 ;;^UTILITY(U,$J,358.3,31993,2)
 ;;=^5001894
 ;;^UTILITY(U,$J,358.3,31994,0)
 ;;=D03.30^^97^1317^63
 ;;^UTILITY(U,$J,358.3,31994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31994,1,3,0)
 ;;=3^Melanoma in Situ Unspec Part of Face
 ;;^UTILITY(U,$J,358.3,31994,1,4,0)
 ;;=4^D03.30
 ;;^UTILITY(U,$J,358.3,31994,2)
 ;;=^5001895
 ;;^UTILITY(U,$J,358.3,31995,0)
 ;;=D03.4^^97^1317^61
 ;;^UTILITY(U,$J,358.3,31995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31995,1,3,0)
 ;;=3^Melanoma in Situ Scalp/Neck
 ;;^UTILITY(U,$J,358.3,31995,1,4,0)
 ;;=4^D03.4
 ;;^UTILITY(U,$J,358.3,31995,2)
 ;;=^5001897
 ;;^UTILITY(U,$J,358.3,31996,0)
 ;;=D03.59^^97^1317^62
 ;;^UTILITY(U,$J,358.3,31996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31996,1,3,0)
 ;;=3^Melanoma in Situ Trunk,Other Part
 ;;^UTILITY(U,$J,358.3,31996,1,4,0)
 ;;=4^D03.59
 ;;^UTILITY(U,$J,358.3,31996,2)
 ;;=^5001900
 ;;^UTILITY(U,$J,358.3,31997,0)
 ;;=D03.51^^97^1317^53
 ;;^UTILITY(U,$J,358.3,31997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31997,1,3,0)
 ;;=3^Melanoma in Situ Anal Skin
 ;;^UTILITY(U,$J,358.3,31997,1,4,0)
 ;;=4^D03.51
 ;;^UTILITY(U,$J,358.3,31997,2)
 ;;=^5001898
 ;;^UTILITY(U,$J,358.3,31998,0)
 ;;=D03.52^^97^1317^54
 ;;^UTILITY(U,$J,358.3,31998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31998,1,3,0)
 ;;=3^Melanoma in Situ Breast,Skin/Soft Tissue
 ;;^UTILITY(U,$J,358.3,31998,1,4,0)
 ;;=4^D03.52
 ;;^UTILITY(U,$J,358.3,31998,2)
 ;;=^5001899
 ;;^UTILITY(U,$J,358.3,31999,0)
 ;;=D03.61^^97^1317^60
 ;;^UTILITY(U,$J,358.3,31999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31999,1,3,0)
 ;;=3^Melanoma in Situ Right Upper Limb
 ;;^UTILITY(U,$J,358.3,31999,1,4,0)
 ;;=4^D03.61
 ;;^UTILITY(U,$J,358.3,31999,2)
 ;;=^5001902
 ;;^UTILITY(U,$J,358.3,32000,0)
 ;;=D03.62^^97^1317^57
 ;;^UTILITY(U,$J,358.3,32000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32000,1,3,0)
 ;;=3^Melanoma in Situ Left Upper Limb
 ;;^UTILITY(U,$J,358.3,32000,1,4,0)
 ;;=4^D03.62
 ;;^UTILITY(U,$J,358.3,32000,2)
 ;;=^5001903
 ;;^UTILITY(U,$J,358.3,32001,0)
 ;;=D03.71^^97^1317^59
 ;;^UTILITY(U,$J,358.3,32001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32001,1,3,0)
 ;;=3^Melanoma in Situ Right Lower Limb
 ;;^UTILITY(U,$J,358.3,32001,1,4,0)
 ;;=4^D03.71
 ;;^UTILITY(U,$J,358.3,32001,2)
 ;;=^5001905
 ;;^UTILITY(U,$J,358.3,32002,0)
 ;;=D03.72^^97^1317^56
 ;;^UTILITY(U,$J,358.3,32002,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32002,1,3,0)
 ;;=3^Melanoma in Situ Left Lower Limb
 ;;^UTILITY(U,$J,358.3,32002,1,4,0)
 ;;=4^D03.72
 ;;^UTILITY(U,$J,358.3,32002,2)
 ;;=^5001906
 ;;^UTILITY(U,$J,358.3,32003,0)
 ;;=D03.8^^97^1317^67
 ;;^UTILITY(U,$J,358.3,32003,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32003,1,3,0)
 ;;=3^Melanoma in Situ of Other Sites
 ;;^UTILITY(U,$J,358.3,32003,1,4,0)
 ;;=4^D03.8
 ;;^UTILITY(U,$J,358.3,32003,2)
 ;;=^5001907
 ;;^UTILITY(U,$J,358.3,32004,0)
 ;;=D22.0^^97^1317^43
 ;;^UTILITY(U,$J,358.3,32004,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32004,1,3,0)
 ;;=3^Melanocytic Nevi of Lip
 ;;^UTILITY(U,$J,358.3,32004,1,4,0)
 ;;=4^D22.0
 ;;^UTILITY(U,$J,358.3,32004,2)
 ;;=^5002041
 ;;^UTILITY(U,$J,358.3,32005,0)
 ;;=D22.21^^97^1317^44
 ;;^UTILITY(U,$J,358.3,32005,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32005,1,3,0)
 ;;=3^Melanocytic Nevi of Right Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,32005,1,4,0)
 ;;=4^D22.21
 ;;^UTILITY(U,$J,358.3,32005,2)
 ;;=^5002046
 ;;^UTILITY(U,$J,358.3,32006,0)
 ;;=D22.22^^97^1317^38
 ;;^UTILITY(U,$J,358.3,32006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32006,1,3,0)
 ;;=3^Melanocytic Nevi of Left Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,32006,1,4,0)
 ;;=4^D22.22
 ;;^UTILITY(U,$J,358.3,32006,2)
 ;;=^5002047
 ;;^UTILITY(U,$J,358.3,32007,0)
 ;;=D22.30^^97^1317^51
 ;;^UTILITY(U,$J,358.3,32007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32007,1,3,0)
 ;;=3^Melanocytic Nevi of Unspec Part of Face
 ;;^UTILITY(U,$J,358.3,32007,1,4,0)
 ;;=4^D22.30
 ;;^UTILITY(U,$J,358.3,32007,2)
 ;;=^5002048
 ;;^UTILITY(U,$J,358.3,32008,0)
 ;;=D22.4^^97^1317^49
 ;;^UTILITY(U,$J,358.3,32008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32008,1,3,0)
 ;;=3^Melanocytic Nevi of Scalp/Neck
 ;;^UTILITY(U,$J,358.3,32008,1,4,0)
 ;;=4^D22.4
 ;;^UTILITY(U,$J,358.3,32008,2)
 ;;=^5002050
 ;;^UTILITY(U,$J,358.3,32009,0)
 ;;=D22.5^^97^1317^50
 ;;^UTILITY(U,$J,358.3,32009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32009,1,3,0)
 ;;=3^Melanocytic Nevi of Trunk
 ;;^UTILITY(U,$J,358.3,32009,1,4,0)
 ;;=4^D22.5
 ;;^UTILITY(U,$J,358.3,32009,2)
 ;;=^5002051
 ;;^UTILITY(U,$J,358.3,32010,0)
 ;;=D22.61^^97^1317^48
 ;;^UTILITY(U,$J,358.3,32010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32010,1,3,0)
 ;;=3^Melanocytic Nevi of Right Upper Limb
 ;;^UTILITY(U,$J,358.3,32010,1,4,0)
 ;;=4^D22.61
 ;;^UTILITY(U,$J,358.3,32010,2)
 ;;=^5002053
 ;;^UTILITY(U,$J,358.3,32011,0)
 ;;=D22.62^^97^1317^42
 ;;^UTILITY(U,$J,358.3,32011,1,0)
 ;;=^358.31IA^4^2