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

IBDEI02N.m

Go to the documentation of this file. 
  1. IBDEI02N ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,6170,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6170,1,3,0)
  1.  ;;=3^DM Type 2 Mod NPDR w/ CME,LEFT eye      
  1.  ;;^UTILITY(U,$J,358.3,6170,1,4,0)
  1.  ;;=4^E11.3312
  1.  ;;^UTILITY(U,$J,358.3,6170,2)
  1.  ;;=^5138340
  1.  ;;^UTILITY(U,$J,358.3,6171,0)
  1.  ;;=E11.3411^^37^327^10
  1.  ;;^UTILITY(U,$J,358.3,6171,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6171,1,3,0)
  1.  ;;=3^DM Type 2 Sev NPDR w/ CME,RIGHT eye     
  1.  ;;^UTILITY(U,$J,358.3,6171,1,4,0)
  1.  ;;=4^E11.3411
  1.  ;;^UTILITY(U,$J,358.3,6171,2)
  1.  ;;=^5138347
  1.  ;;^UTILITY(U,$J,358.3,6172,0)
  1.  ;;=E11.3412^^37^327^11
  1.  ;;^UTILITY(U,$J,358.3,6172,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6172,1,3,0)
  1.  ;;=3^DM Type 2 Sev NPDR w/ CME,LEFT eye      
  1.  ;;^UTILITY(U,$J,358.3,6172,1,4,0)
  1.  ;;=4^E11.3412
  1.  ;;^UTILITY(U,$J,358.3,6172,2)
  1.  ;;=^5138348
  1.  ;;^UTILITY(U,$J,358.3,6173,0)
  1.  ;;=E11.3511^^37^327^12
  1.  ;;^UTILITY(U,$J,358.3,6173,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6173,1,3,0)
  1.  ;;=3^DM Type 2 PDR w/ CME,RIGHT eye          
  1.  ;;^UTILITY(U,$J,358.3,6173,1,4,0)
  1.  ;;=4^E11.3511
  1.  ;;^UTILITY(U,$J,358.3,6173,2)
  1.  ;;=^5138355
  1.  ;;^UTILITY(U,$J,358.3,6174,0)
  1.  ;;=E11.3512^^37^327^13
  1.  ;;^UTILITY(U,$J,358.3,6174,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6174,1,3,0)
  1.  ;;=3^DM Type 2 PDR w/ CME,LEFT eye           
  1.  ;;^UTILITY(U,$J,358.3,6174,1,4,0)
  1.  ;;=4^E11.3512
  1.  ;;^UTILITY(U,$J,358.3,6174,2)
  1.  ;;=^5138356
  1.  ;;^UTILITY(U,$J,358.3,6175,0)
  1.  ;;=H59.031^^37^327^14
  1.  ;;^UTILITY(U,$J,358.3,6175,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6175,1,3,0)
  1.  ;;=3^CME s/p Surgery,RIGHT eye         
  1.  ;;^UTILITY(U,$J,358.3,6175,1,4,0)
  1.  ;;=4^H59.031
  1.  ;;^UTILITY(U,$J,358.3,6175,2)
  1.  ;;=^5006393
  1.  ;;^UTILITY(U,$J,358.3,6176,0)
  1.  ;;=H59.032^^37^327^15
  1.  ;;^UTILITY(U,$J,358.3,6176,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6176,1,3,0)
  1.  ;;=3^CME s/p Surgery,LEFT eye            
  1.  ;;^UTILITY(U,$J,358.3,6176,1,4,0)
  1.  ;;=4^H59.032
  1.  ;;^UTILITY(U,$J,358.3,6176,2)
  1.  ;;=^5006394
  1.  ;;^UTILITY(U,$J,358.3,6177,0)
  1.  ;;=H34.8310^^37^327^16
  1.  ;;^UTILITY(U,$J,358.3,6177,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6177,1,3,0)
  1.  ;;=3^BRVO w/ CME,RIGHT eye               
  1.  ;;^UTILITY(U,$J,358.3,6177,1,4,0)
  1.  ;;=4^H34.8310
  1.  ;;^UTILITY(U,$J,358.3,6177,2)
  1.  ;;=^5138488
  1.  ;;^UTILITY(U,$J,358.3,6178,0)
  1.  ;;=H34.8320^^37^327^17
  1.  ;;^UTILITY(U,$J,358.3,6178,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6178,1,3,0)
  1.  ;;=3^BRVO w/ CME,LEFT eye                
  1.  ;;^UTILITY(U,$J,358.3,6178,1,4,0)
  1.  ;;=4^H34.8320
  1.  ;;^UTILITY(U,$J,358.3,6178,2)
  1.  ;;=^5138491
  1.  ;;^UTILITY(U,$J,358.3,6179,0)
  1.  ;;=H34.8311^^37^327^18
  1.  ;;^UTILITY(U,$J,358.3,6179,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6179,1,3,0)
  1.  ;;=3^BRVO w/ NV,RIGHT eye                
  1.  ;;^UTILITY(U,$J,358.3,6179,1,4,0)
  1.  ;;=4^H34.8311
  1.  ;;^UTILITY(U,$J,358.3,6179,2)
  1.  ;;=^5138489
  1.  ;;^UTILITY(U,$J,358.3,6180,0)
  1.  ;;=H34.8321^^37^327^19
  1.  ;;^UTILITY(U,$J,358.3,6180,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6180,1,3,0)
  1.  ;;=3^BRVO w/ NV,LEFT eye                 
  1.  ;;^UTILITY(U,$J,358.3,6180,1,4,0)
  1.  ;;=4^H34.8321
  1.  ;;^UTILITY(U,$J,358.3,6180,2)
  1.  ;;=^5138492
  1.  ;;^UTILITY(U,$J,358.3,6181,0)
  1.  ;;=H34.8111^^37^327^20
  1.  ;;^UTILITY(U,$J,358.3,6181,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6181,1,3,0)
  1.  ;;=3^CRVO w/ NV,RIGHT eye                
  1.  ;;^UTILITY(U,$J,358.3,6181,1,4,0)
  1.  ;;=4^H34.8111
  1.  ;;^UTILITY(U,$J,358.3,6181,2)
  1.  ;;=^5138477
  1.  ;;^UTILITY(U,$J,358.3,6182,0)
  1.  ;;=H34.8121^^37^327^21
  1.  ;;^UTILITY(U,$J,358.3,6182,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6182,1,3,0)
  1.  ;;=3^CRVO w/ NV,LEFT eye                 
  1.  ;;^UTILITY(U,$J,358.3,6182,1,4,0)
  1.  ;;=4^H34.8121
  1.  ;;^UTILITY(U,$J,358.3,6182,2)
  1.  ;;=^5138480
  1.  ;;^UTILITY(U,$J,358.3,6183,0)
  1.  ;;=H34.8110^^37^327^22
  1.  ;;^UTILITY(U,$J,358.3,6183,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6183,1,3,0)
  1.  ;;=3^CRVO w/ CME,RIGHT eye               
  1.  ;;^UTILITY(U,$J,358.3,6183,1,4,0)
  1.  ;;=4^H34.8110
  1.  ;;^UTILITY(U,$J,358.3,6183,2)
  1.  ;;=^5138476
  1.  ;;^UTILITY(U,$J,358.3,6184,0)
  1.  ;;=H34.8120^^37^327^23
  1.  ;;^UTILITY(U,$J,358.3,6184,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6184,1,3,0)
  1.  ;;=3^CRVO w/ CME,LEFT eye                
  1.  ;;^UTILITY(U,$J,358.3,6184,1,4,0)
  1.  ;;=4^H34.8120
  1.  ;;^UTILITY(U,$J,358.3,6184,2)
  1.  ;;=^5138479
  1.  ;;^UTILITY(U,$J,358.3,6185,0)
  1.  ;;=H21.1X1^^37^327^24
  1.  ;;^UTILITY(U,$J,358.3,6185,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6185,1,3,0)
  1.  ;;=3^NVI/NVA/Rubeosis,RIGHT eye          
  1.  ;;^UTILITY(U,$J,358.3,6185,1,4,0)
  1.  ;;=4^H21.1X1
  1.  ;;^UTILITY(U,$J,358.3,6185,2)
  1.  ;;=^5005175
  1.  ;;^UTILITY(U,$J,358.3,6186,0)
  1.  ;;=H21.1X2^^37^327^25
  1.  ;;^UTILITY(U,$J,358.3,6186,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6186,1,3,0)
  1.  ;;=3^NVI/NVA/Rubeosis,Left eye           
  1.  ;;^UTILITY(U,$J,358.3,6186,1,4,0)
  1.  ;;=4^H21.1X2
  1.  ;;^UTILITY(U,$J,358.3,6186,2)
  1.  ;;=^5005176
  1.  ;;^UTILITY(U,$J,358.3,6187,0)
  1.  ;;=H35.711^^37^327^26
  1.  ;;^UTILITY(U,$J,358.3,6187,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6187,1,3,0)
  1.  ;;=3^Central Serous Retinopathy,RIGHT eye
  1.  ;;^UTILITY(U,$J,358.3,6187,1,4,0)
  1.  ;;=4^H35.711
  1.  ;;^UTILITY(U,$J,358.3,6187,2)
  1.  ;;=^5005703
  1.  ;;^UTILITY(U,$J,358.3,6188,0)
  1.  ;;=H35.712^^37^327^27
  1.  ;;^UTILITY(U,$J,358.3,6188,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6188,1,3,0)
  1.  ;;=3^Central Serous Retinopathy,LEFT eye 
  1.  ;;^UTILITY(U,$J,358.3,6188,1,4,0)
  1.  ;;=4^H35.712
  1.  ;;^UTILITY(U,$J,358.3,6188,2)
  1.  ;;=^5005704
  1.  ;;^UTILITY(U,$J,358.3,6189,0)
  1.  ;;=E11.9^^37^328^2
  1.  ;;^UTILITY(U,$J,358.3,6189,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6189,1,3,0)
  1.  ;;=3^DM Type 2 w/o Complications
  1.  ;;^UTILITY(U,$J,358.3,6189,1,4,0)
  1.  ;;=4^E11.9
  1.  ;;^UTILITY(U,$J,358.3,6189,2)
  1.  ;;=^5002666
  1.  ;;^UTILITY(U,$J,358.3,6190,0)
  1.  ;;=E11.39^^37^328^1
  1.  ;;^UTILITY(U,$J,358.3,6190,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6190,1,3,0)
  1.  ;;=3^DM Type 2 w/ Diabetic Ophthalmic Complications
  1.  ;;^UTILITY(U,$J,358.3,6190,1,4,0)
  1.  ;;=4^E11.39
  1.  ;;^UTILITY(U,$J,358.3,6190,2)
  1.  ;;=^5002643
  1.  ;;^UTILITY(U,$J,358.3,6191,0)
  1.  ;;=E10.9^^37^328^21
  1.  ;;^UTILITY(U,$J,358.3,6191,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6191,1,3,0)
  1.  ;;=3^DM Type 1 w/o Complications
  1.  ;;^UTILITY(U,$J,358.3,6191,1,4,0)
  1.  ;;=4^E10.9
  1.  ;;^UTILITY(U,$J,358.3,6191,2)
  1.  ;;=^5002626
  1.  ;;^UTILITY(U,$J,358.3,6192,0)
  1.  ;;=E10.39^^37^328^20
  1.  ;;^UTILITY(U,$J,358.3,6192,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6192,1,3,0)
  1.  ;;=3^DM Type 1 w/ Diabetic Ophthalmic Complication
  1.  ;;^UTILITY(U,$J,358.3,6192,1,4,0)
  1.  ;;=4^E10.39
  1.  ;;^UTILITY(U,$J,358.3,6192,2)
  1.  ;;=^5002603
  1.  ;;^UTILITY(U,$J,358.3,6193,0)
  1.  ;;=E10.3291^^37^328^22
  1.  ;;^UTILITY(U,$J,358.3,6193,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6193,1,3,0)
  1.  ;;=3^DM Type 1 w/ Mild NPDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6193,1,4,0)
  1.  ;;=4^E10.3291
  1.  ;;^UTILITY(U,$J,358.3,6193,2)
  1.  ;;=^5138283
  1.  ;;^UTILITY(U,$J,358.3,6194,0)
  1.  ;;=E10.3292^^37^328^27
  1.  ;;^UTILITY(U,$J,358.3,6194,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6194,1,3,0)
  1.  ;;=3^DM Type 1 w/ Mild NPDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6194,1,4,0)
  1.  ;;=4^E10.3292
  1.  ;;^UTILITY(U,$J,358.3,6194,2)
  1.  ;;=^5138284
  1.  ;;^UTILITY(U,$J,358.3,6195,0)
  1.  ;;=E10.3391^^37^328^23
  1.  ;;^UTILITY(U,$J,358.3,6195,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6195,1,3,0)
  1.  ;;=3^DM Type 1 w/ Mod NPDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6195,1,4,0)
  1.  ;;=4^E10.3391
  1.  ;;^UTILITY(U,$J,358.3,6195,2)
  1.  ;;=^5138291
  1.  ;;^UTILITY(U,$J,358.3,6196,0)
  1.  ;;=E10.3392^^37^328^28
  1.  ;;^UTILITY(U,$J,358.3,6196,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6196,1,3,0)
  1.  ;;=3^DM Type 1 w/ Mod NPDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6196,1,4,0)
  1.  ;;=4^E10.3392
  1.  ;;^UTILITY(U,$J,358.3,6196,2)
  1.  ;;=^5138292
  1.  ;;^UTILITY(U,$J,358.3,6197,0)
  1.  ;;=E10.3491^^37^328^24
  1.  ;;^UTILITY(U,$J,358.3,6197,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6197,1,3,0)
  1.  ;;=3^DM Type 1 w/ Severe NPDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6197,1,4,0)
  1.  ;;=4^E10.3491
  1.  ;;^UTILITY(U,$J,358.3,6197,2)
  1.  ;;=^5138299
  1.  ;;^UTILITY(U,$J,358.3,6198,0)
  1.  ;;=E10.3492^^37^328^29
  1.  ;;^UTILITY(U,$J,358.3,6198,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6198,1,3,0)
  1.  ;;=3^DM Type 1 w/ Severe NPDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6198,1,4,0)
  1.  ;;=4^E10.3492
  1.  ;;^UTILITY(U,$J,358.3,6198,2)
  1.  ;;=^5138300
  1.  ;;^UTILITY(U,$J,358.3,6199,0)
  1.  ;;=E10.3511^^37^328^25
  1.  ;;^UTILITY(U,$J,358.3,6199,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6199,1,3,0)
  1.  ;;=3^DM Type 1 w/ PDR w/ Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6199,1,4,0)
  1.  ;;=4^E10.3511
  1.  ;;^UTILITY(U,$J,358.3,6199,2)
  1.  ;;=^5138303
  1.  ;;^UTILITY(U,$J,358.3,6200,0)
  1.  ;;=E10.3512^^37^328^30
  1.  ;;^UTILITY(U,$J,358.3,6200,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6200,1,3,0)
  1.  ;;=3^DM Type 1 w/ PDR w/ Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6200,1,4,0)
  1.  ;;=4^E10.3512
  1.  ;;^UTILITY(U,$J,358.3,6200,2)
  1.  ;;=^5138304
  1.  ;;^UTILITY(U,$J,358.3,6201,0)
  1.  ;;=E10.3591^^37^328^26
  1.  ;;^UTILITY(U,$J,358.3,6201,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6201,1,3,0)
  1.  ;;=3^DM Type 1 w/ PDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6201,1,4,0)
  1.  ;;=4^E10.3591
  1.  ;;^UTILITY(U,$J,358.3,6201,2)
  1.  ;;=^5138323
  1.  ;;^UTILITY(U,$J,358.3,6202,0)
  1.  ;;=E10.3592^^37^328^31
  1.  ;;^UTILITY(U,$J,358.3,6202,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6202,1,3,0)
  1.  ;;=3^DM Type 1 w/ PDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6202,1,4,0)
  1.  ;;=4^E10.3592
  1.  ;;^UTILITY(U,$J,358.3,6202,2)
  1.  ;;=^5138324
  1.  ;;^UTILITY(U,$J,358.3,6203,0)
  1.  ;;=E11.3211^^37^328^4
  1.  ;;^UTILITY(U,$J,358.3,6203,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6203,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mild NPDR w/ Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6203,1,4,0)
  1.  ;;=4^E11.3211
  1.  ;;^UTILITY(U,$J,358.3,6203,2)
  1.  ;;=^5138331
  1.  ;;^UTILITY(U,$J,358.3,6204,0)
  1.  ;;=E11.3212^^37^328^12
  1.  ;;^UTILITY(U,$J,358.3,6204,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6204,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mild NPDR w/ Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6204,1,4,0)
  1.  ;;=4^E11.3212
  1.  ;;^UTILITY(U,$J,358.3,6204,2)
  1.  ;;=^5138332
  1.  ;;^UTILITY(U,$J,358.3,6205,0)
  1.  ;;=E11.3291^^37^328^5
  1.  ;;^UTILITY(U,$J,358.3,6205,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6205,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mild NPDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6205,1,4,0)
  1.  ;;=4^E11.3291
  1.  ;;^UTILITY(U,$J,358.3,6205,2)
  1.  ;;=^5138335
  1.  ;;^UTILITY(U,$J,358.3,6206,0)
  1.  ;;=E11.3292^^37^328^13
  1.  ;;^UTILITY(U,$J,358.3,6206,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6206,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mild NPDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6206,1,4,0)
  1.  ;;=4^E11.3292
  1.  ;;^UTILITY(U,$J,358.3,6206,2)
  1.  ;;=^5138336
  1.  ;;^UTILITY(U,$J,358.3,6207,0)
  1.  ;;=E11.3311^^37^328^6
  1.  ;;^UTILITY(U,$J,358.3,6207,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6207,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mod NPDR w/ Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6207,1,4,0)
  1.  ;;=4^E11.3311
  1.  ;;^UTILITY(U,$J,358.3,6207,2)
  1.  ;;=^5138339
  1.  ;;^UTILITY(U,$J,358.3,6208,0)
  1.  ;;=E11.3312^^37^328^14
  1.  ;;^UTILITY(U,$J,358.3,6208,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6208,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mod NPDR w/ Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6208,1,4,0)
  1.  ;;=4^E11.3312
  1.  ;;^UTILITY(U,$J,358.3,6208,2)
  1.  ;;=^5138340
  1.  ;;^UTILITY(U,$J,358.3,6209,0)
  1.  ;;=E11.3391^^37^328^7
  1.  ;;^UTILITY(U,$J,358.3,6209,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6209,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mod NPDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6209,1,4,0)
  1.  ;;=4^E11.3391
  1.  ;;^UTILITY(U,$J,358.3,6209,2)
  1.  ;;=^5138343
  1.  ;;^UTILITY(U,$J,358.3,6210,0)
  1.  ;;=E11.3392^^37^328^15
  1.  ;;^UTILITY(U,$J,358.3,6210,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6210,1,3,0)
  1.  ;;=3^DM Type 2 w/ Mod NPDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6210,1,4,0)
  1.  ;;=4^E11.3392
  1.  ;;^UTILITY(U,$J,358.3,6210,2)
  1.  ;;=^5138344
  1.  ;;^UTILITY(U,$J,358.3,6211,0)
  1.  ;;=E11.3411^^37^328^8
  1.  ;;^UTILITY(U,$J,358.3,6211,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6211,1,3,0)
  1.  ;;=3^DM Type 2 w/ Severe NPDR w/ Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6211,1,4,0)
  1.  ;;=4^E11.3411
  1.  ;;^UTILITY(U,$J,358.3,6211,2)
  1.  ;;=^5138347
  1.  ;;^UTILITY(U,$J,358.3,6212,0)
  1.  ;;=E11.3412^^37^328^16
  1.  ;;^UTILITY(U,$J,358.3,6212,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6212,1,3,0)
  1.  ;;=3^DM Type 2 w/ Severe NPDR w/ Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6212,1,4,0)
  1.  ;;=4^E11.3412
  1.  ;;^UTILITY(U,$J,358.3,6212,2)
  1.  ;;=^5138348
  1.  ;;^UTILITY(U,$J,358.3,6213,0)
  1.  ;;=E11.3491^^37^328^9
  1.  ;;^UTILITY(U,$J,358.3,6213,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6213,1,3,0)
  1.  ;;=3^DM Type 2 w/ Severe NPDR w/o Macula Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6213,1,4,0)
  1.  ;;=4^E11.3491
  1.  ;;^UTILITY(U,$J,358.3,6213,2)
  1.  ;;=^5138351
  1.  ;;^UTILITY(U,$J,358.3,6214,0)
  1.  ;;=E11.3492^^37^328^17
  1.  ;;^UTILITY(U,$J,358.3,6214,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6214,1,3,0)
  1.  ;;=3^DM Type 2 w/ Severe NPDR w/o Macula Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6214,1,4,0)
  1.  ;;=4^E11.3492
  1.  ;;^UTILITY(U,$J,358.3,6214,2)
  1.  ;;=^5138352
  1.  ;;^UTILITY(U,$J,358.3,6215,0)
  1.  ;;=E11.3511^^37^328^10
  1.  ;;^UTILITY(U,$J,358.3,6215,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6215,1,3,0)
  1.  ;;=3^DM Type 2 w/ PDR w/ Macular Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6215,1,4,0)
  1.  ;;=4^E11.3511
  1.  ;;^UTILITY(U,$J,358.3,6215,2)
  1.  ;;=^5138355
  1.  ;;^UTILITY(U,$J,358.3,6216,0)
  1.  ;;=E11.3512^^37^328^18
  1.  ;;^UTILITY(U,$J,358.3,6216,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6216,1,3,0)
  1.  ;;=3^DM Type 2 w/ PDR w/ Macular Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6216,1,4,0)
  1.  ;;=4^E11.3512
  1.  ;;^UTILITY(U,$J,358.3,6216,2)
  1.  ;;=^5138356
  1.  ;;^UTILITY(U,$J,358.3,6217,0)
  1.  ;;=E11.3591^^37^328^11
  1.  ;;^UTILITY(U,$J,358.3,6217,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6217,1,3,0)
  1.  ;;=3^DM Type 2 w/ PDR w/o Macular Edema,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,6217,1,4,0)
  1.  ;;=4^E11.3591
  1.  ;;^UTILITY(U,$J,358.3,6217,2)
  1.  ;;=^5138375
  1.  ;;^UTILITY(U,$J,358.3,6218,0)
  1.  ;;=E11.3592^^37^328^19
  1.  ;;^UTILITY(U,$J,358.3,6218,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6218,1,3,0)
  1.  ;;=3^DM Type 2 w/ PDR w/o Macular Edema,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,6218,1,4,0)
  1.  ;;=4^E11.3592
  1.  ;;^UTILITY(U,$J,358.3,6218,2)
  1.  ;;=^5138376
  1.  ;;^UTILITY(U,$J,358.3,6219,0)
  1.  ;;=H35.81^^37^328^3
  1.  ;;^UTILITY(U,$J,358.3,6219,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6219,1,3,0)
  1.  ;;=3^Retinal Edema/CME Other Etiology
  1.  ;;^UTILITY(U,$J,358.3,6219,1,4,0)
  1.  ;;=4^H35.81
  1.  ;;^UTILITY(U,$J,358.3,6219,2)
  1.  ;;=^5005715
  1.  ;;^UTILITY(U,$J,358.3,6220,0)
  1.  ;;=U07.1^^37^329^1
  1.  ;;^UTILITY(U,$J,358.3,6220,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6220,1,3,0)
  1.  ;;=3^COVID-19
  1.  ;;^UTILITY(U,$J,358.3,6220,1,4,0)
  1.  ;;=4^U07.1
  1.  ;;^UTILITY(U,$J,358.3,6220,2)
  1.  ;;=^5159070
  1.  ;;^UTILITY(U,$J,358.3,6221,0)
  1.  ;;=Z20.828^^37^329^2
  1.  ;;^UTILITY(U,$J,358.3,6221,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6221,1,3,0)
  1.  ;;=3^Contact/Exposure to Oth Viral Communicable Diseases
  1.  ;;^UTILITY(U,$J,358.3,6221,1,4,0)
  1.  ;;=4^Z20.828
  1.  ;;^UTILITY(U,$J,358.3,6221,2)
  1.  ;;=^5062774
  1.  ;;^UTILITY(U,$J,358.3,6222,0)
  1.  ;;=R05.9^^37^329^3
  1.  ;;^UTILITY(U,$J,358.3,6222,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6222,1,3,0)
  1.  ;;=3^Cough
  1.  ;;^UTILITY(U,$J,358.3,6222,1,4,0)
  1.  ;;=4^R05.9
  1.  ;;^UTILITY(U,$J,358.3,6222,2)
  1.  ;;=^5161232
  1.  ;;^UTILITY(U,$J,358.3,6223,0)
  1.  ;;=R50.9^^37^329^4
  1.  ;;^UTILITY(U,$J,358.3,6223,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6223,1,3,0)
  1.  ;;=3^Fever,Unspec
  1.  ;;^UTILITY(U,$J,358.3,6223,1,4,0)
  1.  ;;=4^R50.9
  1.  ;;^UTILITY(U,$J,358.3,6223,2)
  1.  ;;=^5019512
  1.  ;;^UTILITY(U,$J,358.3,6224,0)
  1.  ;;=Z03.818^^37^329^5
  1.  ;;^UTILITY(U,$J,358.3,6224,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6224,1,3,0)
  1.  ;;=3^Observation of Suspected Expsr to Bio Agents Ruled Out
  1.  ;;^UTILITY(U,$J,358.3,6224,1,4,0)
  1.  ;;=4^Z03.818
  1.  ;;^UTILITY(U,$J,358.3,6224,2)
  1.  ;;=^5062655
  1.  ;;^UTILITY(U,$J,358.3,6225,0)
  1.  ;;=Z11.59^^37^329^6
  1.  ;;^UTILITY(U,$J,358.3,6225,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6225,1,3,0)
  1.  ;;=3^Screening for Oth Viral Diseases
  1.  ;;^UTILITY(U,$J,358.3,6225,1,4,0)
  1.  ;;=4^Z11.59
  1.  ;;^UTILITY(U,$J,358.3,6225,2)
  1.  ;;=^5062675
  1.  ;;^UTILITY(U,$J,358.3,6226,0)
  1.  ;;=R06.02^^37^329^7
  1.  ;;^UTILITY(U,$J,358.3,6226,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,6226,1,3,0)
  1.  ;;=3^Shortness of Breath
  1.  ;;^UTILITY(U,$J,358.3,6226,1,4,0)
  1.  ;;=4^R06.02
  1.  ;;^UTILITY(U,$J,358.3,6226,2)
  1.  ;;=^5019181
  1.  ;;^UTILITY(U,$J,358.3,6227,0)
  1.  ;;=99202^^38^330^1
  1.  ;;^UTILITY(U,$J,358.3,6227,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6227,1,1,0)
  1.  ;;=1^SF MDM or 15-29 min
  1.  ;;^UTILITY(U,$J,358.3,6227,1,2,0)
  1.  ;;=2^99202
  1.  ;;^UTILITY(U,$J,358.3,6228,0)
  1.  ;;=99203^^38^330^2
  1.  ;;^UTILITY(U,$J,358.3,6228,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6228,1,1,0)
  1.  ;;=1^Low Complex MDM or 30-44 min'
  1.  ;;^UTILITY(U,$J,358.3,6228,1,2,0)
  1.  ;;=2^99203
  1.  ;;^UTILITY(U,$J,358.3,6229,0)
  1.  ;;=99204^^38^330^3
  1.  ;;^UTILITY(U,$J,358.3,6229,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6229,1,1,0)
  1.  ;;=1^Mod Complex MDM or 45-59 min
  1.  ;;^UTILITY(U,$J,358.3,6229,1,2,0)
  1.  ;;=2^99204
  1.  ;;^UTILITY(U,$J,358.3,6230,0)
  1.  ;;=99205^^38^330^4
  1.  ;;^UTILITY(U,$J,358.3,6230,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6230,1,1,0)
  1.  ;;=1^High Complex MDM or 60-74 min
  1.  ;;^UTILITY(U,$J,358.3,6230,1,2,0)
  1.  ;;=2^99205
  1.  ;;^UTILITY(U,$J,358.3,6231,0)
  1.  ;;=99211^^38^331^1
  1.  ;;^UTILITY(U,$J,358.3,6231,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6231,1,1,0)
  1.  ;;=1^Brief
  1.  ;;^UTILITY(U,$J,358.3,6231,1,2,0)
  1.  ;;=2^99211
  1.  ;;^UTILITY(U,$J,358.3,6232,0)
  1.  ;;=99212^^38^331^2
  1.  ;;^UTILITY(U,$J,358.3,6232,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6232,1,1,0)
  1.  ;;=1^SF MDM or 10-19 min
  1.  ;;^UTILITY(U,$J,358.3,6232,1,2,0)
  1.  ;;=2^99212
  1.  ;;^UTILITY(U,$J,358.3,6233,0)
  1.  ;;=99213^^38^331^3
  1.  ;;^UTILITY(U,$J,358.3,6233,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6233,1,1,0)
  1.  ;;=1^Low Complex MDM or 20-29 min
  1.  ;;^UTILITY(U,$J,358.3,6233,1,2,0)
  1.  ;;=2^99213
  1.  ;;^UTILITY(U,$J,358.3,6234,0)
  1.  ;;=99214^^38^331^4
  1.  ;;^UTILITY(U,$J,358.3,6234,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6234,1,1,0)
  1.  ;;=1^Mod Complex MDM or 30-39 min
  1.  ;;^UTILITY(U,$J,358.3,6234,1,2,0)
  1.  ;;=2^99214
  1.  ;;^UTILITY(U,$J,358.3,6235,0)
  1.  ;;=99215^^38^331^5
  1.  ;;^UTILITY(U,$J,358.3,6235,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6235,1,1,0)
  1.  ;;=1^High Complex MDM or 40-54 min
  1.  ;;^UTILITY(U,$J,358.3,6235,1,2,0)
  1.  ;;=2^99215
  1.  ;;^UTILITY(U,$J,358.3,6236,0)
  1.  ;;=99241^^38^332^1
  1.  ;;^UTILITY(U,$J,358.3,6236,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6236,1,1,0)
  1.  ;;=1^Problem Focused
  1.  ;;^UTILITY(U,$J,358.3,6236,1,2,0)
  1.  ;;=2^99241
  1.  ;;^UTILITY(U,$J,358.3,6237,0)
  1.  ;;=99242^^38^332^2
  1.  ;;^UTILITY(U,$J,358.3,6237,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6237,1,1,0)
  1.  ;;=1^Expanded Problem Focus
  1.  ;;^UTILITY(U,$J,358.3,6237,1,2,0)
  1.  ;;=2^99242
  1.  ;;^UTILITY(U,$J,358.3,6238,0)
  1.  ;;=99243^^38^332^3
  1.  ;;^UTILITY(U,$J,358.3,6238,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6238,1,1,0)
  1.  ;;=1^Detailed
  1.  ;;^UTILITY(U,$J,358.3,6238,1,2,0)
  1.  ;;=2^99243
  1.  ;;^UTILITY(U,$J,358.3,6239,0)
  1.  ;;=99244^^38^332^4
  1.  ;;^UTILITY(U,$J,358.3,6239,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6239,1,1,0)
  1.  ;;=1^Comprehensive, Moderate
  1.  ;;^UTILITY(U,$J,358.3,6239,1,2,0)
  1.  ;;=2^99244
  1.  ;;^UTILITY(U,$J,358.3,6240,0)
  1.  ;;=99245^^38^332^5
  1.  ;;^UTILITY(U,$J,358.3,6240,1,0)
  1.  ;;=^358.31IA^2^2
  1.  ;;^UTILITY(U,$J,358.3,6240,1,1,0)
  1.  ;;=1^Comprehensive, High