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

IBDEI08X.m

Go to the documentation of this file. 
  1. IBDEI08X ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,21810,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Necrosis of Bone
  1.  ;;^UTILITY(U,$J,358.3,21810,1,4,0)
  1.  ;;=4^L97.924
  1.  ;;^UTILITY(U,$J,358.3,21810,2)
  1.  ;;=^5133686
  1.  ;;^UTILITY(U,$J,358.3,21811,0)
  1.  ;;=L97.929^^71^904^211
  1.  ;;^UTILITY(U,$J,358.3,21811,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21811,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Unspec Severity
  1.  ;;^UTILITY(U,$J,358.3,21811,1,4,0)
  1.  ;;=4^L97.929
  1.  ;;^UTILITY(U,$J,358.3,21811,2)
  1.  ;;=^5133689
  1.  ;;^UTILITY(U,$J,358.3,21812,0)
  1.  ;;=L98.2^^71^904^152
  1.  ;;^UTILITY(U,$J,358.3,21812,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21812,1,3,0)
  1.  ;;=3^Febrile Neutrophilic Dermatosis
  1.  ;;^UTILITY(U,$J,358.3,21812,1,4,0)
  1.  ;;=4^L98.2
  1.  ;;^UTILITY(U,$J,358.3,21812,2)
  1.  ;;=^5009575
  1.  ;;^UTILITY(U,$J,358.3,21813,0)
  1.  ;;=L98.9^^71^904^307
  1.  ;;^UTILITY(U,$J,358.3,21813,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21813,1,3,0)
  1.  ;;=3^Skin/Subcutaneous Tissue Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,21813,1,4,0)
  1.  ;;=4^L98.9
  1.  ;;^UTILITY(U,$J,358.3,21813,2)
  1.  ;;=^5009595
  1.  ;;^UTILITY(U,$J,358.3,21814,0)
  1.  ;;=I70.731^^71^904^81
  1.  ;;^UTILITY(U,$J,358.3,21814,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21814,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Right Leg w/ Thigh Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21814,1,4,0)
  1.  ;;=4^I70.731
  1.  ;;^UTILITY(U,$J,358.3,21814,2)
  1.  ;;=^5007769
  1.  ;;^UTILITY(U,$J,358.3,21815,0)
  1.  ;;=I70.732^^71^904^82
  1.  ;;^UTILITY(U,$J,358.3,21815,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21815,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Right Leg w/ Calf Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21815,1,4,0)
  1.  ;;=4^I70.732
  1.  ;;^UTILITY(U,$J,358.3,21815,2)
  1.  ;;=^5007770
  1.  ;;^UTILITY(U,$J,358.3,21816,0)
  1.  ;;=I70.733^^71^904^83
  1.  ;;^UTILITY(U,$J,358.3,21816,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21816,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Right Leg w/ Ankle Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21816,1,4,0)
  1.  ;;=4^I70.733
  1.  ;;^UTILITY(U,$J,358.3,21816,2)
  1.  ;;=^5007771
  1.  ;;^UTILITY(U,$J,358.3,21817,0)
  1.  ;;=I70.734^^71^904^84
  1.  ;;^UTILITY(U,$J,358.3,21817,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21817,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Right Leg w/ Heel/Midfoot Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21817,1,4,0)
  1.  ;;=4^I70.734
  1.  ;;^UTILITY(U,$J,358.3,21817,2)
  1.  ;;=^5007772
  1.  ;;^UTILITY(U,$J,358.3,21818,0)
  1.  ;;=I70.735^^71^904^85
  1.  ;;^UTILITY(U,$J,358.3,21818,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21818,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Right Leg w/ Oth Part Foot Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21818,1,4,0)
  1.  ;;=4^I70.735
  1.  ;;^UTILITY(U,$J,358.3,21818,2)
  1.  ;;=^5007773
  1.  ;;^UTILITY(U,$J,358.3,21819,0)
  1.  ;;=I70.741^^71^904^80
  1.  ;;^UTILITY(U,$J,358.3,21819,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21819,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Left Leg w/ Thigh Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21819,1,4,0)
  1.  ;;=4^I70.741
  1.  ;;^UTILITY(U,$J,358.3,21819,2)
  1.  ;;=^5133601
  1.  ;;^UTILITY(U,$J,358.3,21820,0)
  1.  ;;=I70.742^^71^904^77
  1.  ;;^UTILITY(U,$J,358.3,21820,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21820,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Left Leg w/ Calf Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21820,1,4,0)
  1.  ;;=4^I70.742
  1.  ;;^UTILITY(U,$J,358.3,21820,2)
  1.  ;;=^5133602
  1.  ;;^UTILITY(U,$J,358.3,21821,0)
  1.  ;;=I70.743^^71^904^76
  1.  ;;^UTILITY(U,$J,358.3,21821,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21821,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Left Leg w/ Ankle Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21821,1,4,0)
  1.  ;;=4^I70.743
  1.  ;;^UTILITY(U,$J,358.3,21821,2)
  1.  ;;=^5133603
  1.  ;;^UTILITY(U,$J,358.3,21822,0)
  1.  ;;=I70.744^^71^904^78
  1.  ;;^UTILITY(U,$J,358.3,21822,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21822,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Left Leg w/ Heel/Midfoot Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21822,1,4,0)
  1.  ;;=4^I70.744
  1.  ;;^UTILITY(U,$J,358.3,21822,2)
  1.  ;;=^5133604
  1.  ;;^UTILITY(U,$J,358.3,21823,0)
  1.  ;;=I70.745^^71^904^79
  1.  ;;^UTILITY(U,$J,358.3,21823,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21823,1,3,0)
  1.  ;;=3^Athscl of Bypass Graft of Left Leg w/ Oth Part Foot Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21823,1,4,0)
  1.  ;;=4^I70.745
  1.  ;;^UTILITY(U,$J,358.3,21823,2)
  1.  ;;=^5133605
  1.  ;;^UTILITY(U,$J,358.3,21824,0)
  1.  ;;=I83.009^^71^904^327
  1.  ;;^UTILITY(U,$J,358.3,21824,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21824,1,3,0)
  1.  ;;=3^Varicose Veins of Lower Extremity w/ Ulcer
  1.  ;;^UTILITY(U,$J,358.3,21824,1,4,0)
  1.  ;;=4^I83.009
  1.  ;;^UTILITY(U,$J,358.3,21824,2)
  1.  ;;=^5007972
  1.  ;;^UTILITY(U,$J,358.3,21825,0)
  1.  ;;=N61.1^^71^904^1
  1.  ;;^UTILITY(U,$J,358.3,21825,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21825,1,3,0)
  1.  ;;=3^Abscess of Breast & Nipple
  1.  ;;^UTILITY(U,$J,358.3,21825,1,4,0)
  1.  ;;=4^N61.1
  1.  ;;^UTILITY(U,$J,358.3,21825,2)
  1.  ;;=^5138937
  1.  ;;^UTILITY(U,$J,358.3,21826,0)
  1.  ;;=L03.213^^71^904^96
  1.  ;;^UTILITY(U,$J,358.3,21826,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21826,1,3,0)
  1.  ;;=3^Cellulitis Periorbital
  1.  ;;^UTILITY(U,$J,358.3,21826,1,4,0)
  1.  ;;=4^L03.213
  1.  ;;^UTILITY(U,$J,358.3,21826,2)
  1.  ;;=^259555
  1.  ;;^UTILITY(U,$J,358.3,21827,0)
  1.  ;;=L90.0^^71^904^170
  1.  ;;^UTILITY(U,$J,358.3,21827,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21827,1,3,0)
  1.  ;;=3^Lichen Sclerosus et Atrophicus
  1.  ;;^UTILITY(U,$J,358.3,21827,1,4,0)
  1.  ;;=4^L90.0
  1.  ;;^UTILITY(U,$J,358.3,21827,2)
  1.  ;;=^70699
  1.  ;;^UTILITY(U,$J,358.3,21828,0)
  1.  ;;=N63.20^^71^904^172
  1.  ;;^UTILITY(U,$J,358.3,21828,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21828,1,3,0)
  1.  ;;=3^Lump,Left Breast,Unspec Quadrant
  1.  ;;^UTILITY(U,$J,358.3,21828,1,4,0)
  1.  ;;=4^N63.20
  1.  ;;^UTILITY(U,$J,358.3,21828,2)
  1.  ;;=^5151524
  1.  ;;^UTILITY(U,$J,358.3,21829,0)
  1.  ;;=N63.10^^71^904^173
  1.  ;;^UTILITY(U,$J,358.3,21829,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21829,1,3,0)
  1.  ;;=3^Lump,Right Breast,Unspec Quadrant
  1.  ;;^UTILITY(U,$J,358.3,21829,1,4,0)
  1.  ;;=4^N63.10
  1.  ;;^UTILITY(U,$J,358.3,21829,2)
  1.  ;;=^5151519
  1.  ;;^UTILITY(U,$J,358.3,21830,0)
  1.  ;;=L97.326^^71^904^182
  1.  ;;^UTILITY(U,$J,358.3,21830,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21830,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21830,1,4,0)
  1.  ;;=4^L97.326
  1.  ;;^UTILITY(U,$J,358.3,21830,2)
  1.  ;;=^5151455
  1.  ;;^UTILITY(U,$J,358.3,21831,0)
  1.  ;;=L97.325^^71^904^183
  1.  ;;^UTILITY(U,$J,358.3,21831,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21831,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21831,1,4,0)
  1.  ;;=4^L97.325
  1.  ;;^UTILITY(U,$J,358.3,21831,2)
  1.  ;;=^5151454
  1.  ;;^UTILITY(U,$J,358.3,21832,0)
  1.  ;;=L97.328^^71^904^184
  1.  ;;^UTILITY(U,$J,358.3,21832,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21832,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21832,1,4,0)
  1.  ;;=4^L97.328
  1.  ;;^UTILITY(U,$J,358.3,21832,2)
  1.  ;;=^5151456
  1.  ;;^UTILITY(U,$J,358.3,21833,0)
  1.  ;;=L97.226^^71^904^190
  1.  ;;^UTILITY(U,$J,358.3,21833,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21833,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21833,1,4,0)
  1.  ;;=4^L97.226
  1.  ;;^UTILITY(U,$J,358.3,21833,2)
  1.  ;;=^5151446
  1.  ;;^UTILITY(U,$J,358.3,21834,0)
  1.  ;;=L97.225^^71^904^191
  1.  ;;^UTILITY(U,$J,358.3,21834,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21834,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21834,1,4,0)
  1.  ;;=4^L97.225
  1.  ;;^UTILITY(U,$J,358.3,21834,2)
  1.  ;;=^5151445
  1.  ;;^UTILITY(U,$J,358.3,21835,0)
  1.  ;;=L97.228^^71^904^192
  1.  ;;^UTILITY(U,$J,358.3,21835,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21835,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21835,1,4,0)
  1.  ;;=4^L97.228
  1.  ;;^UTILITY(U,$J,358.3,21835,2)
  1.  ;;=^5151447
  1.  ;;^UTILITY(U,$J,358.3,21836,0)
  1.  ;;=L97.526^^71^904^198
  1.  ;;^UTILITY(U,$J,358.3,21836,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21836,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21836,1,4,0)
  1.  ;;=4^L97.526
  1.  ;;^UTILITY(U,$J,358.3,21836,2)
  1.  ;;=^5151473
  1.  ;;^UTILITY(U,$J,358.3,21837,0)
  1.  ;;=L97.525^^71^904^199
  1.  ;;^UTILITY(U,$J,358.3,21837,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21837,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21837,1,4,0)
  1.  ;;=4^L97.525
  1.  ;;^UTILITY(U,$J,358.3,21837,2)
  1.  ;;=^5151472
  1.  ;;^UTILITY(U,$J,358.3,21838,0)
  1.  ;;=L97.528^^71^904^200
  1.  ;;^UTILITY(U,$J,358.3,21838,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21838,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21838,1,4,0)
  1.  ;;=4^L97.528
  1.  ;;^UTILITY(U,$J,358.3,21838,2)
  1.  ;;=^5151474
  1.  ;;^UTILITY(U,$J,358.3,21839,0)
  1.  ;;=L97.426^^71^904^206
  1.  ;;^UTILITY(U,$J,358.3,21839,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21839,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,21839,1,4,0)
  1.  ;;=4^L97.426
  1.  ;;^UTILITY(U,$J,358.3,21839,2)
  1.  ;;=^5151464
  1.  ;;^UTILITY(U,$J,358.3,21840,0)
  1.  ;;=L97.925^^71^904^212
  1.  ;;^UTILITY(U,$J,358.3,21840,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21840,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,21840,1,4,0)
  1.  ;;=4^L97.925
  1.  ;;^UTILITY(U,$J,358.3,21840,2)
  1.  ;;=^5151490
  1.  ;;^UTILITY(U,$J,358.3,21841,0)
  1.  ;;=L97.928^^71^904^213
  1.  ;;^UTILITY(U,$J,358.3,21841,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21841,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21841,1,4,0)
  1.  ;;=4^L97.928
  1.  ;;^UTILITY(U,$J,358.3,21841,2)
  1.  ;;=^5151492
  1.  ;;^UTILITY(U,$J,358.3,21842,0)
  1.  ;;=L97.126^^71^904^219
  1.  ;;^UTILITY(U,$J,358.3,21842,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21842,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21842,1,4,0)
  1.  ;;=4^L97.126
  1.  ;;^UTILITY(U,$J,358.3,21842,2)
  1.  ;;=^5151437
  1.  ;;^UTILITY(U,$J,358.3,21843,0)
  1.  ;;=L97.125^^71^904^220
  1.  ;;^UTILITY(U,$J,358.3,21843,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21843,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21843,1,4,0)
  1.  ;;=4^L97.125
  1.  ;;^UTILITY(U,$J,358.3,21843,2)
  1.  ;;=^5151436
  1.  ;;^UTILITY(U,$J,358.3,21844,0)
  1.  ;;=L97.128^^71^904^221
  1.  ;;^UTILITY(U,$J,358.3,21844,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21844,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21844,1,4,0)
  1.  ;;=4^L97.128
  1.  ;;^UTILITY(U,$J,358.3,21844,2)
  1.  ;;=^5151438
  1.  ;;^UTILITY(U,$J,358.3,21845,0)
  1.  ;;=L97.316^^71^904^227
  1.  ;;^UTILITY(U,$J,358.3,21845,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21845,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21845,1,4,0)
  1.  ;;=4^L97.316
  1.  ;;^UTILITY(U,$J,358.3,21845,2)
  1.  ;;=^5151452
  1.  ;;^UTILITY(U,$J,358.3,21846,0)
  1.  ;;=L97.315^^71^904^228
  1.  ;;^UTILITY(U,$J,358.3,21846,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21846,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21846,1,4,0)
  1.  ;;=4^L97.315
  1.  ;;^UTILITY(U,$J,358.3,21846,2)
  1.  ;;=^5151451
  1.  ;;^UTILITY(U,$J,358.3,21847,0)
  1.  ;;=L97.318^^71^904^229
  1.  ;;^UTILITY(U,$J,358.3,21847,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21847,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21847,1,4,0)
  1.  ;;=4^L97.318
  1.  ;;^UTILITY(U,$J,358.3,21847,2)
  1.  ;;=^5151453
  1.  ;;^UTILITY(U,$J,358.3,21848,0)
  1.  ;;=L97.216^^71^904^235
  1.  ;;^UTILITY(U,$J,358.3,21848,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21848,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21848,1,4,0)
  1.  ;;=4^L97.216
  1.  ;;^UTILITY(U,$J,358.3,21848,2)
  1.  ;;=^5151443
  1.  ;;^UTILITY(U,$J,358.3,21849,0)
  1.  ;;=L97.215^^71^904^236
  1.  ;;^UTILITY(U,$J,358.3,21849,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21849,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21849,1,4,0)
  1.  ;;=4^L97.215
  1.  ;;^UTILITY(U,$J,358.3,21849,2)
  1.  ;;=^5151442
  1.  ;;^UTILITY(U,$J,358.3,21850,0)
  1.  ;;=L97.218^^71^904^237
  1.  ;;^UTILITY(U,$J,358.3,21850,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21850,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21850,1,4,0)
  1.  ;;=4^L97.218
  1.  ;;^UTILITY(U,$J,358.3,21850,2)
  1.  ;;=^5151444
  1.  ;;^UTILITY(U,$J,358.3,21851,0)
  1.  ;;=L97.516^^71^904^243
  1.  ;;^UTILITY(U,$J,358.3,21851,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21851,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21851,1,4,0)
  1.  ;;=4^L97.516
  1.  ;;^UTILITY(U,$J,358.3,21851,2)
  1.  ;;=^5151470
  1.  ;;^UTILITY(U,$J,358.3,21852,0)
  1.  ;;=L97.515^^71^904^244
  1.  ;;^UTILITY(U,$J,358.3,21852,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21852,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21852,1,4,0)
  1.  ;;=4^L97.515
  1.  ;;^UTILITY(U,$J,358.3,21852,2)
  1.  ;;=^5151469
  1.  ;;^UTILITY(U,$J,358.3,21853,0)
  1.  ;;=L97.518^^71^904^245
  1.  ;;^UTILITY(U,$J,358.3,21853,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21853,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21853,1,4,0)
  1.  ;;=4^L97.518
  1.  ;;^UTILITY(U,$J,358.3,21853,2)
  1.  ;;=^5151471
  1.  ;;^UTILITY(U,$J,358.3,21854,0)
  1.  ;;=L97.416^^71^904^251
  1.  ;;^UTILITY(U,$J,358.3,21854,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21854,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,21854,1,4,0)
  1.  ;;=4^L97.416
  1.  ;;^UTILITY(U,$J,358.3,21854,2)
  1.  ;;=^5151461
  1.  ;;^UTILITY(U,$J,358.3,21855,0)
  1.  ;;=L97.415^^71^904^252
  1.  ;;^UTILITY(U,$J,358.3,21855,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21855,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,21855,1,4,0)
  1.  ;;=4^L97.415
  1.  ;;^UTILITY(U,$J,358.3,21855,2)
  1.  ;;=^5151460
  1.  ;;^UTILITY(U,$J,358.3,21856,0)
  1.  ;;=L97.418^^71^904^253
  1.  ;;^UTILITY(U,$J,358.3,21856,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21856,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Hell/Midft w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21856,1,4,0)
  1.  ;;=4^L97.418
  1.  ;;^UTILITY(U,$J,358.3,21856,2)
  1.  ;;=^5151462
  1.  ;;^UTILITY(U,$J,358.3,21857,0)
  1.  ;;=L97.916^^71^904^259
  1.  ;;^UTILITY(U,$J,358.3,21857,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21857,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,21857,1,4,0)
  1.  ;;=4^L97.916
  1.  ;;^UTILITY(U,$J,358.3,21857,2)
  1.  ;;=^5151488
  1.  ;;^UTILITY(U,$J,358.3,21858,0)
  1.  ;;=L97.915^^71^904^260
  1.  ;;^UTILITY(U,$J,358.3,21858,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21858,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,21858,1,4,0)
  1.  ;;=4^L97.915
  1.  ;;^UTILITY(U,$J,358.3,21858,2)
  1.  ;;=^5151487
  1.  ;;^UTILITY(U,$J,358.3,21859,0)
  1.  ;;=L97.918^^71^904^261
  1.  ;;^UTILITY(U,$J,358.3,21859,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21859,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Oth Severity
  1.  ;;^UTILITY(U,$J,358.3,21859,1,4,0)
  1.  ;;=4^L97.918
  1.  ;;^UTILITY(U,$J,358.3,21859,2)
  1.  ;;=^5151489
  1.  ;;^UTILITY(U,$J,358.3,21860,0)
  1.  ;;=L97.116^^71^904^267
  1.  ;;^UTILITY(U,$J,358.3,21860,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21860,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Bone Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21860,1,4,0)
  1.  ;;=4^L97.116
  1.  ;;^UTILITY(U,$J,358.3,21860,2)
  1.  ;;=^5151434
  1.  ;;^UTILITY(U,$J,358.3,21861,0)
  1.  ;;=L97.115^^71^904^268
  1.  ;;^UTILITY(U,$J,358.3,21861,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21861,1,3,0)
  1.  ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Msl Invl w/o Necrosis
  1.  ;;^UTILITY(U,$J,358.3,21861,1,4,0)
  1.  ;;=4^L97.115
  1.  ;;^UTILITY(U,$J,358.3,21861,2)
  1.  ;;=^5151433
  1.  ;;^UTILITY(U,$J,358.3,21862,0)
  1.  ;;=L89.306^^71^904^276
  1.  ;;^UTILITY(U,$J,358.3,21862,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21862,1,3,0)
  1.  ;;=3^Pressure Induced Deep Tissue Damage,Unspec Buttock
  1.  ;;^UTILITY(U,$J,358.3,21862,1,4,0)
  1.  ;;=4^L89.306
  1.  ;;^UTILITY(U,$J,358.3,21862,2)
  1.  ;;=^5158088
  1.  ;;^UTILITY(U,$J,358.3,21863,0)
  1.  ;;=L89.46^^71^904^275
  1.  ;;^UTILITY(U,$J,358.3,21863,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21863,1,3,0)
  1.  ;;=3^Pressure Induced Deep Tissue Damage,Contig Site:Back/Buttock/Hip
  1.  ;;^UTILITY(U,$J,358.3,21863,1,4,0)
  1.  ;;=4^L89.46
  1.  ;;^UTILITY(U,$J,358.3,21863,2)
  1.  ;;=^5158091
  1.  ;;^UTILITY(U,$J,358.3,21864,0)
  1.  ;;=L02.818^^71^904^128
  1.  ;;^UTILITY(U,$J,358.3,21864,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21864,1,3,0)
  1.  ;;=3^Cutaneous Abscess of Other Sites
  1.  ;;^UTILITY(U,$J,358.3,21864,1,4,0)
  1.  ;;=4^L02.818
  1.  ;;^UTILITY(U,$J,358.3,21864,2)
  1.  ;;=^5009011
  1.  ;;^UTILITY(U,$J,358.3,21865,0)
  1.  ;;=H65.03^^71^905^3
  1.  ;;^UTILITY(U,$J,358.3,21865,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21865,1,3,0)
  1.  ;;=3^Acute Serous Otitis Media,Bilateral
  1.  ;;^UTILITY(U,$J,358.3,21865,1,4,0)
  1.  ;;=4^H65.03
  1.  ;;^UTILITY(U,$J,358.3,21865,2)
  1.  ;;=^5006572
  1.  ;;^UTILITY(U,$J,358.3,21866,0)
  1.  ;;=H65.01^^71^905^5
  1.  ;;^UTILITY(U,$J,358.3,21866,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21866,1,3,0)
  1.  ;;=3^Acute Serous Otitis Media,Right Ear
  1.  ;;^UTILITY(U,$J,358.3,21866,1,4,0)
  1.  ;;=4^H65.01
  1.  ;;^UTILITY(U,$J,358.3,21866,2)
  1.  ;;=^5006570
  1.  ;;^UTILITY(U,$J,358.3,21867,0)
  1.  ;;=H65.23^^71^905^15
  1.  ;;^UTILITY(U,$J,358.3,21867,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21867,1,3,0)
  1.  ;;=3^Chronic Serous Otitis Media,Bilateral
  1.  ;;^UTILITY(U,$J,358.3,21867,1,4,0)
  1.  ;;=4^H65.23
  1.  ;;^UTILITY(U,$J,358.3,21867,2)
  1.  ;;=^5006596
  1.  ;;^UTILITY(U,$J,358.3,21868,0)
  1.  ;;=H65.22^^71^905^16
  1.  ;;^UTILITY(U,$J,358.3,21868,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21868,1,3,0)
  1.  ;;=3^Chronic Serous Otitis Media,Left Ear
  1.  ;;^UTILITY(U,$J,358.3,21868,1,4,0)
  1.  ;;=4^H65.22
  1.  ;;^UTILITY(U,$J,358.3,21868,2)
  1.  ;;=^5006595
  1.  ;;^UTILITY(U,$J,358.3,21869,0)
  1.  ;;=H65.21^^71^905^17
  1.  ;;^UTILITY(U,$J,358.3,21869,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21869,1,3,0)
  1.  ;;=3^Chronic Serous Otitis Media,Right Ear
  1.  ;;^UTILITY(U,$J,358.3,21869,1,4,0)
  1.  ;;=4^H65.21
  1.  ;;^UTILITY(U,$J,358.3,21869,2)
  1.  ;;=^5006594
  1.  ;;^UTILITY(U,$J,358.3,21870,0)
  1.  ;;=H66.012^^71^905^6
  1.  ;;^UTILITY(U,$J,358.3,21870,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21870,1,3,0)
  1.  ;;=3^Acute Suppr Otitis Media w/ Spon Rupt Ear Drum,Left Ear
  1.  ;;^UTILITY(U,$J,358.3,21870,1,4,0)
  1.  ;;=4^H66.012
  1.  ;;^UTILITY(U,$J,358.3,21870,2)
  1.  ;;=^5133534
  1.  ;;^UTILITY(U,$J,358.3,21871,0)
  1.  ;;=H66.011^^71^905^7
  1.  ;;^UTILITY(U,$J,358.3,21871,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21871,1,3,0)
  1.  ;;=3^Acute Suppr Otitis Media w/ Spon Rupt Ear Drum,Right Ear
  1.  ;;^UTILITY(U,$J,358.3,21871,1,4,0)
  1.  ;;=4^H66.011
  1.  ;;^UTILITY(U,$J,358.3,21871,2)
  1.  ;;=^5006621
  1.  ;;^UTILITY(U,$J,358.3,21872,0)
  1.  ;;=H66.91^^71^905^36
  1.  ;;^UTILITY(U,$J,358.3,21872,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21872,1,3,0)
  1.  ;;=3^Otitis Media,Unspec,Right Ear
  1.  ;;^UTILITY(U,$J,358.3,21872,1,4,0)
  1.  ;;=4^H66.91
  1.  ;;^UTILITY(U,$J,358.3,21872,2)
  1.  ;;=^5006640
  1.  ;;^UTILITY(U,$J,358.3,21873,0)
  1.  ;;=H66.92^^71^905^35
  1.  ;;^UTILITY(U,$J,358.3,21873,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,21873,1,3,0)
  1.  ;;=3^Otitis Media,Unspec,Left Ear
  1.  ;;^UTILITY(U,$J,358.3,21873,1,4,0)
  1.  ;;=4^H66.92
  1.  ;;^UTILITY(U,$J,358.3,21873,2)
  1.  ;;=^5006641