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

IBDEI3GA.m

Go to the documentation of this file.
IBDEI3GA ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,58047,1,4,0)
 ;;=4^H17.823
 ;;^UTILITY(U,$J,358.3,58047,2)
 ;;=^5005000
 ;;^UTILITY(U,$J,358.3,58048,0)
 ;;=H11.153^^272^2900^130
 ;;^UTILITY(U,$J,358.3,58048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58048,1,3,0)
 ;;=3^Pinguecula,Bilateral
 ;;^UTILITY(U,$J,358.3,58048,1,4,0)
 ;;=4^H11.153
 ;;^UTILITY(U,$J,358.3,58048,2)
 ;;=^5004763
 ;;^UTILITY(U,$J,358.3,58049,0)
 ;;=H18.053^^272^2900^133
 ;;^UTILITY(U,$J,358.3,58049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58049,1,3,0)
 ;;=3^Posterior Corneal Pigmentations,Bilateral
 ;;^UTILITY(U,$J,358.3,58049,1,4,0)
 ;;=4^H18.053
 ;;^UTILITY(U,$J,358.3,58049,2)
 ;;=^5005025
 ;;^UTILITY(U,$J,358.3,58050,0)
 ;;=H21.543^^272^2900^136
 ;;^UTILITY(U,$J,358.3,58050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58050,1,3,0)
 ;;=3^Posterior Synechiae,Bilateral
 ;;^UTILITY(U,$J,358.3,58050,1,4,0)
 ;;=4^H21.543
 ;;^UTILITY(U,$J,358.3,58050,2)
 ;;=^5005253
 ;;^UTILITY(U,$J,358.3,58051,0)
 ;;=H11.003^^272^2900^139
 ;;^UTILITY(U,$J,358.3,58051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58051,1,3,0)
 ;;=3^Pterygium,Bilateral
 ;;^UTILITY(U,$J,358.3,58051,1,4,0)
 ;;=4^H11.003
 ;;^UTILITY(U,$J,358.3,58051,2)
 ;;=^5004719
 ;;^UTILITY(U,$J,358.3,58052,0)
 ;;=H16.143^^272^2900^142
 ;;^UTILITY(U,$J,358.3,58052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58052,1,3,0)
 ;;=3^Punctate Keratitis,Bilateral
 ;;^UTILITY(U,$J,358.3,58052,1,4,0)
 ;;=4^H16.143
 ;;^UTILITY(U,$J,358.3,58052,2)
 ;;=^5004915
 ;;^UTILITY(U,$J,358.3,58053,0)
 ;;=H21.553^^272^2900^145
 ;;^UTILITY(U,$J,358.3,58053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58053,1,3,0)
 ;;=3^Recession of Chamber Angle,Bilateral
 ;;^UTILITY(U,$J,358.3,58053,1,4,0)
 ;;=4^H21.553
 ;;^UTILITY(U,$J,358.3,58053,2)
 ;;=^5005257
 ;;^UTILITY(U,$J,358.3,58054,0)
 ;;=H18.833^^272^2900^148
 ;;^UTILITY(U,$J,358.3,58054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58054,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Bilateral
 ;;^UTILITY(U,$J,358.3,58054,1,4,0)
 ;;=4^H18.833
 ;;^UTILITY(U,$J,358.3,58054,2)
 ;;=^5005128
 ;;^UTILITY(U,$J,358.3,58055,0)
 ;;=H11.233^^272^2900^154
 ;;^UTILITY(U,$J,358.3,58055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58055,1,3,0)
 ;;=3^Symblepharon,Bilateral
 ;;^UTILITY(U,$J,358.3,58055,1,4,0)
 ;;=4^H11.233
 ;;^UTILITY(U,$J,358.3,58055,2)
 ;;=^5004775
 ;;^UTILITY(U,$J,358.3,58056,0)
 ;;=H10.213^^272^2900^157
 ;;^UTILITY(U,$J,358.3,58056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58056,1,3,0)
 ;;=3^Toxic Conjunctivitis,Bilateral,Acute
 ;;^UTILITY(U,$J,358.3,58056,1,4,0)
 ;;=4^H10.213
 ;;^UTILITY(U,$J,358.3,58056,2)
 ;;=^5004670
 ;;^UTILITY(U,$J,358.3,58057,0)
 ;;=H31.401^^272^2901^13
 ;;^UTILITY(U,$J,358.3,58057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58057,1,3,0)
 ;;=3^Choroidal Detachment,Right Eye,Unspec
 ;;^UTILITY(U,$J,358.3,58057,1,4,0)
 ;;=4^H31.401
 ;;^UTILITY(U,$J,358.3,58057,2)
 ;;=^5005476
 ;;^UTILITY(U,$J,358.3,58058,0)
 ;;=H31.402^^272^2901^12
 ;;^UTILITY(U,$J,358.3,58058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58058,1,3,0)
 ;;=3^Choroidal Detachment,Left Eye,Unspec
 ;;^UTILITY(U,$J,358.3,58058,1,4,0)
 ;;=4^H31.402
 ;;^UTILITY(U,$J,358.3,58058,2)
 ;;=^5005477
 ;;^UTILITY(U,$J,358.3,58059,0)
 ;;=H31.421^^272^2901^120
 ;;^UTILITY(U,$J,358.3,58059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58059,1,3,0)
 ;;=3^Serous Choroidal Detachment,Right Eye
 ;;^UTILITY(U,$J,358.3,58059,1,4,0)
 ;;=4^H31.421
 ;;^UTILITY(U,$J,358.3,58059,2)
 ;;=^5005483
 ;;^UTILITY(U,$J,358.3,58060,0)
 ;;=H31.422^^272^2901^119
 ;;^UTILITY(U,$J,358.3,58060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,58060,1,3,0)
 ;;=3^Serous Choroidal Detachment,Left Eye