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

IBDEI0AD.m

Go to the documentation of this file.
IBDEI0AD ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,25392,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 1
 ;;^UTILITY(U,$J,358.3,25392,1,4,0)
 ;;=4^L89.141
 ;;^UTILITY(U,$J,358.3,25392,2)
 ;;=^5133656
 ;;^UTILITY(U,$J,358.3,25393,0)
 ;;=L89.142^^77^1018^46
 ;;^UTILITY(U,$J,358.3,25393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25393,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 2
 ;;^UTILITY(U,$J,358.3,25393,1,4,0)
 ;;=4^L89.142
 ;;^UTILITY(U,$J,358.3,25393,2)
 ;;=^5133657
 ;;^UTILITY(U,$J,358.3,25394,0)
 ;;=L89.143^^77^1018^47
 ;;^UTILITY(U,$J,358.3,25394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25394,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 3
 ;;^UTILITY(U,$J,358.3,25394,1,4,0)
 ;;=4^L89.143
 ;;^UTILITY(U,$J,358.3,25394,2)
 ;;=Pressure Ulcer Left Lower Back,Stage 3^5133658
 ;;^UTILITY(U,$J,358.3,25395,0)
 ;;=L89.144^^77^1018^48
 ;;^UTILITY(U,$J,358.3,25395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25395,1,3,0)
 ;;=3^Pressure Ulcer Left Lower Back,Stage 4
 ;;^UTILITY(U,$J,358.3,25395,1,4,0)
 ;;=4^L89.144
 ;;^UTILITY(U,$J,358.3,25395,2)
 ;;=^5133659
 ;;^UTILITY(U,$J,358.3,25396,0)
 ;;=L89.210^^77^1018^86
 ;;^UTILITY(U,$J,358.3,25396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25396,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Unstageable
 ;;^UTILITY(U,$J,358.3,25396,1,4,0)
 ;;=4^L89.210
 ;;^UTILITY(U,$J,358.3,25396,2)
 ;;=^5009379
 ;;^UTILITY(U,$J,358.3,25397,0)
 ;;=L89.219^^77^1018^85
 ;;^UTILITY(U,$J,358.3,25397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25397,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25397,1,4,0)
 ;;=4^L89.219
 ;;^UTILITY(U,$J,358.3,25397,2)
 ;;=^5133661
 ;;^UTILITY(U,$J,358.3,25398,0)
 ;;=L89.211^^77^1018^81
 ;;^UTILITY(U,$J,358.3,25398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25398,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 1
 ;;^UTILITY(U,$J,358.3,25398,1,4,0)
 ;;=4^L89.211
 ;;^UTILITY(U,$J,358.3,25398,2)
 ;;=^5009380
 ;;^UTILITY(U,$J,358.3,25399,0)
 ;;=L89.212^^77^1018^82
 ;;^UTILITY(U,$J,358.3,25399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25399,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 2
 ;;^UTILITY(U,$J,358.3,25399,1,4,0)
 ;;=4^L89.212
 ;;^UTILITY(U,$J,358.3,25399,2)
 ;;=^5009381
 ;;^UTILITY(U,$J,358.3,25400,0)
 ;;=L89.213^^77^1018^83
 ;;^UTILITY(U,$J,358.3,25400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25400,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 3
 ;;^UTILITY(U,$J,358.3,25400,1,4,0)
 ;;=4^L89.213
 ;;^UTILITY(U,$J,358.3,25400,2)
 ;;=^5009382
 ;;^UTILITY(U,$J,358.3,25401,0)
 ;;=L89.214^^77^1018^84
 ;;^UTILITY(U,$J,358.3,25401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25401,1,3,0)
 ;;=3^Pressure Ulcer Right Hip,Stage 4
 ;;^UTILITY(U,$J,358.3,25401,1,4,0)
 ;;=4^L89.214
 ;;^UTILITY(U,$J,358.3,25401,2)
 ;;=^5009383
 ;;^UTILITY(U,$J,358.3,25402,0)
 ;;=L89.220^^77^1018^44
 ;;^UTILITY(U,$J,358.3,25402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25402,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Unstageable
 ;;^UTILITY(U,$J,358.3,25402,1,4,0)
 ;;=4^L89.220
 ;;^UTILITY(U,$J,358.3,25402,2)
 ;;=^5009384
 ;;^UTILITY(U,$J,358.3,25403,0)
 ;;=L89.229^^77^1018^43
 ;;^UTILITY(U,$J,358.3,25403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25403,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25403,1,4,0)
 ;;=4^L89.229
 ;;^UTILITY(U,$J,358.3,25403,2)
 ;;=^5133662
 ;;^UTILITY(U,$J,358.3,25404,0)
 ;;=L89.221^^77^1018^39
 ;;^UTILITY(U,$J,358.3,25404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25404,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 1
 ;;^UTILITY(U,$J,358.3,25404,1,4,0)
 ;;=4^L89.221
 ;;^UTILITY(U,$J,358.3,25404,2)
 ;;=^5009385
 ;;^UTILITY(U,$J,358.3,25405,0)
 ;;=L89.222^^77^1018^40
 ;;^UTILITY(U,$J,358.3,25405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25405,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 2
 ;;^UTILITY(U,$J,358.3,25405,1,4,0)
 ;;=4^L89.222
 ;;^UTILITY(U,$J,358.3,25405,2)
 ;;=^5009386
 ;;^UTILITY(U,$J,358.3,25406,0)
 ;;=L89.223^^77^1018^41
 ;;^UTILITY(U,$J,358.3,25406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25406,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 3
 ;;^UTILITY(U,$J,358.3,25406,1,4,0)
 ;;=4^L89.223
 ;;^UTILITY(U,$J,358.3,25406,2)
 ;;=^5009387
 ;;^UTILITY(U,$J,358.3,25407,0)
 ;;=L89.224^^77^1018^42
 ;;^UTILITY(U,$J,358.3,25407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25407,1,3,0)
 ;;=3^Pressure Ulcer Left Hip,Stage 4
 ;;^UTILITY(U,$J,358.3,25407,1,4,0)
 ;;=4^L89.224
 ;;^UTILITY(U,$J,358.3,25407,2)
 ;;=^5009388
 ;;^UTILITY(U,$J,358.3,25408,0)
 ;;=L89.310^^77^1018^68
 ;;^UTILITY(U,$J,358.3,25408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25408,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Unstageable
 ;;^UTILITY(U,$J,358.3,25408,1,4,0)
 ;;=4^L89.310
 ;;^UTILITY(U,$J,358.3,25408,2)
 ;;=^5009394
 ;;^UTILITY(U,$J,358.3,25409,0)
 ;;=L89.319^^77^1018^67
 ;;^UTILITY(U,$J,358.3,25409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25409,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25409,1,4,0)
 ;;=4^L89.319
 ;;^UTILITY(U,$J,358.3,25409,2)
 ;;=^5133670
 ;;^UTILITY(U,$J,358.3,25410,0)
 ;;=L89.311^^77^1018^63
 ;;^UTILITY(U,$J,358.3,25410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25410,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 1
 ;;^UTILITY(U,$J,358.3,25410,1,4,0)
 ;;=4^L89.311
 ;;^UTILITY(U,$J,358.3,25410,2)
 ;;=^5009395
 ;;^UTILITY(U,$J,358.3,25411,0)
 ;;=L89.312^^77^1018^64
 ;;^UTILITY(U,$J,358.3,25411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25411,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 2
 ;;^UTILITY(U,$J,358.3,25411,1,4,0)
 ;;=4^L89.312
 ;;^UTILITY(U,$J,358.3,25411,2)
 ;;=^5009396
 ;;^UTILITY(U,$J,358.3,25412,0)
 ;;=L89.313^^77^1018^65
 ;;^UTILITY(U,$J,358.3,25412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25412,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 3
 ;;^UTILITY(U,$J,358.3,25412,1,4,0)
 ;;=4^L89.313
 ;;^UTILITY(U,$J,358.3,25412,2)
 ;;=^5009397
 ;;^UTILITY(U,$J,358.3,25413,0)
 ;;=L89.314^^77^1018^66
 ;;^UTILITY(U,$J,358.3,25413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25413,1,3,0)
 ;;=3^Pressure Ulcer Right Buttock,Stage 4
 ;;^UTILITY(U,$J,358.3,25413,1,4,0)
 ;;=4^L89.314
 ;;^UTILITY(U,$J,358.3,25413,2)
 ;;=^5009398
 ;;^UTILITY(U,$J,358.3,25414,0)
 ;;=L89.320^^77^1018^26
 ;;^UTILITY(U,$J,358.3,25414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25414,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Unstageable
 ;;^UTILITY(U,$J,358.3,25414,1,4,0)
 ;;=4^L89.320
 ;;^UTILITY(U,$J,358.3,25414,2)
 ;;=^5009399
 ;;^UTILITY(U,$J,358.3,25415,0)
 ;;=L89.329^^77^1018^25
 ;;^UTILITY(U,$J,358.3,25415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25415,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25415,1,4,0)
 ;;=4^L89.329
 ;;^UTILITY(U,$J,358.3,25415,2)
 ;;=^5133671
 ;;^UTILITY(U,$J,358.3,25416,0)
 ;;=L89.321^^77^1018^21
 ;;^UTILITY(U,$J,358.3,25416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25416,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 1
 ;;^UTILITY(U,$J,358.3,25416,1,4,0)
 ;;=4^L89.321
 ;;^UTILITY(U,$J,358.3,25416,2)
 ;;=^5009400
 ;;^UTILITY(U,$J,358.3,25417,0)
 ;;=L89.322^^77^1018^22
 ;;^UTILITY(U,$J,358.3,25417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25417,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 2
 ;;^UTILITY(U,$J,358.3,25417,1,4,0)
 ;;=4^L89.322
 ;;^UTILITY(U,$J,358.3,25417,2)
 ;;=^5009401
 ;;^UTILITY(U,$J,358.3,25418,0)
 ;;=L89.323^^77^1018^23
 ;;^UTILITY(U,$J,358.3,25418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25418,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 3
 ;;^UTILITY(U,$J,358.3,25418,1,4,0)
 ;;=4^L89.323
 ;;^UTILITY(U,$J,358.3,25418,2)
 ;;=^5009402
 ;;^UTILITY(U,$J,358.3,25419,0)
 ;;=L89.324^^77^1018^24
 ;;^UTILITY(U,$J,358.3,25419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25419,1,3,0)
 ;;=3^Pressure Ulcer Left Buttock,Stage 4
 ;;^UTILITY(U,$J,358.3,25419,1,4,0)
 ;;=4^L89.324
 ;;^UTILITY(U,$J,358.3,25419,2)
 ;;=^5009403
 ;;^UTILITY(U,$J,358.3,25420,0)
 ;;=L89.510^^77^1018^62
 ;;^UTILITY(U,$J,358.3,25420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25420,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Unstageable
 ;;^UTILITY(U,$J,358.3,25420,1,4,0)
 ;;=4^L89.510
 ;;^UTILITY(U,$J,358.3,25420,2)
 ;;=^5009415
 ;;^UTILITY(U,$J,358.3,25421,0)
 ;;=L89.519^^77^1018^61
 ;;^UTILITY(U,$J,358.3,25421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25421,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25421,1,4,0)
 ;;=4^L89.519
 ;;^UTILITY(U,$J,358.3,25421,2)
 ;;=^5133673
 ;;^UTILITY(U,$J,358.3,25422,0)
 ;;=L89.511^^77^1018^57
 ;;^UTILITY(U,$J,358.3,25422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25422,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 1
 ;;^UTILITY(U,$J,358.3,25422,1,4,0)
 ;;=4^L89.511
 ;;^UTILITY(U,$J,358.3,25422,2)
 ;;=^5009416
 ;;^UTILITY(U,$J,358.3,25423,0)
 ;;=L89.512^^77^1018^58
 ;;^UTILITY(U,$J,358.3,25423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25423,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 2
 ;;^UTILITY(U,$J,358.3,25423,1,4,0)
 ;;=4^L89.512
 ;;^UTILITY(U,$J,358.3,25423,2)
 ;;=^5009417
 ;;^UTILITY(U,$J,358.3,25424,0)
 ;;=L89.513^^77^1018^59
 ;;^UTILITY(U,$J,358.3,25424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25424,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 3
 ;;^UTILITY(U,$J,358.3,25424,1,4,0)
 ;;=4^L89.513
 ;;^UTILITY(U,$J,358.3,25424,2)
 ;;=^5009418
 ;;^UTILITY(U,$J,358.3,25425,0)
 ;;=L89.514^^77^1018^60
 ;;^UTILITY(U,$J,358.3,25425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25425,1,3,0)
 ;;=3^Pressure Ulcer Right Ankle,Stage 4
 ;;^UTILITY(U,$J,358.3,25425,1,4,0)
 ;;=4^L89.514
 ;;^UTILITY(U,$J,358.3,25425,2)
 ;;=^5009419
 ;;^UTILITY(U,$J,358.3,25426,0)
 ;;=L89.520^^77^1018^20
 ;;^UTILITY(U,$J,358.3,25426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25426,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Unstageable
 ;;^UTILITY(U,$J,358.3,25426,1,4,0)
 ;;=4^L89.520
 ;;^UTILITY(U,$J,358.3,25426,2)
 ;;=^5009420
 ;;^UTILITY(U,$J,358.3,25427,0)
 ;;=L89.529^^77^1018^19
 ;;^UTILITY(U,$J,358.3,25427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25427,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25427,1,4,0)
 ;;=4^L89.529
 ;;^UTILITY(U,$J,358.3,25427,2)
 ;;=^5133674
 ;;^UTILITY(U,$J,358.3,25428,0)
 ;;=L89.521^^77^1018^15
 ;;^UTILITY(U,$J,358.3,25428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25428,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 1
 ;;^UTILITY(U,$J,358.3,25428,1,4,0)
 ;;=4^L89.521
 ;;^UTILITY(U,$J,358.3,25428,2)
 ;;=^5009421
 ;;^UTILITY(U,$J,358.3,25429,0)
 ;;=L89.522^^77^1018^16
 ;;^UTILITY(U,$J,358.3,25429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25429,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 2
 ;;^UTILITY(U,$J,358.3,25429,1,4,0)
 ;;=4^L89.522
 ;;^UTILITY(U,$J,358.3,25429,2)
 ;;=^5009422
 ;;^UTILITY(U,$J,358.3,25430,0)
 ;;=L89.523^^77^1018^17
 ;;^UTILITY(U,$J,358.3,25430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25430,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 3
 ;;^UTILITY(U,$J,358.3,25430,1,4,0)
 ;;=4^L89.523
 ;;^UTILITY(U,$J,358.3,25430,2)
 ;;=^5009423
 ;;^UTILITY(U,$J,358.3,25431,0)
 ;;=L89.524^^77^1018^18
 ;;^UTILITY(U,$J,358.3,25431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25431,1,3,0)
 ;;=3^Pressure Ulcer Left Ankle,Stage 4
 ;;^UTILITY(U,$J,358.3,25431,1,4,0)
 ;;=4^L89.524
 ;;^UTILITY(U,$J,358.3,25431,2)
 ;;=^5009424
 ;;^UTILITY(U,$J,358.3,25432,0)
 ;;=L89.610^^77^1018^80
 ;;^UTILITY(U,$J,358.3,25432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25432,1,3,0)
 ;;=3^Pressure Ulcer Right Heel,Unstageable
 ;;^UTILITY(U,$J,358.3,25432,1,4,0)
 ;;=4^L89.610
 ;;^UTILITY(U,$J,358.3,25432,2)
 ;;=^5009430
 ;;^UTILITY(U,$J,358.3,25433,0)
 ;;=L89.619^^77^1018^79
 ;;^UTILITY(U,$J,358.3,25433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25433,1,3,0)
 ;;=3^Pressure Ulcer Right Heel,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25433,1,4,0)
 ;;=4^L89.619
 ;;^UTILITY(U,$J,358.3,25433,2)
 ;;=^5133676
 ;;^UTILITY(U,$J,358.3,25434,0)
 ;;=L89.611^^77^1018^75
 ;;^UTILITY(U,$J,358.3,25434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25434,1,3,0)
 ;;=3^Pressure Ulcer Right Heel,Stage 1
 ;;^UTILITY(U,$J,358.3,25434,1,4,0)
 ;;=4^L89.611
 ;;^UTILITY(U,$J,358.3,25434,2)
 ;;=^5009431
 ;;^UTILITY(U,$J,358.3,25435,0)
 ;;=L89.612^^77^1018^76
 ;;^UTILITY(U,$J,358.3,25435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25435,1,3,0)
 ;;=3^Pressure Ulcer Right Heel,Stage 2
 ;;^UTILITY(U,$J,358.3,25435,1,4,0)
 ;;=4^L89.612
 ;;^UTILITY(U,$J,358.3,25435,2)
 ;;=^5009432
 ;;^UTILITY(U,$J,358.3,25436,0)
 ;;=L89.613^^77^1018^77
 ;;^UTILITY(U,$J,358.3,25436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25436,1,3,0)
 ;;=3^Pressure Ulcer Right Heel,Stage 3
 ;;^UTILITY(U,$J,358.3,25436,1,4,0)
 ;;=4^L89.613
 ;;^UTILITY(U,$J,358.3,25436,2)
 ;;=^5009433
 ;;^UTILITY(U,$J,358.3,25437,0)
 ;;=L89.614^^77^1018^78
 ;;^UTILITY(U,$J,358.3,25437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25437,1,3,0)
 ;;=3^Pressure Ulcer Right Heel,Stage 4
 ;;^UTILITY(U,$J,358.3,25437,1,4,0)
 ;;=4^L89.614
 ;;^UTILITY(U,$J,358.3,25437,2)
 ;;=^5009434
 ;;^UTILITY(U,$J,358.3,25438,0)
 ;;=L89.620^^77^1018^38
 ;;^UTILITY(U,$J,358.3,25438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25438,1,3,0)
 ;;=3^Pressure Ulcer Left Heel,Unstageable
 ;;^UTILITY(U,$J,358.3,25438,1,4,0)
 ;;=4^L89.620
 ;;^UTILITY(U,$J,358.3,25438,2)
 ;;=^5009435
 ;;^UTILITY(U,$J,358.3,25439,0)
 ;;=L89.629^^77^1018^37
 ;;^UTILITY(U,$J,358.3,25439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25439,1,3,0)
 ;;=3^Pressure Ulcer Left Heel,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25439,1,4,0)
 ;;=4^L89.629
 ;;^UTILITY(U,$J,358.3,25439,2)
 ;;=^5133677
 ;;^UTILITY(U,$J,358.3,25440,0)
 ;;=L89.621^^77^1018^33
 ;;^UTILITY(U,$J,358.3,25440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25440,1,3,0)
 ;;=3^Pressure Ulcer Left Heel,Stage 1
 ;;^UTILITY(U,$J,358.3,25440,1,4,0)
 ;;=4^L89.621
 ;;^UTILITY(U,$J,358.3,25440,2)
 ;;=^5009436
 ;;^UTILITY(U,$J,358.3,25441,0)
 ;;=L89.622^^77^1018^34
 ;;^UTILITY(U,$J,358.3,25441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25441,1,3,0)
 ;;=3^Pressure Ulcer Left Heel,Stage 2
 ;;^UTILITY(U,$J,358.3,25441,1,4,0)
 ;;=4^L89.622
 ;;^UTILITY(U,$J,358.3,25441,2)
 ;;=^5009437
 ;;^UTILITY(U,$J,358.3,25442,0)
 ;;=L89.623^^77^1018^35
 ;;^UTILITY(U,$J,358.3,25442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25442,1,3,0)
 ;;=3^Pressure Ulcer Left Heel,Stage 3
 ;;^UTILITY(U,$J,358.3,25442,1,4,0)
 ;;=4^L89.623
 ;;^UTILITY(U,$J,358.3,25442,2)
 ;;=^5009438
 ;;^UTILITY(U,$J,358.3,25443,0)
 ;;=L89.624^^77^1018^36
 ;;^UTILITY(U,$J,358.3,25443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25443,1,3,0)
 ;;=3^Pressure Ulcer Left Heel,Stage 4
 ;;^UTILITY(U,$J,358.3,25443,1,4,0)
 ;;=4^L89.624
 ;;^UTILITY(U,$J,358.3,25443,2)
 ;;=^5009439
 ;;^UTILITY(U,$J,358.3,25444,0)
 ;;=L89.899^^77^1018^99
 ;;^UTILITY(U,$J,358.3,25444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25444,1,3,0)
 ;;=3^Pressure Ulcer of Other Site,Stage Unspec
 ;;^UTILITY(U,$J,358.3,25444,1,4,0)
 ;;=4^L89.899
 ;;^UTILITY(U,$J,358.3,25444,2)
 ;;=^5133663
 ;;^UTILITY(U,$J,358.3,25445,0)
 ;;=L89.526^^77^1018^1
 ;;^UTILITY(U,$J,358.3,25445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25445,1,3,0)
 ;;=3^Pressure Induced DTI,Left Ankle
 ;;^UTILITY(U,$J,358.3,25445,1,4,0)
 ;;=4^L89.526
 ;;^UTILITY(U,$J,358.3,25445,2)
 ;;=^5158094
 ;;^UTILITY(U,$J,358.3,25446,0)
 ;;=L89.326^^77^1018^2
 ;;^UTILITY(U,$J,358.3,25446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25446,1,3,0)
 ;;=3^Pressure Induced DTI,Left Buttock
 ;;^UTILITY(U,$J,358.3,25446,1,4,0)
 ;;=4^L89.326
 ;;^UTILITY(U,$J,358.3,25446,2)
 ;;=^5158090
 ;;^UTILITY(U,$J,358.3,25447,0)
 ;;=L89.026^^77^1018^3
 ;;^UTILITY(U,$J,358.3,25447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25447,1,3,0)
 ;;=3^Pressure Induced DTI,Left Elbow
 ;;^UTILITY(U,$J,358.3,25447,1,4,0)
 ;;=4^L89.026
 ;;^UTILITY(U,$J,358.3,25447,2)
 ;;=^5158078
 ;;^UTILITY(U,$J,358.3,25448,0)
 ;;=L89.226^^77^1018^5
 ;;^UTILITY(U,$J,358.3,25448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25448,1,3,0)
 ;;=3^Pressure Induced DTI,Left Hip
 ;;^UTILITY(U,$J,358.3,25448,1,4,0)
 ;;=4^L89.226
 ;;^UTILITY(U,$J,358.3,25448,2)
 ;;=^5158087
 ;;^UTILITY(U,$J,358.3,25449,0)
 ;;=L89.626^^77^1018^4
 ;;^UTILITY(U,$J,358.3,25449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25449,1,3,0)
 ;;=3^Pressure Induced DTI,Left Heel
 ;;^UTILITY(U,$J,358.3,25449,1,4,0)
 ;;=4^L89.626
 ;;^UTILITY(U,$J,358.3,25449,2)
 ;;=^5158097
 ;;^UTILITY(U,$J,358.3,25450,0)
 ;;=L89.146^^77^1018^6
 ;;^UTILITY(U,$J,358.3,25450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25450,1,3,0)
 ;;=3^Pressure Induced DTI,Left Lower Back
 ;;^UTILITY(U,$J,358.3,25450,1,4,0)
 ;;=4^L89.146
 ;;^UTILITY(U,$J,358.3,25450,2)
 ;;=^5158083
 ;;^UTILITY(U,$J,358.3,25451,0)
 ;;=L89.126^^77^1018^7
 ;;^UTILITY(U,$J,358.3,25451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25451,1,3,0)
 ;;=3^Pressure Induced DTI,Left Upper Back
 ;;^UTILITY(U,$J,358.3,25451,1,4,0)
 ;;=4^L89.126
 ;;^UTILITY(U,$J,358.3,25451,2)
 ;;=^5158081
 ;;^UTILITY(U,$J,358.3,25452,0)
 ;;=L89.516^^77^1018^8
 ;;^UTILITY(U,$J,358.3,25452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25452,1,3,0)
 ;;=3^Pressure Induced DTI,Right Ankle
 ;;^UTILITY(U,$J,358.3,25452,1,4,0)
 ;;=4^L89.516
 ;;^UTILITY(U,$J,358.3,25452,2)
 ;;=^5158093
 ;;^UTILITY(U,$J,358.3,25453,0)
 ;;=L89.316^^77^1018^9
 ;;^UTILITY(U,$J,358.3,25453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25453,1,3,0)
 ;;=3^Pressure Induced DTI,Right Buttock
 ;;^UTILITY(U,$J,358.3,25453,1,4,0)
 ;;=4^L89.316
 ;;^UTILITY(U,$J,358.3,25453,2)
 ;;=^5158089
 ;;^UTILITY(U,$J,358.3,25454,0)
 ;;=L89.016^^77^1018^10
 ;;^UTILITY(U,$J,358.3,25454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25454,1,3,0)
 ;;=3^Pressure Induced DTI,Right Elbow
 ;;^UTILITY(U,$J,358.3,25454,1,4,0)
 ;;=4^L89.016
 ;;^UTILITY(U,$J,358.3,25454,2)
 ;;=^5158077
 ;;^UTILITY(U,$J,358.3,25455,0)
 ;;=L89.616^^77^1018^11
 ;;^UTILITY(U,$J,358.3,25455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25455,1,3,0)
 ;;=3^Pressure Induced DTI,Right Heel
 ;;^UTILITY(U,$J,358.3,25455,1,4,0)
 ;;=4^L89.616
 ;;^UTILITY(U,$J,358.3,25455,2)
 ;;=^5158096
 ;;^UTILITY(U,$J,358.3,25456,0)
 ;;=L89.216^^77^1018^12
 ;;^UTILITY(U,$J,358.3,25456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25456,1,3,0)
 ;;=3^Pressure Induced DTI,Right Hip
 ;;^UTILITY(U,$J,358.3,25456,1,4,0)
 ;;=4^L89.216
 ;;^UTILITY(U,$J,358.3,25456,2)
 ;;=^5158086
 ;;^UTILITY(U,$J,358.3,25457,0)
 ;;=L89.136^^77^1018^13
 ;;^UTILITY(U,$J,358.3,25457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25457,1,3,0)
 ;;=3^Pressure Induced DTI,Right Lower Back
 ;;^UTILITY(U,$J,358.3,25457,1,4,0)
 ;;=4^L89.136
 ;;^UTILITY(U,$J,358.3,25457,2)
 ;;=^5158082
 ;;^UTILITY(U,$J,358.3,25458,0)
 ;;=L89.116^^77^1018^14
 ;;^UTILITY(U,$J,358.3,25458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25458,1,3,0)
 ;;=3^Pressure Induced DTI,Right Upper Back
 ;;^UTILITY(U,$J,358.3,25458,1,4,0)
 ;;=4^L89.116
 ;;^UTILITY(U,$J,358.3,25458,2)
 ;;=^5158080
 ;;^UTILITY(U,$J,358.3,25459,0)
 ;;=Z59.1^^77^1019^13
 ;;^UTILITY(U,$J,358.3,25459,1,0)
 ;;=^358.31IA^4^2