- 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 Feb 18, 2025@23:12:33 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