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

IBDEI0CU.m

Go to the documentation of this file. 
  1. IBDEI0CU ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,32217,1,3,0)
  1.  ;;=3^Cellulitis of Trunk,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32217,1,4,0)
  1.  ;;=4^L03.319
  1.  ;;^UTILITY(U,$J,358.3,32217,2)
  1.  ;;=^5009054
  1.  ;;^UTILITY(U,$J,358.3,32218,0)
  1.  ;;=L03.90^^97^1325^36
  1.  ;;^UTILITY(U,$J,358.3,32218,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32218,1,3,0)
  1.  ;;=3^Cellulitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32218,1,4,0)
  1.  ;;=4^L03.90
  1.  ;;^UTILITY(U,$J,358.3,32218,2)
  1.  ;;=^5009067
  1.  ;;^UTILITY(U,$J,358.3,32219,0)
  1.  ;;=L72.9^^97^1325^43
  1.  ;;^UTILITY(U,$J,358.3,32219,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32219,1,3,0)
  1.  ;;=3^Cyst,Follicular of Skin/Subcutaneous Tissue,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32219,1,4,0)
  1.  ;;=4^L72.9
  1.  ;;^UTILITY(U,$J,358.3,32219,2)
  1.  ;;=^5009283
  1.  ;;^UTILITY(U,$J,358.3,32220,0)
  1.  ;;=L12.1^^97^1325^37
  1.  ;;^UTILITY(U,$J,358.3,32220,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32220,1,3,0)
  1.  ;;=3^Cicatricial Pemphigoid
  1.  ;;^UTILITY(U,$J,358.3,32220,1,4,0)
  1.  ;;=4^L12.1
  1.  ;;^UTILITY(U,$J,358.3,32220,2)
  1.  ;;=^5009096
  1.  ;;^UTILITY(U,$J,358.3,32221,0)
  1.  ;;=B37.83^^97^1325^2
  1.  ;;^UTILITY(U,$J,358.3,32221,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32221,1,3,0)
  1.  ;;=3^Candidal Cheilitis
  1.  ;;^UTILITY(U,$J,358.3,32221,1,4,0)
  1.  ;;=4^B37.83
  1.  ;;^UTILITY(U,$J,358.3,32221,2)
  1.  ;;=^5000622
  1.  ;;^UTILITY(U,$J,358.3,32222,0)
  1.  ;;=B37.0^^97^1325^3
  1.  ;;^UTILITY(U,$J,358.3,32222,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32222,1,3,0)
  1.  ;;=3^Candidal Stomatitis
  1.  ;;^UTILITY(U,$J,358.3,32222,1,4,0)
  1.  ;;=4^B37.0
  1.  ;;^UTILITY(U,$J,358.3,32222,2)
  1.  ;;=^5000612
  1.  ;;^UTILITY(U,$J,358.3,32223,0)
  1.  ;;=D04.9^^97^1325^20
  1.  ;;^UTILITY(U,$J,358.3,32223,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32223,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32223,1,4,0)
  1.  ;;=4^D04.9
  1.  ;;^UTILITY(U,$J,358.3,32223,2)
  1.  ;;=^5001925
  1.  ;;^UTILITY(U,$J,358.3,32224,0)
  1.  ;;=D04.0^^97^1325^11
  1.  ;;^UTILITY(U,$J,358.3,32224,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32224,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Lip
  1.  ;;^UTILITY(U,$J,358.3,32224,1,4,0)
  1.  ;;=4^D04.0
  1.  ;;^UTILITY(U,$J,358.3,32224,2)
  1.  ;;=^267725
  1.  ;;^UTILITY(U,$J,358.3,32225,0)
  1.  ;;=D04.21^^97^1325^13
  1.  ;;^UTILITY(U,$J,358.3,32225,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32225,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Right Ear/External Auricular Canal
  1.  ;;^UTILITY(U,$J,358.3,32225,1,4,0)
  1.  ;;=4^D04.21
  1.  ;;^UTILITY(U,$J,358.3,32225,2)
  1.  ;;=^5001913
  1.  ;;^UTILITY(U,$J,358.3,32226,0)
  1.  ;;=D04.22^^97^1325^6
  1.  ;;^UTILITY(U,$J,358.3,32226,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32226,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Left Ear/External Auricular Canal
  1.  ;;^UTILITY(U,$J,358.3,32226,1,4,0)
  1.  ;;=4^D04.22
  1.  ;;^UTILITY(U,$J,358.3,32226,2)
  1.  ;;=^5001914
  1.  ;;^UTILITY(U,$J,358.3,32227,0)
  1.  ;;=D04.30^^97^1325^5
  1.  ;;^UTILITY(U,$J,358.3,32227,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32227,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Face,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32227,1,4,0)
  1.  ;;=4^D04.30
  1.  ;;^UTILITY(U,$J,358.3,32227,2)
  1.  ;;=^5001915
  1.  ;;^UTILITY(U,$J,358.3,32228,0)
  1.  ;;=D04.39^^97^1325^4
  1.  ;;^UTILITY(U,$J,358.3,32228,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32228,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Face NEC
  1.  ;;^UTILITY(U,$J,358.3,32228,1,4,0)
  1.  ;;=4^D04.39
  1.  ;;^UTILITY(U,$J,358.3,32228,2)
  1.  ;;=^5001916
  1.  ;;^UTILITY(U,$J,358.3,32229,0)
  1.  ;;=D04.4^^97^1325^18
  1.  ;;^UTILITY(U,$J,358.3,32229,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32229,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Scalp/Neck
  1.  ;;^UTILITY(U,$J,358.3,32229,1,4,0)
  1.  ;;=4^D04.4
  1.  ;;^UTILITY(U,$J,358.3,32229,2)
  1.  ;;=^267729
  1.  ;;^UTILITY(U,$J,358.3,32230,0)
  1.  ;;=D04.5^^97^1325^19
  1.  ;;^UTILITY(U,$J,358.3,32230,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32230,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Trunk
  1.  ;;^UTILITY(U,$J,358.3,32230,1,4,0)
  1.  ;;=4^D04.5
  1.  ;;^UTILITY(U,$J,358.3,32230,2)
  1.  ;;=^5001917
  1.  ;;^UTILITY(U,$J,358.3,32231,0)
  1.  ;;=D04.61^^97^1325^17
  1.  ;;^UTILITY(U,$J,358.3,32231,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32231,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Right Upper Limb
  1.  ;;^UTILITY(U,$J,358.3,32231,1,4,0)
  1.  ;;=4^D04.61
  1.  ;;^UTILITY(U,$J,358.3,32231,2)
  1.  ;;=^5001919
  1.  ;;^UTILITY(U,$J,358.3,32232,0)
  1.  ;;=D04.62^^97^1325^10
  1.  ;;^UTILITY(U,$J,358.3,32232,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32232,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Left Upper Limb
  1.  ;;^UTILITY(U,$J,358.3,32232,1,4,0)
  1.  ;;=4^D04.62
  1.  ;;^UTILITY(U,$J,358.3,32232,2)
  1.  ;;=^5001920
  1.  ;;^UTILITY(U,$J,358.3,32233,0)
  1.  ;;=D04.71^^97^1325^15
  1.  ;;^UTILITY(U,$J,358.3,32233,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32233,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Right Lower Limb
  1.  ;;^UTILITY(U,$J,358.3,32233,1,4,0)
  1.  ;;=4^D04.71
  1.  ;;^UTILITY(U,$J,358.3,32233,2)
  1.  ;;=^5001922
  1.  ;;^UTILITY(U,$J,358.3,32234,0)
  1.  ;;=D04.72^^97^1325^8
  1.  ;;^UTILITY(U,$J,358.3,32234,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32234,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Left Lower Limb
  1.  ;;^UTILITY(U,$J,358.3,32234,1,4,0)
  1.  ;;=4^D04.72
  1.  ;;^UTILITY(U,$J,358.3,32234,2)
  1.  ;;=^5001923
  1.  ;;^UTILITY(U,$J,358.3,32235,0)
  1.  ;;=D04.8^^97^1325^12
  1.  ;;^UTILITY(U,$J,358.3,32235,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32235,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Other Sites
  1.  ;;^UTILITY(U,$J,358.3,32235,1,4,0)
  1.  ;;=4^D04.8
  1.  ;;^UTILITY(U,$J,358.3,32235,2)
  1.  ;;=^5001924
  1.  ;;^UTILITY(U,$J,358.3,32236,0)
  1.  ;;=L72.0^^97^1325^42
  1.  ;;^UTILITY(U,$J,358.3,32236,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32236,1,3,0)
  1.  ;;=3^Cyst,Epidermal
  1.  ;;^UTILITY(U,$J,358.3,32236,1,4,0)
  1.  ;;=4^L72.0
  1.  ;;^UTILITY(U,$J,358.3,32236,2)
  1.  ;;=^5009277
  1.  ;;^UTILITY(U,$J,358.3,32237,0)
  1.  ;;=L72.11^^97^1325^44
  1.  ;;^UTILITY(U,$J,358.3,32237,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32237,1,3,0)
  1.  ;;=3^Cyst,Pilar
  1.  ;;^UTILITY(U,$J,358.3,32237,1,4,0)
  1.  ;;=4^L72.11
  1.  ;;^UTILITY(U,$J,358.3,32237,2)
  1.  ;;=^5009278
  1.  ;;^UTILITY(U,$J,358.3,32238,0)
  1.  ;;=L72.12^^97^1325^46
  1.  ;;^UTILITY(U,$J,358.3,32238,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32238,1,3,0)
  1.  ;;=3^Cyst,Trichodermal
  1.  ;;^UTILITY(U,$J,358.3,32238,1,4,0)
  1.  ;;=4^L72.12
  1.  ;;^UTILITY(U,$J,358.3,32238,2)
  1.  ;;=^5009279
  1.  ;;^UTILITY(U,$J,358.3,32239,0)
  1.  ;;=L72.3^^97^1325^45
  1.  ;;^UTILITY(U,$J,358.3,32239,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32239,1,3,0)
  1.  ;;=3^Cyst,Sebaceous
  1.  ;;^UTILITY(U,$J,358.3,32239,1,4,0)
  1.  ;;=4^L72.3
  1.  ;;^UTILITY(U,$J,358.3,32239,2)
  1.  ;;=^5009281
  1.  ;;^UTILITY(U,$J,358.3,32240,0)
  1.  ;;=A63.0^^97^1325^38
  1.  ;;^UTILITY(U,$J,358.3,32240,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32240,1,3,0)
  1.  ;;=3^Condyloma
  1.  ;;^UTILITY(U,$J,358.3,32240,1,4,0)
  1.  ;;=4^A63.0
  1.  ;;^UTILITY(U,$J,358.3,32240,2)
  1.  ;;=^5000360
  1.  ;;^UTILITY(U,$J,358.3,32241,0)
  1.  ;;=L84.^^97^1325^1
  1.  ;;^UTILITY(U,$J,358.3,32241,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32241,1,3,0)
  1.  ;;=3^Callus
  1.  ;;^UTILITY(U,$J,358.3,32241,1,4,0)
  1.  ;;=4^L84.
  1.  ;;^UTILITY(U,$J,358.3,32241,2)
  1.  ;;=^271920
  1.  ;;^UTILITY(U,$J,358.3,32242,0)
  1.  ;;=L03.314^^97^1325^24
  1.  ;;^UTILITY(U,$J,358.3,32242,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32242,1,3,0)
  1.  ;;=3^Cellulitis of Groin
  1.  ;;^UTILITY(U,$J,358.3,32242,1,4,0)
  1.  ;;=4^L03.314
  1.  ;;^UTILITY(U,$J,358.3,32242,2)
  1.  ;;=^5009050
  1.  ;;^UTILITY(U,$J,358.3,32243,0)
  1.  ;;=A63.0^^97^1325^39
  1.  ;;^UTILITY(U,$J,358.3,32243,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32243,1,3,0)
  1.  ;;=3^Condyloma
  1.  ;;^UTILITY(U,$J,358.3,32243,1,4,0)
  1.  ;;=4^A63.0
  1.  ;;^UTILITY(U,$J,358.3,32243,2)
  1.  ;;=^5000360
  1.  ;;^UTILITY(U,$J,358.3,32244,0)
  1.  ;;=M71.30^^97^1325^41
  1.  ;;^UTILITY(U,$J,358.3,32244,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32244,1,3,0)
  1.  ;;=3^Cyst,Digital Mucous
  1.  ;;^UTILITY(U,$J,358.3,32244,1,4,0)
  1.  ;;=4^M71.30
  1.  ;;^UTILITY(U,$J,358.3,32244,2)
  1.  ;;=^5013149
  1.  ;;^UTILITY(U,$J,358.3,32245,0)
  1.  ;;=D04.122^^97^1325^7
  1.  ;;^UTILITY(U,$J,358.3,32245,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32245,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Left Lower Eyelid
  1.  ;;^UTILITY(U,$J,358.3,32245,1,4,0)
  1.  ;;=4^D04.122
  1.  ;;^UTILITY(U,$J,358.3,32245,2)
  1.  ;;=^5157285
  1.  ;;^UTILITY(U,$J,358.3,32246,0)
  1.  ;;=D04.121^^97^1325^9
  1.  ;;^UTILITY(U,$J,358.3,32246,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32246,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Left Upper Eyelid
  1.  ;;^UTILITY(U,$J,358.3,32246,1,4,0)
  1.  ;;=4^D04.121
  1.  ;;^UTILITY(U,$J,358.3,32246,2)
  1.  ;;=^5157284
  1.  ;;^UTILITY(U,$J,358.3,32247,0)
  1.  ;;=D04.112^^97^1325^14
  1.  ;;^UTILITY(U,$J,358.3,32247,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32247,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Right Lower Eyelid
  1.  ;;^UTILITY(U,$J,358.3,32247,1,4,0)
  1.  ;;=4^D04.112
  1.  ;;^UTILITY(U,$J,358.3,32247,2)
  1.  ;;=^5157283
  1.  ;;^UTILITY(U,$J,358.3,32248,0)
  1.  ;;=D04.111^^97^1325^16
  1.  ;;^UTILITY(U,$J,358.3,32248,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32248,1,3,0)
  1.  ;;=3^Carcinoma in Situ Skin Right Upper Eyelid
  1.  ;;^UTILITY(U,$J,358.3,32248,1,4,0)
  1.  ;;=4^D04.111
  1.  ;;^UTILITY(U,$J,358.3,32248,2)
  1.  ;;=^5157282
  1.  ;;^UTILITY(U,$J,358.3,32249,0)
  1.  ;;=L30.2^^97^1325^40
  1.  ;;^UTILITY(U,$J,358.3,32249,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32249,1,3,0)
  1.  ;;=3^Cutaneous Autosensitization
  1.  ;;^UTILITY(U,$J,358.3,32249,1,4,0)
  1.  ;;=4^L30.2
  1.  ;;^UTILITY(U,$J,358.3,32249,2)
  1.  ;;=^5009155
  1.  ;;^UTILITY(U,$J,358.3,32250,0)
  1.  ;;=B07.0^^97^1326^2
  1.  ;;^UTILITY(U,$J,358.3,32250,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32250,1,3,0)
  1.  ;;=3^Wart,Plantar
  1.  ;;^UTILITY(U,$J,358.3,32250,1,4,0)
  1.  ;;=4^B07.0
  1.  ;;^UTILITY(U,$J,358.3,32250,2)
  1.  ;;=^336720
  1.  ;;^UTILITY(U,$J,358.3,32251,0)
  1.  ;;=B07.8^^97^1326^3
  1.  ;;^UTILITY(U,$J,358.3,32251,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32251,1,3,0)
  1.  ;;=3^Wart,Viral
  1.  ;;^UTILITY(U,$J,358.3,32251,1,4,0)
  1.  ;;=4^B07.8
  1.  ;;^UTILITY(U,$J,358.3,32251,2)
  1.  ;;=^5000518
  1.  ;;^UTILITY(U,$J,358.3,32252,0)
  1.  ;;=A63.0^^97^1326^1
  1.  ;;^UTILITY(U,$J,358.3,32252,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32252,1,3,0)
  1.  ;;=3^Wart,Anogenital
  1.  ;;^UTILITY(U,$J,358.3,32252,1,4,0)
  1.  ;;=4^A63.0
  1.  ;;^UTILITY(U,$J,358.3,32252,2)
  1.  ;;=^5000360
  1.  ;;^UTILITY(U,$J,358.3,32253,0)
  1.  ;;=Z48.00^^97^1326^4
  1.  ;;^UTILITY(U,$J,358.3,32253,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32253,1,3,0)
  1.  ;;=3^Wound Check,Nonsurgical
  1.  ;;^UTILITY(U,$J,358.3,32253,1,4,0)
  1.  ;;=4^Z48.00
  1.  ;;^UTILITY(U,$J,358.3,32253,2)
  1.  ;;=^5063033
  1.  ;;^UTILITY(U,$J,358.3,32254,0)
  1.  ;;=Z48.01^^97^1326^5
  1.  ;;^UTILITY(U,$J,358.3,32254,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32254,1,3,0)
  1.  ;;=3^Wound Check,Surgical
  1.  ;;^UTILITY(U,$J,358.3,32254,1,4,0)
  1.  ;;=4^Z48.01
  1.  ;;^UTILITY(U,$J,358.3,32254,2)
  1.  ;;=^5063034
  1.  ;;^UTILITY(U,$J,358.3,32255,0)
  1.  ;;=D23.9^^97^1327^37
  1.  ;;^UTILITY(U,$J,358.3,32255,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32255,1,3,0)
  1.  ;;=3^Benign Neop Skin,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32255,1,4,0)
  1.  ;;=4^D23.9
  1.  ;;^UTILITY(U,$J,358.3,32255,2)
  1.  ;;=^5002076
  1.  ;;^UTILITY(U,$J,358.3,32256,0)
  1.  ;;=D21.9^^97^1327^21
  1.  ;;^UTILITY(U,$J,358.3,32256,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32256,1,3,0)
  1.  ;;=3^Benign Neop Connective/Soft Tissue,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32256,1,4,0)
  1.  ;;=4^D21.9
  1.  ;;^UTILITY(U,$J,358.3,32256,2)
  1.  ;;=^5002040
  1.  ;;^UTILITY(U,$J,358.3,32257,0)
  1.  ;;=L12.0^^97^1327^39
  1.  ;;^UTILITY(U,$J,358.3,32257,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32257,1,3,0)
  1.  ;;=3^Bullous Pemphigoid
  1.  ;;^UTILITY(U,$J,358.3,32257,1,4,0)
  1.  ;;=4^L12.0
  1.  ;;^UTILITY(U,$J,358.3,32257,2)
  1.  ;;=^5009095
  1.  ;;^UTILITY(U,$J,358.3,32258,0)
  1.  ;;=C44.01^^97^1327^18
  1.  ;;^UTILITY(U,$J,358.3,32258,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32258,1,3,0)
  1.  ;;=3^BCC Skin of Lip
  1.  ;;^UTILITY(U,$J,358.3,32258,1,4,0)
  1.  ;;=4^C44.01
  1.  ;;^UTILITY(U,$J,358.3,32258,2)
  1.  ;;=^340464
  1.  ;;^UTILITY(U,$J,358.3,32259,0)
  1.  ;;=C44.212^^97^1327^11
  1.  ;;^UTILITY(U,$J,358.3,32259,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32259,1,3,0)
  1.  ;;=3^BCC Skin Right Ear/External Auric Canal
  1.  ;;^UTILITY(U,$J,358.3,32259,1,4,0)
  1.  ;;=4^C44.212
  1.  ;;^UTILITY(U,$J,358.3,32259,2)
  1.  ;;=^5001032
  1.  ;;^UTILITY(U,$J,358.3,32260,0)
  1.  ;;=C44.219^^97^1327^4
  1.  ;;^UTILITY(U,$J,358.3,32260,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32260,1,3,0)
  1.  ;;=3^BCC Skin Left Ear/External Auric Canal
  1.  ;;^UTILITY(U,$J,358.3,32260,1,4,0)
  1.  ;;=4^C44.219
  1.  ;;^UTILITY(U,$J,358.3,32260,2)
  1.  ;;=^5001033
  1.  ;;^UTILITY(U,$J,358.3,32261,0)
  1.  ;;=C44.310^^97^1327^3
  1.  ;;^UTILITY(U,$J,358.3,32261,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32261,1,3,0)
  1.  ;;=3^BCC Skin Face,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32261,1,4,0)
  1.  ;;=4^C44.310
  1.  ;;^UTILITY(U,$J,358.3,32261,2)
  1.  ;;=^5001043
  1.  ;;^UTILITY(U,$J,358.3,32262,0)
  1.  ;;=C44.311^^97^1327^9
  1.  ;;^UTILITY(U,$J,358.3,32262,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32262,1,3,0)
  1.  ;;=3^BCC Skin Nose
  1.  ;;^UTILITY(U,$J,358.3,32262,1,4,0)
  1.  ;;=4^C44.311
  1.  ;;^UTILITY(U,$J,358.3,32262,2)
  1.  ;;=^5001044
  1.  ;;^UTILITY(U,$J,358.3,32263,0)
  1.  ;;=C44.41^^97^1327^16
  1.  ;;^UTILITY(U,$J,358.3,32263,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32263,1,3,0)
  1.  ;;=3^BCC Skin Scalp/Neck
  1.  ;;^UTILITY(U,$J,358.3,32263,1,4,0)
  1.  ;;=4^C44.41
  1.  ;;^UTILITY(U,$J,358.3,32263,2)
  1.  ;;=^340476
  1.  ;;^UTILITY(U,$J,358.3,32264,0)
  1.  ;;=C44.510^^97^1327^1
  1.  ;;^UTILITY(U,$J,358.3,32264,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32264,1,3,0)
  1.  ;;=3^BCC Skin Anal Skin
  1.  ;;^UTILITY(U,$J,358.3,32264,1,4,0)
  1.  ;;=4^C44.510
  1.  ;;^UTILITY(U,$J,358.3,32264,2)
  1.  ;;=^5001054
  1.  ;;^UTILITY(U,$J,358.3,32265,0)
  1.  ;;=C44.511^^97^1327^2
  1.  ;;^UTILITY(U,$J,358.3,32265,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32265,1,3,0)
  1.  ;;=3^BCC Skin Breast
  1.  ;;^UTILITY(U,$J,358.3,32265,1,4,0)
  1.  ;;=4^C44.511
  1.  ;;^UTILITY(U,$J,358.3,32265,2)
  1.  ;;=^5001055
  1.  ;;^UTILITY(U,$J,358.3,32266,0)
  1.  ;;=C44.519^^97^1327^17
  1.  ;;^UTILITY(U,$J,358.3,32266,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32266,1,3,0)
  1.  ;;=3^BCC Skin Trunk 
  1.  ;;^UTILITY(U,$J,358.3,32266,1,4,0)
  1.  ;;=4^C44.519
  1.  ;;^UTILITY(U,$J,358.3,32266,2)
  1.  ;;=^5001056
  1.  ;;^UTILITY(U,$J,358.3,32267,0)
  1.  ;;=C44.619^^97^1327^8
  1.  ;;^UTILITY(U,$J,358.3,32267,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32267,1,3,0)
  1.  ;;=3^BCC Skin Left Upper Limb
  1.  ;;^UTILITY(U,$J,358.3,32267,1,4,0)
  1.  ;;=4^C44.619
  1.  ;;^UTILITY(U,$J,358.3,32267,2)
  1.  ;;=^5001068
  1.  ;;^UTILITY(U,$J,358.3,32268,0)
  1.  ;;=C44.712^^97^1327^13
  1.  ;;^UTILITY(U,$J,358.3,32268,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32268,1,3,0)
  1.  ;;=3^BCC Skin Right Lower Limb
  1.  ;;^UTILITY(U,$J,358.3,32268,1,4,0)
  1.  ;;=4^C44.712
  1.  ;;^UTILITY(U,$J,358.3,32268,2)
  1.  ;;=^5001079
  1.  ;;^UTILITY(U,$J,358.3,32269,0)
  1.  ;;=C44.719^^97^1327^6
  1.  ;;^UTILITY(U,$J,358.3,32269,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32269,1,3,0)
  1.  ;;=3^BCC Skin Left Lower Limb
  1.  ;;^UTILITY(U,$J,358.3,32269,1,4,0)
  1.  ;;=4^C44.719
  1.  ;;^UTILITY(U,$J,358.3,32269,2)
  1.  ;;=^5001080
  1.  ;;^UTILITY(U,$J,358.3,32270,0)
  1.  ;;=C44.81^^97^1327^10
  1.  ;;^UTILITY(U,$J,358.3,32270,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32270,1,3,0)
  1.  ;;=3^BCC Skin Overlapping Sites
  1.  ;;^UTILITY(U,$J,358.3,32270,1,4,0)
  1.  ;;=4^C44.81
  1.  ;;^UTILITY(U,$J,358.3,32270,2)
  1.  ;;=^5001088
  1.  ;;^UTILITY(U,$J,358.3,32271,0)
  1.  ;;=L13.9^^97^1327^38
  1.  ;;^UTILITY(U,$J,358.3,32271,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32271,1,3,0)
  1.  ;;=3^Bullous Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32271,1,4,0)
  1.  ;;=4^L13.9
  1.  ;;^UTILITY(U,$J,358.3,32271,2)
  1.  ;;=^5009105
  1.  ;;^UTILITY(U,$J,358.3,32272,0)
  1.  ;;=M35.2^^97^1327^20
  1.  ;;^UTILITY(U,$J,358.3,32272,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32272,1,3,0)
  1.  ;;=3^Behcet's Disease
  1.  ;;^UTILITY(U,$J,358.3,32272,1,4,0)
  1.  ;;=4^M35.2
  1.  ;;^UTILITY(U,$J,358.3,32272,2)
  1.  ;;=^263705
  1.  ;;^UTILITY(U,$J,358.3,32273,0)
  1.  ;;=D23.0^^97^1327^29
  1.  ;;^UTILITY(U,$J,358.3,32273,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32273,1,3,0)
  1.  ;;=3^Benign Neop Skin Lip
  1.  ;;^UTILITY(U,$J,358.3,32273,1,4,0)
  1.  ;;=4^D23.0
  1.  ;;^UTILITY(U,$J,358.3,32273,2)
  1.  ;;=^5002059
  1.  ;;^UTILITY(U,$J,358.3,32274,0)
  1.  ;;=D23.21^^97^1327^30
  1.  ;;^UTILITY(U,$J,358.3,32274,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32274,1,3,0)
  1.  ;;=3^Benign Neop Skin Right Ear/External Auric Canal
  1.  ;;^UTILITY(U,$J,358.3,32274,1,4,0)
  1.  ;;=4^D23.21
  1.  ;;^UTILITY(U,$J,358.3,32274,2)
  1.  ;;=^5002064
  1.  ;;^UTILITY(U,$J,358.3,32275,0)
  1.  ;;=D23.22^^97^1327^24
  1.  ;;^UTILITY(U,$J,358.3,32275,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32275,1,3,0)
  1.  ;;=3^Benign Neop Skin Left Ear/External Auric Canal
  1.  ;;^UTILITY(U,$J,358.3,32275,1,4,0)
  1.  ;;=4^D23.22
  1.  ;;^UTILITY(U,$J,358.3,32275,2)
  1.  ;;=^5002065
  1.  ;;^UTILITY(U,$J,358.3,32276,0)
  1.  ;;=D23.30^^97^1327^23
  1.  ;;^UTILITY(U,$J,358.3,32276,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32276,1,3,0)
  1.  ;;=3^Benign Neop Skin Face,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32276,1,4,0)
  1.  ;;=4^D23.30
  1.  ;;^UTILITY(U,$J,358.3,32276,2)
  1.  ;;=^5002066
  1.  ;;^UTILITY(U,$J,358.3,32277,0)
  1.  ;;=D23.39^^97^1327^22
  1.  ;;^UTILITY(U,$J,358.3,32277,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32277,1,3,0)
  1.  ;;=3^Benign Neop Skin Face NEC
  1.  ;;^UTILITY(U,$J,358.3,32277,1,4,0)
  1.  ;;=4^D23.39
  1.  ;;^UTILITY(U,$J,358.3,32277,2)
  1.  ;;=^5002067
  1.  ;;^UTILITY(U,$J,358.3,32278,0)
  1.  ;;=D23.5^^97^1327^36
  1.  ;;^UTILITY(U,$J,358.3,32278,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32278,1,3,0)
  1.  ;;=3^Benign Neop Skin Trunk
  1.  ;;^UTILITY(U,$J,358.3,32278,1,4,0)
  1.  ;;=4^D23.5
  1.  ;;^UTILITY(U,$J,358.3,32278,2)
  1.  ;;=^5002069
  1.  ;;^UTILITY(U,$J,358.3,32279,0)
  1.  ;;=D23.62^^97^1327^28
  1.  ;;^UTILITY(U,$J,358.3,32279,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32279,1,3,0)
  1.  ;;=3^Benign Neop Skin Left Upper Limb
  1.  ;;^UTILITY(U,$J,358.3,32279,1,4,0)
  1.  ;;=4^D23.62
  1.  ;;^UTILITY(U,$J,358.3,32279,2)
  1.  ;;=^5002072
  1.  ;;^UTILITY(U,$J,358.3,32280,0)
  1.  ;;=D23.61^^97^1327^34
  1.  ;;^UTILITY(U,$J,358.3,32280,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32280,1,3,0)
  1.  ;;=3^Benign Neop Skin Right Upper Limb
  1.  ;;^UTILITY(U,$J,358.3,32280,1,4,0)
  1.  ;;=4^D23.61
  1.  ;;^UTILITY(U,$J,358.3,32280,2)
  1.  ;;=^5002071
  1.  ;;^UTILITY(U,$J,358.3,32281,0)
  1.  ;;=D23.71^^97^1327^32
  1.  ;;^UTILITY(U,$J,358.3,32281,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32281,1,3,0)
  1.  ;;=3^Benign Neop Skin Right Lower Limb
  1.  ;;^UTILITY(U,$J,358.3,32281,1,4,0)
  1.  ;;=4^D23.71
  1.  ;;^UTILITY(U,$J,358.3,32281,2)
  1.  ;;=^5002074
  1.  ;;^UTILITY(U,$J,358.3,32282,0)
  1.  ;;=D23.72^^97^1327^26
  1.  ;;^UTILITY(U,$J,358.3,32282,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32282,1,3,0)
  1.  ;;=3^Benign Neop Skin Left Lower Limb
  1.  ;;^UTILITY(U,$J,358.3,32282,1,4,0)
  1.  ;;=4^D23.72
  1.  ;;^UTILITY(U,$J,358.3,32282,2)
  1.  ;;=^5002075
  1.  ;;^UTILITY(U,$J,358.3,32283,0)
  1.  ;;=L60.4^^97^1327^19
  1.  ;;^UTILITY(U,$J,358.3,32283,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32283,1,3,0)
  1.  ;;=3^Beau's Lines
  1.  ;;^UTILITY(U,$J,358.3,32283,1,4,0)
  1.  ;;=4^L60.4
  1.  ;;^UTILITY(U,$J,358.3,32283,2)
  1.  ;;=^5009237
  1.  ;;^UTILITY(U,$J,358.3,32284,0)
  1.  ;;=D23.4^^97^1327^35
  1.  ;;^UTILITY(U,$J,358.3,32284,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32284,1,3,0)
  1.  ;;=3^Benign Neop Skin Scalp and Neck
  1.  ;;^UTILITY(U,$J,358.3,32284,1,4,0)
  1.  ;;=4^D23.4
  1.  ;;^UTILITY(U,$J,358.3,32284,2)
  1.  ;;=^5002068
  1.  ;;^UTILITY(U,$J,358.3,32285,0)
  1.  ;;=C44.612^^97^1327^15
  1.  ;;^UTILITY(U,$J,358.3,32285,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32285,1,3,0)
  1.  ;;=3^BCC Skin Right Upper Limb
  1.  ;;^UTILITY(U,$J,358.3,32285,1,4,0)
  1.  ;;=4^C44.612
  1.  ;;^UTILITY(U,$J,358.3,32285,2)
  1.  ;;=^5001067
  1.  ;;^UTILITY(U,$J,358.3,32286,0)
  1.  ;;=C44.1192^^97^1327^5
  1.  ;;^UTILITY(U,$J,358.3,32286,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32286,1,3,0)
  1.  ;;=3^BCC Skin Left Lower Eyelid,Including Canthus
  1.  ;;^UTILITY(U,$J,358.3,32286,1,4,0)
  1.  ;;=4^C44.1192
  1.  ;;^UTILITY(U,$J,358.3,32286,2)
  1.  ;;=^5157260
  1.  ;;^UTILITY(U,$J,358.3,32287,0)
  1.  ;;=C44.1121^^97^1327^14