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

IBDEI2X3.m

Go to the documentation of this file.
IBDEI2X3 ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,46526,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,46526,1,4,0)
 ;;=4^E11.3292
 ;;^UTILITY(U,$J,358.3,46526,2)
 ;;=^5138336
 ;;^UTILITY(U,$J,358.3,46527,0)
 ;;=E11.3311^^176^2314^6
 ;;^UTILITY(U,$J,358.3,46527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46527,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,46527,1,4,0)
 ;;=4^E11.3311
 ;;^UTILITY(U,$J,358.3,46527,2)
 ;;=^5138339
 ;;^UTILITY(U,$J,358.3,46528,0)
 ;;=E11.3312^^176^2314^14
 ;;^UTILITY(U,$J,358.3,46528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46528,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,46528,1,4,0)
 ;;=4^E11.3312
 ;;^UTILITY(U,$J,358.3,46528,2)
 ;;=^5138340
 ;;^UTILITY(U,$J,358.3,46529,0)
 ;;=E11.3391^^176^2314^7
 ;;^UTILITY(U,$J,358.3,46529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46529,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,46529,1,4,0)
 ;;=4^E11.3391
 ;;^UTILITY(U,$J,358.3,46529,2)
 ;;=^5138343
 ;;^UTILITY(U,$J,358.3,46530,0)
 ;;=E11.3392^^176^2314^15
 ;;^UTILITY(U,$J,358.3,46530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46530,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,46530,1,4,0)
 ;;=4^E11.3392
 ;;^UTILITY(U,$J,358.3,46530,2)
 ;;=^5138344
 ;;^UTILITY(U,$J,358.3,46531,0)
 ;;=E11.3411^^176^2314^8
 ;;^UTILITY(U,$J,358.3,46531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46531,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,46531,1,4,0)
 ;;=4^E11.3411
 ;;^UTILITY(U,$J,358.3,46531,2)
 ;;=^5138347
 ;;^UTILITY(U,$J,358.3,46532,0)
 ;;=E11.3412^^176^2314^16
 ;;^UTILITY(U,$J,358.3,46532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46532,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,46532,1,4,0)
 ;;=4^E11.3412
 ;;^UTILITY(U,$J,358.3,46532,2)
 ;;=^5138348
 ;;^UTILITY(U,$J,358.3,46533,0)
 ;;=E11.3491^^176^2314^9
 ;;^UTILITY(U,$J,358.3,46533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46533,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,46533,1,4,0)
 ;;=4^E11.3491
 ;;^UTILITY(U,$J,358.3,46533,2)
 ;;=^5138351
 ;;^UTILITY(U,$J,358.3,46534,0)
 ;;=E11.3492^^176^2314^17
 ;;^UTILITY(U,$J,358.3,46534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46534,1,3,0)
 ;;=3^DM Type 2 w/ Severe NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,46534,1,4,0)
 ;;=4^E11.3492
 ;;^UTILITY(U,$J,358.3,46534,2)
 ;;=^5138352
 ;;^UTILITY(U,$J,358.3,46535,0)
 ;;=E11.3511^^176^2314^10
 ;;^UTILITY(U,$J,358.3,46535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46535,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/ Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,46535,1,4,0)
 ;;=4^E11.3511
 ;;^UTILITY(U,$J,358.3,46535,2)
 ;;=^5138355
 ;;^UTILITY(U,$J,358.3,46536,0)
 ;;=E11.3512^^176^2314^18
 ;;^UTILITY(U,$J,358.3,46536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46536,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/ Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,46536,1,4,0)
 ;;=4^E11.3512
 ;;^UTILITY(U,$J,358.3,46536,2)
 ;;=^5138356
 ;;^UTILITY(U,$J,358.3,46537,0)
 ;;=E11.3591^^176^2314^11
 ;;^UTILITY(U,$J,358.3,46537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46537,1,3,0)
 ;;=3^DM Type 2 w/ PDR w/o Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,46537,1,4,0)
 ;;=4^E11.3591