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

IBDEI0EI.m

Go to the documentation of this file.
  1. IBDEI0EI ; ; 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,36326,1,3,0)
  1. ;;=3^Atrial Fibrillation,Chronic,Unspec
  1. ;;^UTILITY(U,$J,358.3,36326,1,4,0)
  1. ;;=4^I48.20
  1. ;;^UTILITY(U,$J,358.3,36326,2)
  1. ;;=^5158048
  1. ;;^UTILITY(U,$J,358.3,36327,0)
  1. ;;=I48.11^^107^1476^3
  1. ;;^UTILITY(U,$J,358.3,36327,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36327,1,3,0)
  1. ;;=3^Atrial Fibrillation,Longstanding Persistent
  1. ;;^UTILITY(U,$J,358.3,36327,1,4,0)
  1. ;;=4^I48.11
  1. ;;^UTILITY(U,$J,358.3,36327,2)
  1. ;;=^5158046
  1. ;;^UTILITY(U,$J,358.3,36328,0)
  1. ;;=I48.19^^107^1476^4
  1. ;;^UTILITY(U,$J,358.3,36328,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36328,1,3,0)
  1. ;;=3^Atrial Fibrillation,Other Persistent
  1. ;;^UTILITY(U,$J,358.3,36328,1,4,0)
  1. ;;=4^I48.19
  1. ;;^UTILITY(U,$J,358.3,36328,2)
  1. ;;=^5158047
  1. ;;^UTILITY(U,$J,358.3,36329,0)
  1. ;;=I48.21^^107^1476^5
  1. ;;^UTILITY(U,$J,358.3,36329,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36329,1,3,0)
  1. ;;=3^Atrial Fibrillation,Permanent
  1. ;;^UTILITY(U,$J,358.3,36329,1,4,0)
  1. ;;=4^I48.21
  1. ;;^UTILITY(U,$J,358.3,36329,2)
  1. ;;=^304710
  1. ;;^UTILITY(U,$J,358.3,36330,0)
  1. ;;=I12.9^^107^1476^16
  1. ;;^UTILITY(U,$J,358.3,36330,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36330,1,3,0)
  1. ;;=3^Hypertensive CKD w/ Stg 1-4 CKD
  1. ;;^UTILITY(U,$J,358.3,36330,1,4,0)
  1. ;;=4^I12.9
  1. ;;^UTILITY(U,$J,358.3,36330,2)
  1. ;;=^5007066
  1. ;;^UTILITY(U,$J,358.3,36331,0)
  1. ;;=B07.9^^107^1477^328
  1. ;;^UTILITY(U,$J,358.3,36331,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36331,1,3,0)
  1. ;;=3^Viral Wart,Unspec
  1. ;;^UTILITY(U,$J,358.3,36331,1,4,0)
  1. ;;=4^B07.9
  1. ;;^UTILITY(U,$J,358.3,36331,2)
  1. ;;=^5000519
  1. ;;^UTILITY(U,$J,358.3,36332,0)
  1. ;;=A63.0^^107^1477^35
  1. ;;^UTILITY(U,$J,358.3,36332,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36332,1,3,0)
  1. ;;=3^Anogenital (Venereal) Warts
  1. ;;^UTILITY(U,$J,358.3,36332,1,4,0)
  1. ;;=4^A63.0
  1. ;;^UTILITY(U,$J,358.3,36332,2)
  1. ;;=^5000360
  1. ;;^UTILITY(U,$J,358.3,36333,0)
  1. ;;=B35.0^^107^1477^319
  1. ;;^UTILITY(U,$J,358.3,36333,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36333,1,3,0)
  1. ;;=3^Tinea Barbae and Tinea Capitis
  1. ;;^UTILITY(U,$J,358.3,36333,1,4,0)
  1. ;;=4^B35.0
  1. ;;^UTILITY(U,$J,358.3,36333,2)
  1. ;;=^5000604
  1. ;;^UTILITY(U,$J,358.3,36334,0)
  1. ;;=B35.1^^107^1477^324
  1. ;;^UTILITY(U,$J,358.3,36334,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36334,1,3,0)
  1. ;;=3^Tinea Unguium
  1. ;;^UTILITY(U,$J,358.3,36334,1,4,0)
  1. ;;=4^B35.1
  1. ;;^UTILITY(U,$J,358.3,36334,2)
  1. ;;=^119748
  1. ;;^UTILITY(U,$J,358.3,36335,0)
  1. ;;=B35.6^^107^1477^321
  1. ;;^UTILITY(U,$J,358.3,36335,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36335,1,3,0)
  1. ;;=3^Tinea Cruris
  1. ;;^UTILITY(U,$J,358.3,36335,1,4,0)
  1. ;;=4^B35.6
  1. ;;^UTILITY(U,$J,358.3,36335,2)
  1. ;;=^119711
  1. ;;^UTILITY(U,$J,358.3,36336,0)
  1. ;;=B35.3^^107^1477^323
  1. ;;^UTILITY(U,$J,358.3,36336,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36336,1,3,0)
  1. ;;=3^Tinea Pedis
  1. ;;^UTILITY(U,$J,358.3,36336,1,4,0)
  1. ;;=4^B35.3
  1. ;;^UTILITY(U,$J,358.3,36336,2)
  1. ;;=^119732
  1. ;;^UTILITY(U,$J,358.3,36337,0)
  1. ;;=B35.5^^107^1477^322
  1. ;;^UTILITY(U,$J,358.3,36337,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36337,1,3,0)
  1. ;;=3^Tinea Imbricata
  1. ;;^UTILITY(U,$J,358.3,36337,1,4,0)
  1. ;;=4^B35.5
  1. ;;^UTILITY(U,$J,358.3,36337,2)
  1. ;;=^119725
  1. ;;^UTILITY(U,$J,358.3,36338,0)
  1. ;;=B35.4^^107^1477^320
  1. ;;^UTILITY(U,$J,358.3,36338,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36338,1,3,0)
  1. ;;=3^Tinea Corporis
  1. ;;^UTILITY(U,$J,358.3,36338,1,4,0)
  1. ;;=4^B35.4
  1. ;;^UTILITY(U,$J,358.3,36338,2)
  1. ;;=^119704
  1. ;;^UTILITY(U,$J,358.3,36339,0)
  1. ;;=B35.8^^107^1477^140
  1. ;;^UTILITY(U,$J,358.3,36339,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36339,1,3,0)
  1. ;;=3^Dermatophytoses,Other
  1. ;;^UTILITY(U,$J,358.3,36339,1,4,0)
  1. ;;=4^B35.8
  1. ;;^UTILITY(U,$J,358.3,36339,2)
  1. ;;=^5000606
  1. ;;^UTILITY(U,$J,358.3,36340,0)
  1. ;;=B36.9^^107^1477^312
  1. ;;^UTILITY(U,$J,358.3,36340,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36340,1,3,0)
  1. ;;=3^Superficial Mycosis,Unspec
  1. ;;^UTILITY(U,$J,358.3,36340,1,4,0)
  1. ;;=4^B36.9
  1. ;;^UTILITY(U,$J,358.3,36340,2)
  1. ;;=^5000611
  1. ;;^UTILITY(U,$J,358.3,36341,0)
  1. ;;=D69.0^^107^1477^33
  1. ;;^UTILITY(U,$J,358.3,36341,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36341,1,3,0)
  1. ;;=3^Allergic Purpura
  1. ;;^UTILITY(U,$J,358.3,36341,1,4,0)
  1. ;;=4^D69.0
  1. ;;^UTILITY(U,$J,358.3,36341,2)
  1. ;;=^5002365
  1. ;;^UTILITY(U,$J,358.3,36342,0)
  1. ;;=B00.9^^107^1477^161
  1. ;;^UTILITY(U,$J,358.3,36342,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36342,1,3,0)
  1. ;;=3^Herpesviral Infection,Unspec
  1. ;;^UTILITY(U,$J,358.3,36342,1,4,0)
  1. ;;=4^B00.9
  1. ;;^UTILITY(U,$J,358.3,36342,2)
  1. ;;=^5000480
  1. ;;^UTILITY(U,$J,358.3,36343,0)
  1. ;;=B02.9^^107^1477^331
  1. ;;^UTILITY(U,$J,358.3,36343,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36343,1,3,0)
  1. ;;=3^Zoster w/o Complications
  1. ;;^UTILITY(U,$J,358.3,36343,1,4,0)
  1. ;;=4^B02.9
  1. ;;^UTILITY(U,$J,358.3,36343,2)
  1. ;;=^5000501
  1. ;;^UTILITY(U,$J,358.3,36344,0)
  1. ;;=D17.9^^107^1477^90
  1. ;;^UTILITY(U,$J,358.3,36344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36344,1,3,0)
  1. ;;=3^Benign Lipomatous Neop,Unspec
  1. ;;^UTILITY(U,$J,358.3,36344,1,4,0)
  1. ;;=4^D17.9
  1. ;;^UTILITY(U,$J,358.3,36344,2)
  1. ;;=^5002020
  1. ;;^UTILITY(U,$J,358.3,36345,0)
  1. ;;=E08.621^^107^1477^137
  1. ;;^UTILITY(U,$J,358.3,36345,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36345,1,3,0)
  1. ;;=3^DM d/t Underlying Condition w/ Foot Ulcer
  1. ;;^UTILITY(U,$J,358.3,36345,1,4,0)
  1. ;;=4^E08.621
  1. ;;^UTILITY(U,$J,358.3,36345,2)
  1. ;;=^5002534
  1. ;;^UTILITY(U,$J,358.3,36346,0)
  1. ;;=E09.621^^107^1477^136
  1. ;;^UTILITY(U,$J,358.3,36346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36346,1,3,0)
  1. ;;=3^DM d/t Drug/Chemical w/ Foot Ulcer
  1. ;;^UTILITY(U,$J,358.3,36346,1,4,0)
  1. ;;=4^E09.621
  1. ;;^UTILITY(U,$J,358.3,36346,2)
  1. ;;=^5002576
  1. ;;^UTILITY(U,$J,358.3,36347,0)
  1. ;;=H05.011^^107^1477^112
  1. ;;^UTILITY(U,$J,358.3,36347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36347,1,3,0)
  1. ;;=3^Cellulitis of Right Orbit
  1. ;;^UTILITY(U,$J,358.3,36347,1,4,0)
  1. ;;=4^H05.011
  1. ;;^UTILITY(U,$J,358.3,36347,2)
  1. ;;=^5004560
  1. ;;^UTILITY(U,$J,358.3,36348,0)
  1. ;;=H05.012^^107^1477^105
  1. ;;^UTILITY(U,$J,358.3,36348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36348,1,3,0)
  1. ;;=3^Cellulitis of Left Orbit
  1. ;;^UTILITY(U,$J,358.3,36348,1,4,0)
  1. ;;=4^H05.012
  1. ;;^UTILITY(U,$J,358.3,36348,2)
  1. ;;=^5004561
  1. ;;^UTILITY(U,$J,358.3,36349,0)
  1. ;;=H05.013^^107^1477^99
  1. ;;^UTILITY(U,$J,358.3,36349,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36349,1,3,0)
  1. ;;=3^Cellulitis of Bilateral Orbits
  1. ;;^UTILITY(U,$J,358.3,36349,1,4,0)
  1. ;;=4^H05.013
  1. ;;^UTILITY(U,$J,358.3,36349,2)
  1. ;;=^5004562
  1. ;;^UTILITY(U,$J,358.3,36350,0)
  1. ;;=I70.331^^107^1477^51
  1. ;;^UTILITY(U,$J,358.3,36350,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36350,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36350,1,4,0)
  1. ;;=4^I70.331
  1. ;;^UTILITY(U,$J,358.3,36350,2)
  1. ;;=^5007626
  1. ;;^UTILITY(U,$J,358.3,36351,0)
  1. ;;=I70.332^^107^1477^52
  1. ;;^UTILITY(U,$J,358.3,36351,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36351,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36351,1,4,0)
  1. ;;=4^I70.332
  1. ;;^UTILITY(U,$J,358.3,36351,2)
  1. ;;=^5007627
  1. ;;^UTILITY(U,$J,358.3,36352,0)
  1. ;;=I70.333^^107^1477^53
  1. ;;^UTILITY(U,$J,358.3,36352,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36352,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36352,1,4,0)
  1. ;;=4^I70.333
  1. ;;^UTILITY(U,$J,358.3,36352,2)
  1. ;;=^5007628
  1. ;;^UTILITY(U,$J,358.3,36353,0)
  1. ;;=I70.334^^107^1477^54
  1. ;;^UTILITY(U,$J,358.3,36353,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36353,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36353,1,4,0)
  1. ;;=4^I70.334
  1. ;;^UTILITY(U,$J,358.3,36353,2)
  1. ;;=^5007629
  1. ;;^UTILITY(U,$J,358.3,36354,0)
  1. ;;=I70.335^^107^1477^55
  1. ;;^UTILITY(U,$J,358.3,36354,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36354,1,3,0)
  1. ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36354,1,4,0)
  1. ;;=4^I70.335
  1. ;;^UTILITY(U,$J,358.3,36354,2)
  1. ;;=^5007630
  1. ;;^UTILITY(U,$J,358.3,36355,0)
  1. ;;=I70.341^^107^1477^50
  1. ;;^UTILITY(U,$J,358.3,36355,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36355,1,3,0)
  1. ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36355,1,4,0)
  1. ;;=4^I70.341
  1. ;;^UTILITY(U,$J,358.3,36355,2)
  1. ;;=^5007633
  1. ;;^UTILITY(U,$J,358.3,36356,0)
  1. ;;=I70.342^^107^1477^47
  1. ;;^UTILITY(U,$J,358.3,36356,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36356,1,3,0)
  1. ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36356,1,4,0)
  1. ;;=4^I70.342
  1. ;;^UTILITY(U,$J,358.3,36356,2)
  1. ;;=^5007634
  1. ;;^UTILITY(U,$J,358.3,36357,0)
  1. ;;=I70.343^^107^1477^46
  1. ;;^UTILITY(U,$J,358.3,36357,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36357,1,3,0)
  1. ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36357,1,4,0)
  1. ;;=4^I70.343
  1. ;;^UTILITY(U,$J,358.3,36357,2)
  1. ;;=^5007635
  1. ;;^UTILITY(U,$J,358.3,36358,0)
  1. ;;=I70.344^^107^1477^48
  1. ;;^UTILITY(U,$J,358.3,36358,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36358,1,3,0)
  1. ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36358,1,4,0)
  1. ;;=4^I70.344
  1. ;;^UTILITY(U,$J,358.3,36358,2)
  1. ;;=^5007636
  1. ;;^UTILITY(U,$J,358.3,36359,0)
  1. ;;=I70.345^^107^1477^49
  1. ;;^UTILITY(U,$J,358.3,36359,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36359,1,3,0)
  1. ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36359,1,4,0)
  1. ;;=4^I70.345
  1. ;;^UTILITY(U,$J,358.3,36359,2)
  1. ;;=^5007637
  1. ;;^UTILITY(U,$J,358.3,36360,0)
  1. ;;=I70.431^^107^1477^41
  1. ;;^UTILITY(U,$J,358.3,36360,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36360,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36360,1,4,0)
  1. ;;=4^I70.431
  1. ;;^UTILITY(U,$J,358.3,36360,2)
  1. ;;=^5007664
  1. ;;^UTILITY(U,$J,358.3,36361,0)
  1. ;;=I70.432^^107^1477^42
  1. ;;^UTILITY(U,$J,358.3,36361,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36361,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36361,1,4,0)
  1. ;;=4^I70.432
  1. ;;^UTILITY(U,$J,358.3,36361,2)
  1. ;;=^5007665
  1. ;;^UTILITY(U,$J,358.3,36362,0)
  1. ;;=I70.433^^107^1477^43
  1. ;;^UTILITY(U,$J,358.3,36362,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36362,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36362,1,4,0)
  1. ;;=4^I70.433
  1. ;;^UTILITY(U,$J,358.3,36362,2)
  1. ;;=^5007666
  1. ;;^UTILITY(U,$J,358.3,36363,0)
  1. ;;=I70.434^^107^1477^44
  1. ;;^UTILITY(U,$J,358.3,36363,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36363,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36363,1,4,0)
  1. ;;=4^I70.434
  1. ;;^UTILITY(U,$J,358.3,36363,2)
  1. ;;=^5007667
  1. ;;^UTILITY(U,$J,358.3,36364,0)
  1. ;;=I70.435^^107^1477^45
  1. ;;^UTILITY(U,$J,358.3,36364,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36364,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36364,1,4,0)
  1. ;;=4^I70.435
  1. ;;^UTILITY(U,$J,358.3,36364,2)
  1. ;;=^5007668
  1. ;;^UTILITY(U,$J,358.3,36365,0)
  1. ;;=I70.441^^107^1477^36
  1. ;;^UTILITY(U,$J,358.3,36365,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36365,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36365,1,4,0)
  1. ;;=4^I70.441
  1. ;;^UTILITY(U,$J,358.3,36365,2)
  1. ;;=^5007671
  1. ;;^UTILITY(U,$J,358.3,36366,0)
  1. ;;=I70.442^^107^1477^37
  1. ;;^UTILITY(U,$J,358.3,36366,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36366,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36366,1,4,0)
  1. ;;=4^I70.442
  1. ;;^UTILITY(U,$J,358.3,36366,2)
  1. ;;=^5007672
  1. ;;^UTILITY(U,$J,358.3,36367,0)
  1. ;;=I70.443^^107^1477^38
  1. ;;^UTILITY(U,$J,358.3,36367,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36367,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36367,1,4,0)
  1. ;;=4^I70.443
  1. ;;^UTILITY(U,$J,358.3,36367,2)
  1. ;;=^5007673
  1. ;;^UTILITY(U,$J,358.3,36368,0)
  1. ;;=I70.444^^107^1477^39
  1. ;;^UTILITY(U,$J,358.3,36368,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36368,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36368,1,4,0)
  1. ;;=4^I70.444
  1. ;;^UTILITY(U,$J,358.3,36368,2)
  1. ;;=^5007674
  1. ;;^UTILITY(U,$J,358.3,36369,0)
  1. ;;=I70.445^^107^1477^40
  1. ;;^UTILITY(U,$J,358.3,36369,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36369,1,3,0)
  1. ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36369,1,4,0)
  1. ;;=4^I70.445
  1. ;;^UTILITY(U,$J,358.3,36369,2)
  1. ;;=^5007675
  1. ;;^UTILITY(U,$J,358.3,36370,0)
  1. ;;=I70.531^^107^1477^61
  1. ;;^UTILITY(U,$J,358.3,36370,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36370,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36370,1,4,0)
  1. ;;=4^I70.531
  1. ;;^UTILITY(U,$J,358.3,36370,2)
  1. ;;=^5007702
  1. ;;^UTILITY(U,$J,358.3,36371,0)
  1. ;;=I70.532^^107^1477^62
  1. ;;^UTILITY(U,$J,358.3,36371,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36371,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36371,1,4,0)
  1. ;;=4^I70.532
  1. ;;^UTILITY(U,$J,358.3,36371,2)
  1. ;;=^5007703
  1. ;;^UTILITY(U,$J,358.3,36372,0)
  1. ;;=I70.533^^107^1477^63
  1. ;;^UTILITY(U,$J,358.3,36372,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36372,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36372,1,4,0)
  1. ;;=4^I70.533
  1. ;;^UTILITY(U,$J,358.3,36372,2)
  1. ;;=^5007704
  1. ;;^UTILITY(U,$J,358.3,36373,0)
  1. ;;=I70.534^^107^1477^64
  1. ;;^UTILITY(U,$J,358.3,36373,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36373,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36373,1,4,0)
  1. ;;=4^I70.534
  1. ;;^UTILITY(U,$J,358.3,36373,2)
  1. ;;=^5007705
  1. ;;^UTILITY(U,$J,358.3,36374,0)
  1. ;;=I70.535^^107^1477^65
  1. ;;^UTILITY(U,$J,358.3,36374,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36374,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36374,1,4,0)
  1. ;;=4^I70.535
  1. ;;^UTILITY(U,$J,358.3,36374,2)
  1. ;;=^5007706
  1. ;;^UTILITY(U,$J,358.3,36375,0)
  1. ;;=I70.541^^107^1477^56
  1. ;;^UTILITY(U,$J,358.3,36375,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36375,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36375,1,4,0)
  1. ;;=4^I70.541
  1. ;;^UTILITY(U,$J,358.3,36375,2)
  1. ;;=^5007709
  1. ;;^UTILITY(U,$J,358.3,36376,0)
  1. ;;=I70.542^^107^1477^57
  1. ;;^UTILITY(U,$J,358.3,36376,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36376,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36376,1,4,0)
  1. ;;=4^I70.542
  1. ;;^UTILITY(U,$J,358.3,36376,2)
  1. ;;=^5007710
  1. ;;^UTILITY(U,$J,358.3,36377,0)
  1. ;;=I70.543^^107^1477^58
  1. ;;^UTILITY(U,$J,358.3,36377,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36377,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36377,1,4,0)
  1. ;;=4^I70.543
  1. ;;^UTILITY(U,$J,358.3,36377,2)
  1. ;;=^5007711
  1. ;;^UTILITY(U,$J,358.3,36378,0)
  1. ;;=I70.544^^107^1477^59
  1. ;;^UTILITY(U,$J,358.3,36378,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36378,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36378,1,4,0)
  1. ;;=4^I70.544
  1. ;;^UTILITY(U,$J,358.3,36378,2)
  1. ;;=^5007712
  1. ;;^UTILITY(U,$J,358.3,36379,0)
  1. ;;=I70.545^^107^1477^60
  1. ;;^UTILITY(U,$J,358.3,36379,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36379,1,3,0)
  1. ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36379,1,4,0)
  1. ;;=4^I70.545
  1. ;;^UTILITY(U,$J,358.3,36379,2)
  1. ;;=^5007713
  1. ;;^UTILITY(U,$J,358.3,36380,0)
  1. ;;=I70.631^^107^1477^71
  1. ;;^UTILITY(U,$J,358.3,36380,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36380,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36380,1,4,0)
  1. ;;=4^I70.631
  1. ;;^UTILITY(U,$J,358.3,36380,2)
  1. ;;=^5007740
  1. ;;^UTILITY(U,$J,358.3,36381,0)
  1. ;;=I70.632^^107^1477^72
  1. ;;^UTILITY(U,$J,358.3,36381,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36381,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36381,1,4,0)
  1. ;;=4^I70.632
  1. ;;^UTILITY(U,$J,358.3,36381,2)
  1. ;;=^5007741
  1. ;;^UTILITY(U,$J,358.3,36382,0)
  1. ;;=I70.633^^107^1477^73
  1. ;;^UTILITY(U,$J,358.3,36382,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36382,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36382,1,4,0)
  1. ;;=4^I70.633
  1. ;;^UTILITY(U,$J,358.3,36382,2)
  1. ;;=^5007742
  1. ;;^UTILITY(U,$J,358.3,36383,0)
  1. ;;=I70.634^^107^1477^74
  1. ;;^UTILITY(U,$J,358.3,36383,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36383,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36383,1,4,0)
  1. ;;=4^I70.634
  1. ;;^UTILITY(U,$J,358.3,36383,2)
  1. ;;=^5007743
  1. ;;^UTILITY(U,$J,358.3,36384,0)
  1. ;;=I70.635^^107^1477^75
  1. ;;^UTILITY(U,$J,358.3,36384,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36384,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36384,1,4,0)
  1. ;;=4^I70.635
  1. ;;^UTILITY(U,$J,358.3,36384,2)
  1. ;;=^5007744
  1. ;;^UTILITY(U,$J,358.3,36385,0)
  1. ;;=I70.641^^107^1477^66
  1. ;;^UTILITY(U,$J,358.3,36385,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36385,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Thigh
  1. ;;^UTILITY(U,$J,358.3,36385,1,4,0)
  1. ;;=4^I70.641
  1. ;;^UTILITY(U,$J,358.3,36385,2)
  1. ;;=^5007747
  1. ;;^UTILITY(U,$J,358.3,36386,0)
  1. ;;=I70.642^^107^1477^67
  1. ;;^UTILITY(U,$J,358.3,36386,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36386,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Calf
  1. ;;^UTILITY(U,$J,358.3,36386,1,4,0)
  1. ;;=4^I70.642
  1. ;;^UTILITY(U,$J,358.3,36386,2)
  1. ;;=^5007748
  1. ;;^UTILITY(U,$J,358.3,36387,0)
  1. ;;=I70.643^^107^1477^68
  1. ;;^UTILITY(U,$J,358.3,36387,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36387,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Ankle
  1. ;;^UTILITY(U,$J,358.3,36387,1,4,0)
  1. ;;=4^I70.643
  1. ;;^UTILITY(U,$J,358.3,36387,2)
  1. ;;=^5007749
  1. ;;^UTILITY(U,$J,358.3,36388,0)
  1. ;;=I70.644^^107^1477^69
  1. ;;^UTILITY(U,$J,358.3,36388,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36388,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Heel/Midfoot
  1. ;;^UTILITY(U,$J,358.3,36388,1,4,0)
  1. ;;=4^I70.644
  1. ;;^UTILITY(U,$J,358.3,36388,2)
  1. ;;=^5007750
  1. ;;^UTILITY(U,$J,358.3,36389,0)
  1. ;;=I70.645^^107^1477^70
  1. ;;^UTILITY(U,$J,358.3,36389,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36389,1,3,0)
  1. ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Oth Part of Foot
  1. ;;^UTILITY(U,$J,358.3,36389,1,4,0)
  1. ;;=4^I70.645
  1. ;;^UTILITY(U,$J,358.3,36389,2)
  1. ;;=^5007751
  1. ;;^UTILITY(U,$J,358.3,36390,0)
  1. ;;=K12.0^^107^1477^298
  1. ;;^UTILITY(U,$J,358.3,36390,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36390,1,3,0)
  1. ;;=3^Recurrent Oral Aphthae
  1. ;;^UTILITY(U,$J,358.3,36390,1,4,0)
  1. ;;=4^K12.0
  1. ;;^UTILITY(U,$J,358.3,36390,2)
  1. ;;=^5008483
  1. ;;^UTILITY(U,$J,358.3,36391,0)
  1. ;;=K12.1^^107^1477^311
  1. ;;^UTILITY(U,$J,358.3,36391,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36391,1,3,0)
  1. ;;=3^Stomatitis NEC