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

IBDEI028.m

Go to the documentation of this file.
IBDEI028 ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2021
 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,5047,2)
 ;;=^5007743
 ;;^UTILITY(U,$J,358.3,5048,0)
 ;;=I70.635^^34^310^52
 ;;^UTILITY(U,$J,358.3,5048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5048,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,5048,1,4,0)
 ;;=4^I70.635
 ;;^UTILITY(U,$J,358.3,5048,2)
 ;;=^5007744
 ;;^UTILITY(U,$J,358.3,5049,0)
 ;;=I70.638^^34^310^54
 ;;^UTILITY(U,$J,358.3,5049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5049,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Lower Leg Ulcer
 ;;^UTILITY(U,$J,358.3,5049,1,4,0)
 ;;=4^I70.638
 ;;^UTILITY(U,$J,358.3,5049,2)
 ;;=^5007745
 ;;^UTILITY(U,$J,358.3,5050,0)
 ;;=I70.639^^34^310^56
 ;;^UTILITY(U,$J,358.3,5050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5050,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Right Leg w/ Ulcer,Unspec Site
 ;;^UTILITY(U,$J,358.3,5050,1,4,0)
 ;;=4^I70.639
 ;;^UTILITY(U,$J,358.3,5050,2)
 ;;=^5007746
 ;;^UTILITY(U,$J,358.3,5051,0)
 ;;=I70.641^^34^310^48
 ;;^UTILITY(U,$J,358.3,5051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5051,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,5051,1,4,0)
 ;;=4^I70.641
 ;;^UTILITY(U,$J,358.3,5051,2)
 ;;=^5007747
 ;;^UTILITY(U,$J,358.3,5052,0)
 ;;=I70.642^^34^310^44
 ;;^UTILITY(U,$J,358.3,5052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5052,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,5052,1,4,0)
 ;;=4^I70.642
 ;;^UTILITY(U,$J,358.3,5052,2)
 ;;=^5007748
 ;;^UTILITY(U,$J,358.3,5053,0)
 ;;=I70.643^^34^310^43
 ;;^UTILITY(U,$J,358.3,5053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5053,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,5053,1,4,0)
 ;;=4^I70.643
 ;;^UTILITY(U,$J,358.3,5053,2)
 ;;=^5007749
 ;;^UTILITY(U,$J,358.3,5054,0)
 ;;=I70.644^^34^310^46
 ;;^UTILITY(U,$J,358.3,5054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5054,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,5054,1,4,0)
 ;;=4^I70.644
 ;;^UTILITY(U,$J,358.3,5054,2)
 ;;=^5007750
 ;;^UTILITY(U,$J,358.3,5055,0)
 ;;=I70.645^^34^310^45
 ;;^UTILITY(U,$J,358.3,5055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5055,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,5055,1,4,0)
 ;;=4^I70.645
 ;;^UTILITY(U,$J,358.3,5055,2)
 ;;=^5007751
 ;;^UTILITY(U,$J,358.3,5056,0)
 ;;=I70.648^^34^310^47
 ;;^UTILITY(U,$J,358.3,5056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5056,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Lower Leg Ulcer
 ;;^UTILITY(U,$J,358.3,5056,1,4,0)
 ;;=4^I70.648
 ;;^UTILITY(U,$J,358.3,5056,2)
 ;;=^5007752
 ;;^UTILITY(U,$J,358.3,5057,0)
 ;;=I70.649^^34^310^49
 ;;^UTILITY(U,$J,358.3,5057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5057,1,3,0)
 ;;=3^Athscl Nonbiol Bypass of Left Leg w/ Ulcer,Unspec Site
 ;;^UTILITY(U,$J,358.3,5057,1,4,0)
 ;;=4^I70.649
 ;;^UTILITY(U,$J,358.3,5057,2)
 ;;=^5007753
 ;;^UTILITY(U,$J,358.3,5058,0)
 ;;=I70.731^^34^310^83
 ;;^UTILITY(U,$J,358.3,5058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5058,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,5058,1,4,0)
 ;;=4^I70.731
 ;;^UTILITY(U,$J,358.3,5058,2)
 ;;=^5007769
 ;;^UTILITY(U,$J,358.3,5059,0)
 ;;=I70.732^^34^310^79
 ;;^UTILITY(U,$J,358.3,5059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5059,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,5059,1,4,0)
 ;;=4^I70.732
 ;;^UTILITY(U,$J,358.3,5059,2)
 ;;=^5007770
 ;;^UTILITY(U,$J,358.3,5060,0)
 ;;=I70.733^^34^310^78
 ;;^UTILITY(U,$J,358.3,5060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5060,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,5060,1,4,0)
 ;;=4^I70.733
 ;;^UTILITY(U,$J,358.3,5060,2)
 ;;=^5007771
 ;;^UTILITY(U,$J,358.3,5061,0)
 ;;=I70.734^^34^310^81
 ;;^UTILITY(U,$J,358.3,5061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5061,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,5061,1,4,0)
 ;;=4^I70.734
 ;;^UTILITY(U,$J,358.3,5061,2)
 ;;=^5007772
 ;;^UTILITY(U,$J,358.3,5062,0)
 ;;=I70.735^^34^310^80
 ;;^UTILITY(U,$J,358.3,5062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5062,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,5062,1,4,0)
 ;;=4^I70.735
 ;;^UTILITY(U,$J,358.3,5062,2)
 ;;=^5007773
 ;;^UTILITY(U,$J,358.3,5063,0)
 ;;=I70.738^^34^310^82
 ;;^UTILITY(U,$J,358.3,5063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5063,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Lower Leg Ulcer
 ;;^UTILITY(U,$J,358.3,5063,1,4,0)
 ;;=4^I70.738
 ;;^UTILITY(U,$J,358.3,5063,2)
 ;;=^5007774
 ;;^UTILITY(U,$J,358.3,5064,0)
 ;;=I70.739^^34^310^84
 ;;^UTILITY(U,$J,358.3,5064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5064,1,3,0)
 ;;=3^Athscl of Bypass NEC of Right Leg w/ Ulcer,Unspec Site
 ;;^UTILITY(U,$J,358.3,5064,1,4,0)
 ;;=4^I70.739
 ;;^UTILITY(U,$J,358.3,5064,2)
 ;;=^5007775
 ;;^UTILITY(U,$J,358.3,5065,0)
 ;;=I70.741^^34^310^76
 ;;^UTILITY(U,$J,358.3,5065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5065,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,5065,1,4,0)
 ;;=4^I70.741
 ;;^UTILITY(U,$J,358.3,5065,2)
 ;;=^5133601
 ;;^UTILITY(U,$J,358.3,5066,0)
 ;;=I70.742^^34^310^72
 ;;^UTILITY(U,$J,358.3,5066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5066,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,5066,1,4,0)
 ;;=4^I70.742
 ;;^UTILITY(U,$J,358.3,5066,2)
 ;;=^5133602
 ;;^UTILITY(U,$J,358.3,5067,0)
 ;;=I70.743^^34^310^71
 ;;^UTILITY(U,$J,358.3,5067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5067,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,5067,1,4,0)
 ;;=4^I70.743
 ;;^UTILITY(U,$J,358.3,5067,2)
 ;;=^5133603
 ;;^UTILITY(U,$J,358.3,5068,0)
 ;;=I70.744^^34^310^74
 ;;^UTILITY(U,$J,358.3,5068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5068,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,5068,1,4,0)
 ;;=4^I70.744
 ;;^UTILITY(U,$J,358.3,5068,2)
 ;;=^5133604
 ;;^UTILITY(U,$J,358.3,5069,0)
 ;;=I70.745^^34^310^73
 ;;^UTILITY(U,$J,358.3,5069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5069,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,5069,1,4,0)
 ;;=4^I70.745
 ;;^UTILITY(U,$J,358.3,5069,2)
 ;;=^5133605
 ;;^UTILITY(U,$J,358.3,5070,0)
 ;;=I70.748^^34^310^75
 ;;^UTILITY(U,$J,358.3,5070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5070,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Lower Leg Ulcer
 ;;^UTILITY(U,$J,358.3,5070,1,4,0)
 ;;=4^I70.748
 ;;^UTILITY(U,$J,358.3,5070,2)
 ;;=^5133606
 ;;^UTILITY(U,$J,358.3,5071,0)
 ;;=I70.749^^34^310^77
 ;;^UTILITY(U,$J,358.3,5071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5071,1,3,0)
 ;;=3^Athscl of Bypass NEC of Left Leg w/ Ulcer,Unspec Site
 ;;^UTILITY(U,$J,358.3,5071,1,4,0)
 ;;=4^I70.749
 ;;^UTILITY(U,$J,358.3,5071,2)
 ;;=^5133607
 ;;^UTILITY(U,$J,358.3,5072,0)
 ;;=L97.111^^34^310^142
 ;;^UTILITY(U,$J,358.3,5072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5072,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Thigh,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5072,1,4,0)
 ;;=4^L97.111
 ;;^UTILITY(U,$J,358.3,5072,2)
 ;;=^5009485
 ;;^UTILITY(U,$J,358.3,5073,0)
 ;;=L97.112^^34^310^143
 ;;^UTILITY(U,$J,358.3,5073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5073,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Thigh,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5073,1,4,0)
 ;;=4^L97.112
 ;;^UTILITY(U,$J,358.3,5073,2)
 ;;=^5009486
 ;;^UTILITY(U,$J,358.3,5074,0)
 ;;=L97.113^^34^310^144
 ;;^UTILITY(U,$J,358.3,5074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5074,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Thigh,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5074,1,4,0)
 ;;=4^L97.113
 ;;^UTILITY(U,$J,358.3,5074,2)
 ;;=^5009487
 ;;^UTILITY(U,$J,358.3,5075,0)
 ;;=L97.114^^34^310^145
 ;;^UTILITY(U,$J,358.3,5075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5075,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Thigh,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5075,1,4,0)
 ;;=4^L97.114
 ;;^UTILITY(U,$J,358.3,5075,2)
 ;;=^5009488
 ;;^UTILITY(U,$J,358.3,5076,0)
 ;;=L97.119^^34^310^146
 ;;^UTILITY(U,$J,358.3,5076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5076,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Thigh,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5076,1,4,0)
 ;;=4^L97.119
 ;;^UTILITY(U,$J,358.3,5076,2)
 ;;=^5009489
 ;;^UTILITY(U,$J,358.3,5077,0)
 ;;=L97.211^^34^310^122
 ;;^UTILITY(U,$J,358.3,5077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5077,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Calf,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5077,1,4,0)
 ;;=4^L97.211
 ;;^UTILITY(U,$J,358.3,5077,2)
 ;;=^5009500
 ;;^UTILITY(U,$J,358.3,5078,0)
 ;;=L97.212^^34^310^123
 ;;^UTILITY(U,$J,358.3,5078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5078,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Calf,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5078,1,4,0)
 ;;=4^L97.212
 ;;^UTILITY(U,$J,358.3,5078,2)
 ;;=^5009501
 ;;^UTILITY(U,$J,358.3,5079,0)
 ;;=L97.213^^34^310^124
 ;;^UTILITY(U,$J,358.3,5079,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5079,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Calf,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5079,1,4,0)
 ;;=4^L97.213
 ;;^UTILITY(U,$J,358.3,5079,2)
 ;;=^5009502
 ;;^UTILITY(U,$J,358.3,5080,0)
 ;;=L97.214^^34^310^125
 ;;^UTILITY(U,$J,358.3,5080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5080,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Calf,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5080,1,4,0)
 ;;=4^L97.214
 ;;^UTILITY(U,$J,358.3,5080,2)
 ;;=^5009503
 ;;^UTILITY(U,$J,358.3,5081,0)
 ;;=L97.219^^34^310^126
 ;;^UTILITY(U,$J,358.3,5081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5081,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Calf,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5081,1,4,0)
 ;;=4^L97.219
 ;;^UTILITY(U,$J,358.3,5081,2)
 ;;=^5009504
 ;;^UTILITY(U,$J,358.3,5082,0)
 ;;=L97.311^^34^310^117
 ;;^UTILITY(U,$J,358.3,5082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5082,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Ankle,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5082,1,4,0)
 ;;=4^L97.311
 ;;^UTILITY(U,$J,358.3,5082,2)
 ;;=^5009515
 ;;^UTILITY(U,$J,358.3,5083,0)
 ;;=L97.312^^34^310^118
 ;;^UTILITY(U,$J,358.3,5083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5083,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Ankle,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5083,1,4,0)
 ;;=4^L97.312
 ;;^UTILITY(U,$J,358.3,5083,2)
 ;;=^5009516
 ;;^UTILITY(U,$J,358.3,5084,0)
 ;;=L97.313^^34^310^119
 ;;^UTILITY(U,$J,358.3,5084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5084,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Ankle,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5084,1,4,0)
 ;;=4^L97.313
 ;;^UTILITY(U,$J,358.3,5084,2)
 ;;=^5009517
 ;;^UTILITY(U,$J,358.3,5085,0)
 ;;=L97.314^^34^310^120
 ;;^UTILITY(U,$J,358.3,5085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5085,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Ankle,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5085,1,4,0)
 ;;=4^L97.314
 ;;^UTILITY(U,$J,358.3,5085,2)
 ;;=^5009518
 ;;^UTILITY(U,$J,358.3,5086,0)
 ;;=L97.319^^34^310^121
 ;;^UTILITY(U,$J,358.3,5086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5086,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Ankle,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5086,1,4,0)
 ;;=4^L97.319
 ;;^UTILITY(U,$J,358.3,5086,2)
 ;;=^5009519
 ;;^UTILITY(U,$J,358.3,5087,0)
 ;;=L97.411^^34^310^132
 ;;^UTILITY(U,$J,358.3,5087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5087,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Heel/Midfoot,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5087,1,4,0)
 ;;=4^L97.411
 ;;^UTILITY(U,$J,358.3,5087,2)
 ;;=^5009530
 ;;^UTILITY(U,$J,358.3,5088,0)
 ;;=L97.412^^34^310^133
 ;;^UTILITY(U,$J,358.3,5088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5088,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Heel/Midfoot,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5088,1,4,0)
 ;;=4^L97.412
 ;;^UTILITY(U,$J,358.3,5088,2)
 ;;=^5009531
 ;;^UTILITY(U,$J,358.3,5089,0)
 ;;=L97.413^^34^310^134
 ;;^UTILITY(U,$J,358.3,5089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5089,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Heel/Midfoot,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5089,1,4,0)
 ;;=4^L97.413
 ;;^UTILITY(U,$J,358.3,5089,2)
 ;;=^5009532
 ;;^UTILITY(U,$J,358.3,5090,0)
 ;;=L97.414^^34^310^135
 ;;^UTILITY(U,$J,358.3,5090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5090,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Heel/Midfoot,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5090,1,4,0)
 ;;=4^L97.414
 ;;^UTILITY(U,$J,358.3,5090,2)
 ;;=^5009533
 ;;^UTILITY(U,$J,358.3,5091,0)
 ;;=L97.419^^34^310^136
 ;;^UTILITY(U,$J,358.3,5091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5091,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Heel/Midfoot,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5091,1,4,0)
 ;;=4^L97.419
 ;;^UTILITY(U,$J,358.3,5091,2)
 ;;=^5009534
 ;;^UTILITY(U,$J,358.3,5092,0)
 ;;=L97.511^^34^310^127
 ;;^UTILITY(U,$J,358.3,5092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5092,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Foot NEC,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5092,1,4,0)
 ;;=4^L97.511
 ;;^UTILITY(U,$J,358.3,5092,2)
 ;;=^5009545
 ;;^UTILITY(U,$J,358.3,5093,0)
 ;;=L97.512^^34^310^128
 ;;^UTILITY(U,$J,358.3,5093,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5093,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Foot NEC,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5093,1,4,0)
 ;;=4^L97.512
 ;;^UTILITY(U,$J,358.3,5093,2)
 ;;=^5009546
 ;;^UTILITY(U,$J,358.3,5094,0)
 ;;=L97.513^^34^310^129
 ;;^UTILITY(U,$J,358.3,5094,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5094,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Foot NEC,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5094,1,4,0)
 ;;=4^L97.513
 ;;^UTILITY(U,$J,358.3,5094,2)
 ;;=^5009547
 ;;^UTILITY(U,$J,358.3,5095,0)
 ;;=L97.514^^34^310^130
 ;;^UTILITY(U,$J,358.3,5095,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5095,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Foot NEC,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5095,1,4,0)
 ;;=4^L97.514
 ;;^UTILITY(U,$J,358.3,5095,2)
 ;;=^5009548
 ;;^UTILITY(U,$J,358.3,5096,0)
 ;;=L97.519^^34^310^131
 ;;^UTILITY(U,$J,358.3,5096,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5096,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Foot NEC,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5096,1,4,0)
 ;;=4^L97.519
 ;;^UTILITY(U,$J,358.3,5096,2)
 ;;=^5009549
 ;;^UTILITY(U,$J,358.3,5097,0)
 ;;=L97.811^^34^310^137
 ;;^UTILITY(U,$J,358.3,5097,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5097,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Lower Leg,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5097,1,4,0)
 ;;=4^L97.811
 ;;^UTILITY(U,$J,358.3,5097,2)
 ;;=^5009560
 ;;^UTILITY(U,$J,358.3,5098,0)
 ;;=L97.812^^34^310^138
 ;;^UTILITY(U,$J,358.3,5098,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5098,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Lower Leg,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5098,1,4,0)
 ;;=4^L97.812
 ;;^UTILITY(U,$J,358.3,5098,2)
 ;;=^5009561
 ;;^UTILITY(U,$J,358.3,5099,0)
 ;;=L97.813^^34^310^139
 ;;^UTILITY(U,$J,358.3,5099,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5099,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Lower Leg,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5099,1,4,0)
 ;;=4^L97.813
 ;;^UTILITY(U,$J,358.3,5099,2)
 ;;=^5009562
 ;;^UTILITY(U,$J,358.3,5100,0)
 ;;=L97.814^^34^310^140
 ;;^UTILITY(U,$J,358.3,5100,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5100,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Lower Leg,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5100,1,4,0)
 ;;=4^L97.814
 ;;^UTILITY(U,$J,358.3,5100,2)
 ;;=^5009563
 ;;^UTILITY(U,$J,358.3,5101,0)
 ;;=L97.819^^34^310^141
 ;;^UTILITY(U,$J,358.3,5101,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5101,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Right Lower Leg,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5101,1,4,0)
 ;;=4^L97.819
 ;;^UTILITY(U,$J,358.3,5101,2)
 ;;=^5009564
 ;;^UTILITY(U,$J,358.3,5102,0)
 ;;=L97.121^^34^310^112
 ;;^UTILITY(U,$J,358.3,5102,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5102,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Thigh,Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,5102,1,4,0)
 ;;=4^L97.121
 ;;^UTILITY(U,$J,358.3,5102,2)
 ;;=^5009490
 ;;^UTILITY(U,$J,358.3,5103,0)
 ;;=L97.122^^34^310^113
 ;;^UTILITY(U,$J,358.3,5103,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5103,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Thigh,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5103,1,4,0)
 ;;=4^L97.122
 ;;^UTILITY(U,$J,358.3,5103,2)
 ;;=^5009491
 ;;^UTILITY(U,$J,358.3,5104,0)
 ;;=L97.123^^34^310^114
 ;;^UTILITY(U,$J,358.3,5104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5104,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Thigh,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5104,1,4,0)
 ;;=4^L97.123
 ;;^UTILITY(U,$J,358.3,5104,2)
 ;;=^5009492
 ;;^UTILITY(U,$J,358.3,5105,0)
 ;;=L97.124^^34^310^115
 ;;^UTILITY(U,$J,358.3,5105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5105,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Thigh,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5105,1,4,0)
 ;;=4^L97.124
 ;;^UTILITY(U,$J,358.3,5105,2)
 ;;=^5009493
 ;;^UTILITY(U,$J,358.3,5106,0)
 ;;=L97.129^^34^310^116
 ;;^UTILITY(U,$J,358.3,5106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5106,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Thigh,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5106,1,4,0)
 ;;=4^L97.129
 ;;^UTILITY(U,$J,358.3,5106,2)
 ;;=^5009494
 ;;^UTILITY(U,$J,358.3,5107,0)
 ;;=L97.221^^34^310^92
 ;;^UTILITY(U,$J,358.3,5107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5107,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Calf,Breakdown to Skin
 ;;^UTILITY(U,$J,358.3,5107,1,4,0)
 ;;=4^L97.221
 ;;^UTILITY(U,$J,358.3,5107,2)
 ;;=^5009505
 ;;^UTILITY(U,$J,358.3,5108,0)
 ;;=L97.222^^34^310^93
 ;;^UTILITY(U,$J,358.3,5108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5108,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Calf,Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,5108,1,4,0)
 ;;=4^L97.222
 ;;^UTILITY(U,$J,358.3,5108,2)
 ;;=^5009506
 ;;^UTILITY(U,$J,358.3,5109,0)
 ;;=L97.223^^34^310^94
 ;;^UTILITY(U,$J,358.3,5109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5109,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Calf,Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,5109,1,4,0)
 ;;=4^L97.223
 ;;^UTILITY(U,$J,358.3,5109,2)
 ;;=^5009507
 ;;^UTILITY(U,$J,358.3,5110,0)
 ;;=L97.224^^34^310^95
 ;;^UTILITY(U,$J,358.3,5110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5110,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Calf,Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,5110,1,4,0)
 ;;=4^L97.224
 ;;^UTILITY(U,$J,358.3,5110,2)
 ;;=^5009508
 ;;^UTILITY(U,$J,358.3,5111,0)
 ;;=L97.229^^34^310^96
 ;;^UTILITY(U,$J,358.3,5111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5111,1,3,0)
 ;;=3^Nonpressure Chr Ulcer of Left Calf,Unspec Severity
 ;;^UTILITY(U,$J,358.3,5111,1,4,0)
 ;;=4^L97.229
 ;;^UTILITY(U,$J,358.3,5111,2)
 ;;=^5009509
 ;;^UTILITY(U,$J,358.3,5112,0)
 ;;=L97.321^^34^310^87