IBDEI08T ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,21542,1,4,0)
;;=4^B35.8
;;^UTILITY(U,$J,358.3,21542,2)
;;=^5000606
;;^UTILITY(U,$J,358.3,21543,0)
;;=B36.9^^71^904^312
;;^UTILITY(U,$J,358.3,21543,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21543,1,3,0)
;;=3^Superficial Mycosis,Unspec
;;^UTILITY(U,$J,358.3,21543,1,4,0)
;;=4^B36.9
;;^UTILITY(U,$J,358.3,21543,2)
;;=^5000611
;;^UTILITY(U,$J,358.3,21544,0)
;;=D69.0^^71^904^33
;;^UTILITY(U,$J,358.3,21544,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21544,1,3,0)
;;=3^Allergic Purpura
;;^UTILITY(U,$J,358.3,21544,1,4,0)
;;=4^D69.0
;;^UTILITY(U,$J,358.3,21544,2)
;;=^5002365
;;^UTILITY(U,$J,358.3,21545,0)
;;=B00.9^^71^904^161
;;^UTILITY(U,$J,358.3,21545,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21545,1,3,0)
;;=3^Herpesviral Infection,Unspec
;;^UTILITY(U,$J,358.3,21545,1,4,0)
;;=4^B00.9
;;^UTILITY(U,$J,358.3,21545,2)
;;=^5000480
;;^UTILITY(U,$J,358.3,21546,0)
;;=B02.9^^71^904^331
;;^UTILITY(U,$J,358.3,21546,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21546,1,3,0)
;;=3^Zoster w/o Complications
;;^UTILITY(U,$J,358.3,21546,1,4,0)
;;=4^B02.9
;;^UTILITY(U,$J,358.3,21546,2)
;;=^5000501
;;^UTILITY(U,$J,358.3,21547,0)
;;=D17.9^^71^904^90
;;^UTILITY(U,$J,358.3,21547,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21547,1,3,0)
;;=3^Benign Lipomatous Neop,Unspec
;;^UTILITY(U,$J,358.3,21547,1,4,0)
;;=4^D17.9
;;^UTILITY(U,$J,358.3,21547,2)
;;=^5002020
;;^UTILITY(U,$J,358.3,21548,0)
;;=E08.621^^71^904^137
;;^UTILITY(U,$J,358.3,21548,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21548,1,3,0)
;;=3^DM d/t Underlying Condition w/ Foot Ulcer
;;^UTILITY(U,$J,358.3,21548,1,4,0)
;;=4^E08.621
;;^UTILITY(U,$J,358.3,21548,2)
;;=^5002534
;;^UTILITY(U,$J,358.3,21549,0)
;;=E09.621^^71^904^136
;;^UTILITY(U,$J,358.3,21549,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21549,1,3,0)
;;=3^DM d/t Drug/Chemical w/ Foot Ulcer
;;^UTILITY(U,$J,358.3,21549,1,4,0)
;;=4^E09.621
;;^UTILITY(U,$J,358.3,21549,2)
;;=^5002576
;;^UTILITY(U,$J,358.3,21550,0)
;;=H05.011^^71^904^112
;;^UTILITY(U,$J,358.3,21550,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21550,1,3,0)
;;=3^Cellulitis of Right Orbit
;;^UTILITY(U,$J,358.3,21550,1,4,0)
;;=4^H05.011
;;^UTILITY(U,$J,358.3,21550,2)
;;=^5004560
;;^UTILITY(U,$J,358.3,21551,0)
;;=H05.012^^71^904^105
;;^UTILITY(U,$J,358.3,21551,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21551,1,3,0)
;;=3^Cellulitis of Left Orbit
;;^UTILITY(U,$J,358.3,21551,1,4,0)
;;=4^H05.012
;;^UTILITY(U,$J,358.3,21551,2)
;;=^5004561
;;^UTILITY(U,$J,358.3,21552,0)
;;=H05.013^^71^904^99
;;^UTILITY(U,$J,358.3,21552,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21552,1,3,0)
;;=3^Cellulitis of Bilateral Orbits
;;^UTILITY(U,$J,358.3,21552,1,4,0)
;;=4^H05.013
;;^UTILITY(U,$J,358.3,21552,2)
;;=^5004562
;;^UTILITY(U,$J,358.3,21553,0)
;;=I70.331^^71^904^51
;;^UTILITY(U,$J,358.3,21553,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21553,1,3,0)
;;=3^Athscl Bypass of Right Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21553,1,4,0)
;;=4^I70.331
;;^UTILITY(U,$J,358.3,21553,2)
;;=^5007626
;;^UTILITY(U,$J,358.3,21554,0)
;;=I70.332^^71^904^52
;;^UTILITY(U,$J,358.3,21554,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21554,1,3,0)
;;=3^Athscl Bypass of Right Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21554,1,4,0)
;;=4^I70.332
;;^UTILITY(U,$J,358.3,21554,2)
;;=^5007627
;;^UTILITY(U,$J,358.3,21555,0)
;;=I70.333^^71^904^53
;;^UTILITY(U,$J,358.3,21555,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21555,1,3,0)
;;=3^Athscl Bypass of Right Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21555,1,4,0)
;;=4^I70.333
;;^UTILITY(U,$J,358.3,21555,2)
;;=^5007628
;;^UTILITY(U,$J,358.3,21556,0)
;;=I70.334^^71^904^54
;;^UTILITY(U,$J,358.3,21556,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21556,1,3,0)
;;=3^Athscl Bypass of Right Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21556,1,4,0)
;;=4^I70.334
;;^UTILITY(U,$J,358.3,21556,2)
;;=^5007629
;;^UTILITY(U,$J,358.3,21557,0)
;;=I70.335^^71^904^55
;;^UTILITY(U,$J,358.3,21557,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21557,1,3,0)
;;=3^Athscl Bypass of Right Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21557,1,4,0)
;;=4^I70.335
;;^UTILITY(U,$J,358.3,21557,2)
;;=^5007630
;;^UTILITY(U,$J,358.3,21558,0)
;;=I70.341^^71^904^50
;;^UTILITY(U,$J,358.3,21558,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21558,1,3,0)
;;=3^Athscl Bypass of Left Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21558,1,4,0)
;;=4^I70.341
;;^UTILITY(U,$J,358.3,21558,2)
;;=^5007633
;;^UTILITY(U,$J,358.3,21559,0)
;;=I70.342^^71^904^47
;;^UTILITY(U,$J,358.3,21559,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21559,1,3,0)
;;=3^Athscl Bypass of Left Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21559,1,4,0)
;;=4^I70.342
;;^UTILITY(U,$J,358.3,21559,2)
;;=^5007634
;;^UTILITY(U,$J,358.3,21560,0)
;;=I70.343^^71^904^46
;;^UTILITY(U,$J,358.3,21560,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21560,1,3,0)
;;=3^Athscl Bypass of Left Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21560,1,4,0)
;;=4^I70.343
;;^UTILITY(U,$J,358.3,21560,2)
;;=^5007635
;;^UTILITY(U,$J,358.3,21561,0)
;;=I70.344^^71^904^48
;;^UTILITY(U,$J,358.3,21561,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21561,1,3,0)
;;=3^Athscl Bypass of Left Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21561,1,4,0)
;;=4^I70.344
;;^UTILITY(U,$J,358.3,21561,2)
;;=^5007636
;;^UTILITY(U,$J,358.3,21562,0)
;;=I70.345^^71^904^49
;;^UTILITY(U,$J,358.3,21562,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21562,1,3,0)
;;=3^Athscl Bypass of Left Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21562,1,4,0)
;;=4^I70.345
;;^UTILITY(U,$J,358.3,21562,2)
;;=^5007637
;;^UTILITY(U,$J,358.3,21563,0)
;;=I70.431^^71^904^41
;;^UTILITY(U,$J,358.3,21563,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21563,1,3,0)
;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21563,1,4,0)
;;=4^I70.431
;;^UTILITY(U,$J,358.3,21563,2)
;;=^5007664
;;^UTILITY(U,$J,358.3,21564,0)
;;=I70.432^^71^904^42
;;^UTILITY(U,$J,358.3,21564,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21564,1,3,0)
;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21564,1,4,0)
;;=4^I70.432
;;^UTILITY(U,$J,358.3,21564,2)
;;=^5007665
;;^UTILITY(U,$J,358.3,21565,0)
;;=I70.433^^71^904^43
;;^UTILITY(U,$J,358.3,21565,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21565,1,3,0)
;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21565,1,4,0)
;;=4^I70.433
;;^UTILITY(U,$J,358.3,21565,2)
;;=^5007666
;;^UTILITY(U,$J,358.3,21566,0)
;;=I70.434^^71^904^44
;;^UTILITY(U,$J,358.3,21566,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21566,1,3,0)
;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21566,1,4,0)
;;=4^I70.434
;;^UTILITY(U,$J,358.3,21566,2)
;;=^5007667
;;^UTILITY(U,$J,358.3,21567,0)
;;=I70.435^^71^904^45
;;^UTILITY(U,$J,358.3,21567,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21567,1,3,0)
;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21567,1,4,0)
;;=4^I70.435
;;^UTILITY(U,$J,358.3,21567,2)
;;=^5007668
;;^UTILITY(U,$J,358.3,21568,0)
;;=I70.441^^71^904^36
;;^UTILITY(U,$J,358.3,21568,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21568,1,3,0)
;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21568,1,4,0)
;;=4^I70.441
;;^UTILITY(U,$J,358.3,21568,2)
;;=^5007671
;;^UTILITY(U,$J,358.3,21569,0)
;;=I70.442^^71^904^37
;;^UTILITY(U,$J,358.3,21569,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21569,1,3,0)
;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21569,1,4,0)
;;=4^I70.442
;;^UTILITY(U,$J,358.3,21569,2)
;;=^5007672
;;^UTILITY(U,$J,358.3,21570,0)
;;=I70.443^^71^904^38
;;^UTILITY(U,$J,358.3,21570,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21570,1,3,0)
;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21570,1,4,0)
;;=4^I70.443
;;^UTILITY(U,$J,358.3,21570,2)
;;=^5007673
;;^UTILITY(U,$J,358.3,21571,0)
;;=I70.444^^71^904^39
;;^UTILITY(U,$J,358.3,21571,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21571,1,3,0)
;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21571,1,4,0)
;;=4^I70.444
;;^UTILITY(U,$J,358.3,21571,2)
;;=^5007674
;;^UTILITY(U,$J,358.3,21572,0)
;;=I70.445^^71^904^40
;;^UTILITY(U,$J,358.3,21572,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21572,1,3,0)
;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21572,1,4,0)
;;=4^I70.445
;;^UTILITY(U,$J,358.3,21572,2)
;;=^5007675
;;^UTILITY(U,$J,358.3,21573,0)
;;=I70.531^^71^904^61
;;^UTILITY(U,$J,358.3,21573,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21573,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21573,1,4,0)
;;=4^I70.531
;;^UTILITY(U,$J,358.3,21573,2)
;;=^5007702
;;^UTILITY(U,$J,358.3,21574,0)
;;=I70.532^^71^904^62
;;^UTILITY(U,$J,358.3,21574,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21574,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21574,1,4,0)
;;=4^I70.532
;;^UTILITY(U,$J,358.3,21574,2)
;;=^5007703
;;^UTILITY(U,$J,358.3,21575,0)
;;=I70.533^^71^904^63
;;^UTILITY(U,$J,358.3,21575,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21575,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21575,1,4,0)
;;=4^I70.533
;;^UTILITY(U,$J,358.3,21575,2)
;;=^5007704
;;^UTILITY(U,$J,358.3,21576,0)
;;=I70.534^^71^904^64
;;^UTILITY(U,$J,358.3,21576,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21576,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21576,1,4,0)
;;=4^I70.534
;;^UTILITY(U,$J,358.3,21576,2)
;;=^5007705
;;^UTILITY(U,$J,358.3,21577,0)
;;=I70.535^^71^904^65
;;^UTILITY(U,$J,358.3,21577,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21577,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21577,1,4,0)
;;=4^I70.535
;;^UTILITY(U,$J,358.3,21577,2)
;;=^5007706
;;^UTILITY(U,$J,358.3,21578,0)
;;=I70.541^^71^904^56
;;^UTILITY(U,$J,358.3,21578,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21578,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21578,1,4,0)
;;=4^I70.541
;;^UTILITY(U,$J,358.3,21578,2)
;;=^5007709
;;^UTILITY(U,$J,358.3,21579,0)
;;=I70.542^^71^904^57
;;^UTILITY(U,$J,358.3,21579,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21579,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21579,1,4,0)
;;=4^I70.542
;;^UTILITY(U,$J,358.3,21579,2)
;;=^5007710
;;^UTILITY(U,$J,358.3,21580,0)
;;=I70.543^^71^904^58
;;^UTILITY(U,$J,358.3,21580,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21580,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21580,1,4,0)
;;=4^I70.543
;;^UTILITY(U,$J,358.3,21580,2)
;;=^5007711
;;^UTILITY(U,$J,358.3,21581,0)
;;=I70.544^^71^904^59
;;^UTILITY(U,$J,358.3,21581,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21581,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21581,1,4,0)
;;=4^I70.544
;;^UTILITY(U,$J,358.3,21581,2)
;;=^5007712
;;^UTILITY(U,$J,358.3,21582,0)
;;=I70.545^^71^904^60
;;^UTILITY(U,$J,358.3,21582,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21582,1,3,0)
;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21582,1,4,0)
;;=4^I70.545
;;^UTILITY(U,$J,358.3,21582,2)
;;=^5007713
;;^UTILITY(U,$J,358.3,21583,0)
;;=I70.631^^71^904^71
;;^UTILITY(U,$J,358.3,21583,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21583,1,3,0)
;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21583,1,4,0)
;;=4^I70.631
;;^UTILITY(U,$J,358.3,21583,2)
;;=^5007740
;;^UTILITY(U,$J,358.3,21584,0)
;;=I70.632^^71^904^72
;;^UTILITY(U,$J,358.3,21584,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21584,1,3,0)
;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21584,1,4,0)
;;=4^I70.632
;;^UTILITY(U,$J,358.3,21584,2)
;;=^5007741
;;^UTILITY(U,$J,358.3,21585,0)
;;=I70.633^^71^904^73
;;^UTILITY(U,$J,358.3,21585,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21585,1,3,0)
;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21585,1,4,0)
;;=4^I70.633
;;^UTILITY(U,$J,358.3,21585,2)
;;=^5007742
;;^UTILITY(U,$J,358.3,21586,0)
;;=I70.634^^71^904^74
;;^UTILITY(U,$J,358.3,21586,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21586,1,3,0)
;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21586,1,4,0)
;;=4^I70.634
;;^UTILITY(U,$J,358.3,21586,2)
;;=^5007743
;;^UTILITY(U,$J,358.3,21587,0)
;;=I70.635^^71^904^75
;;^UTILITY(U,$J,358.3,21587,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21587,1,3,0)
;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21587,1,4,0)
;;=4^I70.635
;;^UTILITY(U,$J,358.3,21587,2)
;;=^5007744
;;^UTILITY(U,$J,358.3,21588,0)
;;=I70.641^^71^904^66
;;^UTILITY(U,$J,358.3,21588,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21588,1,3,0)
;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Thigh
;;^UTILITY(U,$J,358.3,21588,1,4,0)
;;=4^I70.641
;;^UTILITY(U,$J,358.3,21588,2)
;;=^5007747
;;^UTILITY(U,$J,358.3,21589,0)
;;=I70.642^^71^904^67
;;^UTILITY(U,$J,358.3,21589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21589,1,3,0)
;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Calf
;;^UTILITY(U,$J,358.3,21589,1,4,0)
;;=4^I70.642
;;^UTILITY(U,$J,358.3,21589,2)
;;=^5007748
;;^UTILITY(U,$J,358.3,21590,0)
;;=I70.643^^71^904^68
;;^UTILITY(U,$J,358.3,21590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21590,1,3,0)
;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Ankle
;;^UTILITY(U,$J,358.3,21590,1,4,0)
;;=4^I70.643
;;^UTILITY(U,$J,358.3,21590,2)
;;=^5007749
;;^UTILITY(U,$J,358.3,21591,0)
;;=I70.644^^71^904^69
;;^UTILITY(U,$J,358.3,21591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21591,1,3,0)
;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Heel/Midfoot
;;^UTILITY(U,$J,358.3,21591,1,4,0)
;;=4^I70.644
;;^UTILITY(U,$J,358.3,21591,2)
;;=^5007750
;;^UTILITY(U,$J,358.3,21592,0)
;;=I70.645^^71^904^70
;;^UTILITY(U,$J,358.3,21592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21592,1,3,0)
;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Oth Part of Foot
;;^UTILITY(U,$J,358.3,21592,1,4,0)
;;=4^I70.645
;;^UTILITY(U,$J,358.3,21592,2)
;;=^5007751
;;^UTILITY(U,$J,358.3,21593,0)
;;=K12.0^^71^904^298
;;^UTILITY(U,$J,358.3,21593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21593,1,3,0)
;;=3^Recurrent Oral Aphthae
;;^UTILITY(U,$J,358.3,21593,1,4,0)
;;=4^K12.0
;;^UTILITY(U,$J,358.3,21593,2)
;;=^5008483
;;^UTILITY(U,$J,358.3,21594,0)
;;=K12.1^^71^904^311
;;^UTILITY(U,$J,358.3,21594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21594,1,3,0)
;;=3^Stomatitis NEC
;;^UTILITY(U,$J,358.3,21594,1,4,0)
;;=4^K12.1
;;^UTILITY(U,$J,358.3,21594,2)
;;=^5008484
;;^UTILITY(U,$J,358.3,21595,0)
;;=K12.2^^71^904^95
;;^UTILITY(U,$J,358.3,21595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21595,1,3,0)
;;=3^Cellulitis & Abscess of Mouth
;;^UTILITY(U,$J,358.3,21595,1,4,0)
;;=4^K12.2
;;^UTILITY(U,$J,358.3,21595,2)
;;=^5008485
;;^UTILITY(U,$J,358.3,21596,0)
;;=L02.01^^71^904^122
;;^UTILITY(U,$J,358.3,21596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21596,1,3,0)
;;=3^Cutaneous Abscess of Face
;;^UTILITY(U,$J,358.3,21596,1,4,0)
;;=4^L02.01
;;^UTILITY(U,$J,358.3,21596,2)
;;=^5008944
;;^UTILITY(U,$J,358.3,21597,0)
;;=L02.11^^71^904^127
;;^UTILITY(U,$J,358.3,21597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21597,1,3,0)
;;=3^Cutaneous Abscess of Neck
;;^UTILITY(U,$J,358.3,21597,1,4,0)
;;=4^L02.11
;;^UTILITY(U,$J,358.3,21597,2)
;;=^5008947
;;^UTILITY(U,$J,358.3,21598,0)
;;=L02.211^^71^904^119
;;^UTILITY(U,$J,358.3,21598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21598,1,3,0)
;;=3^Cutaneous Abscess of Abdominal Wall
;;^UTILITY(U,$J,358.3,21598,1,4,0)
;;=4^L02.211
;;^UTILITY(U,$J,358.3,21598,2)
;;=^5008950
;;^UTILITY(U,$J,358.3,21599,0)
;;=L02.212^^71^904^120
;;^UTILITY(U,$J,358.3,21599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21599,1,3,0)
;;=3^Cutaneous Abscess of Back
;;^UTILITY(U,$J,358.3,21599,1,4,0)
;;=4^L02.212
;;^UTILITY(U,$J,358.3,21599,2)
;;=^5008951
;;^UTILITY(U,$J,358.3,21600,0)
;;=L02.213^^71^904^121
;;^UTILITY(U,$J,358.3,21600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21600,1,3,0)
;;=3^Cutaneous Abscess of Chest Wall
;;^UTILITY(U,$J,358.3,21600,1,4,0)
;;=4^L02.213
;;^UTILITY(U,$J,358.3,21600,2)
;;=^5008952
;;^UTILITY(U,$J,358.3,21601,0)
;;=L02.214^^71^904^123
;;^UTILITY(U,$J,358.3,21601,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21601,1,3,0)
;;=3^Cutaneous Abscess of Groin
;;^UTILITY(U,$J,358.3,21601,1,4,0)
;;=4^L02.214
;;^UTILITY(U,$J,358.3,21601,2)
;;=^5008953
;;^UTILITY(U,$J,358.3,21602,0)
;;=L02.215^^71^904^129
;;^UTILITY(U,$J,358.3,21602,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21602,1,3,0)
;;=3^Cutaneous Abscess of Perineum
;;^UTILITY(U,$J,358.3,21602,1,4,0)
;;=4^L02.215
;;^UTILITY(U,$J,358.3,21602,2)
;;=^5008954
;;^UTILITY(U,$J,358.3,21603,0)
;;=L02.216^^71^904^134
;;^UTILITY(U,$J,358.3,21603,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21603,1,3,0)
;;=3^Cutaneous Abscess of Unbilicus
;;^UTILITY(U,$J,358.3,21603,1,4,0)
;;=4^L02.216
;;^UTILITY(U,$J,358.3,21603,2)
;;=^5008955
;;^UTILITY(U,$J,358.3,21604,0)
;;=L02.219^^71^904^133
;;^UTILITY(U,$J,358.3,21604,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21604,1,3,0)
;;=3^Cutaneous Abscess of Trunk,Unspec
;;^UTILITY(U,$J,358.3,21604,1,4,0)
;;=4^L02.219
;;^UTILITY(U,$J,358.3,21604,2)
;;=^5008956
;;^UTILITY(U,$J,358.3,21605,0)
;;=L02.32^^71^904^157
;;^UTILITY(U,$J,358.3,21605,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21605,1,3,0)
;;=3^Furuncle of Buttock
;;^UTILITY(U,$J,358.3,21605,1,4,0)
;;=4^L02.32
;;^UTILITY(U,$J,358.3,21605,2)
;;=^5008972
;;^UTILITY(U,$J,358.3,21606,0)
;;=L02.33^^71^904^93
;;^UTILITY(U,$J,358.3,21606,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21606,1,3,0)
;;=3^Carbuncle of Buttock
;;^UTILITY(U,$J,358.3,21606,1,4,0)
;;=4^L02.33
;;^UTILITY(U,$J,358.3,21606,2)
;;=^5008973
;;^UTILITY(U,$J,358.3,21607,0)
;;=L02.415^^71^904^132
;;^UTILITY(U,$J,358.3,21607,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,21607,1,3,0)
;;=3^Cutaneous Abscess of Right Lower Limb
;;^UTILITY(U,$J,358.3,21607,1,4,0)
;;=4^L02.415
;;^UTILITY(U,$J,358.3,21607,2)
;;=^5008978
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI08T 19761 printed Nov 22, 2024@16:54:06 Page 2
IBDEI08T ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,21542,1,4,0)
+2 ;;=4^B35.8
+3 ;;^UTILITY(U,$J,358.3,21542,2)
+4 ;;=^5000606
+5 ;;^UTILITY(U,$J,358.3,21543,0)
+6 ;;=B36.9^^71^904^312
+7 ;;^UTILITY(U,$J,358.3,21543,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,21543,1,3,0)
+10 ;;=3^Superficial Mycosis,Unspec
+11 ;;^UTILITY(U,$J,358.3,21543,1,4,0)
+12 ;;=4^B36.9
+13 ;;^UTILITY(U,$J,358.3,21543,2)
+14 ;;=^5000611
+15 ;;^UTILITY(U,$J,358.3,21544,0)
+16 ;;=D69.0^^71^904^33
+17 ;;^UTILITY(U,$J,358.3,21544,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,21544,1,3,0)
+20 ;;=3^Allergic Purpura
+21 ;;^UTILITY(U,$J,358.3,21544,1,4,0)
+22 ;;=4^D69.0
+23 ;;^UTILITY(U,$J,358.3,21544,2)
+24 ;;=^5002365
+25 ;;^UTILITY(U,$J,358.3,21545,0)
+26 ;;=B00.9^^71^904^161
+27 ;;^UTILITY(U,$J,358.3,21545,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,21545,1,3,0)
+30 ;;=3^Herpesviral Infection,Unspec
+31 ;;^UTILITY(U,$J,358.3,21545,1,4,0)
+32 ;;=4^B00.9
+33 ;;^UTILITY(U,$J,358.3,21545,2)
+34 ;;=^5000480
+35 ;;^UTILITY(U,$J,358.3,21546,0)
+36 ;;=B02.9^^71^904^331
+37 ;;^UTILITY(U,$J,358.3,21546,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,21546,1,3,0)
+40 ;;=3^Zoster w/o Complications
+41 ;;^UTILITY(U,$J,358.3,21546,1,4,0)
+42 ;;=4^B02.9
+43 ;;^UTILITY(U,$J,358.3,21546,2)
+44 ;;=^5000501
+45 ;;^UTILITY(U,$J,358.3,21547,0)
+46 ;;=D17.9^^71^904^90
+47 ;;^UTILITY(U,$J,358.3,21547,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,21547,1,3,0)
+50 ;;=3^Benign Lipomatous Neop,Unspec
+51 ;;^UTILITY(U,$J,358.3,21547,1,4,0)
+52 ;;=4^D17.9
+53 ;;^UTILITY(U,$J,358.3,21547,2)
+54 ;;=^5002020
+55 ;;^UTILITY(U,$J,358.3,21548,0)
+56 ;;=E08.621^^71^904^137
+57 ;;^UTILITY(U,$J,358.3,21548,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,21548,1,3,0)
+60 ;;=3^DM d/t Underlying Condition w/ Foot Ulcer
+61 ;;^UTILITY(U,$J,358.3,21548,1,4,0)
+62 ;;=4^E08.621
+63 ;;^UTILITY(U,$J,358.3,21548,2)
+64 ;;=^5002534
+65 ;;^UTILITY(U,$J,358.3,21549,0)
+66 ;;=E09.621^^71^904^136
+67 ;;^UTILITY(U,$J,358.3,21549,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,21549,1,3,0)
+70 ;;=3^DM d/t Drug/Chemical w/ Foot Ulcer
+71 ;;^UTILITY(U,$J,358.3,21549,1,4,0)
+72 ;;=4^E09.621
+73 ;;^UTILITY(U,$J,358.3,21549,2)
+74 ;;=^5002576
+75 ;;^UTILITY(U,$J,358.3,21550,0)
+76 ;;=H05.011^^71^904^112
+77 ;;^UTILITY(U,$J,358.3,21550,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,21550,1,3,0)
+80 ;;=3^Cellulitis of Right Orbit
+81 ;;^UTILITY(U,$J,358.3,21550,1,4,0)
+82 ;;=4^H05.011
+83 ;;^UTILITY(U,$J,358.3,21550,2)
+84 ;;=^5004560
+85 ;;^UTILITY(U,$J,358.3,21551,0)
+86 ;;=H05.012^^71^904^105
+87 ;;^UTILITY(U,$J,358.3,21551,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,21551,1,3,0)
+90 ;;=3^Cellulitis of Left Orbit
+91 ;;^UTILITY(U,$J,358.3,21551,1,4,0)
+92 ;;=4^H05.012
+93 ;;^UTILITY(U,$J,358.3,21551,2)
+94 ;;=^5004561
+95 ;;^UTILITY(U,$J,358.3,21552,0)
+96 ;;=H05.013^^71^904^99
+97 ;;^UTILITY(U,$J,358.3,21552,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,21552,1,3,0)
+100 ;;=3^Cellulitis of Bilateral Orbits
+101 ;;^UTILITY(U,$J,358.3,21552,1,4,0)
+102 ;;=4^H05.013
+103 ;;^UTILITY(U,$J,358.3,21552,2)
+104 ;;=^5004562
+105 ;;^UTILITY(U,$J,358.3,21553,0)
+106 ;;=I70.331^^71^904^51
+107 ;;^UTILITY(U,$J,358.3,21553,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,21553,1,3,0)
+110 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Thigh
+111 ;;^UTILITY(U,$J,358.3,21553,1,4,0)
+112 ;;=4^I70.331
+113 ;;^UTILITY(U,$J,358.3,21553,2)
+114 ;;=^5007626
+115 ;;^UTILITY(U,$J,358.3,21554,0)
+116 ;;=I70.332^^71^904^52
+117 ;;^UTILITY(U,$J,358.3,21554,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,21554,1,3,0)
+120 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Calf
+121 ;;^UTILITY(U,$J,358.3,21554,1,4,0)
+122 ;;=4^I70.332
+123 ;;^UTILITY(U,$J,358.3,21554,2)
+124 ;;=^5007627
+125 ;;^UTILITY(U,$J,358.3,21555,0)
+126 ;;=I70.333^^71^904^53
+127 ;;^UTILITY(U,$J,358.3,21555,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,21555,1,3,0)
+130 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Ankle
+131 ;;^UTILITY(U,$J,358.3,21555,1,4,0)
+132 ;;=4^I70.333
+133 ;;^UTILITY(U,$J,358.3,21555,2)
+134 ;;=^5007628
+135 ;;^UTILITY(U,$J,358.3,21556,0)
+136 ;;=I70.334^^71^904^54
+137 ;;^UTILITY(U,$J,358.3,21556,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,21556,1,3,0)
+140 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Heel/Midfoot
+141 ;;^UTILITY(U,$J,358.3,21556,1,4,0)
+142 ;;=4^I70.334
+143 ;;^UTILITY(U,$J,358.3,21556,2)
+144 ;;=^5007629
+145 ;;^UTILITY(U,$J,358.3,21557,0)
+146 ;;=I70.335^^71^904^55
+147 ;;^UTILITY(U,$J,358.3,21557,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,21557,1,3,0)
+150 ;;=3^Athscl Bypass of Right Leg w/ Ulcer of Oth Part of Foot
+151 ;;^UTILITY(U,$J,358.3,21557,1,4,0)
+152 ;;=4^I70.335
+153 ;;^UTILITY(U,$J,358.3,21557,2)
+154 ;;=^5007630
+155 ;;^UTILITY(U,$J,358.3,21558,0)
+156 ;;=I70.341^^71^904^50
+157 ;;^UTILITY(U,$J,358.3,21558,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,21558,1,3,0)
+160 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Thigh
+161 ;;^UTILITY(U,$J,358.3,21558,1,4,0)
+162 ;;=4^I70.341
+163 ;;^UTILITY(U,$J,358.3,21558,2)
+164 ;;=^5007633
+165 ;;^UTILITY(U,$J,358.3,21559,0)
+166 ;;=I70.342^^71^904^47
+167 ;;^UTILITY(U,$J,358.3,21559,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,21559,1,3,0)
+170 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Calf
+171 ;;^UTILITY(U,$J,358.3,21559,1,4,0)
+172 ;;=4^I70.342
+173 ;;^UTILITY(U,$J,358.3,21559,2)
+174 ;;=^5007634
+175 ;;^UTILITY(U,$J,358.3,21560,0)
+176 ;;=I70.343^^71^904^46
+177 ;;^UTILITY(U,$J,358.3,21560,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,21560,1,3,0)
+180 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Ankle
+181 ;;^UTILITY(U,$J,358.3,21560,1,4,0)
+182 ;;=4^I70.343
+183 ;;^UTILITY(U,$J,358.3,21560,2)
+184 ;;=^5007635
+185 ;;^UTILITY(U,$J,358.3,21561,0)
+186 ;;=I70.344^^71^904^48
+187 ;;^UTILITY(U,$J,358.3,21561,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,21561,1,3,0)
+190 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Heel/Midfoot
+191 ;;^UTILITY(U,$J,358.3,21561,1,4,0)
+192 ;;=4^I70.344
+193 ;;^UTILITY(U,$J,358.3,21561,2)
+194 ;;=^5007636
+195 ;;^UTILITY(U,$J,358.3,21562,0)
+196 ;;=I70.345^^71^904^49
+197 ;;^UTILITY(U,$J,358.3,21562,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,21562,1,3,0)
+200 ;;=3^Athscl Bypass of Left Leg w/ Ulcer of Oth Part of Foot
+201 ;;^UTILITY(U,$J,358.3,21562,1,4,0)
+202 ;;=4^I70.345
+203 ;;^UTILITY(U,$J,358.3,21562,2)
+204 ;;=^5007637
+205 ;;^UTILITY(U,$J,358.3,21563,0)
+206 ;;=I70.431^^71^904^41
+207 ;;^UTILITY(U,$J,358.3,21563,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,21563,1,3,0)
+210 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Thigh
+211 ;;^UTILITY(U,$J,358.3,21563,1,4,0)
+212 ;;=4^I70.431
+213 ;;^UTILITY(U,$J,358.3,21563,2)
+214 ;;=^5007664
+215 ;;^UTILITY(U,$J,358.3,21564,0)
+216 ;;=I70.432^^71^904^42
+217 ;;^UTILITY(U,$J,358.3,21564,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,21564,1,3,0)
+220 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Calf
+221 ;;^UTILITY(U,$J,358.3,21564,1,4,0)
+222 ;;=4^I70.432
+223 ;;^UTILITY(U,$J,358.3,21564,2)
+224 ;;=^5007665
+225 ;;^UTILITY(U,$J,358.3,21565,0)
+226 ;;=I70.433^^71^904^43
+227 ;;^UTILITY(U,$J,358.3,21565,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,21565,1,3,0)
+230 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Ankle
+231 ;;^UTILITY(U,$J,358.3,21565,1,4,0)
+232 ;;=4^I70.433
+233 ;;^UTILITY(U,$J,358.3,21565,2)
+234 ;;=^5007666
+235 ;;^UTILITY(U,$J,358.3,21566,0)
+236 ;;=I70.434^^71^904^44
+237 ;;^UTILITY(U,$J,358.3,21566,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,21566,1,3,0)
+240 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Heel/Midfoot
+241 ;;^UTILITY(U,$J,358.3,21566,1,4,0)
+242 ;;=4^I70.434
+243 ;;^UTILITY(U,$J,358.3,21566,2)
+244 ;;=^5007667
+245 ;;^UTILITY(U,$J,358.3,21567,0)
+246 ;;=I70.435^^71^904^45
+247 ;;^UTILITY(U,$J,358.3,21567,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,21567,1,3,0)
+250 ;;=3^Athscl Autol Vein Bypass of Right Leg w/ Ulcer of Oth Part of Foot
+251 ;;^UTILITY(U,$J,358.3,21567,1,4,0)
+252 ;;=4^I70.435
+253 ;;^UTILITY(U,$J,358.3,21567,2)
+254 ;;=^5007668
+255 ;;^UTILITY(U,$J,358.3,21568,0)
+256 ;;=I70.441^^71^904^36
+257 ;;^UTILITY(U,$J,358.3,21568,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,21568,1,3,0)
+260 ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Thigh
+261 ;;^UTILITY(U,$J,358.3,21568,1,4,0)
+262 ;;=4^I70.441
+263 ;;^UTILITY(U,$J,358.3,21568,2)
+264 ;;=^5007671
+265 ;;^UTILITY(U,$J,358.3,21569,0)
+266 ;;=I70.442^^71^904^37
+267 ;;^UTILITY(U,$J,358.3,21569,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,21569,1,3,0)
+270 ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Calf
+271 ;;^UTILITY(U,$J,358.3,21569,1,4,0)
+272 ;;=4^I70.442
+273 ;;^UTILITY(U,$J,358.3,21569,2)
+274 ;;=^5007672
+275 ;;^UTILITY(U,$J,358.3,21570,0)
+276 ;;=I70.443^^71^904^38
+277 ;;^UTILITY(U,$J,358.3,21570,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,21570,1,3,0)
+280 ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Ankle
+281 ;;^UTILITY(U,$J,358.3,21570,1,4,0)
+282 ;;=4^I70.443
+283 ;;^UTILITY(U,$J,358.3,21570,2)
+284 ;;=^5007673
+285 ;;^UTILITY(U,$J,358.3,21571,0)
+286 ;;=I70.444^^71^904^39
+287 ;;^UTILITY(U,$J,358.3,21571,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,21571,1,3,0)
+290 ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Heel/Midfoot
+291 ;;^UTILITY(U,$J,358.3,21571,1,4,0)
+292 ;;=4^I70.444
+293 ;;^UTILITY(U,$J,358.3,21571,2)
+294 ;;=^5007674
+295 ;;^UTILITY(U,$J,358.3,21572,0)
+296 ;;=I70.445^^71^904^40
+297 ;;^UTILITY(U,$J,358.3,21572,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,21572,1,3,0)
+300 ;;=3^Athscl Autol Vein Bypass of Left Leg w/ Ulcer of Oth Part of Foot
+301 ;;^UTILITY(U,$J,358.3,21572,1,4,0)
+302 ;;=4^I70.445
+303 ;;^UTILITY(U,$J,358.3,21572,2)
+304 ;;=^5007675
+305 ;;^UTILITY(U,$J,358.3,21573,0)
+306 ;;=I70.531^^71^904^61
+307 ;;^UTILITY(U,$J,358.3,21573,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,21573,1,3,0)
+310 ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Thigh
+311 ;;^UTILITY(U,$J,358.3,21573,1,4,0)
+312 ;;=4^I70.531
+313 ;;^UTILITY(U,$J,358.3,21573,2)
+314 ;;=^5007702
+315 ;;^UTILITY(U,$J,358.3,21574,0)
+316 ;;=I70.532^^71^904^62
+317 ;;^UTILITY(U,$J,358.3,21574,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,21574,1,3,0)
+320 ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Calf
+321 ;;^UTILITY(U,$J,358.3,21574,1,4,0)
+322 ;;=4^I70.532
+323 ;;^UTILITY(U,$J,358.3,21574,2)
+324 ;;=^5007703
+325 ;;^UTILITY(U,$J,358.3,21575,0)
+326 ;;=I70.533^^71^904^63
+327 ;;^UTILITY(U,$J,358.3,21575,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,21575,1,3,0)
+330 ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Ankle
+331 ;;^UTILITY(U,$J,358.3,21575,1,4,0)
+332 ;;=4^I70.533
+333 ;;^UTILITY(U,$J,358.3,21575,2)
+334 ;;=^5007704
+335 ;;^UTILITY(U,$J,358.3,21576,0)
+336 ;;=I70.534^^71^904^64
+337 ;;^UTILITY(U,$J,358.3,21576,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,21576,1,3,0)
+340 ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Heel/Midfoot
+341 ;;^UTILITY(U,$J,358.3,21576,1,4,0)
+342 ;;=4^I70.534
+343 ;;^UTILITY(U,$J,358.3,21576,2)
+344 ;;=^5007705
+345 ;;^UTILITY(U,$J,358.3,21577,0)
+346 ;;=I70.535^^71^904^65
+347 ;;^UTILITY(U,$J,358.3,21577,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,21577,1,3,0)
+350 ;;=3^Athscl Nonaut Bio Bypass of Right Leg w/ Ulcer of Oth Part of Foot
+351 ;;^UTILITY(U,$J,358.3,21577,1,4,0)
+352 ;;=4^I70.535
+353 ;;^UTILITY(U,$J,358.3,21577,2)
+354 ;;=^5007706
+355 ;;^UTILITY(U,$J,358.3,21578,0)
+356 ;;=I70.541^^71^904^56
+357 ;;^UTILITY(U,$J,358.3,21578,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,21578,1,3,0)
+360 ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Thigh
+361 ;;^UTILITY(U,$J,358.3,21578,1,4,0)
+362 ;;=4^I70.541
+363 ;;^UTILITY(U,$J,358.3,21578,2)
+364 ;;=^5007709
+365 ;;^UTILITY(U,$J,358.3,21579,0)
+366 ;;=I70.542^^71^904^57
+367 ;;^UTILITY(U,$J,358.3,21579,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,21579,1,3,0)
+370 ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Calf
+371 ;;^UTILITY(U,$J,358.3,21579,1,4,0)
+372 ;;=4^I70.542
+373 ;;^UTILITY(U,$J,358.3,21579,2)
+374 ;;=^5007710
+375 ;;^UTILITY(U,$J,358.3,21580,0)
+376 ;;=I70.543^^71^904^58
+377 ;;^UTILITY(U,$J,358.3,21580,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,21580,1,3,0)
+380 ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Ankle
+381 ;;^UTILITY(U,$J,358.3,21580,1,4,0)
+382 ;;=4^I70.543
+383 ;;^UTILITY(U,$J,358.3,21580,2)
+384 ;;=^5007711
+385 ;;^UTILITY(U,$J,358.3,21581,0)
+386 ;;=I70.544^^71^904^59
+387 ;;^UTILITY(U,$J,358.3,21581,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,21581,1,3,0)
+390 ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Heel/Midfoot
+391 ;;^UTILITY(U,$J,358.3,21581,1,4,0)
+392 ;;=4^I70.544
+393 ;;^UTILITY(U,$J,358.3,21581,2)
+394 ;;=^5007712
+395 ;;^UTILITY(U,$J,358.3,21582,0)
+396 ;;=I70.545^^71^904^60
+397 ;;^UTILITY(U,$J,358.3,21582,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,21582,1,3,0)
+400 ;;=3^Athscl Nonaut Bio Bypass of Left Leg w/ Ulcer of Oth Part of Foot
+401 ;;^UTILITY(U,$J,358.3,21582,1,4,0)
+402 ;;=4^I70.545
+403 ;;^UTILITY(U,$J,358.3,21582,2)
+404 ;;=^5007713
+405 ;;^UTILITY(U,$J,358.3,21583,0)
+406 ;;=I70.631^^71^904^71
+407 ;;^UTILITY(U,$J,358.3,21583,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,21583,1,3,0)
+410 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Thigh
+411 ;;^UTILITY(U,$J,358.3,21583,1,4,0)
+412 ;;=4^I70.631
+413 ;;^UTILITY(U,$J,358.3,21583,2)
+414 ;;=^5007740
+415 ;;^UTILITY(U,$J,358.3,21584,0)
+416 ;;=I70.632^^71^904^72
+417 ;;^UTILITY(U,$J,358.3,21584,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,21584,1,3,0)
+420 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Calf
+421 ;;^UTILITY(U,$J,358.3,21584,1,4,0)
+422 ;;=4^I70.632
+423 ;;^UTILITY(U,$J,358.3,21584,2)
+424 ;;=^5007741
+425 ;;^UTILITY(U,$J,358.3,21585,0)
+426 ;;=I70.633^^71^904^73
+427 ;;^UTILITY(U,$J,358.3,21585,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,21585,1,3,0)
+430 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Ankle
+431 ;;^UTILITY(U,$J,358.3,21585,1,4,0)
+432 ;;=4^I70.633
+433 ;;^UTILITY(U,$J,358.3,21585,2)
+434 ;;=^5007742
+435 ;;^UTILITY(U,$J,358.3,21586,0)
+436 ;;=I70.634^^71^904^74
+437 ;;^UTILITY(U,$J,358.3,21586,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,21586,1,3,0)
+440 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Heel/Midfoot
+441 ;;^UTILITY(U,$J,358.3,21586,1,4,0)
+442 ;;=4^I70.634
+443 ;;^UTILITY(U,$J,358.3,21586,2)
+444 ;;=^5007743
+445 ;;^UTILITY(U,$J,358.3,21587,0)
+446 ;;=I70.635^^71^904^75
+447 ;;^UTILITY(U,$J,358.3,21587,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,21587,1,3,0)
+450 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer of Oth Part of Foot
+451 ;;^UTILITY(U,$J,358.3,21587,1,4,0)
+452 ;;=4^I70.635
+453 ;;^UTILITY(U,$J,358.3,21587,2)
+454 ;;=^5007744
+455 ;;^UTILITY(U,$J,358.3,21588,0)
+456 ;;=I70.641^^71^904^66
+457 ;;^UTILITY(U,$J,358.3,21588,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,21588,1,3,0)
+460 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Thigh
+461 ;;^UTILITY(U,$J,358.3,21588,1,4,0)
+462 ;;=4^I70.641
+463 ;;^UTILITY(U,$J,358.3,21588,2)
+464 ;;=^5007747
+465 ;;^UTILITY(U,$J,358.3,21589,0)
+466 ;;=I70.642^^71^904^67
+467 ;;^UTILITY(U,$J,358.3,21589,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,21589,1,3,0)
+470 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Calf
+471 ;;^UTILITY(U,$J,358.3,21589,1,4,0)
+472 ;;=4^I70.642
+473 ;;^UTILITY(U,$J,358.3,21589,2)
+474 ;;=^5007748
+475 ;;^UTILITY(U,$J,358.3,21590,0)
+476 ;;=I70.643^^71^904^68
+477 ;;^UTILITY(U,$J,358.3,21590,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,21590,1,3,0)
+480 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Ankle
+481 ;;^UTILITY(U,$J,358.3,21590,1,4,0)
+482 ;;=4^I70.643
+483 ;;^UTILITY(U,$J,358.3,21590,2)
+484 ;;=^5007749
+485 ;;^UTILITY(U,$J,358.3,21591,0)
+486 ;;=I70.644^^71^904^69
+487 ;;^UTILITY(U,$J,358.3,21591,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,21591,1,3,0)
+490 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Heel/Midfoot
+491 ;;^UTILITY(U,$J,358.3,21591,1,4,0)
+492 ;;=4^I70.644
+493 ;;^UTILITY(U,$J,358.3,21591,2)
+494 ;;=^5007750
+495 ;;^UTILITY(U,$J,358.3,21592,0)
+496 ;;=I70.645^^71^904^70
+497 ;;^UTILITY(U,$J,358.3,21592,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,21592,1,3,0)
+500 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer of Oth Part of Foot
+501 ;;^UTILITY(U,$J,358.3,21592,1,4,0)
+502 ;;=4^I70.645
+503 ;;^UTILITY(U,$J,358.3,21592,2)
+504 ;;=^5007751
+505 ;;^UTILITY(U,$J,358.3,21593,0)
+506 ;;=K12.0^^71^904^298
+507 ;;^UTILITY(U,$J,358.3,21593,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,21593,1,3,0)
+510 ;;=3^Recurrent Oral Aphthae
+511 ;;^UTILITY(U,$J,358.3,21593,1,4,0)
+512 ;;=4^K12.0
+513 ;;^UTILITY(U,$J,358.3,21593,2)
+514 ;;=^5008483
+515 ;;^UTILITY(U,$J,358.3,21594,0)
+516 ;;=K12.1^^71^904^311
+517 ;;^UTILITY(U,$J,358.3,21594,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,21594,1,3,0)
+520 ;;=3^Stomatitis NEC
+521 ;;^UTILITY(U,$J,358.3,21594,1,4,0)
+522 ;;=4^K12.1
+523 ;;^UTILITY(U,$J,358.3,21594,2)
+524 ;;=^5008484
+525 ;;^UTILITY(U,$J,358.3,21595,0)
+526 ;;=K12.2^^71^904^95
+527 ;;^UTILITY(U,$J,358.3,21595,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,21595,1,3,0)
+530 ;;=3^Cellulitis & Abscess of Mouth
+531 ;;^UTILITY(U,$J,358.3,21595,1,4,0)
+532 ;;=4^K12.2
+533 ;;^UTILITY(U,$J,358.3,21595,2)
+534 ;;=^5008485
+535 ;;^UTILITY(U,$J,358.3,21596,0)
+536 ;;=L02.01^^71^904^122
+537 ;;^UTILITY(U,$J,358.3,21596,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,21596,1,3,0)
+540 ;;=3^Cutaneous Abscess of Face
+541 ;;^UTILITY(U,$J,358.3,21596,1,4,0)
+542 ;;=4^L02.01
+543 ;;^UTILITY(U,$J,358.3,21596,2)
+544 ;;=^5008944
+545 ;;^UTILITY(U,$J,358.3,21597,0)
+546 ;;=L02.11^^71^904^127
+547 ;;^UTILITY(U,$J,358.3,21597,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,21597,1,3,0)
+550 ;;=3^Cutaneous Abscess of Neck
+551 ;;^UTILITY(U,$J,358.3,21597,1,4,0)
+552 ;;=4^L02.11
+553 ;;^UTILITY(U,$J,358.3,21597,2)
+554 ;;=^5008947
+555 ;;^UTILITY(U,$J,358.3,21598,0)
+556 ;;=L02.211^^71^904^119
+557 ;;^UTILITY(U,$J,358.3,21598,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,21598,1,3,0)
+560 ;;=3^Cutaneous Abscess of Abdominal Wall
+561 ;;^UTILITY(U,$J,358.3,21598,1,4,0)
+562 ;;=4^L02.211
+563 ;;^UTILITY(U,$J,358.3,21598,2)
+564 ;;=^5008950
+565 ;;^UTILITY(U,$J,358.3,21599,0)
+566 ;;=L02.212^^71^904^120
+567 ;;^UTILITY(U,$J,358.3,21599,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,21599,1,3,0)
+570 ;;=3^Cutaneous Abscess of Back
+571 ;;^UTILITY(U,$J,358.3,21599,1,4,0)
+572 ;;=4^L02.212
+573 ;;^UTILITY(U,$J,358.3,21599,2)
+574 ;;=^5008951
+575 ;;^UTILITY(U,$J,358.3,21600,0)
+576 ;;=L02.213^^71^904^121
+577 ;;^UTILITY(U,$J,358.3,21600,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,21600,1,3,0)
+580 ;;=3^Cutaneous Abscess of Chest Wall
+581 ;;^UTILITY(U,$J,358.3,21600,1,4,0)
+582 ;;=4^L02.213
+583 ;;^UTILITY(U,$J,358.3,21600,2)
+584 ;;=^5008952
+585 ;;^UTILITY(U,$J,358.3,21601,0)
+586 ;;=L02.214^^71^904^123
+587 ;;^UTILITY(U,$J,358.3,21601,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,21601,1,3,0)
+590 ;;=3^Cutaneous Abscess of Groin
+591 ;;^UTILITY(U,$J,358.3,21601,1,4,0)
+592 ;;=4^L02.214
+593 ;;^UTILITY(U,$J,358.3,21601,2)
+594 ;;=^5008953
+595 ;;^UTILITY(U,$J,358.3,21602,0)
+596 ;;=L02.215^^71^904^129
+597 ;;^UTILITY(U,$J,358.3,21602,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,21602,1,3,0)
+600 ;;=3^Cutaneous Abscess of Perineum
+601 ;;^UTILITY(U,$J,358.3,21602,1,4,0)
+602 ;;=4^L02.215
+603 ;;^UTILITY(U,$J,358.3,21602,2)
+604 ;;=^5008954
+605 ;;^UTILITY(U,$J,358.3,21603,0)
+606 ;;=L02.216^^71^904^134
+607 ;;^UTILITY(U,$J,358.3,21603,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,21603,1,3,0)
+610 ;;=3^Cutaneous Abscess of Unbilicus
+611 ;;^UTILITY(U,$J,358.3,21603,1,4,0)
+612 ;;=4^L02.216
+613 ;;^UTILITY(U,$J,358.3,21603,2)
+614 ;;=^5008955
+615 ;;^UTILITY(U,$J,358.3,21604,0)
+616 ;;=L02.219^^71^904^133
+617 ;;^UTILITY(U,$J,358.3,21604,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,21604,1,3,0)
+620 ;;=3^Cutaneous Abscess of Trunk,Unspec
+621 ;;^UTILITY(U,$J,358.3,21604,1,4,0)
+622 ;;=4^L02.219
+623 ;;^UTILITY(U,$J,358.3,21604,2)
+624 ;;=^5008956
+625 ;;^UTILITY(U,$J,358.3,21605,0)
+626 ;;=L02.32^^71^904^157
+627 ;;^UTILITY(U,$J,358.3,21605,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,21605,1,3,0)
+630 ;;=3^Furuncle of Buttock
+631 ;;^UTILITY(U,$J,358.3,21605,1,4,0)
+632 ;;=4^L02.32
+633 ;;^UTILITY(U,$J,358.3,21605,2)
+634 ;;=^5008972
+635 ;;^UTILITY(U,$J,358.3,21606,0)
+636 ;;=L02.33^^71^904^93
+637 ;;^UTILITY(U,$J,358.3,21606,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,21606,1,3,0)
+640 ;;=3^Carbuncle of Buttock
+641 ;;^UTILITY(U,$J,358.3,21606,1,4,0)
+642 ;;=4^L02.33
+643 ;;^UTILITY(U,$J,358.3,21606,2)
+644 ;;=^5008973
+645 ;;^UTILITY(U,$J,358.3,21607,0)
+646 ;;=L02.415^^71^904^132
+647 ;;^UTILITY(U,$J,358.3,21607,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,21607,1,3,0)
+650 ;;=3^Cutaneous Abscess of Right Lower Limb
+651 ;;^UTILITY(U,$J,358.3,21607,1,4,0)
+652 ;;=4^L02.415
+653 ;;^UTILITY(U,$J,358.3,21607,2)
+654 ;;=^5008978
