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

IBDEI0TO.m

Go to the documentation of this file.
IBDEI0TO ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 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,13351,0)
 ;;=H33.021^^51^634^46
 ;;^UTILITY(U,$J,358.3,13351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13351,1,3,0)
 ;;=3^RD w/ Multiple Breaks,OD
 ;;^UTILITY(U,$J,358.3,13351,1,4,0)
 ;;=4^H33.021
 ;;^UTILITY(U,$J,358.3,13351,2)
 ;;=^5005497
 ;;^UTILITY(U,$J,358.3,13352,0)
 ;;=H33.022^^51^634^47
 ;;^UTILITY(U,$J,358.3,13352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13352,1,3,0)
 ;;=3^RD w/ Multiple Breaks,OS
 ;;^UTILITY(U,$J,358.3,13352,1,4,0)
 ;;=4^H33.022
 ;;^UTILITY(U,$J,358.3,13352,2)
 ;;=^5005498
 ;;^UTILITY(U,$J,358.3,13353,0)
 ;;=H33.003^^51^634^42
 ;;^UTILITY(U,$J,358.3,13353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13353,1,3,0)
 ;;=3^RD w/ Retinal Break,Unspec,OU
 ;;^UTILITY(U,$J,358.3,13353,1,4,0)
 ;;=4^H33.003
 ;;^UTILITY(U,$J,358.3,13353,2)
 ;;=^5005492
 ;;^UTILITY(U,$J,358.3,13354,0)
 ;;=H33.001^^51^634^40
 ;;^UTILITY(U,$J,358.3,13354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13354,1,3,0)
 ;;=3^RD w/ Retinal Break,Unspec,OD
 ;;^UTILITY(U,$J,358.3,13354,1,4,0)
 ;;=4^H33.001
 ;;^UTILITY(U,$J,358.3,13354,2)
 ;;=^5005490
 ;;^UTILITY(U,$J,358.3,13355,0)
 ;;=H33.002^^51^634^41
 ;;^UTILITY(U,$J,358.3,13355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13355,1,3,0)
 ;;=3^RD w/ Retinal Break,Unspec,OS
 ;;^UTILITY(U,$J,358.3,13355,1,4,0)
 ;;=4^H33.002
 ;;^UTILITY(U,$J,358.3,13355,2)
 ;;=^5005491
 ;;^UTILITY(U,$J,358.3,13356,0)
 ;;=H33.043^^51^634^57
 ;;^UTILITY(U,$J,358.3,13356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13356,1,3,0)
 ;;=3^RD w/ Retinal Dialysis,OU
 ;;^UTILITY(U,$J,358.3,13356,1,4,0)
 ;;=4^H33.043
 ;;^UTILITY(U,$J,358.3,13356,2)
 ;;=^5005507
 ;;^UTILITY(U,$J,358.3,13357,0)
 ;;=H33.041^^51^634^55
 ;;^UTILITY(U,$J,358.3,13357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13357,1,3,0)
 ;;=3^RD w/ Retinal Dialysis,OD
 ;;^UTILITY(U,$J,358.3,13357,1,4,0)
 ;;=4^H33.041
 ;;^UTILITY(U,$J,358.3,13357,2)
 ;;=^5005505
 ;;^UTILITY(U,$J,358.3,13358,0)
 ;;=H33.042^^51^634^56
 ;;^UTILITY(U,$J,358.3,13358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13358,1,3,0)
 ;;=3^RD w/ Retinal Dialysis,OS
 ;;^UTILITY(U,$J,358.3,13358,1,4,0)
 ;;=4^H33.042
 ;;^UTILITY(U,$J,358.3,13358,2)
 ;;=^5005506
 ;;^UTILITY(U,$J,358.3,13359,0)
 ;;=H33.013^^51^634^45
 ;;^UTILITY(U,$J,358.3,13359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13359,1,3,0)
 ;;=3^RD w/ Single Break,OU
 ;;^UTILITY(U,$J,358.3,13359,1,4,0)
 ;;=4^H33.013
 ;;^UTILITY(U,$J,358.3,13359,2)
 ;;=^5005495
 ;;^UTILITY(U,$J,358.3,13360,0)
 ;;=H33.011^^51^634^43
 ;;^UTILITY(U,$J,358.3,13360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13360,1,3,0)
 ;;=3^RD w/ Single Break,OD
 ;;^UTILITY(U,$J,358.3,13360,1,4,0)
 ;;=4^H33.011
 ;;^UTILITY(U,$J,358.3,13360,2)
 ;;=^5005493
 ;;^UTILITY(U,$J,358.3,13361,0)
 ;;=H33.012^^51^634^44
 ;;^UTILITY(U,$J,358.3,13361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13361,1,3,0)
 ;;=3^RD w/ Single Break,OS
 ;;^UTILITY(U,$J,358.3,13361,1,4,0)
 ;;=4^H33.012
 ;;^UTILITY(U,$J,358.3,13361,2)
 ;;=^5005494
 ;;^UTILITY(U,$J,358.3,13362,0)
 ;;=H35.441^^51^634^22
 ;;^UTILITY(U,$J,358.3,13362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13362,1,3,0)
 ;;=3^Reticular Degen of Retina,Age-Related,OD
 ;;^UTILITY(U,$J,358.3,13362,1,4,0)
 ;;=4^H35.441
 ;;^UTILITY(U,$J,358.3,13362,2)
 ;;=^5005683
 ;;^UTILITY(U,$J,358.3,13363,0)
 ;;=H35.442^^51^634^23
 ;;^UTILITY(U,$J,358.3,13363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13363,1,3,0)
 ;;=3^Reticular Degen of Retina,Age-Related,OS