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