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

IBDEI0CT.m

Go to the documentation of this file.
  1. IBDEI0CT ; ; 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,32148,1,3,0)
  1. ;;=3^Stevens-Johnson Syndrome-Toxic Epdrml Necrolysis Overlap Syndrome
  1. ;;^UTILITY(U,$J,358.3,32148,1,4,0)
  1. ;;=4^L51.3
  1. ;;^UTILITY(U,$J,358.3,32148,2)
  1. ;;=^336637
  1. ;;^UTILITY(U,$J,358.3,32149,0)
  1. ;;=Z12.83^^97^1321^23
  1. ;;^UTILITY(U,$J,358.3,32149,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32149,1,3,0)
  1. ;;=3^Screening for Malig Neop of Skin
  1. ;;^UTILITY(U,$J,358.3,32149,1,4,0)
  1. ;;=4^Z12.83
  1. ;;^UTILITY(U,$J,358.3,32149,2)
  1. ;;=^5062696
  1. ;;^UTILITY(U,$J,358.3,32150,0)
  1. ;;=Z48.817^^97^1321^50
  1. ;;^UTILITY(U,$J,358.3,32150,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32150,1,3,0)
  1. ;;=3^Surgical Aftercare Following Skin Surgery
  1. ;;^UTILITY(U,$J,358.3,32150,1,4,0)
  1. ;;=4^Z48.817
  1. ;;^UTILITY(U,$J,358.3,32150,2)
  1. ;;=^5063054
  1. ;;^UTILITY(U,$J,358.3,32151,0)
  1. ;;=L94.0^^97^1321^22
  1. ;;^UTILITY(U,$J,358.3,32151,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32151,1,3,0)
  1. ;;=3^Scleroderma,Localized
  1. ;;^UTILITY(U,$J,358.3,32151,1,4,0)
  1. ;;=4^L94.0
  1. ;;^UTILITY(U,$J,358.3,32151,2)
  1. ;;=^5009470
  1. ;;^UTILITY(U,$J,358.3,32152,0)
  1. ;;=D23.9^^97^1321^24
  1. ;;^UTILITY(U,$J,358.3,32152,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32152,1,3,0)
  1. ;;=3^Sebaceous Hyperplasia
  1. ;;^UTILITY(U,$J,358.3,32152,1,4,0)
  1. ;;=4^D23.9
  1. ;;^UTILITY(U,$J,358.3,32152,2)
  1. ;;=^5002076
  1. ;;^UTILITY(U,$J,358.3,32153,0)
  1. ;;=L21.9^^97^1321^25
  1. ;;^UTILITY(U,$J,358.3,32153,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32153,1,3,0)
  1. ;;=3^Seborrhea,Unspec
  1. ;;^UTILITY(U,$J,358.3,32153,1,4,0)
  1. ;;=4^L21.9
  1. ;;^UTILITY(U,$J,358.3,32153,2)
  1. ;;=^188703
  1. ;;^UTILITY(U,$J,358.3,32154,0)
  1. ;;=L91.8^^97^1321^41
  1. ;;^UTILITY(U,$J,358.3,32154,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32154,1,3,0)
  1. ;;=3^Skin Tag
  1. ;;^UTILITY(U,$J,358.3,32154,1,4,0)
  1. ;;=4^L91.8
  1. ;;^UTILITY(U,$J,358.3,32154,2)
  1. ;;=^5009460
  1. ;;^UTILITY(U,$J,358.3,32155,0)
  1. ;;=I83.12^^97^1321^44
  1. ;;^UTILITY(U,$J,358.3,32155,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32155,1,3,0)
  1. ;;=3^Stasis Dermatitis,Left Leg
  1. ;;^UTILITY(U,$J,358.3,32155,1,4,0)
  1. ;;=4^I83.12
  1. ;;^UTILITY(U,$J,358.3,32155,2)
  1. ;;=^5007989
  1. ;;^UTILITY(U,$J,358.3,32156,0)
  1. ;;=I83.11^^97^1321^45
  1. ;;^UTILITY(U,$J,358.3,32156,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32156,1,3,0)
  1. ;;=3^Stasis Dermatitis,Right Leg
  1. ;;^UTILITY(U,$J,358.3,32156,1,4,0)
  1. ;;=4^I83.11
  1. ;;^UTILITY(U,$J,358.3,32156,2)
  1. ;;=^5007988
  1. ;;^UTILITY(U,$J,358.3,32157,0)
  1. ;;=C84.19^^97^1321^28
  1. ;;^UTILITY(U,$J,358.3,32157,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32157,1,3,0)
  1. ;;=3^Sezary Disease,Extranodal/Solid Organ Sites
  1. ;;^UTILITY(U,$J,358.3,32157,1,4,0)
  1. ;;=4^C84.19
  1. ;;^UTILITY(U,$J,358.3,32157,2)
  1. ;;=^5001640
  1. ;;^UTILITY(U,$J,358.3,32158,0)
  1. ;;=C84.13^^97^1321^31
  1. ;;^UTILITY(U,$J,358.3,32158,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32158,1,3,0)
  1. ;;=3^Sezary Disease,Intra-Abdominal Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32158,1,4,0)
  1. ;;=4^C84.13
  1. ;;^UTILITY(U,$J,358.3,32158,2)
  1. ;;=^5001634
  1. ;;^UTILITY(U,$J,358.3,32159,0)
  1. ;;=C84.16^^97^1321^32
  1. ;;^UTILITY(U,$J,358.3,32159,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32159,1,3,0)
  1. ;;=3^Sezary Disease,Intrapelvic Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32159,1,4,0)
  1. ;;=4^C84.16
  1. ;;^UTILITY(U,$J,358.3,32159,2)
  1. ;;=^5001637
  1. ;;^UTILITY(U,$J,358.3,32160,0)
  1. ;;=C84.12^^97^1321^33
  1. ;;^UTILITY(U,$J,358.3,32160,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32160,1,3,0)
  1. ;;=3^Sezary Disease,Intrathoracic Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32160,1,4,0)
  1. ;;=4^C84.12
  1. ;;^UTILITY(U,$J,358.3,32160,2)
  1. ;;=^5001633
  1. ;;^UTILITY(U,$J,358.3,32161,0)
  1. ;;=C84.14^^97^1321^27
  1. ;;^UTILITY(U,$J,358.3,32161,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32161,1,3,0)
  1. ;;=3^Sezary Disease,Axilla/Upper Limb Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32161,1,4,0)
  1. ;;=4^C84.14
  1. ;;^UTILITY(U,$J,358.3,32161,2)
  1. ;;=^5001635
  1. ;;^UTILITY(U,$J,358.3,32162,0)
  1. ;;=C84.11^^97^1321^29
  1. ;;^UTILITY(U,$J,358.3,32162,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32162,1,3,0)
  1. ;;=3^Sezary Disease,Head/Face/Neck Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32162,1,4,0)
  1. ;;=4^C84.11
  1. ;;^UTILITY(U,$J,358.3,32162,2)
  1. ;;=^5001632
  1. ;;^UTILITY(U,$J,358.3,32163,0)
  1. ;;=C84.15^^97^1321^30
  1. ;;^UTILITY(U,$J,358.3,32163,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32163,1,3,0)
  1. ;;=3^Sezary Disease,Inguinal Region/LE Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32163,1,4,0)
  1. ;;=4^C84.15
  1. ;;^UTILITY(U,$J,358.3,32163,2)
  1. ;;=^5001636
  1. ;;^UTILITY(U,$J,358.3,32164,0)
  1. ;;=C84.18^^97^1321^34
  1. ;;^UTILITY(U,$J,358.3,32164,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32164,1,3,0)
  1. ;;=3^Sezary Disease,Multiple Site Lymph Nodes
  1. ;;^UTILITY(U,$J,358.3,32164,1,4,0)
  1. ;;=4^C84.18
  1. ;;^UTILITY(U,$J,358.3,32164,2)
  1. ;;=^5001639
  1. ;;^UTILITY(U,$J,358.3,32165,0)
  1. ;;=C84.17^^97^1321^35
  1. ;;^UTILITY(U,$J,358.3,32165,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32165,1,3,0)
  1. ;;=3^Sezary Disease,Spleen
  1. ;;^UTILITY(U,$J,358.3,32165,1,4,0)
  1. ;;=4^C84.17
  1. ;;^UTILITY(U,$J,358.3,32165,2)
  1. ;;=^5001638
  1. ;;^UTILITY(U,$J,358.3,32166,0)
  1. ;;=C84.10^^97^1321^36
  1. ;;^UTILITY(U,$J,358.3,32166,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32166,1,3,0)
  1. ;;=3^Sezary Disease,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,32166,1,4,0)
  1. ;;=4^C84.10
  1. ;;^UTILITY(U,$J,358.3,32166,2)
  1. ;;=^5001631
  1. ;;^UTILITY(U,$J,358.3,32167,0)
  1. ;;=A53.9^^97^1321^52
  1. ;;^UTILITY(U,$J,358.3,32167,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32167,1,3,0)
  1. ;;=3^Syphilis,Unspec
  1. ;;^UTILITY(U,$J,358.3,32167,1,4,0)
  1. ;;=4^A53.9
  1. ;;^UTILITY(U,$J,358.3,32167,2)
  1. ;;=^5000310
  1. ;;^UTILITY(U,$J,358.3,32168,0)
  1. ;;=L90.5^^97^1321^20
  1. ;;^UTILITY(U,$J,358.3,32168,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32168,1,3,0)
  1. ;;=3^Scar-Atrophic/Painful
  1. ;;^UTILITY(U,$J,358.3,32168,1,4,0)
  1. ;;=4^L90.5
  1. ;;^UTILITY(U,$J,358.3,32168,2)
  1. ;;=^5009455
  1. ;;^UTILITY(U,$J,358.3,32169,0)
  1. ;;=L91.0^^97^1321^21
  1. ;;^UTILITY(U,$J,358.3,32169,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32169,1,3,0)
  1. ;;=3^Scar-Hypertrophic/Keloidal
  1. ;;^UTILITY(U,$J,358.3,32169,1,4,0)
  1. ;;=4^L91.0
  1. ;;^UTILITY(U,$J,358.3,32169,2)
  1. ;;=^5009459
  1. ;;^UTILITY(U,$J,358.3,32170,0)
  1. ;;=Z48.02^^97^1321^51
  1. ;;^UTILITY(U,$J,358.3,32170,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32170,1,3,0)
  1. ;;=3^Suture Removal
  1. ;;^UTILITY(U,$J,358.3,32170,1,4,0)
  1. ;;=4^Z48.02
  1. ;;^UTILITY(U,$J,358.3,32170,2)
  1. ;;=^5063035
  1. ;;^UTILITY(U,$J,358.3,32171,0)
  1. ;;=C44.1292^^97^1321^4
  1. ;;^UTILITY(U,$J,358.3,32171,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32171,1,3,0)
  1. ;;=3^SCC Skin Left Lower Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,32171,1,4,0)
  1. ;;=4^C44.1292
  1. ;;^UTILITY(U,$J,358.3,32171,2)
  1. ;;=^5157264
  1. ;;^UTILITY(U,$J,358.3,32172,0)
  1. ;;=C44.1222^^97^1321^14
  1. ;;^UTILITY(U,$J,358.3,32172,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32172,1,3,0)
  1. ;;=3^SCC Skin Right Lower Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,32172,1,4,0)
  1. ;;=4^C44.1222
  1. ;;^UTILITY(U,$J,358.3,32172,2)
  1. ;;=^5157262
  1. ;;^UTILITY(U,$J,358.3,32173,0)
  1. ;;=Z76.89^^97^1321^26
  1. ;;^UTILITY(U,$J,358.3,32173,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32173,1,3,0)
  1. ;;=3^Self Injection Training
  1. ;;^UTILITY(U,$J,358.3,32173,1,4,0)
  1. ;;=4^Z76.89
  1. ;;^UTILITY(U,$J,358.3,32173,2)
  1. ;;=^5063304
  1. ;;^UTILITY(U,$J,358.3,32174,0)
  1. ;;=Z13.89^^97^1321^37
  1. ;;^UTILITY(U,$J,358.3,32174,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32174,1,3,0)
  1. ;;=3^Skin Assessment
  1. ;;^UTILITY(U,$J,358.3,32174,1,4,0)
  1. ;;=4^Z13.89
  1. ;;^UTILITY(U,$J,358.3,32174,2)
  1. ;;=^5062720
  1. ;;^UTILITY(U,$J,358.3,32175,0)
  1. ;;=L91.8^^97^1321^42
  1. ;;^UTILITY(U,$J,358.3,32175,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32175,1,3,0)
  1. ;;=3^Skin Tag
  1. ;;^UTILITY(U,$J,358.3,32175,1,4,0)
  1. ;;=4^L91.8
  1. ;;^UTILITY(U,$J,358.3,32175,2)
  1. ;;=^5009460
  1. ;;^UTILITY(U,$J,358.3,32176,0)
  1. ;;=L98.8^^97^1321^43
  1. ;;^UTILITY(U,$J,358.3,32176,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32176,1,3,0)
  1. ;;=3^Skin/Subcutaneous Tissue Disorders
  1. ;;^UTILITY(U,$J,358.3,32176,1,4,0)
  1. ;;=4^L98.8
  1. ;;^UTILITY(U,$J,358.3,32176,2)
  1. ;;=^5009594
  1. ;;^UTILITY(U,$J,358.3,32177,0)
  1. ;;=C44.1291^^97^1321^6
  1. ;;^UTILITY(U,$J,358.3,32177,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32177,1,3,0)
  1. ;;=3^SCC Skin Left Upper Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,32177,1,4,0)
  1. ;;=4^C44.1291
  1. ;;^UTILITY(U,$J,358.3,32177,2)
  1. ;;=^5157263
  1. ;;^UTILITY(U,$J,358.3,32178,0)
  1. ;;=C44.1221^^97^1321^16
  1. ;;^UTILITY(U,$J,358.3,32178,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32178,1,3,0)
  1. ;;=3^SCC Skin Right Upper Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,32178,1,4,0)
  1. ;;=4^C44.1221
  1. ;;^UTILITY(U,$J,358.3,32178,2)
  1. ;;=^5157261
  1. ;;^UTILITY(U,$J,358.3,32179,0)
  1. ;;=B35.1^^97^1322^9
  1. ;;^UTILITY(U,$J,358.3,32179,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32179,1,3,0)
  1. ;;=3^Tinea Unguium
  1. ;;^UTILITY(U,$J,358.3,32179,1,4,0)
  1. ;;=4^B35.1
  1. ;;^UTILITY(U,$J,358.3,32179,2)
  1. ;;=^119748
  1. ;;^UTILITY(U,$J,358.3,32180,0)
  1. ;;=F63.3^^97^1322^12
  1. ;;^UTILITY(U,$J,358.3,32180,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32180,1,3,0)
  1. ;;=3^Trichotillomania
  1. ;;^UTILITY(U,$J,358.3,32180,1,4,0)
  1. ;;=4^F63.3
  1. ;;^UTILITY(U,$J,358.3,32180,2)
  1. ;;=^5003643
  1. ;;^UTILITY(U,$J,358.3,32181,0)
  1. ;;=B35.2^^97^1322^6
  1. ;;^UTILITY(U,$J,358.3,32181,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32181,1,3,0)
  1. ;;=3^Tinea Manuum
  1. ;;^UTILITY(U,$J,358.3,32181,1,4,0)
  1. ;;=4^B35.2
  1. ;;^UTILITY(U,$J,358.3,32181,2)
  1. ;;=^5000605
  1. ;;^UTILITY(U,$J,358.3,32182,0)
  1. ;;=B35.6^^97^1322^5
  1. ;;^UTILITY(U,$J,358.3,32182,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32182,1,3,0)
  1. ;;=3^Tinea Cruris
  1. ;;^UTILITY(U,$J,358.3,32182,1,4,0)
  1. ;;=4^B35.6
  1. ;;^UTILITY(U,$J,358.3,32182,2)
  1. ;;=^119711
  1. ;;^UTILITY(U,$J,358.3,32183,0)
  1. ;;=B35.3^^97^1322^8
  1. ;;^UTILITY(U,$J,358.3,32183,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32183,1,3,0)
  1. ;;=3^Tinea Pedis
  1. ;;^UTILITY(U,$J,358.3,32183,1,4,0)
  1. ;;=4^B35.3
  1. ;;^UTILITY(U,$J,358.3,32183,2)
  1. ;;=^119732
  1. ;;^UTILITY(U,$J,358.3,32184,0)
  1. ;;=B35.4^^97^1322^4
  1. ;;^UTILITY(U,$J,358.3,32184,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32184,1,3,0)
  1. ;;=3^Tinea Corporis
  1. ;;^UTILITY(U,$J,358.3,32184,1,4,0)
  1. ;;=4^B35.4
  1. ;;^UTILITY(U,$J,358.3,32184,2)
  1. ;;=^119704
  1. ;;^UTILITY(U,$J,358.3,32185,0)
  1. ;;=L51.2^^97^1322^11
  1. ;;^UTILITY(U,$J,358.3,32185,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32185,1,3,0)
  1. ;;=3^Toxic Epidermal Necrolysis
  1. ;;^UTILITY(U,$J,358.3,32185,1,4,0)
  1. ;;=4^L51.2
  1. ;;^UTILITY(U,$J,358.3,32185,2)
  1. ;;=^5009206
  1. ;;^UTILITY(U,$J,358.3,32186,0)
  1. ;;=B35.0^^97^1322^2
  1. ;;^UTILITY(U,$J,358.3,32186,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32186,1,3,0)
  1. ;;=3^Tinea Barae/Capitis
  1. ;;^UTILITY(U,$J,358.3,32186,1,4,0)
  1. ;;=4^B35.0
  1. ;;^UTILITY(U,$J,358.3,32186,2)
  1. ;;=^5000604
  1. ;;^UTILITY(U,$J,358.3,32187,0)
  1. ;;=B36.3^^97^1322^3
  1. ;;^UTILITY(U,$J,358.3,32187,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32187,1,3,0)
  1. ;;=3^Tinea Blanca
  1. ;;^UTILITY(U,$J,358.3,32187,1,4,0)
  1. ;;=4^B36.3
  1. ;;^UTILITY(U,$J,358.3,32187,2)
  1. ;;=^266864
  1. ;;^UTILITY(U,$J,358.3,32188,0)
  1. ;;=B36.1^^97^1322^7
  1. ;;^UTILITY(U,$J,358.3,32188,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32188,1,3,0)
  1. ;;=3^Tinea Nigra
  1. ;;^UTILITY(U,$J,358.3,32188,1,4,0)
  1. ;;=4^B36.1
  1. ;;^UTILITY(U,$J,358.3,32188,2)
  1. ;;=^264999
  1. ;;^UTILITY(U,$J,358.3,32189,0)
  1. ;;=B36.0^^97^1322^10
  1. ;;^UTILITY(U,$J,358.3,32189,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32189,1,3,0)
  1. ;;=3^Tinea Veriscolor
  1. ;;^UTILITY(U,$J,358.3,32189,1,4,0)
  1. ;;=4^B36.0
  1. ;;^UTILITY(U,$J,358.3,32189,2)
  1. ;;=^5000608
  1. ;;^UTILITY(U,$J,358.3,32190,0)
  1. ;;=L81.8^^97^1322^1
  1. ;;^UTILITY(U,$J,358.3,32190,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32190,1,3,0)
  1. ;;=3^Tattoo Pigmentation
  1. ;;^UTILITY(U,$J,358.3,32190,1,4,0)
  1. ;;=4^L81.8
  1. ;;^UTILITY(U,$J,358.3,32190,2)
  1. ;;=^5009318
  1. ;;^UTILITY(U,$J,358.3,32191,0)
  1. ;;=L80.^^97^1323^12
  1. ;;^UTILITY(U,$J,358.3,32191,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32191,1,3,0)
  1. ;;=3^Vitiligo
  1. ;;^UTILITY(U,$J,358.3,32191,1,4,0)
  1. ;;=4^L80.
  1. ;;^UTILITY(U,$J,358.3,32191,2)
  1. ;;=^127071
  1. ;;^UTILITY(U,$J,358.3,32192,0)
  1. ;;=I83.019^^97^1323^7
  1. ;;^UTILITY(U,$J,358.3,32192,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32192,1,3,0)
  1. ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer Site Unspec
  1. ;;^UTILITY(U,$J,358.3,32192,1,4,0)
  1. ;;=4^I83.019
  1. ;;^UTILITY(U,$J,358.3,32192,2)
  1. ;;=^5007979
  1. ;;^UTILITY(U,$J,358.3,32193,0)
  1. ;;=I83.029^^97^1323^2
  1. ;;^UTILITY(U,$J,358.3,32193,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32193,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer Site Unspec
  1. ;;^UTILITY(U,$J,358.3,32193,1,4,0)
  1. ;;=4^I83.029
  1. ;;^UTILITY(U,$J,358.3,32193,2)
  1. ;;=^5007986
  1. ;;^UTILITY(U,$J,358.3,32194,0)
  1. ;;=I83.012^^97^1323^8
  1. ;;^UTILITY(U,$J,358.3,32194,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32194,1,3,0)
  1. ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,32194,1,4,0)
  1. ;;=4^I83.012
  1. ;;^UTILITY(U,$J,358.3,32194,2)
  1. ;;=^5007974
  1. ;;^UTILITY(U,$J,358.3,32195,0)
  1. ;;=I83.013^^97^1323^9
  1. ;;^UTILITY(U,$J,358.3,32195,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32195,1,3,0)
  1. ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,32195,1,4,0)
  1. ;;=4^I83.013
  1. ;;^UTILITY(U,$J,358.3,32195,2)
  1. ;;=^5007975
  1. ;;^UTILITY(U,$J,358.3,32196,0)
  1. ;;=I83.014^^97^1323^10
  1. ;;^UTILITY(U,$J,358.3,32196,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32196,1,3,0)
  1. ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,32196,1,4,0)
  1. ;;=4^I83.014
  1. ;;^UTILITY(U,$J,358.3,32196,2)
  1. ;;=^5007976
  1. ;;^UTILITY(U,$J,358.3,32197,0)
  1. ;;=I83.11^^97^1323^6
  1. ;;^UTILITY(U,$J,358.3,32197,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32197,1,3,0)
  1. ;;=3^Varicose Veins Right Lower Extrem w/ Inflammation
  1. ;;^UTILITY(U,$J,358.3,32197,1,4,0)
  1. ;;=4^I83.11
  1. ;;^UTILITY(U,$J,358.3,32197,2)
  1. ;;=^5007988
  1. ;;^UTILITY(U,$J,358.3,32198,0)
  1. ;;=I83.022^^97^1323^3
  1. ;;^UTILITY(U,$J,358.3,32198,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32198,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,32198,1,4,0)
  1. ;;=4^I83.022
  1. ;;^UTILITY(U,$J,358.3,32198,2)
  1. ;;=^5007981
  1. ;;^UTILITY(U,$J,358.3,32199,0)
  1. ;;=I83.023^^97^1323^4
  1. ;;^UTILITY(U,$J,358.3,32199,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32199,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,32199,1,4,0)
  1. ;;=4^I83.023
  1. ;;^UTILITY(U,$J,358.3,32199,2)
  1. ;;=^5007982
  1. ;;^UTILITY(U,$J,358.3,32200,0)
  1. ;;=I83.024^^97^1323^5
  1. ;;^UTILITY(U,$J,358.3,32200,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32200,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,32200,1,4,0)
  1. ;;=4^I83.024
  1. ;;^UTILITY(U,$J,358.3,32200,2)
  1. ;;=^5007983
  1. ;;^UTILITY(U,$J,358.3,32201,0)
  1. ;;=I83.12^^97^1323^1
  1. ;;^UTILITY(U,$J,358.3,32201,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32201,1,3,0)
  1. ;;=3^Varicose Veins Left Lower Extrem w/ Inflammation
  1. ;;^UTILITY(U,$J,358.3,32201,1,4,0)
  1. ;;=4^I83.12
  1. ;;^UTILITY(U,$J,358.3,32201,2)
  1. ;;=^5007989
  1. ;;^UTILITY(U,$J,358.3,32202,0)
  1. ;;=I87.2^^97^1323^11
  1. ;;^UTILITY(U,$J,358.3,32202,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32202,1,3,0)
  1. ;;=3^Venous Insufficiency
  1. ;;^UTILITY(U,$J,358.3,32202,1,4,0)
  1. ;;=4^I87.2
  1. ;;^UTILITY(U,$J,358.3,32202,2)
  1. ;;=^5008047
  1. ;;^UTILITY(U,$J,358.3,32203,0)
  1. ;;=L85.3^^97^1324^1
  1. ;;^UTILITY(U,$J,358.3,32203,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32203,1,3,0)
  1. ;;=3^Xerosis Cutis
  1. ;;^UTILITY(U,$J,358.3,32203,1,4,0)
  1. ;;=4^L85.3
  1. ;;^UTILITY(U,$J,358.3,32203,2)
  1. ;;=^5009323
  1. ;;^UTILITY(U,$J,358.3,32204,0)
  1. ;;=L03.113^^97^1325^34
  1. ;;^UTILITY(U,$J,358.3,32204,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32204,1,3,0)
  1. ;;=3^Cellulitis of Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,32204,1,4,0)
  1. ;;=4^L03.113
  1. ;;^UTILITY(U,$J,358.3,32204,2)
  1. ;;=^5009033
  1. ;;^UTILITY(U,$J,358.3,32205,0)
  1. ;;=L03.114^^97^1325^29
  1. ;;^UTILITY(U,$J,358.3,32205,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32205,1,3,0)
  1. ;;=3^Cellulitis of Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,32205,1,4,0)
  1. ;;=4^L03.114
  1. ;;^UTILITY(U,$J,358.3,32205,2)
  1. ;;=^5009034
  1. ;;^UTILITY(U,$J,358.3,32206,0)
  1. ;;=L03.317^^97^1325^21
  1. ;;^UTILITY(U,$J,358.3,32206,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32206,1,3,0)
  1. ;;=3^Cellulitis of Buttock
  1. ;;^UTILITY(U,$J,358.3,32206,1,4,0)
  1. ;;=4^L03.317
  1. ;;^UTILITY(U,$J,358.3,32206,2)
  1. ;;=^5009053
  1. ;;^UTILITY(U,$J,358.3,32207,0)
  1. ;;=L03.211^^97^1325^22
  1. ;;^UTILITY(U,$J,358.3,32207,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32207,1,3,0)
  1. ;;=3^Cellulitis of Face
  1. ;;^UTILITY(U,$J,358.3,32207,1,4,0)
  1. ;;=4^L03.211
  1. ;;^UTILITY(U,$J,358.3,32207,2)
  1. ;;=^5009043
  1. ;;^UTILITY(U,$J,358.3,32208,0)
  1. ;;=L03.011^^97^1325^31
  1. ;;^UTILITY(U,$J,358.3,32208,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32208,1,3,0)
  1. ;;=3^Cellulitis of Right Finger
  1. ;;^UTILITY(U,$J,358.3,32208,1,4,0)
  1. ;;=4^L03.011
  1. ;;^UTILITY(U,$J,358.3,32208,2)
  1. ;;=^5009019
  1. ;;^UTILITY(U,$J,358.3,32209,0)
  1. ;;=L03.012^^97^1325^26
  1. ;;^UTILITY(U,$J,358.3,32209,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32209,1,3,0)
  1. ;;=3^Cellulitis of Left Finger
  1. ;;^UTILITY(U,$J,358.3,32209,1,4,0)
  1. ;;=4^L03.012
  1. ;;^UTILITY(U,$J,358.3,32209,2)
  1. ;;=^5009020
  1. ;;^UTILITY(U,$J,358.3,32210,0)
  1. ;;=L03.119^^97^1325^23
  1. ;;^UTILITY(U,$J,358.3,32210,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32210,1,3,0)
  1. ;;=3^Cellulitis of Foot
  1. ;;^UTILITY(U,$J,358.3,32210,1,4,0)
  1. ;;=4^L03.119
  1. ;;^UTILITY(U,$J,358.3,32210,2)
  1. ;;=^5009036
  1. ;;^UTILITY(U,$J,358.3,32211,0)
  1. ;;=L03.119^^97^1325^25
  1. ;;^UTILITY(U,$J,358.3,32211,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32211,1,3,0)
  1. ;;=3^Cellulitis of Hand
  1. ;;^UTILITY(U,$J,358.3,32211,1,4,0)
  1. ;;=4^L03.119
  1. ;;^UTILITY(U,$J,358.3,32211,2)
  1. ;;=^5009036
  1. ;;^UTILITY(U,$J,358.3,32212,0)
  1. ;;=L03.115^^97^1325^32
  1. ;;^UTILITY(U,$J,358.3,32212,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32212,1,3,0)
  1. ;;=3^Cellulitis of Right Lower Limb
  1. ;;^UTILITY(U,$J,358.3,32212,1,4,0)
  1. ;;=4^L03.115
  1. ;;^UTILITY(U,$J,358.3,32212,2)
  1. ;;=^5009035
  1. ;;^UTILITY(U,$J,358.3,32213,0)
  1. ;;=L03.116^^97^1325^27
  1. ;;^UTILITY(U,$J,358.3,32213,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32213,1,3,0)
  1. ;;=3^Cellulitis of Left Lower Limb
  1. ;;^UTILITY(U,$J,358.3,32213,1,4,0)
  1. ;;=4^L03.116
  1. ;;^UTILITY(U,$J,358.3,32213,2)
  1. ;;=^5133645
  1. ;;^UTILITY(U,$J,358.3,32214,0)
  1. ;;=L03.221^^97^1325^30
  1. ;;^UTILITY(U,$J,358.3,32214,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32214,1,3,0)
  1. ;;=3^Cellulitis of Neck
  1. ;;^UTILITY(U,$J,358.3,32214,1,4,0)
  1. ;;=4^L03.221
  1. ;;^UTILITY(U,$J,358.3,32214,2)
  1. ;;=^5009045
  1. ;;^UTILITY(U,$J,358.3,32215,0)
  1. ;;=L03.031^^97^1325^33
  1. ;;^UTILITY(U,$J,358.3,32215,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32215,1,3,0)
  1. ;;=3^Cellulitis of Right Toe
  1. ;;^UTILITY(U,$J,358.3,32215,1,4,0)
  1. ;;=4^L03.031
  1. ;;^UTILITY(U,$J,358.3,32215,2)
  1. ;;=^5009025
  1. ;;^UTILITY(U,$J,358.3,32216,0)
  1. ;;=L03.032^^97^1325^28
  1. ;;^UTILITY(U,$J,358.3,32216,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32216,1,3,0)
  1. ;;=3^Cellulitis of Left Toe
  1. ;;^UTILITY(U,$J,358.3,32216,1,4,0)
  1. ;;=4^L03.032
  1. ;;^UTILITY(U,$J,358.3,32216,2)
  1. ;;=^5009026
  1. ;;^UTILITY(U,$J,358.3,32217,0)
  1. ;;=L03.319^^97^1325^35
  1. ;;^UTILITY(U,$J,358.3,32217,1,0)
  1. ;;=^358.31IA^4^2