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

IBDEI3HR.m

Go to the documentation of this file.
  1. IBDEI3HR ; ; 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,58715,1,4,0)
  1. ;;=4^H35.022
  1. ;;^UTILITY(U,$J,358.3,58715,2)
  1. ;;=^5005587
  1. ;;^UTILITY(U,$J,358.3,58716,0)
  1. ;;=H35.021^^272^2910^45
  1. ;;^UTILITY(U,$J,358.3,58716,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58716,1,3,0)
  1. ;;=3^Exudative Retinopathy,Right Eye
  1. ;;^UTILITY(U,$J,358.3,58716,1,4,0)
  1. ;;=4^H35.021
  1. ;;^UTILITY(U,$J,358.3,58716,2)
  1. ;;=^5005586
  1. ;;^UTILITY(U,$J,358.3,58717,0)
  1. ;;=H35.373^^272^2910^71
  1. ;;^UTILITY(U,$J,358.3,58717,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58717,1,3,0)
  1. ;;=3^Puckering of Macula,Bilateral
  1. ;;^UTILITY(U,$J,358.3,58717,1,4,0)
  1. ;;=4^H35.373
  1. ;;^UTILITY(U,$J,358.3,58717,2)
  1. ;;=^5005664
  1. ;;^UTILITY(U,$J,358.3,58718,0)
  1. ;;=H35.31^^272^2910^64
  1. ;;^UTILITY(U,$J,358.3,58718,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58718,1,3,0)
  1. ;;=3^Nonexudative Age-Related Macular Degeneration
  1. ;;^UTILITY(U,$J,358.3,58718,1,4,0)
  1. ;;=4^H35.31
  1. ;;^UTILITY(U,$J,358.3,58718,2)
  1. ;;=^5005647
  1. ;;^UTILITY(U,$J,358.3,58719,0)
  1. ;;=H31.422^^272^2910^100
  1. ;;^UTILITY(U,$J,358.3,58719,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58719,1,3,0)
  1. ;;=3^Serous Choroidal Detachment,Left Eye
  1. ;;^UTILITY(U,$J,358.3,58719,1,4,0)
  1. ;;=4^H31.422
  1. ;;^UTILITY(U,$J,358.3,58719,2)
  1. ;;=^5005484
  1. ;;^UTILITY(U,$J,358.3,58720,0)
  1. ;;=H31.421^^272^2910^101
  1. ;;^UTILITY(U,$J,358.3,58720,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58720,1,3,0)
  1. ;;=3^Serous Choroidal Detachment,Right Eye
  1. ;;^UTILITY(U,$J,358.3,58720,1,4,0)
  1. ;;=4^H31.421
  1. ;;^UTILITY(U,$J,358.3,58720,2)
  1. ;;=^5005483
  1. ;;^UTILITY(U,$J,358.3,58721,0)
  1. ;;=B58.01^^272^2910^109
  1. ;;^UTILITY(U,$J,358.3,58721,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58721,1,3,0)
  1. ;;=3^Toxoplasma Chorioretinitis
  1. ;;^UTILITY(U,$J,358.3,58721,1,4,0)
  1. ;;=4^B58.01
  1. ;;^UTILITY(U,$J,358.3,58721,2)
  1. ;;=^5000724
  1. ;;^UTILITY(U,$J,358.3,58722,0)
  1. ;;=H53.001^^272^2911^2
  1. ;;^UTILITY(U,$J,358.3,58722,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58722,1,3,0)
  1. ;;=3^Amblyopia,Right Eye,Unspec
  1. ;;^UTILITY(U,$J,358.3,58722,1,4,0)
  1. ;;=4^H53.001
  1. ;;^UTILITY(U,$J,358.3,58722,2)
  1. ;;=^5006292
  1. ;;^UTILITY(U,$J,358.3,58723,0)
  1. ;;=H53.002^^272^2911^1
  1. ;;^UTILITY(U,$J,358.3,58723,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58723,1,3,0)
  1. ;;=3^Amblyopia,Left Eye,Unspec
  1. ;;^UTILITY(U,$J,358.3,58723,1,4,0)
  1. ;;=4^H53.002
  1. ;;^UTILITY(U,$J,358.3,58723,2)
  1. ;;=^5006293
  1. ;;^UTILITY(U,$J,358.3,58724,0)
  1. ;;=H50.00^^272^2911^6
  1. ;;^UTILITY(U,$J,358.3,58724,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58724,1,3,0)
  1. ;;=3^Esotropia,Unspec
  1. ;;^UTILITY(U,$J,358.3,58724,1,4,0)
  1. ;;=4^H50.00
  1. ;;^UTILITY(U,$J,358.3,58724,2)
  1. ;;=^5006208
  1. ;;^UTILITY(U,$J,358.3,58725,0)
  1. ;;=H50.10^^272^2911^8
  1. ;;^UTILITY(U,$J,358.3,58725,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58725,1,3,0)
  1. ;;=3^Exotropia,Unspec
  1. ;;^UTILITY(U,$J,358.3,58725,1,4,0)
  1. ;;=4^H50.10
  1. ;;^UTILITY(U,$J,358.3,58725,2)
  1. ;;=^5006218
  1. ;;^UTILITY(U,$J,358.3,58726,0)
  1. ;;=H50.40^^272^2911^10
  1. ;;^UTILITY(U,$J,358.3,58726,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58726,1,3,0)
  1. ;;=3^Heterotropia,Unspec
  1. ;;^UTILITY(U,$J,358.3,58726,1,4,0)
  1. ;;=4^H50.40
  1. ;;^UTILITY(U,$J,358.3,58726,2)
  1. ;;=^5006237
  1. ;;^UTILITY(U,$J,358.3,58727,0)
  1. ;;=H50.50^^272^2911^9
  1. ;;^UTILITY(U,$J,358.3,58727,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58727,1,3,0)
  1. ;;=3^Heterophoria,Unspec
  1. ;;^UTILITY(U,$J,358.3,58727,1,4,0)
  1. ;;=4^H50.50
  1. ;;^UTILITY(U,$J,358.3,58727,2)
  1. ;;=^5006240
  1. ;;^UTILITY(U,$J,358.3,58728,0)
  1. ;;=H50.51^^272^2911^5
  1. ;;^UTILITY(U,$J,358.3,58728,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58728,1,3,0)
  1. ;;=3^Esophoria
  1. ;;^UTILITY(U,$J,358.3,58728,1,4,0)
  1. ;;=4^H50.51