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

IBDEI077.m

Go to the documentation of this file.
IBDEI077 ; ; 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,17509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17509,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Thigh w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17509,1,4,0)
 ;;=4^L97.124
 ;;^UTILITY(U,$J,358.3,17509,2)
 ;;=^5009493
 ;;^UTILITY(U,$J,358.3,17510,0)
 ;;=L97.125^^59^698^77
 ;;^UTILITY(U,$J,358.3,17510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17510,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Thigh w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17510,1,4,0)
 ;;=4^L97.125
 ;;^UTILITY(U,$J,358.3,17510,2)
 ;;=^5151436
 ;;^UTILITY(U,$J,358.3,17511,0)
 ;;=L97.126^^59^698^75
 ;;^UTILITY(U,$J,358.3,17511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17511,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17511,1,4,0)
 ;;=4^L97.126
 ;;^UTILITY(U,$J,358.3,17511,2)
 ;;=^5151437
 ;;^UTILITY(U,$J,358.3,17512,0)
 ;;=L97.128^^59^698^80
 ;;^UTILITY(U,$J,358.3,17512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17512,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Thigh w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17512,1,4,0)
 ;;=4^L97.128
 ;;^UTILITY(U,$J,358.3,17512,2)
 ;;=^5151438
 ;;^UTILITY(U,$J,358.3,17513,0)
 ;;=L97.311^^59^698^82
 ;;^UTILITY(U,$J,358.3,17513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17513,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle Limited to Brkdwn Skin
 ;;^UTILITY(U,$J,358.3,17513,1,4,0)
 ;;=4^L97.311
 ;;^UTILITY(U,$J,358.3,17513,2)
 ;;=^5009515
 ;;^UTILITY(U,$J,358.3,17514,0)
 ;;=L97.312^^59^698^84
 ;;^UTILITY(U,$J,358.3,17514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17514,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,17514,1,4,0)
 ;;=4^L97.312
 ;;^UTILITY(U,$J,358.3,17514,2)
 ;;=^5009516
 ;;^UTILITY(U,$J,358.3,17515,0)
 ;;=L97.313^^59^698^86
 ;;^UTILITY(U,$J,358.3,17515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17515,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,17515,1,4,0)
 ;;=4^L97.313
 ;;^UTILITY(U,$J,358.3,17515,2)
 ;;=^5009517
 ;;^UTILITY(U,$J,358.3,17516,0)
 ;;=L97.314^^59^698^87
 ;;^UTILITY(U,$J,358.3,17516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17516,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17516,1,4,0)
 ;;=4^L97.314
 ;;^UTILITY(U,$J,358.3,17516,2)
 ;;=^5009518
 ;;^UTILITY(U,$J,358.3,17517,0)
 ;;=L97.315^^59^698^85
 ;;^UTILITY(U,$J,358.3,17517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17517,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17517,1,4,0)
 ;;=4^L97.315
 ;;^UTILITY(U,$J,358.3,17517,2)
 ;;=^5151451
 ;;^UTILITY(U,$J,358.3,17518,0)
 ;;=L97.316^^59^698^83
 ;;^UTILITY(U,$J,358.3,17518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17518,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17518,1,4,0)
 ;;=4^L97.316
 ;;^UTILITY(U,$J,358.3,17518,2)
 ;;=^5151452
 ;;^UTILITY(U,$J,358.3,17519,0)
 ;;=L97.318^^59^698^88
 ;;^UTILITY(U,$J,358.3,17519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17519,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17519,1,4,0)
 ;;=4^L97.318
 ;;^UTILITY(U,$J,358.3,17519,2)
 ;;=^5151453
 ;;^UTILITY(U,$J,358.3,17520,0)
 ;;=L97.211^^59^698^90
 ;;^UTILITY(U,$J,358.3,17520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17520,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf Limited to Brkdwn Skin
 ;;^UTILITY(U,$J,358.3,17520,1,4,0)
 ;;=4^L97.211
 ;;^UTILITY(U,$J,358.3,17520,2)
 ;;=^5009500
 ;;^UTILITY(U,$J,358.3,17521,0)
 ;;=L97.212^^59^698^92
 ;;^UTILITY(U,$J,358.3,17521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17521,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,17521,1,4,0)
 ;;=4^L97.212
 ;;^UTILITY(U,$J,358.3,17521,2)
 ;;=^5009501
 ;;^UTILITY(U,$J,358.3,17522,0)
 ;;=L97.213^^59^698^94
 ;;^UTILITY(U,$J,358.3,17522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17522,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,17522,1,4,0)
 ;;=4^L97.213
 ;;^UTILITY(U,$J,358.3,17522,2)
 ;;=^5009502
 ;;^UTILITY(U,$J,358.3,17523,0)
 ;;=L97.214^^59^698^95
 ;;^UTILITY(U,$J,358.3,17523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17523,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17523,1,4,0)
 ;;=4^L97.214
 ;;^UTILITY(U,$J,358.3,17523,2)
 ;;=^5009503
 ;;^UTILITY(U,$J,358.3,17524,0)
 ;;=L97.215^^59^698^93
 ;;^UTILITY(U,$J,358.3,17524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17524,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17524,1,4,0)
 ;;=4^L97.215
 ;;^UTILITY(U,$J,358.3,17524,2)
 ;;=^5151442
 ;;^UTILITY(U,$J,358.3,17525,0)
 ;;=L97.216^^59^698^91
 ;;^UTILITY(U,$J,358.3,17525,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17525,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17525,1,4,0)
 ;;=4^L97.216
 ;;^UTILITY(U,$J,358.3,17525,2)
 ;;=^5151443
 ;;^UTILITY(U,$J,358.3,17526,0)
 ;;=L97.218^^59^698^96
 ;;^UTILITY(U,$J,358.3,17526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17526,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17526,1,4,0)
 ;;=4^L97.218
 ;;^UTILITY(U,$J,358.3,17526,2)
 ;;=^5151444
 ;;^UTILITY(U,$J,358.3,17527,0)
 ;;=L97.511^^59^698^99
 ;;^UTILITY(U,$J,358.3,17527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17527,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part Limited to Brkdwn Skin
 ;;^UTILITY(U,$J,358.3,17527,1,4,0)
 ;;=4^L97.511
 ;;^UTILITY(U,$J,358.3,17527,2)
 ;;=^5009545
 ;;^UTILITY(U,$J,358.3,17528,0)
 ;;=L97.512^^59^698^100
 ;;^UTILITY(U,$J,358.3,17528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17528,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,17528,1,4,0)
 ;;=4^L97.512
 ;;^UTILITY(U,$J,358.3,17528,2)
 ;;=^5009546
 ;;^UTILITY(U,$J,358.3,17529,0)
 ;;=L97.513^^59^698^101
 ;;^UTILITY(U,$J,358.3,17529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17529,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,17529,1,4,0)
 ;;=4^L97.513
 ;;^UTILITY(U,$J,358.3,17529,2)
 ;;=^5009547
 ;;^UTILITY(U,$J,358.3,17530,0)
 ;;=L97.514^^59^698^102
 ;;^UTILITY(U,$J,358.3,17530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17530,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17530,1,4,0)
 ;;=4^L97.514
 ;;^UTILITY(U,$J,358.3,17530,2)
 ;;=^5009548
 ;;^UTILITY(U,$J,358.3,17531,0)
 ;;=L97.515^^59^698^103
 ;;^UTILITY(U,$J,358.3,17531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17531,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17531,1,4,0)
 ;;=4^L97.515
 ;;^UTILITY(U,$J,358.3,17531,2)
 ;;=^5151469
 ;;^UTILITY(U,$J,358.3,17532,0)
 ;;=L97.516^^59^698^104
 ;;^UTILITY(U,$J,358.3,17532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17532,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17532,1,4,0)
 ;;=4^L97.516
 ;;^UTILITY(U,$J,358.3,17532,2)
 ;;=^5151470
 ;;^UTILITY(U,$J,358.3,17533,0)
 ;;=L97.518^^59^698^105
 ;;^UTILITY(U,$J,358.3,17533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17533,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17533,1,4,0)
 ;;=4^L97.518
 ;;^UTILITY(U,$J,358.3,17533,2)
 ;;=^5151471
 ;;^UTILITY(U,$J,358.3,17534,0)
 ;;=L97.411^^59^698^106
 ;;^UTILITY(U,$J,358.3,17534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17534,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft Limited to Brkdwn of Skin
 ;;^UTILITY(U,$J,358.3,17534,1,4,0)
 ;;=4^L97.411
 ;;^UTILITY(U,$J,358.3,17534,2)
 ;;=^5009530
 ;;^UTILITY(U,$J,358.3,17535,0)
 ;;=L97.412^^59^698^107
 ;;^UTILITY(U,$J,358.3,17535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17535,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,17535,1,4,0)
 ;;=4^L97.412
 ;;^UTILITY(U,$J,358.3,17535,2)
 ;;=^5009531
 ;;^UTILITY(U,$J,358.3,17536,0)
 ;;=L97.413^^59^698^108
 ;;^UTILITY(U,$J,358.3,17536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17536,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,17536,1,4,0)
 ;;=4^L97.413
 ;;^UTILITY(U,$J,358.3,17536,2)
 ;;=^5009532
 ;;^UTILITY(U,$J,358.3,17537,0)
 ;;=L97.414^^59^698^109
 ;;^UTILITY(U,$J,358.3,17537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17537,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17537,1,4,0)
 ;;=4^L97.414
 ;;^UTILITY(U,$J,358.3,17537,2)
 ;;=^5009533
 ;;^UTILITY(U,$J,358.3,17538,0)
 ;;=L97.415^^59^698^110
 ;;^UTILITY(U,$J,358.3,17538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17538,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17538,1,4,0)
 ;;=4^L97.415
 ;;^UTILITY(U,$J,358.3,17538,2)
 ;;=^5151460
 ;;^UTILITY(U,$J,358.3,17539,0)
 ;;=L97.416^^59^698^111
 ;;^UTILITY(U,$J,358.3,17539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17539,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17539,1,4,0)
 ;;=4^L97.416
 ;;^UTILITY(U,$J,358.3,17539,2)
 ;;=^5151461
 ;;^UTILITY(U,$J,358.3,17540,0)
 ;;=L97.418^^59^698^112
 ;;^UTILITY(U,$J,358.3,17540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17540,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17540,1,4,0)
 ;;=4^L97.418
 ;;^UTILITY(U,$J,358.3,17540,2)
 ;;=^5151462
 ;;^UTILITY(U,$J,358.3,17541,0)
 ;;=L97.911^^59^698^114
 ;;^UTILITY(U,$J,358.3,17541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17541,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL Limited to Brkdwn of Skin
 ;;^UTILITY(U,$J,358.3,17541,1,4,0)
 ;;=4^L97.911
 ;;^UTILITY(U,$J,358.3,17541,2)
 ;;=^5133679
 ;;^UTILITY(U,$J,358.3,17542,0)
 ;;=L97.912^^59^698^116
 ;;^UTILITY(U,$J,358.3,17542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17542,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,17542,1,4,0)
 ;;=4^L97.912
 ;;^UTILITY(U,$J,358.3,17542,2)
 ;;=^5133681
 ;;^UTILITY(U,$J,358.3,17543,0)
 ;;=L97.913^^59^698^118
 ;;^UTILITY(U,$J,358.3,17543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17543,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,17543,1,4,0)
 ;;=4^L97.913
 ;;^UTILITY(U,$J,358.3,17543,2)
 ;;=^5133683
 ;;^UTILITY(U,$J,358.3,17544,0)
 ;;=L97.914^^59^698^119
 ;;^UTILITY(U,$J,358.3,17544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17544,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17544,1,4,0)
 ;;=4^L97.914
 ;;^UTILITY(U,$J,358.3,17544,2)
 ;;=^5133685
 ;;^UTILITY(U,$J,358.3,17545,0)
 ;;=L97.915^^59^698^117
 ;;^UTILITY(U,$J,358.3,17545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17545,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17545,1,4,0)
 ;;=4^L97.915
 ;;^UTILITY(U,$J,358.3,17545,2)
 ;;=^5151487
 ;;^UTILITY(U,$J,358.3,17546,0)
 ;;=L97.916^^59^698^115
 ;;^UTILITY(U,$J,358.3,17546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17546,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17546,1,4,0)
 ;;=4^L97.916
 ;;^UTILITY(U,$J,358.3,17546,2)
 ;;=^5151488
 ;;^UTILITY(U,$J,358.3,17547,0)
 ;;=L97.918^^59^698^120
 ;;^UTILITY(U,$J,358.3,17547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17547,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt LL w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17547,1,4,0)
 ;;=4^L97.918
 ;;^UTILITY(U,$J,358.3,17547,2)
 ;;=^5151489
 ;;^UTILITY(U,$J,358.3,17548,0)
 ;;=L97.111^^59^698^122
 ;;^UTILITY(U,$J,358.3,17548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17548,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh Limited to Brkdwn of Skin
 ;;^UTILITY(U,$J,358.3,17548,1,4,0)
 ;;=4^L97.111
 ;;^UTILITY(U,$J,358.3,17548,2)
 ;;=^5009485
 ;;^UTILITY(U,$J,358.3,17549,0)
 ;;=L97.112^^59^698^124
 ;;^UTILITY(U,$J,358.3,17549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17549,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,17549,1,4,0)
 ;;=4^L97.112
 ;;^UTILITY(U,$J,358.3,17549,2)
 ;;=^5009486
 ;;^UTILITY(U,$J,358.3,17550,0)
 ;;=L97.113^^59^698^126
 ;;^UTILITY(U,$J,358.3,17550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17550,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,17550,1,4,0)
 ;;=4^L97.113
 ;;^UTILITY(U,$J,358.3,17550,2)
 ;;=^5009487
 ;;^UTILITY(U,$J,358.3,17551,0)
 ;;=L97.114^^59^698^127
 ;;^UTILITY(U,$J,358.3,17551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17551,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,17551,1,4,0)
 ;;=4^L97.114
 ;;^UTILITY(U,$J,358.3,17551,2)
 ;;=^5009488
 ;;^UTILITY(U,$J,358.3,17552,0)
 ;;=L97.115^^59^698^125
 ;;^UTILITY(U,$J,358.3,17552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17552,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17552,1,4,0)
 ;;=4^L97.115
 ;;^UTILITY(U,$J,358.3,17552,2)
 ;;=^5151433
 ;;^UTILITY(U,$J,358.3,17553,0)
 ;;=L97.116^^59^698^123
 ;;^UTILITY(U,$J,358.3,17553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17553,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,17553,1,4,0)
 ;;=4^L97.116
 ;;^UTILITY(U,$J,358.3,17553,2)
 ;;=^5151434
 ;;^UTILITY(U,$J,358.3,17554,0)
 ;;=L97.118^^59^698^128
 ;;^UTILITY(U,$J,358.3,17554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17554,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,17554,1,4,0)
 ;;=4^L97.118
 ;;^UTILITY(U,$J,358.3,17554,2)
 ;;=^5151435
 ;;^UTILITY(U,$J,358.3,17555,0)
 ;;=B00.9^^59^699^30
 ;;^UTILITY(U,$J,358.3,17555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17555,1,3,0)
 ;;=3^Herpes Simplex Infection NOS
 ;;^UTILITY(U,$J,358.3,17555,1,4,0)
 ;;=4^B00.9
 ;;^UTILITY(U,$J,358.3,17555,2)
 ;;=^5000480
 ;;^UTILITY(U,$J,358.3,17556,0)
 ;;=K59.00^^59^699^13
 ;;^UTILITY(U,$J,358.3,17556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17556,1,3,0)
 ;;=3^Constipation,Unspec
 ;;^UTILITY(U,$J,358.3,17556,1,4,0)
 ;;=4^K59.00
 ;;^UTILITY(U,$J,358.3,17556,2)
 ;;=^323537
 ;;^UTILITY(U,$J,358.3,17557,0)
 ;;=R42.^^59^699^21
 ;;^UTILITY(U,$J,358.3,17557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17557,1,3,0)
 ;;=3^Dizziness and Giddiness
 ;;^UTILITY(U,$J,358.3,17557,1,4,0)
 ;;=4^R42.
 ;;^UTILITY(U,$J,358.3,17557,2)
 ;;=^5019450
 ;;^UTILITY(U,$J,358.3,17558,0)
 ;;=G47.00^^59^699^31
 ;;^UTILITY(U,$J,358.3,17558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17558,1,3,0)
 ;;=3^Insomnia,Unspec
 ;;^UTILITY(U,$J,358.3,17558,1,4,0)
 ;;=4^G47.00
 ;;^UTILITY(U,$J,358.3,17558,2)
 ;;=^332924
 ;;^UTILITY(U,$J,358.3,17559,0)
 ;;=G47.30^^59^699^44
 ;;^UTILITY(U,$J,358.3,17559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17559,1,3,0)
 ;;=3^Sleep Apnea,Unspec
 ;;^UTILITY(U,$J,358.3,17559,1,4,0)
 ;;=4^G47.30
 ;;^UTILITY(U,$J,358.3,17559,2)
 ;;=^5003977
 ;;^UTILITY(U,$J,358.3,17560,0)
 ;;=R50.9^^59^699^27
 ;;^UTILITY(U,$J,358.3,17560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17560,1,3,0)
 ;;=3^Fever,Unspec
 ;;^UTILITY(U,$J,358.3,17560,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,17560,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,17561,0)
 ;;=R50.82^^59^699^37
 ;;^UTILITY(U,$J,358.3,17561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17561,1,3,0)
 ;;=3^Postprocedural Fever
 ;;^UTILITY(U,$J,358.3,17561,1,4,0)
 ;;=4^R50.82
 ;;^UTILITY(U,$J,358.3,17561,2)
 ;;=^5019509
 ;;^UTILITY(U,$J,358.3,17562,0)
 ;;=R50.83^^59^699^38
 ;;^UTILITY(U,$J,358.3,17562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17562,1,3,0)
 ;;=3^Postvaccination Fever
 ;;^UTILITY(U,$J,358.3,17562,1,4,0)
 ;;=4^R50.83
 ;;^UTILITY(U,$J,358.3,17562,2)
 ;;=^5019510
 ;;^UTILITY(U,$J,358.3,17563,0)
 ;;=R68.83^^59^699^11
 ;;^UTILITY(U,$J,358.3,17563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17563,1,3,0)
 ;;=3^Chills w/o Fever
 ;;^UTILITY(U,$J,358.3,17563,1,4,0)
 ;;=4^R68.83
 ;;^UTILITY(U,$J,358.3,17563,2)
 ;;=^5019555
 ;;^UTILITY(U,$J,358.3,17564,0)
 ;;=R53.81^^59^699^32
 ;;^UTILITY(U,$J,358.3,17564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17564,1,3,0)
 ;;=3^Malaise NOS
 ;;^UTILITY(U,$J,358.3,17564,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,17564,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,17565,0)
 ;;=R53.83^^59^699^26
 ;;^UTILITY(U,$J,358.3,17565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17565,1,3,0)
 ;;=3^Fatigue NOS
 ;;^UTILITY(U,$J,358.3,17565,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,17565,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,17566,0)
 ;;=G93.3^^59^699^39
 ;;^UTILITY(U,$J,358.3,17566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17566,1,3,0)
 ;;=3^Postviral Fatigue Syndrome
 ;;^UTILITY(U,$J,358.3,17566,1,4,0)
 ;;=4^G93.3
 ;;^UTILITY(U,$J,358.3,17566,2)
 ;;=^5004181
 ;;^UTILITY(U,$J,358.3,17567,0)
 ;;=R53.1^^59^699^51
 ;;^UTILITY(U,$J,358.3,17567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17567,1,3,0)
 ;;=3^Weakness
 ;;^UTILITY(U,$J,358.3,17567,1,4,0)
 ;;=4^R53.1
 ;;^UTILITY(U,$J,358.3,17567,2)
 ;;=^5019516
 ;;^UTILITY(U,$J,358.3,17568,0)
 ;;=R60.9^^59^699^24
 ;;^UTILITY(U,$J,358.3,17568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17568,1,3,0)
 ;;=3^Edema,Unspec
 ;;^UTILITY(U,$J,358.3,17568,1,4,0)
 ;;=4^R60.9
 ;;^UTILITY(U,$J,358.3,17568,2)
 ;;=^5019534
 ;;^UTILITY(U,$J,358.3,17569,0)
 ;;=R60.1^^59^699^22
 ;;^UTILITY(U,$J,358.3,17569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17569,1,3,0)
 ;;=3^Edema,Generalized
 ;;^UTILITY(U,$J,358.3,17569,1,4,0)
 ;;=4^R60.1
 ;;^UTILITY(U,$J,358.3,17569,2)
 ;;=^5019533
 ;;^UTILITY(U,$J,358.3,17570,0)
 ;;=R60.0^^59^699^23
 ;;^UTILITY(U,$J,358.3,17570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17570,1,3,0)
 ;;=3^Edema,Localized
 ;;^UTILITY(U,$J,358.3,17570,1,4,0)
 ;;=4^R60.0
 ;;^UTILITY(U,$J,358.3,17570,2)
 ;;=^5019532
 ;;^UTILITY(U,$J,358.3,17571,0)
 ;;=R63.4^^59^699^6
 ;;^UTILITY(U,$J,358.3,17571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17571,1,3,0)
 ;;=3^Abnormal Weight Loss
 ;;^UTILITY(U,$J,358.3,17571,1,4,0)
 ;;=4^R63.4
 ;;^UTILITY(U,$J,358.3,17571,2)
 ;;=^5019542
 ;;^UTILITY(U,$J,358.3,17572,0)
 ;;=R63.6^^59^699^48
 ;;^UTILITY(U,$J,358.3,17572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17572,1,3,0)
 ;;=3^Underweight
 ;;^UTILITY(U,$J,358.3,17572,1,4,0)
 ;;=4^R63.6
 ;;^UTILITY(U,$J,358.3,17572,2)
 ;;=^322007
 ;;^UTILITY(U,$J,358.3,17573,0)
 ;;=R07.9^^59^699^10
 ;;^UTILITY(U,$J,358.3,17573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17573,1,3,0)
 ;;=3^Chest Pain,Unspec
 ;;^UTILITY(U,$J,358.3,17573,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,17573,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,17574,0)
 ;;=R10.9^^59^699^5
 ;;^UTILITY(U,$J,358.3,17574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17574,1,3,0)
 ;;=3^Abdominal Pain,Unspec
 ;;^UTILITY(U,$J,358.3,17574,1,4,0)
 ;;=4^R10.9