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

IBDEI01S.m

Go to the documentation of this file.
IBDEI01S ; ; 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,3934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3934,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macula,Right Eye
 ;;^UTILITY(U,$J,358.3,3934,1,4,0)
 ;;=4^E11.3521
 ;;^UTILITY(U,$J,358.3,3934,2)
 ;;=^5138359
 ;;^UTILITY(U,$J,358.3,3935,0)
 ;;=E11.3522^^29^240^151
 ;;^UTILITY(U,$J,358.3,3935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3935,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macula,Left Eye
 ;;^UTILITY(U,$J,358.3,3935,1,4,0)
 ;;=4^E11.3522
 ;;^UTILITY(U,$J,358.3,3935,2)
 ;;=^5138360
 ;;^UTILITY(U,$J,358.3,3936,0)
 ;;=E11.3523^^29^240^152
 ;;^UTILITY(U,$J,358.3,3936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3936,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macula,Bilateral
 ;;^UTILITY(U,$J,358.3,3936,1,4,0)
 ;;=4^E11.3523
 ;;^UTILITY(U,$J,358.3,3936,2)
 ;;=^5138361
 ;;^UTILITY(U,$J,358.3,3937,0)
 ;;=E11.3531^^29^240^153
 ;;^UTILITY(U,$J,358.3,3937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3937,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch N-Mcla,Right Eye
 ;;^UTILITY(U,$J,358.3,3937,1,4,0)
 ;;=4^E11.3531
 ;;^UTILITY(U,$J,358.3,3937,2)
 ;;=^5138363
 ;;^UTILITY(U,$J,358.3,3938,0)
 ;;=E11.3532^^29^240^154
 ;;^UTILITY(U,$J,358.3,3938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3938,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch N-Mcla,Left Eye
 ;;^UTILITY(U,$J,358.3,3938,1,4,0)
 ;;=4^E11.3532
 ;;^UTILITY(U,$J,358.3,3938,2)
 ;;=^5138364
 ;;^UTILITY(U,$J,358.3,3939,0)
 ;;=E11.3533^^29^240^155
 ;;^UTILITY(U,$J,358.3,3939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3939,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch N-Mcla,Bilateral
 ;;^UTILITY(U,$J,358.3,3939,1,4,0)
 ;;=4^E11.3533
 ;;^UTILITY(U,$J,358.3,3939,2)
 ;;=^5138365
 ;;^UTILITY(U,$J,358.3,3940,0)
 ;;=E11.3541^^29^240^156
 ;;^UTILITY(U,$J,358.3,3940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3940,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Right Eye
 ;;^UTILITY(U,$J,358.3,3940,1,4,0)
 ;;=4^E11.3541
 ;;^UTILITY(U,$J,358.3,3940,2)
 ;;=^5138367
 ;;^UTILITY(U,$J,358.3,3941,0)
 ;;=E11.3542^^29^240^157
 ;;^UTILITY(U,$J,358.3,3941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3941,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Left Eye
 ;;^UTILITY(U,$J,358.3,3941,1,4,0)
 ;;=4^E11.3542
 ;;^UTILITY(U,$J,358.3,3941,2)
 ;;=^5138368
 ;;^UTILITY(U,$J,358.3,3942,0)
 ;;=E11.3543^^29^240^158
 ;;^UTILITY(U,$J,358.3,3942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3942,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Bilateral
 ;;^UTILITY(U,$J,358.3,3942,1,4,0)
 ;;=4^E11.3543
 ;;^UTILITY(U,$J,358.3,3942,2)
 ;;=^5138369
 ;;^UTILITY(U,$J,358.3,3943,0)
 ;;=E11.3551^^29^240^171
 ;;^UTILITY(U,$J,358.3,3943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3943,1,3,0)
 ;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Right Eye
 ;;^UTILITY(U,$J,358.3,3943,1,4,0)
 ;;=4^E11.3551
 ;;^UTILITY(U,$J,358.3,3943,2)
 ;;=^5138371
 ;;^UTILITY(U,$J,358.3,3944,0)
 ;;=E11.3552^^29^240^172
 ;;^UTILITY(U,$J,358.3,3944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3944,1,3,0)
 ;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Left Eye
 ;;^UTILITY(U,$J,358.3,3944,1,4,0)
 ;;=4^E11.3552
 ;;^UTILITY(U,$J,358.3,3944,2)
 ;;=^5138372
 ;;^UTILITY(U,$J,358.3,3945,0)
 ;;=E11.3553^^29^240^173
 ;;^UTILITY(U,$J,358.3,3945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3945,1,3,0)
 ;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Bilateral
 ;;^UTILITY(U,$J,358.3,3945,1,4,0)
 ;;=4^E11.3553
 ;;^UTILITY(U,$J,358.3,3945,2)
 ;;=^5138373
 ;;^UTILITY(U,$J,358.3,3946,0)
 ;;=E11.3591^^29^240^159
 ;;^UTILITY(U,$J,358.3,3946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3946,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/o Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,3946,1,4,0)
 ;;=4^E11.3591
 ;;^UTILITY(U,$J,358.3,3946,2)
 ;;=^5138375
 ;;^UTILITY(U,$J,358.3,3947,0)
 ;;=E11.3592^^29^240^160
 ;;^UTILITY(U,$J,358.3,3947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3947,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/o Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,3947,1,4,0)
 ;;=4^E11.3592
 ;;^UTILITY(U,$J,358.3,3947,2)
 ;;=^5138376
 ;;^UTILITY(U,$J,358.3,3948,0)
 ;;=E11.3593^^29^240^161
 ;;^UTILITY(U,$J,358.3,3948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3948,1,3,0)
 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/o Macular Edema,Bilateral
 ;;^UTILITY(U,$J,358.3,3948,1,4,0)
 ;;=4^E11.3593
 ;;^UTILITY(U,$J,358.3,3948,2)
 ;;=^5138377
 ;;^UTILITY(U,$J,358.3,3949,0)
 ;;=E11.37X1^^29^240^113
 ;;^UTILITY(U,$J,358.3,3949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3949,1,3,0)
 ;;=3^Diabetes Type 2 w/ Diab Macular Edema Resolved After Trtmt,Right Eye
 ;;^UTILITY(U,$J,358.3,3949,1,4,0)
 ;;=4^E11.37X1
 ;;^UTILITY(U,$J,358.3,3949,2)
 ;;=^5138379
 ;;^UTILITY(U,$J,358.3,3950,0)
 ;;=E11.37X2^^29^240^114
 ;;^UTILITY(U,$J,358.3,3950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3950,1,3,0)
 ;;=3^Diabetes Type 2 w/ Diab Macular Edema Resolved After Trtmt,Left Eye
 ;;^UTILITY(U,$J,358.3,3950,1,4,0)
 ;;=4^E11.37X2
 ;;^UTILITY(U,$J,358.3,3950,2)
 ;;=^5138380
 ;;^UTILITY(U,$J,358.3,3951,0)
 ;;=E11.37X3^^29^240^115
 ;;^UTILITY(U,$J,358.3,3951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3951,1,3,0)
 ;;=3^Diabetes Type 2 w/ Diab Macular Edema Resolved After Trtmt,Bilateral
 ;;^UTILITY(U,$J,358.3,3951,1,4,0)
 ;;=4^E11.37X3
 ;;^UTILITY(U,$J,358.3,3951,2)
 ;;=^5138381
 ;;^UTILITY(U,$J,358.3,3952,0)
 ;;=E11.641^^29^240^179
 ;;^UTILITY(U,$J,358.3,3952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3952,1,3,0)
 ;;=3^Diabets Type 2 w/ Hypoglycemia w/ Coma
 ;;^UTILITY(U,$J,358.3,3952,1,4,0)
 ;;=4^E11.641
 ;;^UTILITY(U,$J,358.3,3952,2)
 ;;=^5002661
 ;;^UTILITY(U,$J,358.3,3953,0)
 ;;=E11.649^^29^240^130
 ;;^UTILITY(U,$J,358.3,3953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3953,1,3,0)
 ;;=3^Diabetes Type 2 w/ Hypoglycemia w/o Coma
 ;;^UTILITY(U,$J,358.3,3953,1,4,0)
 ;;=4^E11.649
 ;;^UTILITY(U,$J,358.3,3953,2)
 ;;=^5002662
 ;;^UTILITY(U,$J,358.3,3954,0)
 ;;=G56.13^^29^240^227
 ;;^UTILITY(U,$J,358.3,3954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3954,1,3,0)
 ;;=3^Median Nerve Lesion,Bilateral Upper Limbs
 ;;^UTILITY(U,$J,358.3,3954,1,4,0)
 ;;=4^G56.13
 ;;^UTILITY(U,$J,358.3,3954,2)
 ;;=^5138453
 ;;^UTILITY(U,$J,358.3,3955,0)
 ;;=G56.23^^29^240^321
 ;;^UTILITY(U,$J,358.3,3955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3955,1,3,0)
 ;;=3^Ulnar Nerve Lesions,Bilateral Upper Limbs
 ;;^UTILITY(U,$J,358.3,3955,1,4,0)
 ;;=4^G56.23
 ;;^UTILITY(U,$J,358.3,3955,2)
 ;;=^5138454
 ;;^UTILITY(U,$J,358.3,3956,0)
 ;;=G56.33^^29^240^311
 ;;^UTILITY(U,$J,358.3,3956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3956,1,3,0)
 ;;=3^Radial Nerve Lesions,Bilateral Upper Limbs
 ;;^UTILITY(U,$J,358.3,3956,1,4,0)
 ;;=4^G56.33
 ;;^UTILITY(U,$J,358.3,3956,2)
 ;;=^5138455
 ;;^UTILITY(U,$J,358.3,3957,0)
 ;;=G56.43^^29^240^24
 ;;^UTILITY(U,$J,358.3,3957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3957,1,3,0)
 ;;=3^Causalgia,Bilateral Upper Limbs
 ;;^UTILITY(U,$J,358.3,3957,1,4,0)
 ;;=4^G56.43
 ;;^UTILITY(U,$J,358.3,3957,2)
 ;;=^5138456
 ;;^UTILITY(U,$J,358.3,3958,0)
 ;;=G56.83^^29^240^235
 ;;^UTILITY(U,$J,358.3,3958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3958,1,3,0)
 ;;=3^Mononeuropathies,Bilateral Upper Limbs
 ;;^UTILITY(U,$J,358.3,3958,1,4,0)
 ;;=4^G56.83
 ;;^UTILITY(U,$J,358.3,3958,2)
 ;;=^5138457
 ;;^UTILITY(U,$J,358.3,3959,0)
 ;;=G57.03^^29^240^315
 ;;^UTILITY(U,$J,358.3,3959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3959,1,3,0)
 ;;=3^Sciatic Nerve Lesions,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3959,1,4,0)
 ;;=4^G57.03
 ;;^UTILITY(U,$J,358.3,3959,2)
 ;;=^5138459
 ;;^UTILITY(U,$J,358.3,3960,0)
 ;;=G57.13^^29^240^230
 ;;^UTILITY(U,$J,358.3,3960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3960,1,3,0)
 ;;=3^Meralgia Paresthetica,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3960,1,4,0)
 ;;=4^G57.13
 ;;^UTILITY(U,$J,358.3,3960,2)
 ;;=^5138460
 ;;^UTILITY(U,$J,358.3,3961,0)
 ;;=G57.23^^29^240^185
 ;;^UTILITY(U,$J,358.3,3961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3961,1,3,0)
 ;;=3^Femoral Nerve Lesions,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3961,1,4,0)
 ;;=4^G57.23
 ;;^UTILITY(U,$J,358.3,3961,2)
 ;;=^5138461
 ;;^UTILITY(U,$J,358.3,3962,0)
 ;;=G57.33^^29^240^221
 ;;^UTILITY(U,$J,358.3,3962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3962,1,3,0)
 ;;=3^Lateral Popliteal Nerve Lesions,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3962,1,4,0)
 ;;=4^G57.33
 ;;^UTILITY(U,$J,358.3,3962,2)
 ;;=^5138462
 ;;^UTILITY(U,$J,358.3,3963,0)
 ;;=G57.53^^29^240^316
 ;;^UTILITY(U,$J,358.3,3963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3963,1,3,0)
 ;;=3^Tarsal Tunnel Syndrome,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3963,1,4,0)
 ;;=4^G57.53
 ;;^UTILITY(U,$J,358.3,3963,2)
 ;;=^5138464
 ;;^UTILITY(U,$J,358.3,3964,0)
 ;;=G57.63^^29^240^276
 ;;^UTILITY(U,$J,358.3,3964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3964,1,3,0)
 ;;=3^Plantar Nerve Lesions,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3964,1,4,0)
 ;;=4^G57.63
 ;;^UTILITY(U,$J,358.3,3964,2)
 ;;=^5138465
 ;;^UTILITY(U,$J,358.3,3965,0)
 ;;=G57.73^^29^240^23
 ;;^UTILITY(U,$J,358.3,3965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3965,1,3,0)
 ;;=3^Causalgia,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3965,1,4,0)
 ;;=4^G57.73
 ;;^UTILITY(U,$J,358.3,3965,2)
 ;;=^5138466
 ;;^UTILITY(U,$J,358.3,3966,0)
 ;;=G57.83^^29^240^234
 ;;^UTILITY(U,$J,358.3,3966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3966,1,3,0)
 ;;=3^Mononeuropathies,Bilateral Lower Limbs
 ;;^UTILITY(U,$J,358.3,3966,1,4,0)
 ;;=4^G57.83
 ;;^UTILITY(U,$J,358.3,3966,2)
 ;;=^5138467
 ;;^UTILITY(U,$J,358.3,3967,0)
 ;;=F17.210^^29^240^246
 ;;^UTILITY(U,$J,358.3,3967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3967,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes
 ;;^UTILITY(U,$J,358.3,3967,1,4,0)
 ;;=4^F17.210
 ;;^UTILITY(U,$J,358.3,3967,2)
 ;;=^5003365
 ;;^UTILITY(U,$J,358.3,3968,0)
 ;;=E66.9^^29^240^263
 ;;^UTILITY(U,$J,358.3,3968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3968,1,3,0)
 ;;=3^Obesity
 ;;^UTILITY(U,$J,358.3,3968,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,3968,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,3969,0)
 ;;=E66.01^^29^240^245
 ;;^UTILITY(U,$J,358.3,3969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3969,1,3,0)
 ;;=3^Morbid Obesity
 ;;^UTILITY(U,$J,358.3,3969,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,3969,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,3970,0)
 ;;=Z68.1^^29^240^16
 ;;^UTILITY(U,$J,358.3,3970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3970,1,3,0)
 ;;=3^BMI 19.9 or Less
 ;;^UTILITY(U,$J,358.3,3970,1,4,0)
 ;;=4^Z68.1
 ;;^UTILITY(U,$J,358.3,3970,2)
 ;;=^5063198
 ;;^UTILITY(U,$J,358.3,3971,0)
 ;;=Z68.41^^29^240^17
 ;;^UTILITY(U,$J,358.3,3971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3971,1,3,0)
 ;;=3^BMI 40.0-44.9
 ;;^UTILITY(U,$J,358.3,3971,1,4,0)
 ;;=4^Z68.41
 ;;^UTILITY(U,$J,358.3,3971,2)
 ;;=^5063219
 ;;^UTILITY(U,$J,358.3,3972,0)
 ;;=Z68.42^^29^240^18
 ;;^UTILITY(U,$J,358.3,3972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3972,1,3,0)
 ;;=3^BMI 45.0-49.9
 ;;^UTILITY(U,$J,358.3,3972,1,4,0)
 ;;=4^Z68.42
 ;;^UTILITY(U,$J,358.3,3972,2)
 ;;=^5063220
 ;;^UTILITY(U,$J,358.3,3973,0)
 ;;=Z68.43^^29^240^19
 ;;^UTILITY(U,$J,358.3,3973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3973,1,3,0)
 ;;=3^BMI 50.0-59.9
 ;;^UTILITY(U,$J,358.3,3973,1,4,0)
 ;;=4^Z68.43
 ;;^UTILITY(U,$J,358.3,3973,2)
 ;;=^5063221
 ;;^UTILITY(U,$J,358.3,3974,0)
 ;;=Z68.44^^29^240^20
 ;;^UTILITY(U,$J,358.3,3974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3974,1,3,0)
 ;;=3^BMI 60.0-69.9
 ;;^UTILITY(U,$J,358.3,3974,1,4,0)
 ;;=4^Z68.44
 ;;^UTILITY(U,$J,358.3,3974,2)
 ;;=^5063222
 ;;^UTILITY(U,$J,358.3,3975,0)
 ;;=Z68.45^^29^240^21
 ;;^UTILITY(U,$J,358.3,3975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3975,1,3,0)
 ;;=3^BMI 70 or Greater
 ;;^UTILITY(U,$J,358.3,3975,1,4,0)
 ;;=4^Z68.45
 ;;^UTILITY(U,$J,358.3,3975,2)
 ;;=^5063223
 ;;^UTILITY(U,$J,358.3,3976,0)
 ;;=K31.84^^29^240^187
 ;;^UTILITY(U,$J,358.3,3976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3976,1,3,0)
 ;;=3^Gastroparesis
 ;;^UTILITY(U,$J,358.3,3976,1,4,0)
 ;;=4^K31.84
 ;;^UTILITY(U,$J,358.3,3976,2)
 ;;=^264447
 ;;^UTILITY(U,$J,358.3,3977,0)
 ;;=N52.9^^29^240^224
 ;;^UTILITY(U,$J,358.3,3977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3977,1,3,0)
 ;;=3^Male Erectile Dysfunction,Unsp
 ;;^UTILITY(U,$J,358.3,3977,1,4,0)
 ;;=4^N52.9
 ;;^UTILITY(U,$J,358.3,3977,2)
 ;;=^5015763
 ;;^UTILITY(U,$J,358.3,3978,0)
 ;;=F17.200^^29^240^247
 ;;^UTILITY(U,$J,358.3,3978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3978,1,3,0)
 ;;=3^Nicotine Dependence,Unsp
 ;;^UTILITY(U,$J,358.3,3978,1,4,0)
 ;;=4^F17.200
 ;;^UTILITY(U,$J,358.3,3978,2)
 ;;=^5003360
 ;;^UTILITY(U,$J,358.3,3979,0)
 ;;=Z96.41^^29^240^278
 ;;^UTILITY(U,$J,358.3,3979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3979,1,3,0)
 ;;=3^Presence of Insulin Pump
 ;;^UTILITY(U,$J,358.3,3979,1,4,0)
 ;;=4^Z96.41
 ;;^UTILITY(U,$J,358.3,3979,2)
 ;;=^5063688
 ;;^UTILITY(U,$J,358.3,3980,0)
 ;;=N18.30^^29^240^31
 ;;^UTILITY(U,$J,358.3,3980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3980,1,3,0)
 ;;=3^Chr Kidney Disease,Stage 3,Unspec
 ;;^UTILITY(U,$J,358.3,3980,1,4,0)
 ;;=4^N18.30
 ;;^UTILITY(U,$J,358.3,3980,2)
 ;;=^5159286
 ;;^UTILITY(U,$J,358.3,3981,0)
 ;;=N18.31^^29^240^32
 ;;^UTILITY(U,$J,358.3,3981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3981,1,3,0)
 ;;=3^Chr Kidney Disease,Stage 3a
 ;;^UTILITY(U,$J,358.3,3981,1,4,0)
 ;;=4^N18.31
 ;;^UTILITY(U,$J,358.3,3981,2)
 ;;=^5159287
 ;;^UTILITY(U,$J,358.3,3982,0)
 ;;=N18.32^^29^240^33
 ;;^UTILITY(U,$J,358.3,3982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3982,1,3,0)
 ;;=3^Chr Kidney Disease,Stage 3b
 ;;^UTILITY(U,$J,358.3,3982,1,4,0)
 ;;=4^N18.32
 ;;^UTILITY(U,$J,358.3,3982,2)
 ;;=^5159288
 ;;^UTILITY(U,$J,358.3,3983,0)
 ;;=U09.9^^29^240^277
 ;;^UTILITY(U,$J,358.3,3983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3983,1,3,0)
 ;;=3^Post COVID-19 Condition,Unspec
 ;;^UTILITY(U,$J,358.3,3983,1,4,0)
 ;;=4^U09.9
 ;;^UTILITY(U,$J,358.3,3983,2)
 ;;=^5161298
 ;;^UTILITY(U,$J,358.3,3984,0)
 ;;=Z59.00^^29^240^207
 ;;^UTILITY(U,$J,358.3,3984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3984,1,3,0)
 ;;=3^Homelessness,Unspec
 ;;^UTILITY(U,$J,358.3,3984,1,4,0)
 ;;=4^Z59.00
 ;;^UTILITY(U,$J,358.3,3984,2)
 ;;=^5161304
 ;;^UTILITY(U,$J,358.3,3985,0)
 ;;=Z59.01^^29^240^205
 ;;^UTILITY(U,$J,358.3,3985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3985,1,3,0)
 ;;=3^Homelessness,Sheltered (motel/shelter)
 ;;^UTILITY(U,$J,358.3,3985,1,4,0)
 ;;=4^Z59.01
 ;;^UTILITY(U,$J,358.3,3985,2)
 ;;=^5161305
 ;;^UTILITY(U,$J,358.3,3986,0)
 ;;=Z59.02^^29^240^206
 ;;^UTILITY(U,$J,358.3,3986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3986,1,3,0)
 ;;=3^Homelessness,Unsheltered (car/street)
 ;;^UTILITY(U,$J,358.3,3986,1,4,0)
 ;;=4^Z59.02
 ;;^UTILITY(U,$J,358.3,3986,2)
 ;;=^5161306
 ;;^UTILITY(U,$J,358.3,3987,0)
 ;;=Z59.41^^29^240^186
 ;;^UTILITY(U,$J,358.3,3987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3987,1,3,0)
 ;;=3^Food Insecurity
 ;;^UTILITY(U,$J,358.3,3987,1,4,0)
 ;;=4^Z59.41
 ;;^UTILITY(U,$J,358.3,3987,2)
 ;;=^5161307
 ;;^UTILITY(U,$J,358.3,3988,0)
 ;;=Z90.2^^29^240^10
 ;;^UTILITY(U,$J,358.3,3988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3988,1,3,0)
 ;;=3^Acquired Absence of Lung (Part of)
 ;;^UTILITY(U,$J,358.3,3988,1,4,0)
 ;;=4^Z90.2
 ;;^UTILITY(U,$J,358.3,3988,2)
 ;;=^5063585
 ;;^UTILITY(U,$J,358.3,3989,0)
 ;;=Z90.3^^29^240^15
 ;;^UTILITY(U,$J,358.3,3989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3989,1,3,0)
 ;;=3^Acquired Absence of Stomach (Part of)
 ;;^UTILITY(U,$J,358.3,3989,1,4,0)
 ;;=4^Z90.3
 ;;^UTILITY(U,$J,358.3,3989,2)
 ;;=^5063586
 ;;^UTILITY(U,$J,358.3,3990,0)
 ;;=Z90.410^^29^240^14
 ;;^UTILITY(U,$J,358.3,3990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3990,1,3,0)
 ;;=3^Acquired Absence of Pancreas,Total
 ;;^UTILITY(U,$J,358.3,3990,1,4,0)
 ;;=4^Z90.410
 ;;^UTILITY(U,$J,358.3,3990,2)
 ;;=^5063587
 ;;^UTILITY(U,$J,358.3,3991,0)
 ;;=Z90.411^^29^240^13
 ;;^UTILITY(U,$J,358.3,3991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3991,1,3,0)
 ;;=3^Acquired Absence of Pancreas,Partial
 ;;^UTILITY(U,$J,358.3,3991,1,4,0)
 ;;=4^Z90.411
 ;;^UTILITY(U,$J,358.3,3991,2)
 ;;=^5063588
 ;;^UTILITY(U,$J,358.3,3992,0)
 ;;=Z90.5^^29^240^5
 ;;^UTILITY(U,$J,358.3,3992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3992,1,3,0)
 ;;=3^Acquired Absence of Kidney
 ;;^UTILITY(U,$J,358.3,3992,1,4,0)
 ;;=4^Z90.5
 ;;^UTILITY(U,$J,358.3,3992,2)
 ;;=^5063590
 ;;^UTILITY(U,$J,358.3,3993,0)
 ;;=Z89.411^^29^240^4
 ;;^UTILITY(U,$J,358.3,3993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3993,1,3,0)
 ;;=3^Acquired Absence of Great Toe,Right
 ;;^UTILITY(U,$J,358.3,3993,1,4,0)
 ;;=4^Z89.411
 ;;^UTILITY(U,$J,358.3,3993,2)
 ;;=^5063554
 ;;^UTILITY(U,$J,358.3,3994,0)
 ;;=Z89.412^^29^240^3
 ;;^UTILITY(U,$J,358.3,3994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3994,1,3,0)
 ;;=3^Acquired Absence of Great Toe,Left
 ;;^UTILITY(U,$J,358.3,3994,1,4,0)
 ;;=4^Z89.412
 ;;^UTILITY(U,$J,358.3,3994,2)
 ;;=^5063555
 ;;^UTILITY(U,$J,358.3,3995,0)
 ;;=Z89.421^^29^240^12
 ;;^UTILITY(U,$J,358.3,3995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3995,1,3,0)
 ;;=3^Acquired Absence of Other Toe(s),Right
 ;;^UTILITY(U,$J,358.3,3995,1,4,0)
 ;;=4^Z89.421
 ;;^UTILITY(U,$J,358.3,3995,2)
 ;;=^5063557
 ;;^UTILITY(U,$J,358.3,3996,0)
 ;;=Z89.422^^29^240^11
 ;;^UTILITY(U,$J,358.3,3996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3996,1,3,0)
 ;;=3^Acquired Absence of Other Toe(s),Left
 ;;^UTILITY(U,$J,358.3,3996,1,4,0)
 ;;=4^Z89.422
 ;;^UTILITY(U,$J,358.3,3996,2)
 ;;=^5063558
 ;;^UTILITY(U,$J,358.3,3997,0)
 ;;=Z89.431^^29^240^2
 ;;^UTILITY(U,$J,358.3,3997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3997,1,3,0)
 ;;=3^Acquired Absence of Foot,Right
 ;;^UTILITY(U,$J,358.3,3997,1,4,0)
 ;;=4^Z89.431
 ;;^UTILITY(U,$J,358.3,3997,2)
 ;;=^5063560
 ;;^UTILITY(U,$J,358.3,3998,0)
 ;;=Z89.432^^29^240^1
 ;;^UTILITY(U,$J,358.3,3998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3998,1,3,0)
 ;;=3^Acquired Absence of Foot,Left
 ;;^UTILITY(U,$J,358.3,3998,1,4,0)
 ;;=4^Z89.432
 ;;^UTILITY(U,$J,358.3,3998,2)
 ;;=^5063561
 ;;^UTILITY(U,$J,358.3,3999,0)
 ;;=Z89.511^^29^240^9
 ;;^UTILITY(U,$J,358.3,3999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,3999,1,3,0)
 ;;=3^Acquired Absence of Leg Below Knee,Right (BKA)
 ;;^UTILITY(U,$J,358.3,3999,1,4,0)
 ;;=4^Z89.511
 ;;^UTILITY(U,$J,358.3,3999,2)
 ;;=^5063566
 ;;^UTILITY(U,$J,358.3,4000,0)
 ;;=Z89.512^^29^240^8
 ;;^UTILITY(U,$J,358.3,4000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4000,1,3,0)
 ;;=3^Acquired Absence of Leg Below Knee,Left (BKA)
 ;;^UTILITY(U,$J,358.3,4000,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,4000,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,4001,0)
 ;;=Z89.611^^29^240^7
 ;;^UTILITY(U,$J,358.3,4001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4001,1,3,0)
 ;;=3^Acquired Absence of Leg Above Knee,Right (AKA)