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

IBDEI09J.m

Go to the documentation of this file.
IBDEI09J ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,23040,0)
 ;;=L89.119^^106^1164^101
 ;;^UTILITY(U,$J,358.3,23040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23040,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23040,1,4,0)
 ;;=4^L89.119
 ;;^UTILITY(U,$J,358.3,23040,2)
 ;;=^5009357
 ;;^UTILITY(U,$J,358.3,23041,0)
 ;;=L89.120^^106^1164^54
 ;;^UTILITY(U,$J,358.3,23041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23041,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Unstageable
 ;;^UTILITY(U,$J,358.3,23041,1,4,0)
 ;;=4^L89.120
 ;;^UTILITY(U,$J,358.3,23041,2)
 ;;=^5009358
 ;;^UTILITY(U,$J,358.3,23042,0)
 ;;=L89.121^^106^1164^49
 ;;^UTILITY(U,$J,358.3,23042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23042,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 1
 ;;^UTILITY(U,$J,358.3,23042,1,4,0)
 ;;=4^L89.121
 ;;^UTILITY(U,$J,358.3,23042,2)
 ;;=^5009359
 ;;^UTILITY(U,$J,358.3,23043,0)
 ;;=L89.122^^106^1164^50
 ;;^UTILITY(U,$J,358.3,23043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23043,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 2
 ;;^UTILITY(U,$J,358.3,23043,1,4,0)
 ;;=4^L89.122
 ;;^UTILITY(U,$J,358.3,23043,2)
 ;;=^5009360
 ;;^UTILITY(U,$J,358.3,23044,0)
 ;;=L89.123^^106^1164^51
 ;;^UTILITY(U,$J,358.3,23044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23044,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 3
 ;;^UTILITY(U,$J,358.3,23044,1,4,0)
 ;;=4^L89.123
 ;;^UTILITY(U,$J,358.3,23044,2)
 ;;=^5009361
 ;;^UTILITY(U,$J,358.3,23045,0)
 ;;=L89.124^^106^1164^52
 ;;^UTILITY(U,$J,358.3,23045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23045,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 4
 ;;^UTILITY(U,$J,358.3,23045,1,4,0)
 ;;=4^L89.124
 ;;^UTILITY(U,$J,358.3,23045,2)
 ;;=^5009362
 ;;^UTILITY(U,$J,358.3,23046,0)
 ;;=L89.129^^106^1164^53
 ;;^UTILITY(U,$J,358.3,23046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23046,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23046,1,4,0)
 ;;=4^L89.129
 ;;^UTILITY(U,$J,358.3,23046,2)
 ;;=^5133652
 ;;^UTILITY(U,$J,358.3,23047,0)
 ;;=L89.130^^106^1164^96
 ;;^UTILITY(U,$J,358.3,23047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23047,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Unstageable
 ;;^UTILITY(U,$J,358.3,23047,1,4,0)
 ;;=4^L89.130
 ;;^UTILITY(U,$J,358.3,23047,2)
 ;;=^5009363
 ;;^UTILITY(U,$J,358.3,23048,0)
 ;;=L89.131^^106^1164^91
 ;;^UTILITY(U,$J,358.3,23048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23048,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 1
 ;;^UTILITY(U,$J,358.3,23048,1,4,0)
 ;;=4^L89.131
 ;;^UTILITY(U,$J,358.3,23048,2)
 ;;=^5009364
 ;;^UTILITY(U,$J,358.3,23049,0)
 ;;=L89.132^^106^1164^92
 ;;^UTILITY(U,$J,358.3,23049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23049,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 2
 ;;^UTILITY(U,$J,358.3,23049,1,4,0)
 ;;=4^L89.132
 ;;^UTILITY(U,$J,358.3,23049,2)
 ;;=^5009365
 ;;^UTILITY(U,$J,358.3,23050,0)
 ;;=L89.133^^106^1164^93
 ;;^UTILITY(U,$J,358.3,23050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23050,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 3
 ;;^UTILITY(U,$J,358.3,23050,1,4,0)
 ;;=4^L89.133
 ;;^UTILITY(U,$J,358.3,23050,2)
 ;;=^5009366
 ;;^UTILITY(U,$J,358.3,23051,0)
 ;;=L89.134^^106^1164^94
 ;;^UTILITY(U,$J,358.3,23051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23051,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 4
 ;;^UTILITY(U,$J,358.3,23051,1,4,0)
 ;;=4^L89.134
 ;;^UTILITY(U,$J,358.3,23051,2)
 ;;=^5009367
 ;;^UTILITY(U,$J,358.3,23052,0)
 ;;=L89.139^^106^1164^95
 ;;^UTILITY(U,$J,358.3,23052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23052,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23052,1,4,0)
 ;;=4^L89.139
 ;;^UTILITY(U,$J,358.3,23052,2)
 ;;=^5133653
 ;;^UTILITY(U,$J,358.3,23053,0)
 ;;=L89.140^^106^1164^48
 ;;^UTILITY(U,$J,358.3,23053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23053,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Unstageable
 ;;^UTILITY(U,$J,358.3,23053,1,4,0)
 ;;=4^L89.140
 ;;^UTILITY(U,$J,358.3,23053,2)
 ;;=^5133655
 ;;^UTILITY(U,$J,358.3,23054,0)
 ;;=L89.141^^106^1164^43
 ;;^UTILITY(U,$J,358.3,23054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23054,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 1
 ;;^UTILITY(U,$J,358.3,23054,1,4,0)
 ;;=4^L89.141
 ;;^UTILITY(U,$J,358.3,23054,2)
 ;;=^5133656
 ;;^UTILITY(U,$J,358.3,23055,0)
 ;;=L89.142^^106^1164^44
 ;;^UTILITY(U,$J,358.3,23055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23055,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 2
 ;;^UTILITY(U,$J,358.3,23055,1,4,0)
 ;;=4^L89.142
 ;;^UTILITY(U,$J,358.3,23055,2)
 ;;=^5133657
 ;;^UTILITY(U,$J,358.3,23056,0)
 ;;=L89.143^^106^1164^45
 ;;^UTILITY(U,$J,358.3,23056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23056,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 3
 ;;^UTILITY(U,$J,358.3,23056,1,4,0)
 ;;=4^L89.143
 ;;^UTILITY(U,$J,358.3,23056,2)
 ;;=^5133658
 ;;^UTILITY(U,$J,358.3,23057,0)
 ;;=L89.144^^106^1164^46
 ;;^UTILITY(U,$J,358.3,23057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23057,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 4
 ;;^UTILITY(U,$J,358.3,23057,1,4,0)
 ;;=4^L89.144
 ;;^UTILITY(U,$J,358.3,23057,2)
 ;;=^5133659
 ;;^UTILITY(U,$J,358.3,23058,0)
 ;;=L89.149^^106^1164^47
 ;;^UTILITY(U,$J,358.3,23058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23058,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23058,1,4,0)
 ;;=4^L89.149
 ;;^UTILITY(U,$J,358.3,23058,2)
 ;;=^5133654
 ;;^UTILITY(U,$J,358.3,23059,0)
 ;;=L89.150^^106^1164^108
 ;;^UTILITY(U,$J,358.3,23059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23059,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Unstageable
 ;;^UTILITY(U,$J,358.3,23059,1,4,0)
 ;;=4^L89.150
 ;;^UTILITY(U,$J,358.3,23059,2)
 ;;=^5009368
 ;;^UTILITY(U,$J,358.3,23060,0)
 ;;=L89.151^^106^1164^103
 ;;^UTILITY(U,$J,358.3,23060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23060,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 1
 ;;^UTILITY(U,$J,358.3,23060,1,4,0)
 ;;=4^L89.151
 ;;^UTILITY(U,$J,358.3,23060,2)
 ;;=^5009369
 ;;^UTILITY(U,$J,358.3,23061,0)
 ;;=L89.152^^106^1164^104
 ;;^UTILITY(U,$J,358.3,23061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23061,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 2
 ;;^UTILITY(U,$J,358.3,23061,1,4,0)
 ;;=4^L89.152
 ;;^UTILITY(U,$J,358.3,23061,2)
 ;;=^5009370
 ;;^UTILITY(U,$J,358.3,23062,0)
 ;;=L89.153^^106^1164^105
 ;;^UTILITY(U,$J,358.3,23062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23062,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 3
 ;;^UTILITY(U,$J,358.3,23062,1,4,0)
 ;;=4^L89.153
 ;;^UTILITY(U,$J,358.3,23062,2)
 ;;=^5009371
 ;;^UTILITY(U,$J,358.3,23063,0)
 ;;=L89.154^^106^1164^106
 ;;^UTILITY(U,$J,358.3,23063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23063,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 4
 ;;^UTILITY(U,$J,358.3,23063,1,4,0)
 ;;=4^L89.154
 ;;^UTILITY(U,$J,358.3,23063,2)
 ;;=^5009372
 ;;^UTILITY(U,$J,358.3,23064,0)
 ;;=L89.159^^106^1164^107
 ;;^UTILITY(U,$J,358.3,23064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23064,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23064,1,4,0)
 ;;=4^L89.159
 ;;^UTILITY(U,$J,358.3,23064,2)
 ;;=^5009373
 ;;^UTILITY(U,$J,358.3,23065,0)
 ;;=L89.210^^106^1164^90
 ;;^UTILITY(U,$J,358.3,23065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23065,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Unstageable
 ;;^UTILITY(U,$J,358.3,23065,1,4,0)
 ;;=4^L89.210
 ;;^UTILITY(U,$J,358.3,23065,2)
 ;;=^5009379
 ;;^UTILITY(U,$J,358.3,23066,0)
 ;;=L89.211^^106^1164^85
 ;;^UTILITY(U,$J,358.3,23066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23066,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 1
 ;;^UTILITY(U,$J,358.3,23066,1,4,0)
 ;;=4^L89.211
 ;;^UTILITY(U,$J,358.3,23066,2)
 ;;=^5009380
 ;;^UTILITY(U,$J,358.3,23067,0)
 ;;=L89.212^^106^1164^86
 ;;^UTILITY(U,$J,358.3,23067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23067,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 2
 ;;^UTILITY(U,$J,358.3,23067,1,4,0)
 ;;=4^L89.212
 ;;^UTILITY(U,$J,358.3,23067,2)
 ;;=^5009381
 ;;^UTILITY(U,$J,358.3,23068,0)
 ;;=L89.213^^106^1164^87
 ;;^UTILITY(U,$J,358.3,23068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23068,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 3
 ;;^UTILITY(U,$J,358.3,23068,1,4,0)
 ;;=4^L89.213
 ;;^UTILITY(U,$J,358.3,23068,2)
 ;;=^5009382
 ;;^UTILITY(U,$J,358.3,23069,0)
 ;;=L89.214^^106^1164^88
 ;;^UTILITY(U,$J,358.3,23069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23069,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 4
 ;;^UTILITY(U,$J,358.3,23069,1,4,0)
 ;;=4^L89.214
 ;;^UTILITY(U,$J,358.3,23069,2)
 ;;=^5009383
 ;;^UTILITY(U,$J,358.3,23070,0)
 ;;=L89.219^^106^1164^89
 ;;^UTILITY(U,$J,358.3,23070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23070,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23070,1,4,0)
 ;;=4^L89.219
 ;;^UTILITY(U,$J,358.3,23070,2)
 ;;=^5133661
 ;;^UTILITY(U,$J,358.3,23071,0)
 ;;=L89.220^^106^1164^42
 ;;^UTILITY(U,$J,358.3,23071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23071,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Unstageable
 ;;^UTILITY(U,$J,358.3,23071,1,4,0)
 ;;=4^L89.220
 ;;^UTILITY(U,$J,358.3,23071,2)
 ;;=^5009384
 ;;^UTILITY(U,$J,358.3,23072,0)
 ;;=L89.221^^106^1164^37
 ;;^UTILITY(U,$J,358.3,23072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23072,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 1
 ;;^UTILITY(U,$J,358.3,23072,1,4,0)
 ;;=4^L89.221
 ;;^UTILITY(U,$J,358.3,23072,2)
 ;;=^5009385
 ;;^UTILITY(U,$J,358.3,23073,0)
 ;;=L89.222^^106^1164^38
 ;;^UTILITY(U,$J,358.3,23073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23073,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 2
 ;;^UTILITY(U,$J,358.3,23073,1,4,0)
 ;;=4^L89.222
 ;;^UTILITY(U,$J,358.3,23073,2)
 ;;=^5009386
 ;;^UTILITY(U,$J,358.3,23074,0)
 ;;=L89.223^^106^1164^39
 ;;^UTILITY(U,$J,358.3,23074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23074,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 3
 ;;^UTILITY(U,$J,358.3,23074,1,4,0)
 ;;=4^L89.223
 ;;^UTILITY(U,$J,358.3,23074,2)
 ;;=^5009387
 ;;^UTILITY(U,$J,358.3,23075,0)
 ;;=L89.224^^106^1164^40
 ;;^UTILITY(U,$J,358.3,23075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23075,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 4
 ;;^UTILITY(U,$J,358.3,23075,1,4,0)
 ;;=4^L89.224
 ;;^UTILITY(U,$J,358.3,23075,2)
 ;;=^5009388
 ;;^UTILITY(U,$J,358.3,23076,0)
 ;;=L89.229^^106^1164^41
 ;;^UTILITY(U,$J,358.3,23076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23076,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23076,1,4,0)
 ;;=4^L89.229
 ;;^UTILITY(U,$J,358.3,23076,2)
 ;;=^5133662
 ;;^UTILITY(U,$J,358.3,23077,0)
 ;;=L89.310^^106^1164^72
 ;;^UTILITY(U,$J,358.3,23077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23077,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Unstageable
 ;;^UTILITY(U,$J,358.3,23077,1,4,0)
 ;;=4^L89.310
 ;;^UTILITY(U,$J,358.3,23077,2)
 ;;=^5009394
 ;;^UTILITY(U,$J,358.3,23078,0)
 ;;=L89.311^^106^1164^67
 ;;^UTILITY(U,$J,358.3,23078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23078,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 1
 ;;^UTILITY(U,$J,358.3,23078,1,4,0)
 ;;=4^L89.311
 ;;^UTILITY(U,$J,358.3,23078,2)
 ;;=^5009395
 ;;^UTILITY(U,$J,358.3,23079,0)
 ;;=L89.312^^106^1164^68
 ;;^UTILITY(U,$J,358.3,23079,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23079,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 2
 ;;^UTILITY(U,$J,358.3,23079,1,4,0)
 ;;=4^L89.312
 ;;^UTILITY(U,$J,358.3,23079,2)
 ;;=^5009396
 ;;^UTILITY(U,$J,358.3,23080,0)
 ;;=L89.313^^106^1164^69
 ;;^UTILITY(U,$J,358.3,23080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23080,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 3
 ;;^UTILITY(U,$J,358.3,23080,1,4,0)
 ;;=4^L89.313
 ;;^UTILITY(U,$J,358.3,23080,2)
 ;;=^5009397
 ;;^UTILITY(U,$J,358.3,23081,0)
 ;;=L89.314^^106^1164^70
 ;;^UTILITY(U,$J,358.3,23081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23081,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 4
 ;;^UTILITY(U,$J,358.3,23081,1,4,0)
 ;;=4^L89.314
 ;;^UTILITY(U,$J,358.3,23081,2)
 ;;=^5009398
 ;;^UTILITY(U,$J,358.3,23082,0)
 ;;=L89.319^^106^1164^71
 ;;^UTILITY(U,$J,358.3,23082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23082,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23082,1,4,0)
 ;;=4^L89.319
 ;;^UTILITY(U,$J,358.3,23082,2)
 ;;=^5133670
 ;;^UTILITY(U,$J,358.3,23083,0)
 ;;=L89.320^^106^1164^24
 ;;^UTILITY(U,$J,358.3,23083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23083,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Unstageable
 ;;^UTILITY(U,$J,358.3,23083,1,4,0)
 ;;=4^L89.320
 ;;^UTILITY(U,$J,358.3,23083,2)
 ;;=^5009399
 ;;^UTILITY(U,$J,358.3,23084,0)
 ;;=L89.321^^106^1164^19
 ;;^UTILITY(U,$J,358.3,23084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23084,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 1
 ;;^UTILITY(U,$J,358.3,23084,1,4,0)
 ;;=4^L89.321
 ;;^UTILITY(U,$J,358.3,23084,2)
 ;;=^5009400
 ;;^UTILITY(U,$J,358.3,23085,0)
 ;;=L89.322^^106^1164^20
 ;;^UTILITY(U,$J,358.3,23085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23085,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 2
 ;;^UTILITY(U,$J,358.3,23085,1,4,0)
 ;;=4^L89.322
 ;;^UTILITY(U,$J,358.3,23085,2)
 ;;=^5009401
 ;;^UTILITY(U,$J,358.3,23086,0)
 ;;=L89.323^^106^1164^21
 ;;^UTILITY(U,$J,358.3,23086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23086,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 3
 ;;^UTILITY(U,$J,358.3,23086,1,4,0)
 ;;=4^L89.323
 ;;^UTILITY(U,$J,358.3,23086,2)
 ;;=^5009402
 ;;^UTILITY(U,$J,358.3,23087,0)
 ;;=L89.324^^106^1164^22
 ;;^UTILITY(U,$J,358.3,23087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23087,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 4
 ;;^UTILITY(U,$J,358.3,23087,1,4,0)
 ;;=4^L89.324
 ;;^UTILITY(U,$J,358.3,23087,2)
 ;;=^5009403
 ;;^UTILITY(U,$J,358.3,23088,0)
 ;;=L89.329^^106^1164^23
 ;;^UTILITY(U,$J,358.3,23088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23088,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23088,1,4,0)
 ;;=4^L89.329
 ;;^UTILITY(U,$J,358.3,23088,2)
 ;;=^5133671
 ;;^UTILITY(U,$J,358.3,23089,0)
 ;;=L89.40^^106^1164^1
 ;;^UTILITY(U,$J,358.3,23089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23089,1,3,0)
 ;;=3^Pressure Ulcer Contiguous Site Back,Buttock & Hip,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23089,1,4,0)
 ;;=4^L89.40
 ;;^UTILITY(U,$J,358.3,23089,2)
 ;;=^5009404
 ;;^UTILITY(U,$J,358.3,23090,0)
 ;;=L89.41^^106^1164^2
 ;;^UTILITY(U,$J,358.3,23090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23090,1,3,0)
 ;;=3^Pressure Ulcer Contiguous Site Back,Buttock & Hip,Stage 1
 ;;^UTILITY(U,$J,358.3,23090,1,4,0)
 ;;=4^L89.41
 ;;^UTILITY(U,$J,358.3,23090,2)
 ;;=^5009405
 ;;^UTILITY(U,$J,358.3,23091,0)
 ;;=L89.42^^106^1164^3
 ;;^UTILITY(U,$J,358.3,23091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23091,1,3,0)
 ;;=3^Pressure Ulcer Contiguous Site Back,Buttock & Hip,Stage 2
 ;;^UTILITY(U,$J,358.3,23091,1,4,0)
 ;;=4^L89.42
 ;;^UTILITY(U,$J,358.3,23091,2)
 ;;=^5009406
 ;;^UTILITY(U,$J,358.3,23092,0)
 ;;=L89.43^^106^1164^4
 ;;^UTILITY(U,$J,358.3,23092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23092,1,3,0)
 ;;=3^Pressure Ulcer Contiguous Site Back,Buttock & Hip,Stage 3
 ;;^UTILITY(U,$J,358.3,23092,1,4,0)
 ;;=4^L89.43
 ;;^UTILITY(U,$J,358.3,23092,2)
 ;;=^5009407
 ;;^UTILITY(U,$J,358.3,23093,0)
 ;;=L89.44^^106^1164^5
 ;;^UTILITY(U,$J,358.3,23093,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23093,1,3,0)
 ;;=3^Pressure Ulcer Contiguous Site Back,Buttock & Hip,Stage 4
 ;;^UTILITY(U,$J,358.3,23093,1,4,0)
 ;;=4^L89.44
 ;;^UTILITY(U,$J,358.3,23093,2)
 ;;=^5009408
 ;;^UTILITY(U,$J,358.3,23094,0)
 ;;=L89.45^^106^1164^6
 ;;^UTILITY(U,$J,358.3,23094,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23094,1,3,0)
 ;;=3^Pressure Ulcer Contiguous Site Back,Buttock & Hip,Unstageable
 ;;^UTILITY(U,$J,358.3,23094,1,4,0)
 ;;=4^L89.45
 ;;^UTILITY(U,$J,358.3,23094,2)
 ;;=^5009409
 ;;^UTILITY(U,$J,358.3,23095,0)
 ;;=L89.510^^106^1164^66
 ;;^UTILITY(U,$J,358.3,23095,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23095,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Unstageable
 ;;^UTILITY(U,$J,358.3,23095,1,4,0)
 ;;=4^L89.510
 ;;^UTILITY(U,$J,358.3,23095,2)
 ;;=^5009415
 ;;^UTILITY(U,$J,358.3,23096,0)
 ;;=L89.511^^106^1164^61
 ;;^UTILITY(U,$J,358.3,23096,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23096,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 1
 ;;^UTILITY(U,$J,358.3,23096,1,4,0)
 ;;=4^L89.511
 ;;^UTILITY(U,$J,358.3,23096,2)
 ;;=^5009416
 ;;^UTILITY(U,$J,358.3,23097,0)
 ;;=L89.512^^106^1164^62
 ;;^UTILITY(U,$J,358.3,23097,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23097,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 2
 ;;^UTILITY(U,$J,358.3,23097,1,4,0)
 ;;=4^L89.512
 ;;^UTILITY(U,$J,358.3,23097,2)
 ;;=^5009417
 ;;^UTILITY(U,$J,358.3,23098,0)
 ;;=L89.513^^106^1164^63
 ;;^UTILITY(U,$J,358.3,23098,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23098,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 3
 ;;^UTILITY(U,$J,358.3,23098,1,4,0)
 ;;=4^L89.513
 ;;^UTILITY(U,$J,358.3,23098,2)
 ;;=^5009418
 ;;^UTILITY(U,$J,358.3,23099,0)
 ;;=L89.514^^106^1164^64
 ;;^UTILITY(U,$J,358.3,23099,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23099,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 4
 ;;^UTILITY(U,$J,358.3,23099,1,4,0)
 ;;=4^L89.514
 ;;^UTILITY(U,$J,358.3,23099,2)
 ;;=^5009419
 ;;^UTILITY(U,$J,358.3,23100,0)
 ;;=L89.519^^106^1164^65
 ;;^UTILITY(U,$J,358.3,23100,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23100,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage Unspec
 ;;^UTILITY(U,$J,358.3,23100,1,4,0)
 ;;=4^L89.519
 ;;^UTILITY(U,$J,358.3,23100,2)
 ;;=^5133673
 ;;^UTILITY(U,$J,358.3,23101,0)
 ;;=L89.520^^106^1164^18
 ;;^UTILITY(U,$J,358.3,23101,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23101,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Unstageable
 ;;^UTILITY(U,$J,358.3,23101,1,4,0)
 ;;=4^L89.520
 ;;^UTILITY(U,$J,358.3,23101,2)
 ;;=^5009420
 ;;^UTILITY(U,$J,358.3,23102,0)
 ;;=L89.521^^106^1164^13
 ;;^UTILITY(U,$J,358.3,23102,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23102,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 1
 ;;^UTILITY(U,$J,358.3,23102,1,4,0)
 ;;=4^L89.521
 ;;^UTILITY(U,$J,358.3,23102,2)
 ;;=^5009421
 ;;^UTILITY(U,$J,358.3,23103,0)
 ;;=L89.522^^106^1164^14
 ;;^UTILITY(U,$J,358.3,23103,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23103,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 2
 ;;^UTILITY(U,$J,358.3,23103,1,4,0)
 ;;=4^L89.522
 ;;^UTILITY(U,$J,358.3,23103,2)
 ;;=^5009422
 ;;^UTILITY(U,$J,358.3,23104,0)
 ;;=L89.523^^106^1164^15
 ;;^UTILITY(U,$J,358.3,23104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23104,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 3
 ;;^UTILITY(U,$J,358.3,23104,1,4,0)
 ;;=4^L89.523
 ;;^UTILITY(U,$J,358.3,23104,2)
 ;;=^5009423
 ;;^UTILITY(U,$J,358.3,23105,0)
 ;;=L89.524^^106^1164^16
 ;;^UTILITY(U,$J,358.3,23105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23105,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 4
 ;;^UTILITY(U,$J,358.3,23105,1,4,0)
 ;;=4^L89.524
 ;;^UTILITY(U,$J,358.3,23105,2)
 ;;=^5009424