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

IBDEI21T.m

Go to the documentation of this file.
IBDEI21T ; ; 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,32695,1,4,0)
 ;;=4^H18.51
 ;;^UTILITY(U,$J,358.3,32695,2)
 ;;=^268988
 ;;^UTILITY(U,$J,358.3,32696,0)
 ;;=H16.213^^128^1667^9
 ;;^UTILITY(U,$J,358.3,32696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32696,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,OU
 ;;^UTILITY(U,$J,358.3,32696,1,4,0)
 ;;=4^H16.213
 ;;^UTILITY(U,$J,358.3,32696,2)
 ;;=^5004922
 ;;^UTILITY(U,$J,358.3,32697,0)
 ;;=H16.211^^128^1667^7
 ;;^UTILITY(U,$J,358.3,32697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32697,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,OD
 ;;^UTILITY(U,$J,358.3,32697,1,4,0)
 ;;=4^H16.211
 ;;^UTILITY(U,$J,358.3,32697,2)
 ;;=^5004920
 ;;^UTILITY(U,$J,358.3,32698,0)
 ;;=H16.212^^128^1667^8
 ;;^UTILITY(U,$J,358.3,32698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32698,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,OS
 ;;^UTILITY(U,$J,358.3,32698,1,4,0)
 ;;=4^H16.212
 ;;^UTILITY(U,$J,358.3,32698,2)
 ;;=^5004921
 ;;^UTILITY(U,$J,358.3,32699,0)
 ;;=H21.81^^128^1667^70
 ;;^UTILITY(U,$J,358.3,32699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32699,1,3,0)
 ;;=3^Floppy Iris Syndrome
 ;;^UTILITY(U,$J,358.3,32699,1,4,0)
 ;;=4^H21.81
 ;;^UTILITY(U,$J,358.3,32699,2)
 ;;=^5005263
 ;;^UTILITY(U,$J,358.3,32700,0)
 ;;=H20.812^^128^1667^59
 ;;^UTILITY(U,$J,358.3,32700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32700,1,3,0)
 ;;=3^Fuchs' Heterochromic Cyclitis,OS
 ;;^UTILITY(U,$J,358.3,32700,1,4,0)
 ;;=4^H20.812
 ;;^UTILITY(U,$J,358.3,32700,2)
 ;;=^5005163
 ;;^UTILITY(U,$J,358.3,32701,0)
 ;;=H20.811^^128^1667^58
 ;;^UTILITY(U,$J,358.3,32701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32701,1,3,0)
 ;;=3^Fuchs' Heterochromic Cyclitis,OD
 ;;^UTILITY(U,$J,358.3,32701,1,4,0)
 ;;=4^H20.811
 ;;^UTILITY(U,$J,358.3,32701,2)
 ;;=^5005162
 ;;^UTILITY(U,$J,358.3,32702,0)
 ;;=H18.50^^128^1667^33
 ;;^UTILITY(U,$J,358.3,32702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32702,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Unspec
 ;;^UTILITY(U,$J,358.3,32702,1,4,0)
 ;;=4^H18.50
 ;;^UTILITY(U,$J,358.3,32702,2)
 ;;=^5005084
 ;;^UTILITY(U,$J,358.3,32703,0)
 ;;=H21.02^^128^1667^61
 ;;^UTILITY(U,$J,358.3,32703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32703,1,3,0)
 ;;=3^Hyphema,OS
 ;;^UTILITY(U,$J,358.3,32703,1,4,0)
 ;;=4^H21.02
 ;;^UTILITY(U,$J,358.3,32703,2)
 ;;=^5005173
 ;;^UTILITY(U,$J,358.3,32704,0)
 ;;=H21.01^^128^1667^60
 ;;^UTILITY(U,$J,358.3,32704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32704,1,3,0)
 ;;=3^Hyphema,OD
 ;;^UTILITY(U,$J,358.3,32704,1,4,0)
 ;;=4^H21.01
 ;;^UTILITY(U,$J,358.3,32704,2)
 ;;=^5005172
 ;;^UTILITY(U,$J,358.3,32705,0)
 ;;=H20.052^^128^1667^57
 ;;^UTILITY(U,$J,358.3,32705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32705,1,3,0)
 ;;=3^Hypopyon,OS
 ;;^UTILITY(U,$J,358.3,32705,1,4,0)
 ;;=4^H20.052
 ;;^UTILITY(U,$J,358.3,32705,2)
 ;;=^5005151
 ;;^UTILITY(U,$J,358.3,32706,0)
 ;;=H20.051^^128^1667^56
 ;;^UTILITY(U,$J,358.3,32706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32706,1,3,0)
 ;;=3^Hypopyon,OD
 ;;^UTILITY(U,$J,358.3,32706,1,4,0)
 ;;=4^H20.051
 ;;^UTILITY(U,$J,358.3,32706,2)
 ;;=^5005150
 ;;^UTILITY(U,$J,358.3,32707,0)
 ;;=H20.00^^128^1667^55
 ;;^UTILITY(U,$J,358.3,32707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32707,1,3,0)
 ;;=3^Iridocyclitis,Unspec Acute and Subacute
 ;;^UTILITY(U,$J,358.3,32707,1,4,0)
 ;;=4^H20.00
 ;;^UTILITY(U,$J,358.3,32707,2)
 ;;=^5005133
 ;;^UTILITY(U,$J,358.3,32708,0)
 ;;=H21.262^^128^1667^54