IBDEI0CU ; ; 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,32217,1,3,0)
;;=3^Cellulitis of Trunk,Unspec
;;^UTILITY(U,$J,358.3,32217,1,4,0)
;;=4^L03.319
;;^UTILITY(U,$J,358.3,32217,2)
;;=^5009054
;;^UTILITY(U,$J,358.3,32218,0)
;;=L03.90^^97^1325^36
;;^UTILITY(U,$J,358.3,32218,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32218,1,3,0)
;;=3^Cellulitis,Unspec
;;^UTILITY(U,$J,358.3,32218,1,4,0)
;;=4^L03.90
;;^UTILITY(U,$J,358.3,32218,2)
;;=^5009067
;;^UTILITY(U,$J,358.3,32219,0)
;;=L72.9^^97^1325^43
;;^UTILITY(U,$J,358.3,32219,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32219,1,3,0)
;;=3^Cyst,Follicular of Skin/Subcutaneous Tissue,Unspec
;;^UTILITY(U,$J,358.3,32219,1,4,0)
;;=4^L72.9
;;^UTILITY(U,$J,358.3,32219,2)
;;=^5009283
;;^UTILITY(U,$J,358.3,32220,0)
;;=L12.1^^97^1325^37
;;^UTILITY(U,$J,358.3,32220,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32220,1,3,0)
;;=3^Cicatricial Pemphigoid
;;^UTILITY(U,$J,358.3,32220,1,4,0)
;;=4^L12.1
;;^UTILITY(U,$J,358.3,32220,2)
;;=^5009096
;;^UTILITY(U,$J,358.3,32221,0)
;;=B37.83^^97^1325^2
;;^UTILITY(U,$J,358.3,32221,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32221,1,3,0)
;;=3^Candidal Cheilitis
;;^UTILITY(U,$J,358.3,32221,1,4,0)
;;=4^B37.83
;;^UTILITY(U,$J,358.3,32221,2)
;;=^5000622
;;^UTILITY(U,$J,358.3,32222,0)
;;=B37.0^^97^1325^3
;;^UTILITY(U,$J,358.3,32222,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32222,1,3,0)
;;=3^Candidal Stomatitis
;;^UTILITY(U,$J,358.3,32222,1,4,0)
;;=4^B37.0
;;^UTILITY(U,$J,358.3,32222,2)
;;=^5000612
;;^UTILITY(U,$J,358.3,32223,0)
;;=D04.9^^97^1325^20
;;^UTILITY(U,$J,358.3,32223,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32223,1,3,0)
;;=3^Carcinoma in Situ Skin,Unspec
;;^UTILITY(U,$J,358.3,32223,1,4,0)
;;=4^D04.9
;;^UTILITY(U,$J,358.3,32223,2)
;;=^5001925
;;^UTILITY(U,$J,358.3,32224,0)
;;=D04.0^^97^1325^11
;;^UTILITY(U,$J,358.3,32224,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32224,1,3,0)
;;=3^Carcinoma in Situ Skin Lip
;;^UTILITY(U,$J,358.3,32224,1,4,0)
;;=4^D04.0
;;^UTILITY(U,$J,358.3,32224,2)
;;=^267725
;;^UTILITY(U,$J,358.3,32225,0)
;;=D04.21^^97^1325^13
;;^UTILITY(U,$J,358.3,32225,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32225,1,3,0)
;;=3^Carcinoma in Situ Skin Right Ear/External Auricular Canal
;;^UTILITY(U,$J,358.3,32225,1,4,0)
;;=4^D04.21
;;^UTILITY(U,$J,358.3,32225,2)
;;=^5001913
;;^UTILITY(U,$J,358.3,32226,0)
;;=D04.22^^97^1325^6
;;^UTILITY(U,$J,358.3,32226,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32226,1,3,0)
;;=3^Carcinoma in Situ Skin Left Ear/External Auricular Canal
;;^UTILITY(U,$J,358.3,32226,1,4,0)
;;=4^D04.22
;;^UTILITY(U,$J,358.3,32226,2)
;;=^5001914
;;^UTILITY(U,$J,358.3,32227,0)
;;=D04.30^^97^1325^5
;;^UTILITY(U,$J,358.3,32227,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32227,1,3,0)
;;=3^Carcinoma in Situ Skin Face,Unspec
;;^UTILITY(U,$J,358.3,32227,1,4,0)
;;=4^D04.30
;;^UTILITY(U,$J,358.3,32227,2)
;;=^5001915
;;^UTILITY(U,$J,358.3,32228,0)
;;=D04.39^^97^1325^4
;;^UTILITY(U,$J,358.3,32228,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32228,1,3,0)
;;=3^Carcinoma in Situ Skin Face NEC
;;^UTILITY(U,$J,358.3,32228,1,4,0)
;;=4^D04.39
;;^UTILITY(U,$J,358.3,32228,2)
;;=^5001916
;;^UTILITY(U,$J,358.3,32229,0)
;;=D04.4^^97^1325^18
;;^UTILITY(U,$J,358.3,32229,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32229,1,3,0)
;;=3^Carcinoma in Situ Skin Scalp/Neck
;;^UTILITY(U,$J,358.3,32229,1,4,0)
;;=4^D04.4
;;^UTILITY(U,$J,358.3,32229,2)
;;=^267729
;;^UTILITY(U,$J,358.3,32230,0)
;;=D04.5^^97^1325^19
;;^UTILITY(U,$J,358.3,32230,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32230,1,3,0)
;;=3^Carcinoma in Situ Skin Trunk
;;^UTILITY(U,$J,358.3,32230,1,4,0)
;;=4^D04.5
;;^UTILITY(U,$J,358.3,32230,2)
;;=^5001917
;;^UTILITY(U,$J,358.3,32231,0)
;;=D04.61^^97^1325^17
;;^UTILITY(U,$J,358.3,32231,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32231,1,3,0)
;;=3^Carcinoma in Situ Skin Right Upper Limb
;;^UTILITY(U,$J,358.3,32231,1,4,0)
;;=4^D04.61
;;^UTILITY(U,$J,358.3,32231,2)
;;=^5001919
;;^UTILITY(U,$J,358.3,32232,0)
;;=D04.62^^97^1325^10
;;^UTILITY(U,$J,358.3,32232,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32232,1,3,0)
;;=3^Carcinoma in Situ Skin Left Upper Limb
;;^UTILITY(U,$J,358.3,32232,1,4,0)
;;=4^D04.62
;;^UTILITY(U,$J,358.3,32232,2)
;;=^5001920
;;^UTILITY(U,$J,358.3,32233,0)
;;=D04.71^^97^1325^15
;;^UTILITY(U,$J,358.3,32233,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32233,1,3,0)
;;=3^Carcinoma in Situ Skin Right Lower Limb
;;^UTILITY(U,$J,358.3,32233,1,4,0)
;;=4^D04.71
;;^UTILITY(U,$J,358.3,32233,2)
;;=^5001922
;;^UTILITY(U,$J,358.3,32234,0)
;;=D04.72^^97^1325^8
;;^UTILITY(U,$J,358.3,32234,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32234,1,3,0)
;;=3^Carcinoma in Situ Skin Left Lower Limb
;;^UTILITY(U,$J,358.3,32234,1,4,0)
;;=4^D04.72
;;^UTILITY(U,$J,358.3,32234,2)
;;=^5001923
;;^UTILITY(U,$J,358.3,32235,0)
;;=D04.8^^97^1325^12
;;^UTILITY(U,$J,358.3,32235,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32235,1,3,0)
;;=3^Carcinoma in Situ Skin Other Sites
;;^UTILITY(U,$J,358.3,32235,1,4,0)
;;=4^D04.8
;;^UTILITY(U,$J,358.3,32235,2)
;;=^5001924
;;^UTILITY(U,$J,358.3,32236,0)
;;=L72.0^^97^1325^42
;;^UTILITY(U,$J,358.3,32236,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32236,1,3,0)
;;=3^Cyst,Epidermal
;;^UTILITY(U,$J,358.3,32236,1,4,0)
;;=4^L72.0
;;^UTILITY(U,$J,358.3,32236,2)
;;=^5009277
;;^UTILITY(U,$J,358.3,32237,0)
;;=L72.11^^97^1325^44
;;^UTILITY(U,$J,358.3,32237,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32237,1,3,0)
;;=3^Cyst,Pilar
;;^UTILITY(U,$J,358.3,32237,1,4,0)
;;=4^L72.11
;;^UTILITY(U,$J,358.3,32237,2)
;;=^5009278
;;^UTILITY(U,$J,358.3,32238,0)
;;=L72.12^^97^1325^46
;;^UTILITY(U,$J,358.3,32238,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32238,1,3,0)
;;=3^Cyst,Trichodermal
;;^UTILITY(U,$J,358.3,32238,1,4,0)
;;=4^L72.12
;;^UTILITY(U,$J,358.3,32238,2)
;;=^5009279
;;^UTILITY(U,$J,358.3,32239,0)
;;=L72.3^^97^1325^45
;;^UTILITY(U,$J,358.3,32239,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32239,1,3,0)
;;=3^Cyst,Sebaceous
;;^UTILITY(U,$J,358.3,32239,1,4,0)
;;=4^L72.3
;;^UTILITY(U,$J,358.3,32239,2)
;;=^5009281
;;^UTILITY(U,$J,358.3,32240,0)
;;=A63.0^^97^1325^38
;;^UTILITY(U,$J,358.3,32240,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32240,1,3,0)
;;=3^Condyloma
;;^UTILITY(U,$J,358.3,32240,1,4,0)
;;=4^A63.0
;;^UTILITY(U,$J,358.3,32240,2)
;;=^5000360
;;^UTILITY(U,$J,358.3,32241,0)
;;=L84.^^97^1325^1
;;^UTILITY(U,$J,358.3,32241,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32241,1,3,0)
;;=3^Callus
;;^UTILITY(U,$J,358.3,32241,1,4,0)
;;=4^L84.
;;^UTILITY(U,$J,358.3,32241,2)
;;=^271920
;;^UTILITY(U,$J,358.3,32242,0)
;;=L03.314^^97^1325^24
;;^UTILITY(U,$J,358.3,32242,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32242,1,3,0)
;;=3^Cellulitis of Groin
;;^UTILITY(U,$J,358.3,32242,1,4,0)
;;=4^L03.314
;;^UTILITY(U,$J,358.3,32242,2)
;;=^5009050
;;^UTILITY(U,$J,358.3,32243,0)
;;=A63.0^^97^1325^39
;;^UTILITY(U,$J,358.3,32243,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32243,1,3,0)
;;=3^Condyloma
;;^UTILITY(U,$J,358.3,32243,1,4,0)
;;=4^A63.0
;;^UTILITY(U,$J,358.3,32243,2)
;;=^5000360
;;^UTILITY(U,$J,358.3,32244,0)
;;=M71.30^^97^1325^41
;;^UTILITY(U,$J,358.3,32244,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32244,1,3,0)
;;=3^Cyst,Digital Mucous
;;^UTILITY(U,$J,358.3,32244,1,4,0)
;;=4^M71.30
;;^UTILITY(U,$J,358.3,32244,2)
;;=^5013149
;;^UTILITY(U,$J,358.3,32245,0)
;;=D04.122^^97^1325^7
;;^UTILITY(U,$J,358.3,32245,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32245,1,3,0)
;;=3^Carcinoma in Situ Skin Left Lower Eyelid
;;^UTILITY(U,$J,358.3,32245,1,4,0)
;;=4^D04.122
;;^UTILITY(U,$J,358.3,32245,2)
;;=^5157285
;;^UTILITY(U,$J,358.3,32246,0)
;;=D04.121^^97^1325^9
;;^UTILITY(U,$J,358.3,32246,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32246,1,3,0)
;;=3^Carcinoma in Situ Skin Left Upper Eyelid
;;^UTILITY(U,$J,358.3,32246,1,4,0)
;;=4^D04.121
;;^UTILITY(U,$J,358.3,32246,2)
;;=^5157284
;;^UTILITY(U,$J,358.3,32247,0)
;;=D04.112^^97^1325^14
;;^UTILITY(U,$J,358.3,32247,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32247,1,3,0)
;;=3^Carcinoma in Situ Skin Right Lower Eyelid
;;^UTILITY(U,$J,358.3,32247,1,4,0)
;;=4^D04.112
;;^UTILITY(U,$J,358.3,32247,2)
;;=^5157283
;;^UTILITY(U,$J,358.3,32248,0)
;;=D04.111^^97^1325^16
;;^UTILITY(U,$J,358.3,32248,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32248,1,3,0)
;;=3^Carcinoma in Situ Skin Right Upper Eyelid
;;^UTILITY(U,$J,358.3,32248,1,4,0)
;;=4^D04.111
;;^UTILITY(U,$J,358.3,32248,2)
;;=^5157282
;;^UTILITY(U,$J,358.3,32249,0)
;;=L30.2^^97^1325^40
;;^UTILITY(U,$J,358.3,32249,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32249,1,3,0)
;;=3^Cutaneous Autosensitization
;;^UTILITY(U,$J,358.3,32249,1,4,0)
;;=4^L30.2
;;^UTILITY(U,$J,358.3,32249,2)
;;=^5009155
;;^UTILITY(U,$J,358.3,32250,0)
;;=B07.0^^97^1326^2
;;^UTILITY(U,$J,358.3,32250,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32250,1,3,0)
;;=3^Wart,Plantar
;;^UTILITY(U,$J,358.3,32250,1,4,0)
;;=4^B07.0
;;^UTILITY(U,$J,358.3,32250,2)
;;=^336720
;;^UTILITY(U,$J,358.3,32251,0)
;;=B07.8^^97^1326^3
;;^UTILITY(U,$J,358.3,32251,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32251,1,3,0)
;;=3^Wart,Viral
;;^UTILITY(U,$J,358.3,32251,1,4,0)
;;=4^B07.8
;;^UTILITY(U,$J,358.3,32251,2)
;;=^5000518
;;^UTILITY(U,$J,358.3,32252,0)
;;=A63.0^^97^1326^1
;;^UTILITY(U,$J,358.3,32252,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32252,1,3,0)
;;=3^Wart,Anogenital
;;^UTILITY(U,$J,358.3,32252,1,4,0)
;;=4^A63.0
;;^UTILITY(U,$J,358.3,32252,2)
;;=^5000360
;;^UTILITY(U,$J,358.3,32253,0)
;;=Z48.00^^97^1326^4
;;^UTILITY(U,$J,358.3,32253,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32253,1,3,0)
;;=3^Wound Check,Nonsurgical
;;^UTILITY(U,$J,358.3,32253,1,4,0)
;;=4^Z48.00
;;^UTILITY(U,$J,358.3,32253,2)
;;=^5063033
;;^UTILITY(U,$J,358.3,32254,0)
;;=Z48.01^^97^1326^5
;;^UTILITY(U,$J,358.3,32254,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32254,1,3,0)
;;=3^Wound Check,Surgical
;;^UTILITY(U,$J,358.3,32254,1,4,0)
;;=4^Z48.01
;;^UTILITY(U,$J,358.3,32254,2)
;;=^5063034
;;^UTILITY(U,$J,358.3,32255,0)
;;=D23.9^^97^1327^37
;;^UTILITY(U,$J,358.3,32255,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32255,1,3,0)
;;=3^Benign Neop Skin,Unspec
;;^UTILITY(U,$J,358.3,32255,1,4,0)
;;=4^D23.9
;;^UTILITY(U,$J,358.3,32255,2)
;;=^5002076
;;^UTILITY(U,$J,358.3,32256,0)
;;=D21.9^^97^1327^21
;;^UTILITY(U,$J,358.3,32256,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32256,1,3,0)
;;=3^Benign Neop Connective/Soft Tissue,Unspec
;;^UTILITY(U,$J,358.3,32256,1,4,0)
;;=4^D21.9
;;^UTILITY(U,$J,358.3,32256,2)
;;=^5002040
;;^UTILITY(U,$J,358.3,32257,0)
;;=L12.0^^97^1327^39
;;^UTILITY(U,$J,358.3,32257,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32257,1,3,0)
;;=3^Bullous Pemphigoid
;;^UTILITY(U,$J,358.3,32257,1,4,0)
;;=4^L12.0
;;^UTILITY(U,$J,358.3,32257,2)
;;=^5009095
;;^UTILITY(U,$J,358.3,32258,0)
;;=C44.01^^97^1327^18
;;^UTILITY(U,$J,358.3,32258,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32258,1,3,0)
;;=3^BCC Skin of Lip
;;^UTILITY(U,$J,358.3,32258,1,4,0)
;;=4^C44.01
;;^UTILITY(U,$J,358.3,32258,2)
;;=^340464
;;^UTILITY(U,$J,358.3,32259,0)
;;=C44.212^^97^1327^11
;;^UTILITY(U,$J,358.3,32259,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32259,1,3,0)
;;=3^BCC Skin Right Ear/External Auric Canal
;;^UTILITY(U,$J,358.3,32259,1,4,0)
;;=4^C44.212
;;^UTILITY(U,$J,358.3,32259,2)
;;=^5001032
;;^UTILITY(U,$J,358.3,32260,0)
;;=C44.219^^97^1327^4
;;^UTILITY(U,$J,358.3,32260,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32260,1,3,0)
;;=3^BCC Skin Left Ear/External Auric Canal
;;^UTILITY(U,$J,358.3,32260,1,4,0)
;;=4^C44.219
;;^UTILITY(U,$J,358.3,32260,2)
;;=^5001033
;;^UTILITY(U,$J,358.3,32261,0)
;;=C44.310^^97^1327^3
;;^UTILITY(U,$J,358.3,32261,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32261,1,3,0)
;;=3^BCC Skin Face,Unspec
;;^UTILITY(U,$J,358.3,32261,1,4,0)
;;=4^C44.310
;;^UTILITY(U,$J,358.3,32261,2)
;;=^5001043
;;^UTILITY(U,$J,358.3,32262,0)
;;=C44.311^^97^1327^9
;;^UTILITY(U,$J,358.3,32262,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32262,1,3,0)
;;=3^BCC Skin Nose
;;^UTILITY(U,$J,358.3,32262,1,4,0)
;;=4^C44.311
;;^UTILITY(U,$J,358.3,32262,2)
;;=^5001044
;;^UTILITY(U,$J,358.3,32263,0)
;;=C44.41^^97^1327^16
;;^UTILITY(U,$J,358.3,32263,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32263,1,3,0)
;;=3^BCC Skin Scalp/Neck
;;^UTILITY(U,$J,358.3,32263,1,4,0)
;;=4^C44.41
;;^UTILITY(U,$J,358.3,32263,2)
;;=^340476
;;^UTILITY(U,$J,358.3,32264,0)
;;=C44.510^^97^1327^1
;;^UTILITY(U,$J,358.3,32264,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32264,1,3,0)
;;=3^BCC Skin Anal Skin
;;^UTILITY(U,$J,358.3,32264,1,4,0)
;;=4^C44.510
;;^UTILITY(U,$J,358.3,32264,2)
;;=^5001054
;;^UTILITY(U,$J,358.3,32265,0)
;;=C44.511^^97^1327^2
;;^UTILITY(U,$J,358.3,32265,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32265,1,3,0)
;;=3^BCC Skin Breast
;;^UTILITY(U,$J,358.3,32265,1,4,0)
;;=4^C44.511
;;^UTILITY(U,$J,358.3,32265,2)
;;=^5001055
;;^UTILITY(U,$J,358.3,32266,0)
;;=C44.519^^97^1327^17
;;^UTILITY(U,$J,358.3,32266,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32266,1,3,0)
;;=3^BCC Skin Trunk
;;^UTILITY(U,$J,358.3,32266,1,4,0)
;;=4^C44.519
;;^UTILITY(U,$J,358.3,32266,2)
;;=^5001056
;;^UTILITY(U,$J,358.3,32267,0)
;;=C44.619^^97^1327^8
;;^UTILITY(U,$J,358.3,32267,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32267,1,3,0)
;;=3^BCC Skin Left Upper Limb
;;^UTILITY(U,$J,358.3,32267,1,4,0)
;;=4^C44.619
;;^UTILITY(U,$J,358.3,32267,2)
;;=^5001068
;;^UTILITY(U,$J,358.3,32268,0)
;;=C44.712^^97^1327^13
;;^UTILITY(U,$J,358.3,32268,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32268,1,3,0)
;;=3^BCC Skin Right Lower Limb
;;^UTILITY(U,$J,358.3,32268,1,4,0)
;;=4^C44.712
;;^UTILITY(U,$J,358.3,32268,2)
;;=^5001079
;;^UTILITY(U,$J,358.3,32269,0)
;;=C44.719^^97^1327^6
;;^UTILITY(U,$J,358.3,32269,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32269,1,3,0)
;;=3^BCC Skin Left Lower Limb
;;^UTILITY(U,$J,358.3,32269,1,4,0)
;;=4^C44.719
;;^UTILITY(U,$J,358.3,32269,2)
;;=^5001080
;;^UTILITY(U,$J,358.3,32270,0)
;;=C44.81^^97^1327^10
;;^UTILITY(U,$J,358.3,32270,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32270,1,3,0)
;;=3^BCC Skin Overlapping Sites
;;^UTILITY(U,$J,358.3,32270,1,4,0)
;;=4^C44.81
;;^UTILITY(U,$J,358.3,32270,2)
;;=^5001088
;;^UTILITY(U,$J,358.3,32271,0)
;;=L13.9^^97^1327^38
;;^UTILITY(U,$J,358.3,32271,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32271,1,3,0)
;;=3^Bullous Disorder,Unspec
;;^UTILITY(U,$J,358.3,32271,1,4,0)
;;=4^L13.9
;;^UTILITY(U,$J,358.3,32271,2)
;;=^5009105
;;^UTILITY(U,$J,358.3,32272,0)
;;=M35.2^^97^1327^20
;;^UTILITY(U,$J,358.3,32272,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32272,1,3,0)
;;=3^Behcet's Disease
;;^UTILITY(U,$J,358.3,32272,1,4,0)
;;=4^M35.2
;;^UTILITY(U,$J,358.3,32272,2)
;;=^263705
;;^UTILITY(U,$J,358.3,32273,0)
;;=D23.0^^97^1327^29
;;^UTILITY(U,$J,358.3,32273,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32273,1,3,0)
;;=3^Benign Neop Skin Lip
;;^UTILITY(U,$J,358.3,32273,1,4,0)
;;=4^D23.0
;;^UTILITY(U,$J,358.3,32273,2)
;;=^5002059
;;^UTILITY(U,$J,358.3,32274,0)
;;=D23.21^^97^1327^30
;;^UTILITY(U,$J,358.3,32274,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32274,1,3,0)
;;=3^Benign Neop Skin Right Ear/External Auric Canal
;;^UTILITY(U,$J,358.3,32274,1,4,0)
;;=4^D23.21
;;^UTILITY(U,$J,358.3,32274,2)
;;=^5002064
;;^UTILITY(U,$J,358.3,32275,0)
;;=D23.22^^97^1327^24
;;^UTILITY(U,$J,358.3,32275,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32275,1,3,0)
;;=3^Benign Neop Skin Left Ear/External Auric Canal
;;^UTILITY(U,$J,358.3,32275,1,4,0)
;;=4^D23.22
;;^UTILITY(U,$J,358.3,32275,2)
;;=^5002065
;;^UTILITY(U,$J,358.3,32276,0)
;;=D23.30^^97^1327^23
;;^UTILITY(U,$J,358.3,32276,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32276,1,3,0)
;;=3^Benign Neop Skin Face,Unspec
;;^UTILITY(U,$J,358.3,32276,1,4,0)
;;=4^D23.30
;;^UTILITY(U,$J,358.3,32276,2)
;;=^5002066
;;^UTILITY(U,$J,358.3,32277,0)
;;=D23.39^^97^1327^22
;;^UTILITY(U,$J,358.3,32277,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32277,1,3,0)
;;=3^Benign Neop Skin Face NEC
;;^UTILITY(U,$J,358.3,32277,1,4,0)
;;=4^D23.39
;;^UTILITY(U,$J,358.3,32277,2)
;;=^5002067
;;^UTILITY(U,$J,358.3,32278,0)
;;=D23.5^^97^1327^36
;;^UTILITY(U,$J,358.3,32278,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32278,1,3,0)
;;=3^Benign Neop Skin Trunk
;;^UTILITY(U,$J,358.3,32278,1,4,0)
;;=4^D23.5
;;^UTILITY(U,$J,358.3,32278,2)
;;=^5002069
;;^UTILITY(U,$J,358.3,32279,0)
;;=D23.62^^97^1327^28
;;^UTILITY(U,$J,358.3,32279,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32279,1,3,0)
;;=3^Benign Neop Skin Left Upper Limb
;;^UTILITY(U,$J,358.3,32279,1,4,0)
;;=4^D23.62
;;^UTILITY(U,$J,358.3,32279,2)
;;=^5002072
;;^UTILITY(U,$J,358.3,32280,0)
;;=D23.61^^97^1327^34
;;^UTILITY(U,$J,358.3,32280,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32280,1,3,0)
;;=3^Benign Neop Skin Right Upper Limb
;;^UTILITY(U,$J,358.3,32280,1,4,0)
;;=4^D23.61
;;^UTILITY(U,$J,358.3,32280,2)
;;=^5002071
;;^UTILITY(U,$J,358.3,32281,0)
;;=D23.71^^97^1327^32
;;^UTILITY(U,$J,358.3,32281,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32281,1,3,0)
;;=3^Benign Neop Skin Right Lower Limb
;;^UTILITY(U,$J,358.3,32281,1,4,0)
;;=4^D23.71
;;^UTILITY(U,$J,358.3,32281,2)
;;=^5002074
;;^UTILITY(U,$J,358.3,32282,0)
;;=D23.72^^97^1327^26
;;^UTILITY(U,$J,358.3,32282,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32282,1,3,0)
;;=3^Benign Neop Skin Left Lower Limb
;;^UTILITY(U,$J,358.3,32282,1,4,0)
;;=4^D23.72
;;^UTILITY(U,$J,358.3,32282,2)
;;=^5002075
;;^UTILITY(U,$J,358.3,32283,0)
;;=L60.4^^97^1327^19
;;^UTILITY(U,$J,358.3,32283,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32283,1,3,0)
;;=3^Beau's Lines
;;^UTILITY(U,$J,358.3,32283,1,4,0)
;;=4^L60.4
;;^UTILITY(U,$J,358.3,32283,2)
;;=^5009237
;;^UTILITY(U,$J,358.3,32284,0)
;;=D23.4^^97^1327^35
;;^UTILITY(U,$J,358.3,32284,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32284,1,3,0)
;;=3^Benign Neop Skin Scalp and Neck
;;^UTILITY(U,$J,358.3,32284,1,4,0)
;;=4^D23.4
;;^UTILITY(U,$J,358.3,32284,2)
;;=^5002068
;;^UTILITY(U,$J,358.3,32285,0)
;;=C44.612^^97^1327^15
;;^UTILITY(U,$J,358.3,32285,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32285,1,3,0)
;;=3^BCC Skin Right Upper Limb
;;^UTILITY(U,$J,358.3,32285,1,4,0)
;;=4^C44.612
;;^UTILITY(U,$J,358.3,32285,2)
;;=^5001067
;;^UTILITY(U,$J,358.3,32286,0)
;;=C44.1192^^97^1327^5
;;^UTILITY(U,$J,358.3,32286,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32286,1,3,0)
;;=3^BCC Skin Left Lower Eyelid,Including Canthus
;;^UTILITY(U,$J,358.3,32286,1,4,0)
;;=4^C44.1192
;;^UTILITY(U,$J,358.3,32286,2)
;;=^5157260
;;^UTILITY(U,$J,358.3,32287,0)
;;=C44.1121^^97^1327^14
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CU 19800 printed Dec 13, 2024@01:46:10 Page 2
IBDEI0CU ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,32217,1,3,0)
+2 ;;=3^Cellulitis of Trunk,Unspec
+3 ;;^UTILITY(U,$J,358.3,32217,1,4,0)
+4 ;;=4^L03.319
+5 ;;^UTILITY(U,$J,358.3,32217,2)
+6 ;;=^5009054
+7 ;;^UTILITY(U,$J,358.3,32218,0)
+8 ;;=L03.90^^97^1325^36
+9 ;;^UTILITY(U,$J,358.3,32218,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,32218,1,3,0)
+12 ;;=3^Cellulitis,Unspec
+13 ;;^UTILITY(U,$J,358.3,32218,1,4,0)
+14 ;;=4^L03.90
+15 ;;^UTILITY(U,$J,358.3,32218,2)
+16 ;;=^5009067
+17 ;;^UTILITY(U,$J,358.3,32219,0)
+18 ;;=L72.9^^97^1325^43
+19 ;;^UTILITY(U,$J,358.3,32219,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,32219,1,3,0)
+22 ;;=3^Cyst,Follicular of Skin/Subcutaneous Tissue,Unspec
+23 ;;^UTILITY(U,$J,358.3,32219,1,4,0)
+24 ;;=4^L72.9
+25 ;;^UTILITY(U,$J,358.3,32219,2)
+26 ;;=^5009283
+27 ;;^UTILITY(U,$J,358.3,32220,0)
+28 ;;=L12.1^^97^1325^37
+29 ;;^UTILITY(U,$J,358.3,32220,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,32220,1,3,0)
+32 ;;=3^Cicatricial Pemphigoid
+33 ;;^UTILITY(U,$J,358.3,32220,1,4,0)
+34 ;;=4^L12.1
+35 ;;^UTILITY(U,$J,358.3,32220,2)
+36 ;;=^5009096
+37 ;;^UTILITY(U,$J,358.3,32221,0)
+38 ;;=B37.83^^97^1325^2
+39 ;;^UTILITY(U,$J,358.3,32221,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,32221,1,3,0)
+42 ;;=3^Candidal Cheilitis
+43 ;;^UTILITY(U,$J,358.3,32221,1,4,0)
+44 ;;=4^B37.83
+45 ;;^UTILITY(U,$J,358.3,32221,2)
+46 ;;=^5000622
+47 ;;^UTILITY(U,$J,358.3,32222,0)
+48 ;;=B37.0^^97^1325^3
+49 ;;^UTILITY(U,$J,358.3,32222,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,32222,1,3,0)
+52 ;;=3^Candidal Stomatitis
+53 ;;^UTILITY(U,$J,358.3,32222,1,4,0)
+54 ;;=4^B37.0
+55 ;;^UTILITY(U,$J,358.3,32222,2)
+56 ;;=^5000612
+57 ;;^UTILITY(U,$J,358.3,32223,0)
+58 ;;=D04.9^^97^1325^20
+59 ;;^UTILITY(U,$J,358.3,32223,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,32223,1,3,0)
+62 ;;=3^Carcinoma in Situ Skin,Unspec
+63 ;;^UTILITY(U,$J,358.3,32223,1,4,0)
+64 ;;=4^D04.9
+65 ;;^UTILITY(U,$J,358.3,32223,2)
+66 ;;=^5001925
+67 ;;^UTILITY(U,$J,358.3,32224,0)
+68 ;;=D04.0^^97^1325^11
+69 ;;^UTILITY(U,$J,358.3,32224,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,32224,1,3,0)
+72 ;;=3^Carcinoma in Situ Skin Lip
+73 ;;^UTILITY(U,$J,358.3,32224,1,4,0)
+74 ;;=4^D04.0
+75 ;;^UTILITY(U,$J,358.3,32224,2)
+76 ;;=^267725
+77 ;;^UTILITY(U,$J,358.3,32225,0)
+78 ;;=D04.21^^97^1325^13
+79 ;;^UTILITY(U,$J,358.3,32225,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,32225,1,3,0)
+82 ;;=3^Carcinoma in Situ Skin Right Ear/External Auricular Canal
+83 ;;^UTILITY(U,$J,358.3,32225,1,4,0)
+84 ;;=4^D04.21
+85 ;;^UTILITY(U,$J,358.3,32225,2)
+86 ;;=^5001913
+87 ;;^UTILITY(U,$J,358.3,32226,0)
+88 ;;=D04.22^^97^1325^6
+89 ;;^UTILITY(U,$J,358.3,32226,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,32226,1,3,0)
+92 ;;=3^Carcinoma in Situ Skin Left Ear/External Auricular Canal
+93 ;;^UTILITY(U,$J,358.3,32226,1,4,0)
+94 ;;=4^D04.22
+95 ;;^UTILITY(U,$J,358.3,32226,2)
+96 ;;=^5001914
+97 ;;^UTILITY(U,$J,358.3,32227,0)
+98 ;;=D04.30^^97^1325^5
+99 ;;^UTILITY(U,$J,358.3,32227,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,32227,1,3,0)
+102 ;;=3^Carcinoma in Situ Skin Face,Unspec
+103 ;;^UTILITY(U,$J,358.3,32227,1,4,0)
+104 ;;=4^D04.30
+105 ;;^UTILITY(U,$J,358.3,32227,2)
+106 ;;=^5001915
+107 ;;^UTILITY(U,$J,358.3,32228,0)
+108 ;;=D04.39^^97^1325^4
+109 ;;^UTILITY(U,$J,358.3,32228,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,32228,1,3,0)
+112 ;;=3^Carcinoma in Situ Skin Face NEC
+113 ;;^UTILITY(U,$J,358.3,32228,1,4,0)
+114 ;;=4^D04.39
+115 ;;^UTILITY(U,$J,358.3,32228,2)
+116 ;;=^5001916
+117 ;;^UTILITY(U,$J,358.3,32229,0)
+118 ;;=D04.4^^97^1325^18
+119 ;;^UTILITY(U,$J,358.3,32229,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,32229,1,3,0)
+122 ;;=3^Carcinoma in Situ Skin Scalp/Neck
+123 ;;^UTILITY(U,$J,358.3,32229,1,4,0)
+124 ;;=4^D04.4
+125 ;;^UTILITY(U,$J,358.3,32229,2)
+126 ;;=^267729
+127 ;;^UTILITY(U,$J,358.3,32230,0)
+128 ;;=D04.5^^97^1325^19
+129 ;;^UTILITY(U,$J,358.3,32230,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,32230,1,3,0)
+132 ;;=3^Carcinoma in Situ Skin Trunk
+133 ;;^UTILITY(U,$J,358.3,32230,1,4,0)
+134 ;;=4^D04.5
+135 ;;^UTILITY(U,$J,358.3,32230,2)
+136 ;;=^5001917
+137 ;;^UTILITY(U,$J,358.3,32231,0)
+138 ;;=D04.61^^97^1325^17
+139 ;;^UTILITY(U,$J,358.3,32231,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,32231,1,3,0)
+142 ;;=3^Carcinoma in Situ Skin Right Upper Limb
+143 ;;^UTILITY(U,$J,358.3,32231,1,4,0)
+144 ;;=4^D04.61
+145 ;;^UTILITY(U,$J,358.3,32231,2)
+146 ;;=^5001919
+147 ;;^UTILITY(U,$J,358.3,32232,0)
+148 ;;=D04.62^^97^1325^10
+149 ;;^UTILITY(U,$J,358.3,32232,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,32232,1,3,0)
+152 ;;=3^Carcinoma in Situ Skin Left Upper Limb
+153 ;;^UTILITY(U,$J,358.3,32232,1,4,0)
+154 ;;=4^D04.62
+155 ;;^UTILITY(U,$J,358.3,32232,2)
+156 ;;=^5001920
+157 ;;^UTILITY(U,$J,358.3,32233,0)
+158 ;;=D04.71^^97^1325^15
+159 ;;^UTILITY(U,$J,358.3,32233,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,32233,1,3,0)
+162 ;;=3^Carcinoma in Situ Skin Right Lower Limb
+163 ;;^UTILITY(U,$J,358.3,32233,1,4,0)
+164 ;;=4^D04.71
+165 ;;^UTILITY(U,$J,358.3,32233,2)
+166 ;;=^5001922
+167 ;;^UTILITY(U,$J,358.3,32234,0)
+168 ;;=D04.72^^97^1325^8
+169 ;;^UTILITY(U,$J,358.3,32234,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,32234,1,3,0)
+172 ;;=3^Carcinoma in Situ Skin Left Lower Limb
+173 ;;^UTILITY(U,$J,358.3,32234,1,4,0)
+174 ;;=4^D04.72
+175 ;;^UTILITY(U,$J,358.3,32234,2)
+176 ;;=^5001923
+177 ;;^UTILITY(U,$J,358.3,32235,0)
+178 ;;=D04.8^^97^1325^12
+179 ;;^UTILITY(U,$J,358.3,32235,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,32235,1,3,0)
+182 ;;=3^Carcinoma in Situ Skin Other Sites
+183 ;;^UTILITY(U,$J,358.3,32235,1,4,0)
+184 ;;=4^D04.8
+185 ;;^UTILITY(U,$J,358.3,32235,2)
+186 ;;=^5001924
+187 ;;^UTILITY(U,$J,358.3,32236,0)
+188 ;;=L72.0^^97^1325^42
+189 ;;^UTILITY(U,$J,358.3,32236,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,32236,1,3,0)
+192 ;;=3^Cyst,Epidermal
+193 ;;^UTILITY(U,$J,358.3,32236,1,4,0)
+194 ;;=4^L72.0
+195 ;;^UTILITY(U,$J,358.3,32236,2)
+196 ;;=^5009277
+197 ;;^UTILITY(U,$J,358.3,32237,0)
+198 ;;=L72.11^^97^1325^44
+199 ;;^UTILITY(U,$J,358.3,32237,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,32237,1,3,0)
+202 ;;=3^Cyst,Pilar
+203 ;;^UTILITY(U,$J,358.3,32237,1,4,0)
+204 ;;=4^L72.11
+205 ;;^UTILITY(U,$J,358.3,32237,2)
+206 ;;=^5009278
+207 ;;^UTILITY(U,$J,358.3,32238,0)
+208 ;;=L72.12^^97^1325^46
+209 ;;^UTILITY(U,$J,358.3,32238,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,32238,1,3,0)
+212 ;;=3^Cyst,Trichodermal
+213 ;;^UTILITY(U,$J,358.3,32238,1,4,0)
+214 ;;=4^L72.12
+215 ;;^UTILITY(U,$J,358.3,32238,2)
+216 ;;=^5009279
+217 ;;^UTILITY(U,$J,358.3,32239,0)
+218 ;;=L72.3^^97^1325^45
+219 ;;^UTILITY(U,$J,358.3,32239,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,32239,1,3,0)
+222 ;;=3^Cyst,Sebaceous
+223 ;;^UTILITY(U,$J,358.3,32239,1,4,0)
+224 ;;=4^L72.3
+225 ;;^UTILITY(U,$J,358.3,32239,2)
+226 ;;=^5009281
+227 ;;^UTILITY(U,$J,358.3,32240,0)
+228 ;;=A63.0^^97^1325^38
+229 ;;^UTILITY(U,$J,358.3,32240,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,32240,1,3,0)
+232 ;;=3^Condyloma
+233 ;;^UTILITY(U,$J,358.3,32240,1,4,0)
+234 ;;=4^A63.0
+235 ;;^UTILITY(U,$J,358.3,32240,2)
+236 ;;=^5000360
+237 ;;^UTILITY(U,$J,358.3,32241,0)
+238 ;;=L84.^^97^1325^1
+239 ;;^UTILITY(U,$J,358.3,32241,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,32241,1,3,0)
+242 ;;=3^Callus
+243 ;;^UTILITY(U,$J,358.3,32241,1,4,0)
+244 ;;=4^L84.
+245 ;;^UTILITY(U,$J,358.3,32241,2)
+246 ;;=^271920
+247 ;;^UTILITY(U,$J,358.3,32242,0)
+248 ;;=L03.314^^97^1325^24
+249 ;;^UTILITY(U,$J,358.3,32242,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,32242,1,3,0)
+252 ;;=3^Cellulitis of Groin
+253 ;;^UTILITY(U,$J,358.3,32242,1,4,0)
+254 ;;=4^L03.314
+255 ;;^UTILITY(U,$J,358.3,32242,2)
+256 ;;=^5009050
+257 ;;^UTILITY(U,$J,358.3,32243,0)
+258 ;;=A63.0^^97^1325^39
+259 ;;^UTILITY(U,$J,358.3,32243,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,32243,1,3,0)
+262 ;;=3^Condyloma
+263 ;;^UTILITY(U,$J,358.3,32243,1,4,0)
+264 ;;=4^A63.0
+265 ;;^UTILITY(U,$J,358.3,32243,2)
+266 ;;=^5000360
+267 ;;^UTILITY(U,$J,358.3,32244,0)
+268 ;;=M71.30^^97^1325^41
+269 ;;^UTILITY(U,$J,358.3,32244,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,32244,1,3,0)
+272 ;;=3^Cyst,Digital Mucous
+273 ;;^UTILITY(U,$J,358.3,32244,1,4,0)
+274 ;;=4^M71.30
+275 ;;^UTILITY(U,$J,358.3,32244,2)
+276 ;;=^5013149
+277 ;;^UTILITY(U,$J,358.3,32245,0)
+278 ;;=D04.122^^97^1325^7
+279 ;;^UTILITY(U,$J,358.3,32245,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,32245,1,3,0)
+282 ;;=3^Carcinoma in Situ Skin Left Lower Eyelid
+283 ;;^UTILITY(U,$J,358.3,32245,1,4,0)
+284 ;;=4^D04.122
+285 ;;^UTILITY(U,$J,358.3,32245,2)
+286 ;;=^5157285
+287 ;;^UTILITY(U,$J,358.3,32246,0)
+288 ;;=D04.121^^97^1325^9
+289 ;;^UTILITY(U,$J,358.3,32246,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,32246,1,3,0)
+292 ;;=3^Carcinoma in Situ Skin Left Upper Eyelid
+293 ;;^UTILITY(U,$J,358.3,32246,1,4,0)
+294 ;;=4^D04.121
+295 ;;^UTILITY(U,$J,358.3,32246,2)
+296 ;;=^5157284
+297 ;;^UTILITY(U,$J,358.3,32247,0)
+298 ;;=D04.112^^97^1325^14
+299 ;;^UTILITY(U,$J,358.3,32247,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,32247,1,3,0)
+302 ;;=3^Carcinoma in Situ Skin Right Lower Eyelid
+303 ;;^UTILITY(U,$J,358.3,32247,1,4,0)
+304 ;;=4^D04.112
+305 ;;^UTILITY(U,$J,358.3,32247,2)
+306 ;;=^5157283
+307 ;;^UTILITY(U,$J,358.3,32248,0)
+308 ;;=D04.111^^97^1325^16
+309 ;;^UTILITY(U,$J,358.3,32248,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,32248,1,3,0)
+312 ;;=3^Carcinoma in Situ Skin Right Upper Eyelid
+313 ;;^UTILITY(U,$J,358.3,32248,1,4,0)
+314 ;;=4^D04.111
+315 ;;^UTILITY(U,$J,358.3,32248,2)
+316 ;;=^5157282
+317 ;;^UTILITY(U,$J,358.3,32249,0)
+318 ;;=L30.2^^97^1325^40
+319 ;;^UTILITY(U,$J,358.3,32249,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,32249,1,3,0)
+322 ;;=3^Cutaneous Autosensitization
+323 ;;^UTILITY(U,$J,358.3,32249,1,4,0)
+324 ;;=4^L30.2
+325 ;;^UTILITY(U,$J,358.3,32249,2)
+326 ;;=^5009155
+327 ;;^UTILITY(U,$J,358.3,32250,0)
+328 ;;=B07.0^^97^1326^2
+329 ;;^UTILITY(U,$J,358.3,32250,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,32250,1,3,0)
+332 ;;=3^Wart,Plantar
+333 ;;^UTILITY(U,$J,358.3,32250,1,4,0)
+334 ;;=4^B07.0
+335 ;;^UTILITY(U,$J,358.3,32250,2)
+336 ;;=^336720
+337 ;;^UTILITY(U,$J,358.3,32251,0)
+338 ;;=B07.8^^97^1326^3
+339 ;;^UTILITY(U,$J,358.3,32251,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,32251,1,3,0)
+342 ;;=3^Wart,Viral
+343 ;;^UTILITY(U,$J,358.3,32251,1,4,0)
+344 ;;=4^B07.8
+345 ;;^UTILITY(U,$J,358.3,32251,2)
+346 ;;=^5000518
+347 ;;^UTILITY(U,$J,358.3,32252,0)
+348 ;;=A63.0^^97^1326^1
+349 ;;^UTILITY(U,$J,358.3,32252,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,32252,1,3,0)
+352 ;;=3^Wart,Anogenital
+353 ;;^UTILITY(U,$J,358.3,32252,1,4,0)
+354 ;;=4^A63.0
+355 ;;^UTILITY(U,$J,358.3,32252,2)
+356 ;;=^5000360
+357 ;;^UTILITY(U,$J,358.3,32253,0)
+358 ;;=Z48.00^^97^1326^4
+359 ;;^UTILITY(U,$J,358.3,32253,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,32253,1,3,0)
+362 ;;=3^Wound Check,Nonsurgical
+363 ;;^UTILITY(U,$J,358.3,32253,1,4,0)
+364 ;;=4^Z48.00
+365 ;;^UTILITY(U,$J,358.3,32253,2)
+366 ;;=^5063033
+367 ;;^UTILITY(U,$J,358.3,32254,0)
+368 ;;=Z48.01^^97^1326^5
+369 ;;^UTILITY(U,$J,358.3,32254,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,32254,1,3,0)
+372 ;;=3^Wound Check,Surgical
+373 ;;^UTILITY(U,$J,358.3,32254,1,4,0)
+374 ;;=4^Z48.01
+375 ;;^UTILITY(U,$J,358.3,32254,2)
+376 ;;=^5063034
+377 ;;^UTILITY(U,$J,358.3,32255,0)
+378 ;;=D23.9^^97^1327^37
+379 ;;^UTILITY(U,$J,358.3,32255,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,32255,1,3,0)
+382 ;;=3^Benign Neop Skin,Unspec
+383 ;;^UTILITY(U,$J,358.3,32255,1,4,0)
+384 ;;=4^D23.9
+385 ;;^UTILITY(U,$J,358.3,32255,2)
+386 ;;=^5002076
+387 ;;^UTILITY(U,$J,358.3,32256,0)
+388 ;;=D21.9^^97^1327^21
+389 ;;^UTILITY(U,$J,358.3,32256,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,32256,1,3,0)
+392 ;;=3^Benign Neop Connective/Soft Tissue,Unspec
+393 ;;^UTILITY(U,$J,358.3,32256,1,4,0)
+394 ;;=4^D21.9
+395 ;;^UTILITY(U,$J,358.3,32256,2)
+396 ;;=^5002040
+397 ;;^UTILITY(U,$J,358.3,32257,0)
+398 ;;=L12.0^^97^1327^39
+399 ;;^UTILITY(U,$J,358.3,32257,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,32257,1,3,0)
+402 ;;=3^Bullous Pemphigoid
+403 ;;^UTILITY(U,$J,358.3,32257,1,4,0)
+404 ;;=4^L12.0
+405 ;;^UTILITY(U,$J,358.3,32257,2)
+406 ;;=^5009095
+407 ;;^UTILITY(U,$J,358.3,32258,0)
+408 ;;=C44.01^^97^1327^18
+409 ;;^UTILITY(U,$J,358.3,32258,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,32258,1,3,0)
+412 ;;=3^BCC Skin of Lip
+413 ;;^UTILITY(U,$J,358.3,32258,1,4,0)
+414 ;;=4^C44.01
+415 ;;^UTILITY(U,$J,358.3,32258,2)
+416 ;;=^340464
+417 ;;^UTILITY(U,$J,358.3,32259,0)
+418 ;;=C44.212^^97^1327^11
+419 ;;^UTILITY(U,$J,358.3,32259,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,32259,1,3,0)
+422 ;;=3^BCC Skin Right Ear/External Auric Canal
+423 ;;^UTILITY(U,$J,358.3,32259,1,4,0)
+424 ;;=4^C44.212
+425 ;;^UTILITY(U,$J,358.3,32259,2)
+426 ;;=^5001032
+427 ;;^UTILITY(U,$J,358.3,32260,0)
+428 ;;=C44.219^^97^1327^4
+429 ;;^UTILITY(U,$J,358.3,32260,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,32260,1,3,0)
+432 ;;=3^BCC Skin Left Ear/External Auric Canal
+433 ;;^UTILITY(U,$J,358.3,32260,1,4,0)
+434 ;;=4^C44.219
+435 ;;^UTILITY(U,$J,358.3,32260,2)
+436 ;;=^5001033
+437 ;;^UTILITY(U,$J,358.3,32261,0)
+438 ;;=C44.310^^97^1327^3
+439 ;;^UTILITY(U,$J,358.3,32261,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,32261,1,3,0)
+442 ;;=3^BCC Skin Face,Unspec
+443 ;;^UTILITY(U,$J,358.3,32261,1,4,0)
+444 ;;=4^C44.310
+445 ;;^UTILITY(U,$J,358.3,32261,2)
+446 ;;=^5001043
+447 ;;^UTILITY(U,$J,358.3,32262,0)
+448 ;;=C44.311^^97^1327^9
+449 ;;^UTILITY(U,$J,358.3,32262,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,32262,1,3,0)
+452 ;;=3^BCC Skin Nose
+453 ;;^UTILITY(U,$J,358.3,32262,1,4,0)
+454 ;;=4^C44.311
+455 ;;^UTILITY(U,$J,358.3,32262,2)
+456 ;;=^5001044
+457 ;;^UTILITY(U,$J,358.3,32263,0)
+458 ;;=C44.41^^97^1327^16
+459 ;;^UTILITY(U,$J,358.3,32263,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,32263,1,3,0)
+462 ;;=3^BCC Skin Scalp/Neck
+463 ;;^UTILITY(U,$J,358.3,32263,1,4,0)
+464 ;;=4^C44.41
+465 ;;^UTILITY(U,$J,358.3,32263,2)
+466 ;;=^340476
+467 ;;^UTILITY(U,$J,358.3,32264,0)
+468 ;;=C44.510^^97^1327^1
+469 ;;^UTILITY(U,$J,358.3,32264,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,32264,1,3,0)
+472 ;;=3^BCC Skin Anal Skin
+473 ;;^UTILITY(U,$J,358.3,32264,1,4,0)
+474 ;;=4^C44.510
+475 ;;^UTILITY(U,$J,358.3,32264,2)
+476 ;;=^5001054
+477 ;;^UTILITY(U,$J,358.3,32265,0)
+478 ;;=C44.511^^97^1327^2
+479 ;;^UTILITY(U,$J,358.3,32265,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,32265,1,3,0)
+482 ;;=3^BCC Skin Breast
+483 ;;^UTILITY(U,$J,358.3,32265,1,4,0)
+484 ;;=4^C44.511
+485 ;;^UTILITY(U,$J,358.3,32265,2)
+486 ;;=^5001055
+487 ;;^UTILITY(U,$J,358.3,32266,0)
+488 ;;=C44.519^^97^1327^17
+489 ;;^UTILITY(U,$J,358.3,32266,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,32266,1,3,0)
+492 ;;=3^BCC Skin Trunk
+493 ;;^UTILITY(U,$J,358.3,32266,1,4,0)
+494 ;;=4^C44.519
+495 ;;^UTILITY(U,$J,358.3,32266,2)
+496 ;;=^5001056
+497 ;;^UTILITY(U,$J,358.3,32267,0)
+498 ;;=C44.619^^97^1327^8
+499 ;;^UTILITY(U,$J,358.3,32267,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,32267,1,3,0)
+502 ;;=3^BCC Skin Left Upper Limb
+503 ;;^UTILITY(U,$J,358.3,32267,1,4,0)
+504 ;;=4^C44.619
+505 ;;^UTILITY(U,$J,358.3,32267,2)
+506 ;;=^5001068
+507 ;;^UTILITY(U,$J,358.3,32268,0)
+508 ;;=C44.712^^97^1327^13
+509 ;;^UTILITY(U,$J,358.3,32268,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,32268,1,3,0)
+512 ;;=3^BCC Skin Right Lower Limb
+513 ;;^UTILITY(U,$J,358.3,32268,1,4,0)
+514 ;;=4^C44.712
+515 ;;^UTILITY(U,$J,358.3,32268,2)
+516 ;;=^5001079
+517 ;;^UTILITY(U,$J,358.3,32269,0)
+518 ;;=C44.719^^97^1327^6
+519 ;;^UTILITY(U,$J,358.3,32269,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,32269,1,3,0)
+522 ;;=3^BCC Skin Left Lower Limb
+523 ;;^UTILITY(U,$J,358.3,32269,1,4,0)
+524 ;;=4^C44.719
+525 ;;^UTILITY(U,$J,358.3,32269,2)
+526 ;;=^5001080
+527 ;;^UTILITY(U,$J,358.3,32270,0)
+528 ;;=C44.81^^97^1327^10
+529 ;;^UTILITY(U,$J,358.3,32270,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,32270,1,3,0)
+532 ;;=3^BCC Skin Overlapping Sites
+533 ;;^UTILITY(U,$J,358.3,32270,1,4,0)
+534 ;;=4^C44.81
+535 ;;^UTILITY(U,$J,358.3,32270,2)
+536 ;;=^5001088
+537 ;;^UTILITY(U,$J,358.3,32271,0)
+538 ;;=L13.9^^97^1327^38
+539 ;;^UTILITY(U,$J,358.3,32271,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,32271,1,3,0)
+542 ;;=3^Bullous Disorder,Unspec
+543 ;;^UTILITY(U,$J,358.3,32271,1,4,0)
+544 ;;=4^L13.9
+545 ;;^UTILITY(U,$J,358.3,32271,2)
+546 ;;=^5009105
+547 ;;^UTILITY(U,$J,358.3,32272,0)
+548 ;;=M35.2^^97^1327^20
+549 ;;^UTILITY(U,$J,358.3,32272,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,32272,1,3,0)
+552 ;;=3^Behcet's Disease
+553 ;;^UTILITY(U,$J,358.3,32272,1,4,0)
+554 ;;=4^M35.2
+555 ;;^UTILITY(U,$J,358.3,32272,2)
+556 ;;=^263705
+557 ;;^UTILITY(U,$J,358.3,32273,0)
+558 ;;=D23.0^^97^1327^29
+559 ;;^UTILITY(U,$J,358.3,32273,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,32273,1,3,0)
+562 ;;=3^Benign Neop Skin Lip
+563 ;;^UTILITY(U,$J,358.3,32273,1,4,0)
+564 ;;=4^D23.0
+565 ;;^UTILITY(U,$J,358.3,32273,2)
+566 ;;=^5002059
+567 ;;^UTILITY(U,$J,358.3,32274,0)
+568 ;;=D23.21^^97^1327^30
+569 ;;^UTILITY(U,$J,358.3,32274,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,32274,1,3,0)
+572 ;;=3^Benign Neop Skin Right Ear/External Auric Canal
+573 ;;^UTILITY(U,$J,358.3,32274,1,4,0)
+574 ;;=4^D23.21
+575 ;;^UTILITY(U,$J,358.3,32274,2)
+576 ;;=^5002064
+577 ;;^UTILITY(U,$J,358.3,32275,0)
+578 ;;=D23.22^^97^1327^24
+579 ;;^UTILITY(U,$J,358.3,32275,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,32275,1,3,0)
+582 ;;=3^Benign Neop Skin Left Ear/External Auric Canal
+583 ;;^UTILITY(U,$J,358.3,32275,1,4,0)
+584 ;;=4^D23.22
+585 ;;^UTILITY(U,$J,358.3,32275,2)
+586 ;;=^5002065
+587 ;;^UTILITY(U,$J,358.3,32276,0)
+588 ;;=D23.30^^97^1327^23
+589 ;;^UTILITY(U,$J,358.3,32276,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,32276,1,3,0)
+592 ;;=3^Benign Neop Skin Face,Unspec
+593 ;;^UTILITY(U,$J,358.3,32276,1,4,0)
+594 ;;=4^D23.30
+595 ;;^UTILITY(U,$J,358.3,32276,2)
+596 ;;=^5002066
+597 ;;^UTILITY(U,$J,358.3,32277,0)
+598 ;;=D23.39^^97^1327^22
+599 ;;^UTILITY(U,$J,358.3,32277,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,32277,1,3,0)
+602 ;;=3^Benign Neop Skin Face NEC
+603 ;;^UTILITY(U,$J,358.3,32277,1,4,0)
+604 ;;=4^D23.39
+605 ;;^UTILITY(U,$J,358.3,32277,2)
+606 ;;=^5002067
+607 ;;^UTILITY(U,$J,358.3,32278,0)
+608 ;;=D23.5^^97^1327^36
+609 ;;^UTILITY(U,$J,358.3,32278,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,32278,1,3,0)
+612 ;;=3^Benign Neop Skin Trunk
+613 ;;^UTILITY(U,$J,358.3,32278,1,4,0)
+614 ;;=4^D23.5
+615 ;;^UTILITY(U,$J,358.3,32278,2)
+616 ;;=^5002069
+617 ;;^UTILITY(U,$J,358.3,32279,0)
+618 ;;=D23.62^^97^1327^28
+619 ;;^UTILITY(U,$J,358.3,32279,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,32279,1,3,0)
+622 ;;=3^Benign Neop Skin Left Upper Limb
+623 ;;^UTILITY(U,$J,358.3,32279,1,4,0)
+624 ;;=4^D23.62
+625 ;;^UTILITY(U,$J,358.3,32279,2)
+626 ;;=^5002072
+627 ;;^UTILITY(U,$J,358.3,32280,0)
+628 ;;=D23.61^^97^1327^34
+629 ;;^UTILITY(U,$J,358.3,32280,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,32280,1,3,0)
+632 ;;=3^Benign Neop Skin Right Upper Limb
+633 ;;^UTILITY(U,$J,358.3,32280,1,4,0)
+634 ;;=4^D23.61
+635 ;;^UTILITY(U,$J,358.3,32280,2)
+636 ;;=^5002071
+637 ;;^UTILITY(U,$J,358.3,32281,0)
+638 ;;=D23.71^^97^1327^32
+639 ;;^UTILITY(U,$J,358.3,32281,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,32281,1,3,0)
+642 ;;=3^Benign Neop Skin Right Lower Limb
+643 ;;^UTILITY(U,$J,358.3,32281,1,4,0)
+644 ;;=4^D23.71
+645 ;;^UTILITY(U,$J,358.3,32281,2)
+646 ;;=^5002074
+647 ;;^UTILITY(U,$J,358.3,32282,0)
+648 ;;=D23.72^^97^1327^26
+649 ;;^UTILITY(U,$J,358.3,32282,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,32282,1,3,0)
+652 ;;=3^Benign Neop Skin Left Lower Limb
+653 ;;^UTILITY(U,$J,358.3,32282,1,4,0)
+654 ;;=4^D23.72
+655 ;;^UTILITY(U,$J,358.3,32282,2)
+656 ;;=^5002075
+657 ;;^UTILITY(U,$J,358.3,32283,0)
+658 ;;=L60.4^^97^1327^19
+659 ;;^UTILITY(U,$J,358.3,32283,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,32283,1,3,0)
+662 ;;=3^Beau's Lines
+663 ;;^UTILITY(U,$J,358.3,32283,1,4,0)
+664 ;;=4^L60.4
+665 ;;^UTILITY(U,$J,358.3,32283,2)
+666 ;;=^5009237
+667 ;;^UTILITY(U,$J,358.3,32284,0)
+668 ;;=D23.4^^97^1327^35
+669 ;;^UTILITY(U,$J,358.3,32284,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,32284,1,3,0)
+672 ;;=3^Benign Neop Skin Scalp and Neck
+673 ;;^UTILITY(U,$J,358.3,32284,1,4,0)
+674 ;;=4^D23.4
+675 ;;^UTILITY(U,$J,358.3,32284,2)
+676 ;;=^5002068
+677 ;;^UTILITY(U,$J,358.3,32285,0)
+678 ;;=C44.612^^97^1327^15
+679 ;;^UTILITY(U,$J,358.3,32285,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,32285,1,3,0)
+682 ;;=3^BCC Skin Right Upper Limb
+683 ;;^UTILITY(U,$J,358.3,32285,1,4,0)
+684 ;;=4^C44.612
+685 ;;^UTILITY(U,$J,358.3,32285,2)
+686 ;;=^5001067
+687 ;;^UTILITY(U,$J,358.3,32286,0)
+688 ;;=C44.1192^^97^1327^5
+689 ;;^UTILITY(U,$J,358.3,32286,1,0)
+690 ;;=^358.31IA^4^2
+691 ;;^UTILITY(U,$J,358.3,32286,1,3,0)
+692 ;;=3^BCC Skin Left Lower Eyelid,Including Canthus
+693 ;;^UTILITY(U,$J,358.3,32286,1,4,0)
+694 ;;=4^C44.1192
+695 ;;^UTILITY(U,$J,358.3,32286,2)
+696 ;;=^5157260
+697 ;;^UTILITY(U,$J,358.3,32287,0)
+698 ;;=C44.1121^^97^1327^14
