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

IBDEI0DI.m

Go to the documentation of this file.
IBDEI0DI ; ; 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,33896,1,4,0)
 ;;=4^L97.912
 ;;^UTILITY(U,$J,358.3,33896,2)
 ;;=^5133681
 ;;^UTILITY(U,$J,358.3,33897,0)
 ;;=L97.913^^105^1423^256
 ;;^UTILITY(U,$J,358.3,33897,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33897,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33897,1,4,0)
 ;;=4^L97.913
 ;;^UTILITY(U,$J,358.3,33897,2)
 ;;=^5133683
 ;;^UTILITY(U,$J,358.3,33898,0)
 ;;=L97.914^^105^1423^257
 ;;^UTILITY(U,$J,358.3,33898,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33898,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33898,1,4,0)
 ;;=4^L97.914
 ;;^UTILITY(U,$J,358.3,33898,2)
 ;;=^5133685
 ;;^UTILITY(U,$J,358.3,33899,0)
 ;;=L97.919^^105^1423^258
 ;;^UTILITY(U,$J,358.3,33899,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33899,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33899,1,4,0)
 ;;=4^L97.919
 ;;^UTILITY(U,$J,358.3,33899,2)
 ;;=^5133688
 ;;^UTILITY(U,$J,358.3,33900,0)
 ;;=L97.921^^105^1423^207
 ;;^UTILITY(U,$J,358.3,33900,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33900,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33900,1,4,0)
 ;;=4^L97.921
 ;;^UTILITY(U,$J,358.3,33900,2)
 ;;=^5133680
 ;;^UTILITY(U,$J,358.3,33901,0)
 ;;=L97.922^^105^1423^208
 ;;^UTILITY(U,$J,358.3,33901,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33901,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33901,1,4,0)
 ;;=4^L97.922
 ;;^UTILITY(U,$J,358.3,33901,2)
 ;;=^5133682
 ;;^UTILITY(U,$J,358.3,33902,0)
 ;;=L97.923^^105^1423^209
 ;;^UTILITY(U,$J,358.3,33902,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33902,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33902,1,4,0)
 ;;=4^L97.923
 ;;^UTILITY(U,$J,358.3,33902,2)
 ;;=^5133684
 ;;^UTILITY(U,$J,358.3,33903,0)
 ;;=L97.924^^105^1423^210
 ;;^UTILITY(U,$J,358.3,33903,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33903,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33903,1,4,0)
 ;;=4^L97.924
 ;;^UTILITY(U,$J,358.3,33903,2)
 ;;=^5133686
 ;;^UTILITY(U,$J,358.3,33904,0)
 ;;=L97.929^^105^1423^211
 ;;^UTILITY(U,$J,358.3,33904,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33904,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33904,1,4,0)
 ;;=4^L97.929
 ;;^UTILITY(U,$J,358.3,33904,2)
 ;;=^5133689
 ;;^UTILITY(U,$J,358.3,33905,0)
 ;;=L98.2^^105^1423^152
 ;;^UTILITY(U,$J,358.3,33905,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33905,1,3,0)
 ;;=3^Febrile Neutrophilic Dermatosis
 ;;^UTILITY(U,$J,358.3,33905,1,4,0)
 ;;=4^L98.2
 ;;^UTILITY(U,$J,358.3,33905,2)
 ;;=^5009575
 ;;^UTILITY(U,$J,358.3,33906,0)
 ;;=L98.9^^105^1423^307
 ;;^UTILITY(U,$J,358.3,33906,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33906,1,3,0)
 ;;=3^Skin/Subcutaneous Tissue Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,33906,1,4,0)
 ;;=4^L98.9
 ;;^UTILITY(U,$J,358.3,33906,2)
 ;;=^5009595
 ;;^UTILITY(U,$J,358.3,33907,0)
 ;;=I70.731^^105^1423^81
 ;;^UTILITY(U,$J,358.3,33907,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33907,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,33907,1,4,0)
 ;;=4^I70.731
 ;;^UTILITY(U,$J,358.3,33907,2)
 ;;=^5007769
 ;;^UTILITY(U,$J,358.3,33908,0)
 ;;=I70.732^^105^1423^82
 ;;^UTILITY(U,$J,358.3,33908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33908,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,33908,1,4,0)
 ;;=4^I70.732
 ;;^UTILITY(U,$J,358.3,33908,2)
 ;;=^5007770
 ;;^UTILITY(U,$J,358.3,33909,0)
 ;;=I70.733^^105^1423^83
 ;;^UTILITY(U,$J,358.3,33909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33909,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,33909,1,4,0)
 ;;=4^I70.733
 ;;^UTILITY(U,$J,358.3,33909,2)
 ;;=^5007771
 ;;^UTILITY(U,$J,358.3,33910,0)
 ;;=I70.734^^105^1423^84
 ;;^UTILITY(U,$J,358.3,33910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33910,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,33910,1,4,0)
 ;;=4^I70.734
 ;;^UTILITY(U,$J,358.3,33910,2)
 ;;=^5007772
 ;;^UTILITY(U,$J,358.3,33911,0)
 ;;=I70.735^^105^1423^85
 ;;^UTILITY(U,$J,358.3,33911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33911,1,3,0)
 ;;=3^Athscl of Bypass Graft of Right Leg w/ Oth Part Foot Ulcer
 ;;^UTILITY(U,$J,358.3,33911,1,4,0)
 ;;=4^I70.735
 ;;^UTILITY(U,$J,358.3,33911,2)
 ;;=^5007773
 ;;^UTILITY(U,$J,358.3,33912,0)
 ;;=I70.741^^105^1423^80
 ;;^UTILITY(U,$J,358.3,33912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33912,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Thigh Ulcer
 ;;^UTILITY(U,$J,358.3,33912,1,4,0)
 ;;=4^I70.741
 ;;^UTILITY(U,$J,358.3,33912,2)
 ;;=^5133601
 ;;^UTILITY(U,$J,358.3,33913,0)
 ;;=I70.742^^105^1423^77
 ;;^UTILITY(U,$J,358.3,33913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33913,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Calf Ulcer
 ;;^UTILITY(U,$J,358.3,33913,1,4,0)
 ;;=4^I70.742
 ;;^UTILITY(U,$J,358.3,33913,2)
 ;;=^5133602
 ;;^UTILITY(U,$J,358.3,33914,0)
 ;;=I70.743^^105^1423^76
 ;;^UTILITY(U,$J,358.3,33914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33914,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Ankle Ulcer
 ;;^UTILITY(U,$J,358.3,33914,1,4,0)
 ;;=4^I70.743
 ;;^UTILITY(U,$J,358.3,33914,2)
 ;;=^5133603
 ;;^UTILITY(U,$J,358.3,33915,0)
 ;;=I70.744^^105^1423^78
 ;;^UTILITY(U,$J,358.3,33915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33915,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,33915,1,4,0)
 ;;=4^I70.744
 ;;^UTILITY(U,$J,358.3,33915,2)
 ;;=^5133604
 ;;^UTILITY(U,$J,358.3,33916,0)
 ;;=I70.745^^105^1423^79
 ;;^UTILITY(U,$J,358.3,33916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33916,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Oth Part Foot Ulcer
 ;;^UTILITY(U,$J,358.3,33916,1,4,0)
 ;;=4^I70.745
 ;;^UTILITY(U,$J,358.3,33916,2)
 ;;=^5133605
 ;;^UTILITY(U,$J,358.3,33917,0)
 ;;=I83.009^^105^1423^327
 ;;^UTILITY(U,$J,358.3,33917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33917,1,3,0)
 ;;=3^Varicose Veins of Lower Extremity w/ Ulcer
 ;;^UTILITY(U,$J,358.3,33917,1,4,0)
 ;;=4^I83.009
 ;;^UTILITY(U,$J,358.3,33917,2)
 ;;=^5007972
 ;;^UTILITY(U,$J,358.3,33918,0)
 ;;=N61.1^^105^1423^1
 ;;^UTILITY(U,$J,358.3,33918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33918,1,3,0)
 ;;=3^Abscess of Breast & Nipple
 ;;^UTILITY(U,$J,358.3,33918,1,4,0)
 ;;=4^N61.1
 ;;^UTILITY(U,$J,358.3,33918,2)
 ;;=^5138937
 ;;^UTILITY(U,$J,358.3,33919,0)
 ;;=L03.213^^105^1423^96
 ;;^UTILITY(U,$J,358.3,33919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33919,1,3,0)
 ;;=3^Cellulitis Periorbital
 ;;^UTILITY(U,$J,358.3,33919,1,4,0)
 ;;=4^L03.213
 ;;^UTILITY(U,$J,358.3,33919,2)
 ;;=^259555
 ;;^UTILITY(U,$J,358.3,33920,0)
 ;;=L90.0^^105^1423^170
 ;;^UTILITY(U,$J,358.3,33920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33920,1,3,0)
 ;;=3^Lichen Sclerosus et Atrophicus
 ;;^UTILITY(U,$J,358.3,33920,1,4,0)
 ;;=4^L90.0
 ;;^UTILITY(U,$J,358.3,33920,2)
 ;;=^70699
 ;;^UTILITY(U,$J,358.3,33921,0)
 ;;=N63.20^^105^1423^172
 ;;^UTILITY(U,$J,358.3,33921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33921,1,3,0)
 ;;=3^Lump,Left Breast,Unspec Quadrant
 ;;^UTILITY(U,$J,358.3,33921,1,4,0)
 ;;=4^N63.20
 ;;^UTILITY(U,$J,358.3,33921,2)
 ;;=^5151524
 ;;^UTILITY(U,$J,358.3,33922,0)
 ;;=N63.10^^105^1423^173
 ;;^UTILITY(U,$J,358.3,33922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33922,1,3,0)
 ;;=3^Lump,Right Breast,Unspec Quadrant
 ;;^UTILITY(U,$J,358.3,33922,1,4,0)
 ;;=4^N63.10
 ;;^UTILITY(U,$J,358.3,33922,2)
 ;;=^5151519
 ;;^UTILITY(U,$J,358.3,33923,0)
 ;;=L97.326^^105^1423^182
 ;;^UTILITY(U,$J,358.3,33923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33923,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33923,1,4,0)
 ;;=4^L97.326
 ;;^UTILITY(U,$J,358.3,33923,2)
 ;;=^5151455
 ;;^UTILITY(U,$J,358.3,33924,0)
 ;;=L97.325^^105^1423^183
 ;;^UTILITY(U,$J,358.3,33924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33924,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33924,1,4,0)
 ;;=4^L97.325
 ;;^UTILITY(U,$J,358.3,33924,2)
 ;;=^5151454
 ;;^UTILITY(U,$J,358.3,33925,0)
 ;;=L97.328^^105^1423^184
 ;;^UTILITY(U,$J,358.3,33925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33925,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33925,1,4,0)
 ;;=4^L97.328
 ;;^UTILITY(U,$J,358.3,33925,2)
 ;;=^5151456
 ;;^UTILITY(U,$J,358.3,33926,0)
 ;;=L97.226^^105^1423^190
 ;;^UTILITY(U,$J,358.3,33926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33926,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33926,1,4,0)
 ;;=4^L97.226
 ;;^UTILITY(U,$J,358.3,33926,2)
 ;;=^5151446
 ;;^UTILITY(U,$J,358.3,33927,0)
 ;;=L97.225^^105^1423^191
 ;;^UTILITY(U,$J,358.3,33927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33927,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33927,1,4,0)
 ;;=4^L97.225
 ;;^UTILITY(U,$J,358.3,33927,2)
 ;;=^5151445
 ;;^UTILITY(U,$J,358.3,33928,0)
 ;;=L97.228^^105^1423^192
 ;;^UTILITY(U,$J,358.3,33928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33928,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33928,1,4,0)
 ;;=4^L97.228
 ;;^UTILITY(U,$J,358.3,33928,2)
 ;;=^5151447
 ;;^UTILITY(U,$J,358.3,33929,0)
 ;;=L97.526^^105^1423^198
 ;;^UTILITY(U,$J,358.3,33929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33929,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33929,1,4,0)
 ;;=4^L97.526
 ;;^UTILITY(U,$J,358.3,33929,2)
 ;;=^5151473
 ;;^UTILITY(U,$J,358.3,33930,0)
 ;;=L97.525^^105^1423^199
 ;;^UTILITY(U,$J,358.3,33930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33930,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33930,1,4,0)
 ;;=4^L97.525
 ;;^UTILITY(U,$J,358.3,33930,2)
 ;;=^5151472
 ;;^UTILITY(U,$J,358.3,33931,0)
 ;;=L97.528^^105^1423^200
 ;;^UTILITY(U,$J,358.3,33931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33931,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33931,1,4,0)
 ;;=4^L97.528
 ;;^UTILITY(U,$J,358.3,33931,2)
 ;;=^5151474
 ;;^UTILITY(U,$J,358.3,33932,0)
 ;;=L97.426^^105^1423^206
 ;;^UTILITY(U,$J,358.3,33932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33932,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33932,1,4,0)
 ;;=4^L97.426
 ;;^UTILITY(U,$J,358.3,33932,2)
 ;;=^5151464
 ;;^UTILITY(U,$J,358.3,33933,0)
 ;;=L97.925^^105^1423^212
 ;;^UTILITY(U,$J,358.3,33933,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33933,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33933,1,4,0)
 ;;=4^L97.925
 ;;^UTILITY(U,$J,358.3,33933,2)
 ;;=^5151490
 ;;^UTILITY(U,$J,358.3,33934,0)
 ;;=L97.928^^105^1423^213
 ;;^UTILITY(U,$J,358.3,33934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33934,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33934,1,4,0)
 ;;=4^L97.928
 ;;^UTILITY(U,$J,358.3,33934,2)
 ;;=^5151492
 ;;^UTILITY(U,$J,358.3,33935,0)
 ;;=L97.126^^105^1423^219
 ;;^UTILITY(U,$J,358.3,33935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33935,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33935,1,4,0)
 ;;=4^L97.126
 ;;^UTILITY(U,$J,358.3,33935,2)
 ;;=^5151437
 ;;^UTILITY(U,$J,358.3,33936,0)
 ;;=L97.125^^105^1423^220
 ;;^UTILITY(U,$J,358.3,33936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33936,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33936,1,4,0)
 ;;=4^L97.125
 ;;^UTILITY(U,$J,358.3,33936,2)
 ;;=^5151436
 ;;^UTILITY(U,$J,358.3,33937,0)
 ;;=L97.128^^105^1423^221
 ;;^UTILITY(U,$J,358.3,33937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33937,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33937,1,4,0)
 ;;=4^L97.128
 ;;^UTILITY(U,$J,358.3,33937,2)
 ;;=^5151438
 ;;^UTILITY(U,$J,358.3,33938,0)
 ;;=L97.316^^105^1423^227
 ;;^UTILITY(U,$J,358.3,33938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33938,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33938,1,4,0)
 ;;=4^L97.316
 ;;^UTILITY(U,$J,358.3,33938,2)
 ;;=^5151452
 ;;^UTILITY(U,$J,358.3,33939,0)
 ;;=L97.315^^105^1423^228
 ;;^UTILITY(U,$J,358.3,33939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33939,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33939,1,4,0)
 ;;=4^L97.315
 ;;^UTILITY(U,$J,358.3,33939,2)
 ;;=^5151451
 ;;^UTILITY(U,$J,358.3,33940,0)
 ;;=L97.318^^105^1423^229
 ;;^UTILITY(U,$J,358.3,33940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33940,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33940,1,4,0)
 ;;=4^L97.318
 ;;^UTILITY(U,$J,358.3,33940,2)
 ;;=^5151453
 ;;^UTILITY(U,$J,358.3,33941,0)
 ;;=L97.216^^105^1423^235
 ;;^UTILITY(U,$J,358.3,33941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33941,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33941,1,4,0)
 ;;=4^L97.216
 ;;^UTILITY(U,$J,358.3,33941,2)
 ;;=^5151443
 ;;^UTILITY(U,$J,358.3,33942,0)
 ;;=L97.215^^105^1423^236
 ;;^UTILITY(U,$J,358.3,33942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33942,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33942,1,4,0)
 ;;=4^L97.215
 ;;^UTILITY(U,$J,358.3,33942,2)
 ;;=^5151442
 ;;^UTILITY(U,$J,358.3,33943,0)
 ;;=L97.218^^105^1423^237
 ;;^UTILITY(U,$J,358.3,33943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33943,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33943,1,4,0)
 ;;=4^L97.218
 ;;^UTILITY(U,$J,358.3,33943,2)
 ;;=^5151444
 ;;^UTILITY(U,$J,358.3,33944,0)
 ;;=L97.516^^105^1423^243
 ;;^UTILITY(U,$J,358.3,33944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33944,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33944,1,4,0)
 ;;=4^L97.516
 ;;^UTILITY(U,$J,358.3,33944,2)
 ;;=^5151470
 ;;^UTILITY(U,$J,358.3,33945,0)
 ;;=L97.515^^105^1423^244
 ;;^UTILITY(U,$J,358.3,33945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33945,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33945,1,4,0)
 ;;=4^L97.515
 ;;^UTILITY(U,$J,358.3,33945,2)
 ;;=^5151469
 ;;^UTILITY(U,$J,358.3,33946,0)
 ;;=L97.518^^105^1423^245
 ;;^UTILITY(U,$J,358.3,33946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33946,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33946,1,4,0)
 ;;=4^L97.518
 ;;^UTILITY(U,$J,358.3,33946,2)
 ;;=^5151471
 ;;^UTILITY(U,$J,358.3,33947,0)
 ;;=L97.416^^105^1423^251
 ;;^UTILITY(U,$J,358.3,33947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33947,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33947,1,4,0)
 ;;=4^L97.416
 ;;^UTILITY(U,$J,358.3,33947,2)
 ;;=^5151461
 ;;^UTILITY(U,$J,358.3,33948,0)
 ;;=L97.415^^105^1423^252
 ;;^UTILITY(U,$J,358.3,33948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33948,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33948,1,4,0)
 ;;=4^L97.415
 ;;^UTILITY(U,$J,358.3,33948,2)
 ;;=^5151460
 ;;^UTILITY(U,$J,358.3,33949,0)
 ;;=L97.418^^105^1423^253
 ;;^UTILITY(U,$J,358.3,33949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33949,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Hell/Midft w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33949,1,4,0)
 ;;=4^L97.418
 ;;^UTILITY(U,$J,358.3,33949,2)
 ;;=^5151462
 ;;^UTILITY(U,$J,358.3,33950,0)
 ;;=L97.916^^105^1423^259
 ;;^UTILITY(U,$J,358.3,33950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33950,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33950,1,4,0)
 ;;=4^L97.916
 ;;^UTILITY(U,$J,358.3,33950,2)
 ;;=^5151488
 ;;^UTILITY(U,$J,358.3,33951,0)
 ;;=L97.915^^105^1423^260
 ;;^UTILITY(U,$J,358.3,33951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33951,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33951,1,4,0)
 ;;=4^L97.915
 ;;^UTILITY(U,$J,358.3,33951,2)
 ;;=^5151487
 ;;^UTILITY(U,$J,358.3,33952,0)
 ;;=L97.918^^105^1423^261
 ;;^UTILITY(U,$J,358.3,33952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33952,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,33952,1,4,0)
 ;;=4^L97.918
 ;;^UTILITY(U,$J,358.3,33952,2)
 ;;=^5151489
 ;;^UTILITY(U,$J,358.3,33953,0)
 ;;=L97.116^^105^1423^267
 ;;^UTILITY(U,$J,358.3,33953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33953,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33953,1,4,0)
 ;;=4^L97.116
 ;;^UTILITY(U,$J,358.3,33953,2)
 ;;=^5151434
 ;;^UTILITY(U,$J,358.3,33954,0)
 ;;=L97.115^^105^1423^268
 ;;^UTILITY(U,$J,358.3,33954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33954,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,33954,1,4,0)
 ;;=4^L97.115
 ;;^UTILITY(U,$J,358.3,33954,2)
 ;;=^5151433
 ;;^UTILITY(U,$J,358.3,33955,0)
 ;;=L89.306^^105^1423^276
 ;;^UTILITY(U,$J,358.3,33955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33955,1,3,0)
 ;;=3^Pressure Induced Deep Tissue Damage,Unspec Buttock
 ;;^UTILITY(U,$J,358.3,33955,1,4,0)
 ;;=4^L89.306
 ;;^UTILITY(U,$J,358.3,33955,2)
 ;;=^5158088
 ;;^UTILITY(U,$J,358.3,33956,0)
 ;;=L89.46^^105^1423^275
 ;;^UTILITY(U,$J,358.3,33956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33956,1,3,0)
 ;;=3^Pressure Induced Deep Tissue Damage,Contig Site:Back/Buttock/Hip
 ;;^UTILITY(U,$J,358.3,33956,1,4,0)
 ;;=4^L89.46
 ;;^UTILITY(U,$J,358.3,33956,2)
 ;;=^5158091
 ;;^UTILITY(U,$J,358.3,33957,0)
 ;;=L02.818^^105^1423^128
 ;;^UTILITY(U,$J,358.3,33957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33957,1,3,0)
 ;;=3^Cutaneous Abscess of Other Sites
 ;;^UTILITY(U,$J,358.3,33957,1,4,0)
 ;;=4^L02.818
 ;;^UTILITY(U,$J,358.3,33957,2)
 ;;=^5009011
 ;;^UTILITY(U,$J,358.3,33958,0)
 ;;=H65.03^^105^1424^3
 ;;^UTILITY(U,$J,358.3,33958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33958,1,3,0)
 ;;=3^Acute Serous Otitis Media,Bilateral
 ;;^UTILITY(U,$J,358.3,33958,1,4,0)
 ;;=4^H65.03
 ;;^UTILITY(U,$J,358.3,33958,2)
 ;;=^5006572
 ;;^UTILITY(U,$J,358.3,33959,0)
 ;;=H65.01^^105^1424^5
 ;;^UTILITY(U,$J,358.3,33959,1,0)
 ;;=^358.31IA^4^2