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

IBDEI0EM.m

Go to the documentation of this file.
IBDEI0EM ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,36594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36594,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,36594,1,4,0)
 ;;=4^L97.521
 ;;^UTILITY(U,$J,358.3,36594,2)
 ;;=^5009550
 ;;^UTILITY(U,$J,358.3,36595,0)
 ;;=L97.522^^107^1477^194
 ;;^UTILITY(U,$J,358.3,36595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36595,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,36595,1,4,0)
 ;;=4^L97.522
 ;;^UTILITY(U,$J,358.3,36595,2)
 ;;=^5009551
 ;;^UTILITY(U,$J,358.3,36596,0)
 ;;=L97.523^^107^1477^195
 ;;^UTILITY(U,$J,358.3,36596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36596,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,36596,1,4,0)
 ;;=4^L97.523
 ;;^UTILITY(U,$J,358.3,36596,2)
 ;;=^5009552
 ;;^UTILITY(U,$J,358.3,36597,0)
 ;;=L97.524^^107^1477^196
 ;;^UTILITY(U,$J,358.3,36597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36597,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,36597,1,4,0)
 ;;=4^L97.524
 ;;^UTILITY(U,$J,358.3,36597,2)
 ;;=^5009553
 ;;^UTILITY(U,$J,358.3,36598,0)
 ;;=L97.529^^107^1477^197
 ;;^UTILITY(U,$J,358.3,36598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36598,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,36598,1,4,0)
 ;;=4^L97.529
 ;;^UTILITY(U,$J,358.3,36598,2)
 ;;=^5009554
 ;;^UTILITY(U,$J,358.3,36599,0)
 ;;=L97.911^^107^1477^254
 ;;^UTILITY(U,$J,358.3,36599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36599,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,36599,1,4,0)
 ;;=4^L97.911
 ;;^UTILITY(U,$J,358.3,36599,2)
 ;;=^5133679
 ;;^UTILITY(U,$J,358.3,36600,0)
 ;;=L97.912^^107^1477^255
 ;;^UTILITY(U,$J,358.3,36600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36600,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,36600,1,4,0)
 ;;=4^L97.912
 ;;^UTILITY(U,$J,358.3,36600,2)
 ;;=^5133681
 ;;^UTILITY(U,$J,358.3,36601,0)
 ;;=L97.913^^107^1477^256
 ;;^UTILITY(U,$J,358.3,36601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36601,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,36601,1,4,0)
 ;;=4^L97.913
 ;;^UTILITY(U,$J,358.3,36601,2)
 ;;=^5133683
 ;;^UTILITY(U,$J,358.3,36602,0)
 ;;=L97.914^^107^1477^257
 ;;^UTILITY(U,$J,358.3,36602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36602,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,36602,1,4,0)
 ;;=4^L97.914
 ;;^UTILITY(U,$J,358.3,36602,2)
 ;;=^5133685
 ;;^UTILITY(U,$J,358.3,36603,0)
 ;;=L97.919^^107^1477^258
 ;;^UTILITY(U,$J,358.3,36603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36603,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,36603,1,4,0)
 ;;=4^L97.919
 ;;^UTILITY(U,$J,358.3,36603,2)
 ;;=^5133688
 ;;^UTILITY(U,$J,358.3,36604,0)
 ;;=L97.921^^107^1477^207
 ;;^UTILITY(U,$J,358.3,36604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36604,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,36604,1,4,0)
 ;;=4^L97.921
 ;;^UTILITY(U,$J,358.3,36604,2)
 ;;=^5133680
 ;;^UTILITY(U,$J,358.3,36605,0)
 ;;=L97.922^^107^1477^208
 ;;^UTILITY(U,$J,358.3,36605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36605,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,36605,1,4,0)
 ;;=4^L97.922
 ;;^UTILITY(U,$J,358.3,36605,2)
 ;;=^5133682
 ;;^UTILITY(U,$J,358.3,36606,0)
 ;;=L97.923^^107^1477^209
 ;;^UTILITY(U,$J,358.3,36606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36606,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,36606,1,4,0)
 ;;=4^L97.923
 ;;^UTILITY(U,$J,358.3,36606,2)
 ;;=^5133684
 ;;^UTILITY(U,$J,358.3,36607,0)
 ;;=L97.924^^107^1477^210
 ;;^UTILITY(U,$J,358.3,36607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36607,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,36607,1,4,0)
 ;;=4^L97.924
 ;;^UTILITY(U,$J,358.3,36607,2)
 ;;=^5133686
 ;;^UTILITY(U,$J,358.3,36608,0)
 ;;=L97.929^^107^1477^211
 ;;^UTILITY(U,$J,358.3,36608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36608,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,36608,1,4,0)
 ;;=4^L97.929
 ;;^UTILITY(U,$J,358.3,36608,2)
 ;;=^5133689
 ;;^UTILITY(U,$J,358.3,36609,0)
 ;;=L98.2^^107^1477^152
 ;;^UTILITY(U,$J,358.3,36609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36609,1,3,0)
 ;;=3^Febrile Neutrophilic Dermatosis
 ;;^UTILITY(U,$J,358.3,36609,1,4,0)
 ;;=4^L98.2
 ;;^UTILITY(U,$J,358.3,36609,2)
 ;;=^5009575
 ;;^UTILITY(U,$J,358.3,36610,0)
 ;;=L98.9^^107^1477^307
 ;;^UTILITY(U,$J,358.3,36610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36610,1,3,0)
 ;;=3^Skin/Subcutaneous Tissue Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,36610,1,4,0)
 ;;=4^L98.9
 ;;^UTILITY(U,$J,358.3,36610,2)
 ;;=^5009595
 ;;^UTILITY(U,$J,358.3,36611,0)
 ;;=I70.731^^107^1477^81
 ;;^UTILITY(U,$J,358.3,36611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36611,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,36611,1,4,0)
 ;;=4^I70.731
 ;;^UTILITY(U,$J,358.3,36611,2)
 ;;=^5007769
 ;;^UTILITY(U,$J,358.3,36612,0)
 ;;=I70.732^^107^1477^82
 ;;^UTILITY(U,$J,358.3,36612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36612,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,36612,1,4,0)
 ;;=4^I70.732
 ;;^UTILITY(U,$J,358.3,36612,2)
 ;;=^5007770
 ;;^UTILITY(U,$J,358.3,36613,0)
 ;;=I70.733^^107^1477^83
 ;;^UTILITY(U,$J,358.3,36613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36613,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,36613,1,4,0)
 ;;=4^I70.733
 ;;^UTILITY(U,$J,358.3,36613,2)
 ;;=^5007771
 ;;^UTILITY(U,$J,358.3,36614,0)
 ;;=I70.734^^107^1477^84
 ;;^UTILITY(U,$J,358.3,36614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36614,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,36614,1,4,0)
 ;;=4^I70.734
 ;;^UTILITY(U,$J,358.3,36614,2)
 ;;=^5007772
 ;;^UTILITY(U,$J,358.3,36615,0)
 ;;=I70.735^^107^1477^85
 ;;^UTILITY(U,$J,358.3,36615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36615,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Oth Part Foot Ulcer
 ;;^UTILITY(U,$J,358.3,36615,1,4,0)
 ;;=4^I70.735
 ;;^UTILITY(U,$J,358.3,36615,2)
 ;;=^5007773
 ;;^UTILITY(U,$J,358.3,36616,0)
 ;;=I70.741^^107^1477^80
 ;;^UTILITY(U,$J,358.3,36616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36616,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,36616,1,4,0)
 ;;=4^I70.741
 ;;^UTILITY(U,$J,358.3,36616,2)
 ;;=^5133601
 ;;^UTILITY(U,$J,358.3,36617,0)
 ;;=I70.742^^107^1477^77
 ;;^UTILITY(U,$J,358.3,36617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36617,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,36617,1,4,0)
 ;;=4^I70.742
 ;;^UTILITY(U,$J,358.3,36617,2)
 ;;=^5133602
 ;;^UTILITY(U,$J,358.3,36618,0)
 ;;=I70.743^^107^1477^76
 ;;^UTILITY(U,$J,358.3,36618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36618,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,36618,1,4,0)
 ;;=4^I70.743
 ;;^UTILITY(U,$J,358.3,36618,2)
 ;;=^5133603
 ;;^UTILITY(U,$J,358.3,36619,0)
 ;;=I70.744^^107^1477^78
 ;;^UTILITY(U,$J,358.3,36619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36619,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,36619,1,4,0)
 ;;=4^I70.744
 ;;^UTILITY(U,$J,358.3,36619,2)
 ;;=^5133604
 ;;^UTILITY(U,$J,358.3,36620,0)
 ;;=I70.745^^107^1477^79
 ;;^UTILITY(U,$J,358.3,36620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36620,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Oth Part Foot Ulcer
 ;;^UTILITY(U,$J,358.3,36620,1,4,0)
 ;;=4^I70.745
 ;;^UTILITY(U,$J,358.3,36620,2)
 ;;=^5133605
 ;;^UTILITY(U,$J,358.3,36621,0)
 ;;=I83.009^^107^1477^327
 ;;^UTILITY(U,$J,358.3,36621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36621,1,3,0)
 ;;=3^Varicose Veins of Lower Extremity w/ Ulcer
 ;;^UTILITY(U,$J,358.3,36621,1,4,0)
 ;;=4^I83.009
 ;;^UTILITY(U,$J,358.3,36621,2)
 ;;=^5007972
 ;;^UTILITY(U,$J,358.3,36622,0)
 ;;=N61.1^^107^1477^1
 ;;^UTILITY(U,$J,358.3,36622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36622,1,3,0)
 ;;=3^Abscess of Breast & Nipple
 ;;^UTILITY(U,$J,358.3,36622,1,4,0)
 ;;=4^N61.1
 ;;^UTILITY(U,$J,358.3,36622,2)
 ;;=^5138937
 ;;^UTILITY(U,$J,358.3,36623,0)
 ;;=L03.213^^107^1477^96
 ;;^UTILITY(U,$J,358.3,36623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36623,1,3,0)
 ;;=3^Cellulitis Periorbital
 ;;^UTILITY(U,$J,358.3,36623,1,4,0)
 ;;=4^L03.213
 ;;^UTILITY(U,$J,358.3,36623,2)
 ;;=^259555
 ;;^UTILITY(U,$J,358.3,36624,0)
 ;;=L90.0^^107^1477^170
 ;;^UTILITY(U,$J,358.3,36624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36624,1,3,0)
 ;;=3^Lichen Sclerosus et Atrophicus
 ;;^UTILITY(U,$J,358.3,36624,1,4,0)
 ;;=4^L90.0
 ;;^UTILITY(U,$J,358.3,36624,2)
 ;;=^70699
 ;;^UTILITY(U,$J,358.3,36625,0)
 ;;=N63.20^^107^1477^172
 ;;^UTILITY(U,$J,358.3,36625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36625,1,3,0)
 ;;=3^Lump,Left Breast,Unspec Quadrant
 ;;^UTILITY(U,$J,358.3,36625,1,4,0)
 ;;=4^N63.20
 ;;^UTILITY(U,$J,358.3,36625,2)
 ;;=^5151524
 ;;^UTILITY(U,$J,358.3,36626,0)
 ;;=N63.10^^107^1477^173
 ;;^UTILITY(U,$J,358.3,36626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36626,1,3,0)
 ;;=3^Lump,Right Breast,Unspec Quadrant
 ;;^UTILITY(U,$J,358.3,36626,1,4,0)
 ;;=4^N63.10
 ;;^UTILITY(U,$J,358.3,36626,2)
 ;;=^5151519
 ;;^UTILITY(U,$J,358.3,36627,0)
 ;;=L97.326^^107^1477^182
 ;;^UTILITY(U,$J,358.3,36627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36627,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36627,1,4,0)
 ;;=4^L97.326
 ;;^UTILITY(U,$J,358.3,36627,2)
 ;;=^5151455
 ;;^UTILITY(U,$J,358.3,36628,0)
 ;;=L97.325^^107^1477^183
 ;;^UTILITY(U,$J,358.3,36628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36628,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36628,1,4,0)
 ;;=4^L97.325
 ;;^UTILITY(U,$J,358.3,36628,2)
 ;;=^5151454
 ;;^UTILITY(U,$J,358.3,36629,0)
 ;;=L97.328^^107^1477^184
 ;;^UTILITY(U,$J,358.3,36629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36629,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36629,1,4,0)
 ;;=4^L97.328
 ;;^UTILITY(U,$J,358.3,36629,2)
 ;;=^5151456
 ;;^UTILITY(U,$J,358.3,36630,0)
 ;;=L97.226^^107^1477^190
 ;;^UTILITY(U,$J,358.3,36630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36630,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36630,1,4,0)
 ;;=4^L97.226
 ;;^UTILITY(U,$J,358.3,36630,2)
 ;;=^5151446
 ;;^UTILITY(U,$J,358.3,36631,0)
 ;;=L97.225^^107^1477^191
 ;;^UTILITY(U,$J,358.3,36631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36631,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36631,1,4,0)
 ;;=4^L97.225
 ;;^UTILITY(U,$J,358.3,36631,2)
 ;;=^5151445
 ;;^UTILITY(U,$J,358.3,36632,0)
 ;;=L97.228^^107^1477^192
 ;;^UTILITY(U,$J,358.3,36632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36632,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36632,1,4,0)
 ;;=4^L97.228
 ;;^UTILITY(U,$J,358.3,36632,2)
 ;;=^5151447
 ;;^UTILITY(U,$J,358.3,36633,0)
 ;;=L97.526^^107^1477^198
 ;;^UTILITY(U,$J,358.3,36633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36633,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36633,1,4,0)
 ;;=4^L97.526
 ;;^UTILITY(U,$J,358.3,36633,2)
 ;;=^5151473
 ;;^UTILITY(U,$J,358.3,36634,0)
 ;;=L97.525^^107^1477^199
 ;;^UTILITY(U,$J,358.3,36634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36634,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36634,1,4,0)
 ;;=4^L97.525
 ;;^UTILITY(U,$J,358.3,36634,2)
 ;;=^5151472
 ;;^UTILITY(U,$J,358.3,36635,0)
 ;;=L97.528^^107^1477^200
 ;;^UTILITY(U,$J,358.3,36635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36635,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36635,1,4,0)
 ;;=4^L97.528
 ;;^UTILITY(U,$J,358.3,36635,2)
 ;;=^5151474
 ;;^UTILITY(U,$J,358.3,36636,0)
 ;;=L97.426^^107^1477^206
 ;;^UTILITY(U,$J,358.3,36636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36636,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36636,1,4,0)
 ;;=4^L97.426
 ;;^UTILITY(U,$J,358.3,36636,2)
 ;;=^5151464
 ;;^UTILITY(U,$J,358.3,36637,0)
 ;;=L97.925^^107^1477^212
 ;;^UTILITY(U,$J,358.3,36637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36637,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36637,1,4,0)
 ;;=4^L97.925
 ;;^UTILITY(U,$J,358.3,36637,2)
 ;;=^5151490
 ;;^UTILITY(U,$J,358.3,36638,0)
 ;;=L97.928^^107^1477^213
 ;;^UTILITY(U,$J,358.3,36638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36638,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36638,1,4,0)
 ;;=4^L97.928
 ;;^UTILITY(U,$J,358.3,36638,2)
 ;;=^5151492
 ;;^UTILITY(U,$J,358.3,36639,0)
 ;;=L97.126^^107^1477^219
 ;;^UTILITY(U,$J,358.3,36639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36639,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36639,1,4,0)
 ;;=4^L97.126
 ;;^UTILITY(U,$J,358.3,36639,2)
 ;;=^5151437
 ;;^UTILITY(U,$J,358.3,36640,0)
 ;;=L97.125^^107^1477^220
 ;;^UTILITY(U,$J,358.3,36640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36640,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36640,1,4,0)
 ;;=4^L97.125
 ;;^UTILITY(U,$J,358.3,36640,2)
 ;;=^5151436
 ;;^UTILITY(U,$J,358.3,36641,0)
 ;;=L97.128^^107^1477^221
 ;;^UTILITY(U,$J,358.3,36641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36641,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36641,1,4,0)
 ;;=4^L97.128
 ;;^UTILITY(U,$J,358.3,36641,2)
 ;;=^5151438
 ;;^UTILITY(U,$J,358.3,36642,0)
 ;;=L97.316^^107^1477^227
 ;;^UTILITY(U,$J,358.3,36642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36642,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36642,1,4,0)
 ;;=4^L97.316
 ;;^UTILITY(U,$J,358.3,36642,2)
 ;;=^5151452
 ;;^UTILITY(U,$J,358.3,36643,0)
 ;;=L97.315^^107^1477^228
 ;;^UTILITY(U,$J,358.3,36643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36643,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36643,1,4,0)
 ;;=4^L97.315
 ;;^UTILITY(U,$J,358.3,36643,2)
 ;;=^5151451
 ;;^UTILITY(U,$J,358.3,36644,0)
 ;;=L97.318^^107^1477^229
 ;;^UTILITY(U,$J,358.3,36644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36644,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36644,1,4,0)
 ;;=4^L97.318
 ;;^UTILITY(U,$J,358.3,36644,2)
 ;;=^5151453
 ;;^UTILITY(U,$J,358.3,36645,0)
 ;;=L97.216^^107^1477^235
 ;;^UTILITY(U,$J,358.3,36645,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36645,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36645,1,4,0)
 ;;=4^L97.216
 ;;^UTILITY(U,$J,358.3,36645,2)
 ;;=^5151443
 ;;^UTILITY(U,$J,358.3,36646,0)
 ;;=L97.215^^107^1477^236
 ;;^UTILITY(U,$J,358.3,36646,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36646,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36646,1,4,0)
 ;;=4^L97.215
 ;;^UTILITY(U,$J,358.3,36646,2)
 ;;=^5151442
 ;;^UTILITY(U,$J,358.3,36647,0)
 ;;=L97.218^^107^1477^237
 ;;^UTILITY(U,$J,358.3,36647,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36647,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36647,1,4,0)
 ;;=4^L97.218
 ;;^UTILITY(U,$J,358.3,36647,2)
 ;;=^5151444
 ;;^UTILITY(U,$J,358.3,36648,0)
 ;;=L97.516^^107^1477^243
 ;;^UTILITY(U,$J,358.3,36648,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36648,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36648,1,4,0)
 ;;=4^L97.516
 ;;^UTILITY(U,$J,358.3,36648,2)
 ;;=^5151470
 ;;^UTILITY(U,$J,358.3,36649,0)
 ;;=L97.515^^107^1477^244
 ;;^UTILITY(U,$J,358.3,36649,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36649,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36649,1,4,0)
 ;;=4^L97.515
 ;;^UTILITY(U,$J,358.3,36649,2)
 ;;=^5151469
 ;;^UTILITY(U,$J,358.3,36650,0)
 ;;=L97.518^^107^1477^245
 ;;^UTILITY(U,$J,358.3,36650,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36650,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36650,1,4,0)
 ;;=4^L97.518
 ;;^UTILITY(U,$J,358.3,36650,2)
 ;;=^5151471
 ;;^UTILITY(U,$J,358.3,36651,0)
 ;;=L97.416^^107^1477^251
 ;;^UTILITY(U,$J,358.3,36651,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36651,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36651,1,4,0)
 ;;=4^L97.416
 ;;^UTILITY(U,$J,358.3,36651,2)
 ;;=^5151461
 ;;^UTILITY(U,$J,358.3,36652,0)
 ;;=L97.415^^107^1477^252
 ;;^UTILITY(U,$J,358.3,36652,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36652,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36652,1,4,0)
 ;;=4^L97.415
 ;;^UTILITY(U,$J,358.3,36652,2)
 ;;=^5151460
 ;;^UTILITY(U,$J,358.3,36653,0)
 ;;=L97.418^^107^1477^253
 ;;^UTILITY(U,$J,358.3,36653,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36653,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Hell/Midft w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,36653,1,4,0)
 ;;=4^L97.418
 ;;^UTILITY(U,$J,358.3,36653,2)
 ;;=^5151462
 ;;^UTILITY(U,$J,358.3,36654,0)
 ;;=L97.916^^107^1477^259
 ;;^UTILITY(U,$J,358.3,36654,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36654,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36654,1,4,0)
 ;;=4^L97.916
 ;;^UTILITY(U,$J,358.3,36654,2)
 ;;=^5151488
 ;;^UTILITY(U,$J,358.3,36655,0)
 ;;=L97.915^^107^1477^260
 ;;^UTILITY(U,$J,358.3,36655,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36655,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,36655,1,4,0)
 ;;=4^L97.915
 ;;^UTILITY(U,$J,358.3,36655,2)
 ;;=^5151487
 ;;^UTILITY(U,$J,358.3,36656,0)
 ;;=L97.918^^107^1477^261
 ;;^UTILITY(U,$J,358.3,36656,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36656,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Oth Severity