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

IBDEI21M.m

Go to the documentation of this file.
IBDEI21M ; ; 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,32608,1,3,0)
 ;;=3^Exudative AMD,Rt Eye
 ;;^UTILITY(U,$J,358.3,32608,1,4,0)
 ;;=4^H35.3210
 ;;^UTILITY(U,$J,358.3,32608,2)
 ;;=^5138520
 ;;^UTILITY(U,$J,358.3,32609,0)
 ;;=H35.3220^^128^1665^29
 ;;^UTILITY(U,$J,358.3,32609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32609,1,3,0)
 ;;=3^Exudative AMD,Lt Eye
 ;;^UTILITY(U,$J,358.3,32609,1,4,0)
 ;;=4^H35.3220
 ;;^UTILITY(U,$J,358.3,32609,2)
 ;;=^5138524
 ;;^UTILITY(U,$J,358.3,32610,0)
 ;;=R51.^^128^1665^31
 ;;^UTILITY(U,$J,358.3,32610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32610,1,3,0)
 ;;=3^Headache
 ;;^UTILITY(U,$J,358.3,32610,1,4,0)
 ;;=4^R51.
 ;;^UTILITY(U,$J,358.3,32610,2)
 ;;=^5019513
 ;;^UTILITY(U,$J,358.3,32611,0)
 ;;=H20.00^^128^1665^32
 ;;^UTILITY(U,$J,358.3,32611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32611,1,3,0)
 ;;=3^Iridocyclitis,Acute/Subacute,Unspec
 ;;^UTILITY(U,$J,358.3,32611,1,4,0)
 ;;=4^H20.00
 ;;^UTILITY(U,$J,358.3,32611,2)
 ;;=^5005133
 ;;^UTILITY(U,$J,358.3,32612,0)
 ;;=H02.204^^128^1665^33
 ;;^UTILITY(U,$J,358.3,32612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32612,1,3,0)
 ;;=3^Lagophthalmos,Unspec,Lt Upper Eyelid,Unspec
 ;;^UTILITY(U,$J,358.3,32612,1,4,0)
 ;;=4^H02.204
 ;;^UTILITY(U,$J,358.3,32612,2)
 ;;=^5004330
 ;;^UTILITY(U,$J,358.3,32613,0)
 ;;=H02.201^^128^1665^34
 ;;^UTILITY(U,$J,358.3,32613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32613,1,3,0)
 ;;=3^Lagophthalmos,Unspec,Rt Upper Eyelid,Unspec
 ;;^UTILITY(U,$J,358.3,32613,1,4,0)
 ;;=4^H02.201
 ;;^UTILITY(U,$J,358.3,32613,2)
 ;;=^5004327
 ;;^UTILITY(U,$J,358.3,32614,0)
 ;;=H40.053^^128^1665^35
 ;;^UTILITY(U,$J,358.3,32614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32614,1,3,0)
 ;;=3^Ocular Hypertension,Bilateral
 ;;^UTILITY(U,$J,358.3,32614,1,4,0)
 ;;=4^H40.053
 ;;^UTILITY(U,$J,358.3,32614,2)
 ;;=^5005742
 ;;^UTILITY(U,$J,358.3,32615,0)
 ;;=H26.492^^128^1665^36
 ;;^UTILITY(U,$J,358.3,32615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32615,1,3,0)
 ;;=3^PCO/Secondary Cataract,Lt Eye
 ;;^UTILITY(U,$J,358.3,32615,1,4,0)
 ;;=4^H26.492
 ;;^UTILITY(U,$J,358.3,32615,2)
 ;;=^5005359
 ;;^UTILITY(U,$J,358.3,32616,0)
 ;;=H26.491^^128^1665^37
 ;;^UTILITY(U,$J,358.3,32616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32616,1,3,0)
 ;;=3^PCO/Secondary Cataract,Rt Eye
 ;;^UTILITY(U,$J,358.3,32616,1,4,0)
 ;;=4^H26.491
 ;;^UTILITY(U,$J,358.3,32616,2)
 ;;=^5005358
 ;;^UTILITY(U,$J,358.3,32617,0)
 ;;=E11.3292^^128^1665^16
 ;;^UTILITY(U,$J,358.3,32617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32617,1,3,0)
 ;;=3^DM2 w/ Mild NPDR w/o Macular Edema,Lt Eye
 ;;^UTILITY(U,$J,358.3,32617,1,4,0)
 ;;=4^E11.3292
 ;;^UTILITY(U,$J,358.3,32617,2)
 ;;=^5138336
 ;;^UTILITY(U,$J,358.3,32618,0)
 ;;=E11.3291^^128^1665^17
 ;;^UTILITY(U,$J,358.3,32618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32618,1,3,0)
 ;;=3^DM2 w/ Mild NPDR w/o Macular Edema,Rt Eye
 ;;^UTILITY(U,$J,358.3,32618,1,4,0)
 ;;=4^E11.3291
 ;;^UTILITY(U,$J,358.3,32618,2)
 ;;=^5138335
 ;;^UTILITY(U,$J,358.3,32619,0)
 ;;=E11.3392^^128^1665^18
 ;;^UTILITY(U,$J,358.3,32619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32619,1,3,0)
 ;;=3^DM2 w/ Mod NPDR w/o Macular Edema,Lt Eye
 ;;^UTILITY(U,$J,358.3,32619,1,4,0)
 ;;=4^E11.3392
 ;;^UTILITY(U,$J,358.3,32619,2)
 ;;=^5138344
 ;;^UTILITY(U,$J,358.3,32620,0)
 ;;=E11.3391^^128^1665^19
 ;;^UTILITY(U,$J,358.3,32620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32620,1,3,0)
 ;;=3^DM2 w/ Mod NPDR w/o Macular Edema,Rt Eye