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

IBDEI0DH.m

Go to the documentation of this file.
IBDEI0DH ; ; 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,33833,2)
 ;;=^5009391
 ;;^UTILITY(U,$J,358.3,33834,0)
 ;;=L89.303^^105^1423^279
 ;;^UTILITY(U,$J,358.3,33834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33834,1,3,0)
 ;;=3^Pressure Ulcer of Buttock,Stage 3
 ;;^UTILITY(U,$J,358.3,33834,1,4,0)
 ;;=4^L89.303
 ;;^UTILITY(U,$J,358.3,33834,2)
 ;;=^5009392
 ;;^UTILITY(U,$J,358.3,33835,0)
 ;;=L89.304^^105^1423^280
 ;;^UTILITY(U,$J,358.3,33835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33835,1,3,0)
 ;;=3^Pressure Ulcer of Buttock,Stage 4
 ;;^UTILITY(U,$J,358.3,33835,1,4,0)
 ;;=4^L89.304
 ;;^UTILITY(U,$J,358.3,33835,2)
 ;;=^5009393
 ;;^UTILITY(U,$J,358.3,33836,0)
 ;;=L89.309^^105^1423^281
 ;;^UTILITY(U,$J,358.3,33836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33836,1,3,0)
 ;;=3^Pressure Ulcer of Buttock,Stage Unspec
 ;;^UTILITY(U,$J,358.3,33836,1,4,0)
 ;;=4^L89.309
 ;;^UTILITY(U,$J,358.3,33836,2)
 ;;=^5133672
 ;;^UTILITY(U,$J,358.3,33837,0)
 ;;=L89.90^^105^1423^287
 ;;^UTILITY(U,$J,358.3,33837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33837,1,3,0)
 ;;=3^Pressure Ulcer of Unspec Site,Unspec Stage
 ;;^UTILITY(U,$J,358.3,33837,1,4,0)
 ;;=4^L89.90
 ;;^UTILITY(U,$J,358.3,33837,2)
 ;;=^5133666
 ;;^UTILITY(U,$J,358.3,33838,0)
 ;;=L89.91^^105^1423^283
 ;;^UTILITY(U,$J,358.3,33838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33838,1,3,0)
 ;;=3^Pressure Ulcer of Unspec Site,Stage 1
 ;;^UTILITY(U,$J,358.3,33838,1,4,0)
 ;;=4^L89.91
 ;;^UTILITY(U,$J,358.3,33838,2)
 ;;=^5133664
 ;;^UTILITY(U,$J,358.3,33839,0)
 ;;=L89.92^^105^1423^284
 ;;^UTILITY(U,$J,358.3,33839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33839,1,3,0)
 ;;=3^Pressure Ulcer of Unspec Site,Stage 2
 ;;^UTILITY(U,$J,358.3,33839,1,4,0)
 ;;=4^L89.92
 ;;^UTILITY(U,$J,358.3,33839,2)
 ;;=^5133667
 ;;^UTILITY(U,$J,358.3,33840,0)
 ;;=L89.93^^105^1423^285
 ;;^UTILITY(U,$J,358.3,33840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33840,1,3,0)
 ;;=3^Pressure Ulcer of Unspec Site,Stage 3
 ;;^UTILITY(U,$J,358.3,33840,1,4,0)
 ;;=4^L89.93
 ;;^UTILITY(U,$J,358.3,33840,2)
 ;;=^5133668
 ;;^UTILITY(U,$J,358.3,33841,0)
 ;;=L89.94^^105^1423^286
 ;;^UTILITY(U,$J,358.3,33841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33841,1,3,0)
 ;;=3^Pressure Ulcer of Unspec Site,Stage 4
 ;;^UTILITY(U,$J,358.3,33841,1,4,0)
 ;;=4^L89.94
 ;;^UTILITY(U,$J,358.3,33841,2)
 ;;=^5133669
 ;;^UTILITY(U,$J,358.3,33842,0)
 ;;=L89.95^^105^1423^288
 ;;^UTILITY(U,$J,358.3,33842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33842,1,3,0)
 ;;=3^Pressure Ulcer of Unspec Site,Unstageable
 ;;^UTILITY(U,$J,358.3,33842,1,4,0)
 ;;=4^L89.95
 ;;^UTILITY(U,$J,358.3,33842,2)
 ;;=^5133660
 ;;^UTILITY(U,$J,358.3,33843,0)
 ;;=L92.0^^105^1423^159
 ;;^UTILITY(U,$J,358.3,33843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33843,1,3,0)
 ;;=3^Granuloma Annulare
 ;;^UTILITY(U,$J,358.3,33843,1,4,0)
 ;;=4^L92.0
 ;;^UTILITY(U,$J,358.3,33843,2)
 ;;=^184052
 ;;^UTILITY(U,$J,358.3,33844,0)
 ;;=L95.1^^105^1423^146
 ;;^UTILITY(U,$J,358.3,33844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33844,1,3,0)
 ;;=3^Erythema Elevatum Diutinum
 ;;^UTILITY(U,$J,358.3,33844,1,4,0)
 ;;=4^L95.1
 ;;^UTILITY(U,$J,358.3,33844,2)
 ;;=^5009477
 ;;^UTILITY(U,$J,358.3,33845,0)
 ;;=L97.111^^105^1423^262
 ;;^UTILITY(U,$J,358.3,33845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33845,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33845,1,4,0)
 ;;=4^L97.111
 ;;^UTILITY(U,$J,358.3,33845,2)
 ;;=^5009485
 ;;^UTILITY(U,$J,358.3,33846,0)
 ;;=L97.112^^105^1423^263
 ;;^UTILITY(U,$J,358.3,33846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33846,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33846,1,4,0)
 ;;=4^L97.112
 ;;^UTILITY(U,$J,358.3,33846,2)
 ;;=^5009486
 ;;^UTILITY(U,$J,358.3,33847,0)
 ;;=L97.113^^105^1423^264
 ;;^UTILITY(U,$J,358.3,33847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33847,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33847,1,4,0)
 ;;=4^L97.113
 ;;^UTILITY(U,$J,358.3,33847,2)
 ;;=^5009487
 ;;^UTILITY(U,$J,358.3,33848,0)
 ;;=L97.114^^105^1423^265
 ;;^UTILITY(U,$J,358.3,33848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33848,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33848,1,4,0)
 ;;=4^L97.114
 ;;^UTILITY(U,$J,358.3,33848,2)
 ;;=^5009488
 ;;^UTILITY(U,$J,358.3,33849,0)
 ;;=L97.119^^105^1423^266
 ;;^UTILITY(U,$J,358.3,33849,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33849,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33849,1,4,0)
 ;;=4^L97.119
 ;;^UTILITY(U,$J,358.3,33849,2)
 ;;=^5009489
 ;;^UTILITY(U,$J,358.3,33850,0)
 ;;=L97.121^^105^1423^214
 ;;^UTILITY(U,$J,358.3,33850,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33850,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33850,1,4,0)
 ;;=4^L97.121
 ;;^UTILITY(U,$J,358.3,33850,2)
 ;;=^5009490
 ;;^UTILITY(U,$J,358.3,33851,0)
 ;;=L97.122^^105^1423^215
 ;;^UTILITY(U,$J,358.3,33851,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33851,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33851,1,4,0)
 ;;=4^L97.122
 ;;^UTILITY(U,$J,358.3,33851,2)
 ;;=^5009491
 ;;^UTILITY(U,$J,358.3,33852,0)
 ;;=L97.123^^105^1423^216
 ;;^UTILITY(U,$J,358.3,33852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33852,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33852,1,4,0)
 ;;=4^L97.123
 ;;^UTILITY(U,$J,358.3,33852,2)
 ;;=^5009492
 ;;^UTILITY(U,$J,358.3,33853,0)
 ;;=L97.124^^105^1423^217
 ;;^UTILITY(U,$J,358.3,33853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33853,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33853,1,4,0)
 ;;=4^L97.124
 ;;^UTILITY(U,$J,358.3,33853,2)
 ;;=^5009493
 ;;^UTILITY(U,$J,358.3,33854,0)
 ;;=L97.129^^105^1423^218
 ;;^UTILITY(U,$J,358.3,33854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33854,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33854,1,4,0)
 ;;=4^L97.129
 ;;^UTILITY(U,$J,358.3,33854,2)
 ;;=^5009494
 ;;^UTILITY(U,$J,358.3,33855,0)
 ;;=L97.211^^105^1423^230
 ;;^UTILITY(U,$J,358.3,33855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33855,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33855,1,4,0)
 ;;=4^L97.211
 ;;^UTILITY(U,$J,358.3,33855,2)
 ;;=^5009500
 ;;^UTILITY(U,$J,358.3,33856,0)
 ;;=L97.212^^105^1423^231
 ;;^UTILITY(U,$J,358.3,33856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33856,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33856,1,4,0)
 ;;=4^L97.212
 ;;^UTILITY(U,$J,358.3,33856,2)
 ;;=^5009501
 ;;^UTILITY(U,$J,358.3,33857,0)
 ;;=L97.213^^105^1423^232
 ;;^UTILITY(U,$J,358.3,33857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33857,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33857,1,4,0)
 ;;=4^L97.213
 ;;^UTILITY(U,$J,358.3,33857,2)
 ;;=^5009502
 ;;^UTILITY(U,$J,358.3,33858,0)
 ;;=L97.214^^105^1423^233
 ;;^UTILITY(U,$J,358.3,33858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33858,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33858,1,4,0)
 ;;=4^L97.214
 ;;^UTILITY(U,$J,358.3,33858,2)
 ;;=^5009503
 ;;^UTILITY(U,$J,358.3,33859,0)
 ;;=L97.219^^105^1423^234
 ;;^UTILITY(U,$J,358.3,33859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33859,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33859,1,4,0)
 ;;=4^L97.219
 ;;^UTILITY(U,$J,358.3,33859,2)
 ;;=^5009504
 ;;^UTILITY(U,$J,358.3,33860,0)
 ;;=L97.221^^105^1423^185
 ;;^UTILITY(U,$J,358.3,33860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33860,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33860,1,4,0)
 ;;=4^L97.221
 ;;^UTILITY(U,$J,358.3,33860,2)
 ;;=^5009505
 ;;^UTILITY(U,$J,358.3,33861,0)
 ;;=L97.222^^105^1423^186
 ;;^UTILITY(U,$J,358.3,33861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33861,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33861,1,4,0)
 ;;=4^L97.222
 ;;^UTILITY(U,$J,358.3,33861,2)
 ;;=^5009506
 ;;^UTILITY(U,$J,358.3,33862,0)
 ;;=L97.223^^105^1423^187
 ;;^UTILITY(U,$J,358.3,33862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33862,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33862,1,4,0)
 ;;=4^L97.223
 ;;^UTILITY(U,$J,358.3,33862,2)
 ;;=^5009507
 ;;^UTILITY(U,$J,358.3,33863,0)
 ;;=L97.224^^105^1423^188
 ;;^UTILITY(U,$J,358.3,33863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33863,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33863,1,4,0)
 ;;=4^L97.224
 ;;^UTILITY(U,$J,358.3,33863,2)
 ;;=^5009508
 ;;^UTILITY(U,$J,358.3,33864,0)
 ;;=L97.229^^105^1423^189
 ;;^UTILITY(U,$J,358.3,33864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33864,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33864,1,4,0)
 ;;=4^L97.229
 ;;^UTILITY(U,$J,358.3,33864,2)
 ;;=^5009509
 ;;^UTILITY(U,$J,358.3,33865,0)
 ;;=L97.311^^105^1423^222
 ;;^UTILITY(U,$J,358.3,33865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33865,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33865,1,4,0)
 ;;=4^L97.311
 ;;^UTILITY(U,$J,358.3,33865,2)
 ;;=^5009515
 ;;^UTILITY(U,$J,358.3,33866,0)
 ;;=L97.312^^105^1423^223
 ;;^UTILITY(U,$J,358.3,33866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33866,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33866,1,4,0)
 ;;=4^L97.312
 ;;^UTILITY(U,$J,358.3,33866,2)
 ;;=^5009516
 ;;^UTILITY(U,$J,358.3,33867,0)
 ;;=L97.313^^105^1423^224
 ;;^UTILITY(U,$J,358.3,33867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33867,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33867,1,4,0)
 ;;=4^L97.313
 ;;^UTILITY(U,$J,358.3,33867,2)
 ;;=^5009517
 ;;^UTILITY(U,$J,358.3,33868,0)
 ;;=L97.314^^105^1423^225
 ;;^UTILITY(U,$J,358.3,33868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33868,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33868,1,4,0)
 ;;=4^L97.314
 ;;^UTILITY(U,$J,358.3,33868,2)
 ;;=^5009518
 ;;^UTILITY(U,$J,358.3,33869,0)
 ;;=L97.319^^105^1423^226
 ;;^UTILITY(U,$J,358.3,33869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33869,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33869,1,4,0)
 ;;=4^L97.319
 ;;^UTILITY(U,$J,358.3,33869,2)
 ;;=^5009519
 ;;^UTILITY(U,$J,358.3,33870,0)
 ;;=L97.321^^105^1423^177
 ;;^UTILITY(U,$J,358.3,33870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33870,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33870,1,4,0)
 ;;=4^L97.321
 ;;^UTILITY(U,$J,358.3,33870,2)
 ;;=^5009520
 ;;^UTILITY(U,$J,358.3,33871,0)
 ;;=L97.322^^105^1423^178
 ;;^UTILITY(U,$J,358.3,33871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33871,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33871,1,4,0)
 ;;=4^L97.322
 ;;^UTILITY(U,$J,358.3,33871,2)
 ;;=^5009521
 ;;^UTILITY(U,$J,358.3,33872,0)
 ;;=L97.323^^105^1423^179
 ;;^UTILITY(U,$J,358.3,33872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33872,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33872,1,4,0)
 ;;=4^L97.323
 ;;^UTILITY(U,$J,358.3,33872,2)
 ;;=^5009522
 ;;^UTILITY(U,$J,358.3,33873,0)
 ;;=L97.324^^105^1423^180
 ;;^UTILITY(U,$J,358.3,33873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33873,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33873,1,4,0)
 ;;=4^L97.324
 ;;^UTILITY(U,$J,358.3,33873,2)
 ;;=^5009523
 ;;^UTILITY(U,$J,358.3,33874,0)
 ;;=L97.329^^105^1423^181
 ;;^UTILITY(U,$J,358.3,33874,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33874,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33874,1,4,0)
 ;;=4^L97.329
 ;;^UTILITY(U,$J,358.3,33874,2)
 ;;=^5009524
 ;;^UTILITY(U,$J,358.3,33875,0)
 ;;=L97.411^^105^1423^246
 ;;^UTILITY(U,$J,358.3,33875,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33875,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33875,1,4,0)
 ;;=4^L97.411
 ;;^UTILITY(U,$J,358.3,33875,2)
 ;;=^5009530
 ;;^UTILITY(U,$J,358.3,33876,0)
 ;;=L97.412^^105^1423^247
 ;;^UTILITY(U,$J,358.3,33876,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33876,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33876,1,4,0)
 ;;=4^L97.412
 ;;^UTILITY(U,$J,358.3,33876,2)
 ;;=^5009531
 ;;^UTILITY(U,$J,358.3,33877,0)
 ;;=L97.413^^105^1423^248
 ;;^UTILITY(U,$J,358.3,33877,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33877,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33877,1,4,0)
 ;;=4^L97.413
 ;;^UTILITY(U,$J,358.3,33877,2)
 ;;=^5009532
 ;;^UTILITY(U,$J,358.3,33878,0)
 ;;=L97.414^^105^1423^249
 ;;^UTILITY(U,$J,358.3,33878,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33878,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33878,1,4,0)
 ;;=4^L97.414
 ;;^UTILITY(U,$J,358.3,33878,2)
 ;;=^5009533
 ;;^UTILITY(U,$J,358.3,33879,0)
 ;;=L97.419^^105^1423^250
 ;;^UTILITY(U,$J,358.3,33879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33879,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33879,1,4,0)
 ;;=4^L97.419
 ;;^UTILITY(U,$J,358.3,33879,2)
 ;;=^5009534
 ;;^UTILITY(U,$J,358.3,33880,0)
 ;;=L97.421^^105^1423^201
 ;;^UTILITY(U,$J,358.3,33880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33880,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33880,1,4,0)
 ;;=4^L97.421
 ;;^UTILITY(U,$J,358.3,33880,2)
 ;;=^5009535
 ;;^UTILITY(U,$J,358.3,33881,0)
 ;;=L97.422^^105^1423^202
 ;;^UTILITY(U,$J,358.3,33881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33881,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33881,1,4,0)
 ;;=4^L97.422
 ;;^UTILITY(U,$J,358.3,33881,2)
 ;;=^5009536
 ;;^UTILITY(U,$J,358.3,33882,0)
 ;;=L97.423^^105^1423^203
 ;;^UTILITY(U,$J,358.3,33882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33882,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33882,1,4,0)
 ;;=4^L97.423
 ;;^UTILITY(U,$J,358.3,33882,2)
 ;;=^5009537
 ;;^UTILITY(U,$J,358.3,33883,0)
 ;;=L97.424^^105^1423^204
 ;;^UTILITY(U,$J,358.3,33883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33883,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33883,1,4,0)
 ;;=4^L97.424
 ;;^UTILITY(U,$J,358.3,33883,2)
 ;;=^5009538
 ;;^UTILITY(U,$J,358.3,33884,0)
 ;;=L97.429^^105^1423^205
 ;;^UTILITY(U,$J,358.3,33884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33884,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33884,1,4,0)
 ;;=4^L97.429
 ;;^UTILITY(U,$J,358.3,33884,2)
 ;;=^5009539
 ;;^UTILITY(U,$J,358.3,33885,0)
 ;;=L97.511^^105^1423^238
 ;;^UTILITY(U,$J,358.3,33885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33885,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33885,1,4,0)
 ;;=4^L97.511
 ;;^UTILITY(U,$J,358.3,33885,2)
 ;;=^5009545
 ;;^UTILITY(U,$J,358.3,33886,0)
 ;;=L97.512^^105^1423^239
 ;;^UTILITY(U,$J,358.3,33886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33886,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33886,1,4,0)
 ;;=4^L97.512
 ;;^UTILITY(U,$J,358.3,33886,2)
 ;;=^5009546
 ;;^UTILITY(U,$J,358.3,33887,0)
 ;;=L97.513^^105^1423^240
 ;;^UTILITY(U,$J,358.3,33887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33887,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33887,1,4,0)
 ;;=4^L97.513
 ;;^UTILITY(U,$J,358.3,33887,2)
 ;;=^5009547
 ;;^UTILITY(U,$J,358.3,33888,0)
 ;;=L97.514^^105^1423^241
 ;;^UTILITY(U,$J,358.3,33888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33888,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33888,1,4,0)
 ;;=4^L97.514
 ;;^UTILITY(U,$J,358.3,33888,2)
 ;;=^5009548
 ;;^UTILITY(U,$J,358.3,33889,0)
 ;;=L97.519^^105^1423^242
 ;;^UTILITY(U,$J,358.3,33889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33889,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33889,1,4,0)
 ;;=4^L97.519
 ;;^UTILITY(U,$J,358.3,33889,2)
 ;;=^5009549
 ;;^UTILITY(U,$J,358.3,33890,0)
 ;;=L97.521^^105^1423^193
 ;;^UTILITY(U,$J,358.3,33890,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33890,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33890,1,4,0)
 ;;=4^L97.521
 ;;^UTILITY(U,$J,358.3,33890,2)
 ;;=^5009550
 ;;^UTILITY(U,$J,358.3,33891,0)
 ;;=L97.522^^105^1423^194
 ;;^UTILITY(U,$J,358.3,33891,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33891,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,33891,1,4,0)
 ;;=4^L97.522
 ;;^UTILITY(U,$J,358.3,33891,2)
 ;;=^5009551
 ;;^UTILITY(U,$J,358.3,33892,0)
 ;;=L97.523^^105^1423^195
 ;;^UTILITY(U,$J,358.3,33892,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33892,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,33892,1,4,0)
 ;;=4^L97.523
 ;;^UTILITY(U,$J,358.3,33892,2)
 ;;=^5009552
 ;;^UTILITY(U,$J,358.3,33893,0)
 ;;=L97.524^^105^1423^196
 ;;^UTILITY(U,$J,358.3,33893,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33893,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,33893,1,4,0)
 ;;=4^L97.524
 ;;^UTILITY(U,$J,358.3,33893,2)
 ;;=^5009553
 ;;^UTILITY(U,$J,358.3,33894,0)
 ;;=L97.529^^105^1423^197
 ;;^UTILITY(U,$J,358.3,33894,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33894,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,33894,1,4,0)
 ;;=4^L97.529
 ;;^UTILITY(U,$J,358.3,33894,2)
 ;;=^5009554
 ;;^UTILITY(U,$J,358.3,33895,0)
 ;;=L97.911^^105^1423^254
 ;;^UTILITY(U,$J,358.3,33895,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33895,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,33895,1,4,0)
 ;;=4^L97.911
 ;;^UTILITY(U,$J,358.3,33895,2)
 ;;=^5133679
 ;;^UTILITY(U,$J,358.3,33896,0)
 ;;=L97.912^^105^1423^255
 ;;^UTILITY(U,$J,358.3,33896,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33896,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Lower Leg w/ Fat Layer Exposed