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

IBDEI21A.m

Go to the documentation of this file.
IBDEI21A ; ; 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,32461,1,4,0)
 ;;=4^H34.8122
 ;;^UTILITY(U,$J,358.3,32461,2)
 ;;=^5138481
 ;;^UTILITY(U,$J,358.3,32462,0)
 ;;=H35.013^^128^1661^40
 ;;^UTILITY(U,$J,358.3,32462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32462,1,3,0)
 ;;=3^Changes in Retinal Vascular Appearance,OU
 ;;^UTILITY(U,$J,358.3,32462,1,4,0)
 ;;=4^H35.013
 ;;^UTILITY(U,$J,358.3,32462,2)
 ;;=^5005584
 ;;^UTILITY(U,$J,358.3,32463,0)
 ;;=H35.011^^128^1661^38
 ;;^UTILITY(U,$J,358.3,32463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32463,1,3,0)
 ;;=3^Changes in Retinal Vascular Appearance,OD
 ;;^UTILITY(U,$J,358.3,32463,1,4,0)
 ;;=4^H35.011
 ;;^UTILITY(U,$J,358.3,32463,2)
 ;;=^5005582
 ;;^UTILITY(U,$J,358.3,32464,0)
 ;;=H35.012^^128^1661^39
 ;;^UTILITY(U,$J,358.3,32464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32464,1,3,0)
 ;;=3^Changes in Retinal Vascular Appearance,OS
 ;;^UTILITY(U,$J,358.3,32464,1,4,0)
 ;;=4^H35.012
 ;;^UTILITY(U,$J,358.3,32464,2)
 ;;=^5005583
 ;;^UTILITY(U,$J,358.3,32465,0)
 ;;=H35.023^^128^1661^43
 ;;^UTILITY(U,$J,358.3,32465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32465,1,3,0)
 ;;=3^Exudative Retinopathy,OU
 ;;^UTILITY(U,$J,358.3,32465,1,4,0)
 ;;=4^H35.023
 ;;^UTILITY(U,$J,358.3,32465,2)
 ;;=^5005588
 ;;^UTILITY(U,$J,358.3,32466,0)
 ;;=H35.021^^128^1661^41
 ;;^UTILITY(U,$J,358.3,32466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32466,1,3,0)
 ;;=3^Exudative Retinopathy,OD
 ;;^UTILITY(U,$J,358.3,32466,1,4,0)
 ;;=4^H35.021
 ;;^UTILITY(U,$J,358.3,32466,2)
 ;;=^5005586
 ;;^UTILITY(U,$J,358.3,32467,0)
 ;;=H35.022^^128^1661^42
 ;;^UTILITY(U,$J,358.3,32467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32467,1,3,0)
 ;;=3^Exudative Retinopathy,OS
 ;;^UTILITY(U,$J,358.3,32467,1,4,0)
 ;;=4^H35.022
 ;;^UTILITY(U,$J,358.3,32467,2)
 ;;=^5005587
 ;;^UTILITY(U,$J,358.3,32468,0)
 ;;=H35.09^^128^1661^37
 ;;^UTILITY(U,$J,358.3,32468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32468,1,3,0)
 ;;=3^Intraretinal Microvascular Abnormalities,Other
 ;;^UTILITY(U,$J,358.3,32468,1,4,0)
 ;;=4^H35.09
 ;;^UTILITY(U,$J,358.3,32468,2)
 ;;=^268617
 ;;^UTILITY(U,$J,358.3,32469,0)
 ;;=H35.23^^128^1661^46
 ;;^UTILITY(U,$J,358.3,32469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32469,1,3,0)
 ;;=3^Non-Diabetic Proliferative Retinopathy,Other,OU
 ;;^UTILITY(U,$J,358.3,32469,1,4,0)
 ;;=4^H35.23
 ;;^UTILITY(U,$J,358.3,32469,2)
 ;;=^5005645
 ;;^UTILITY(U,$J,358.3,32470,0)
 ;;=H35.21^^128^1661^44
 ;;^UTILITY(U,$J,358.3,32470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32470,1,3,0)
 ;;=3^Non-Diabetic Proliferative Retinopathy,Other,OD
 ;;^UTILITY(U,$J,358.3,32470,1,4,0)
 ;;=4^H35.21
 ;;^UTILITY(U,$J,358.3,32470,2)
 ;;=^5005643
 ;;^UTILITY(U,$J,358.3,32471,0)
 ;;=H35.22^^128^1661^45
 ;;^UTILITY(U,$J,358.3,32471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32471,1,3,0)
 ;;=3^Non-Diabetic Proliferative Retinopathy,Other,OS
 ;;^UTILITY(U,$J,358.3,32471,1,4,0)
 ;;=4^H35.22
 ;;^UTILITY(U,$J,358.3,32471,2)
 ;;=^5005644
 ;;^UTILITY(U,$J,358.3,32472,0)
 ;;=H35.043^^128^1661^30
 ;;^UTILITY(U,$J,358.3,32472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32472,1,3,0)
 ;;=3^Retinal Micro-Aneurysms,Unspec,OU
 ;;^UTILITY(U,$J,358.3,32472,1,4,0)
 ;;=4^H35.043
 ;;^UTILITY(U,$J,358.3,32472,2)
 ;;=^5005596
 ;;^UTILITY(U,$J,358.3,32473,0)
 ;;=H35.041^^128^1661^28
 ;;^UTILITY(U,$J,358.3,32473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32473,1,3,0)
 ;;=3^Retinal Micro-Aneurysms,Unspec,OD