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