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

IBDEI21S.m

Go to the documentation of this file.
  1. IBDEI21S ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,32683,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32683,1,3,0)
  1. ;;=3^Corneal Deposit,OU,Unspec
  1. ;;^UTILITY(U,$J,358.3,32683,1,4,0)
  1. ;;=4^H18.003
  1. ;;^UTILITY(U,$J,358.3,32683,2)
  1. ;;=^5005006
  1. ;;^UTILITY(U,$J,358.3,32684,0)
  1. ;;=H18.002^^128^1667^21
  1. ;;^UTILITY(U,$J,358.3,32684,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32684,1,3,0)
  1. ;;=3^Corneal Deposit,OS,Unspec
  1. ;;^UTILITY(U,$J,358.3,32684,1,4,0)
  1. ;;=4^H18.002
  1. ;;^UTILITY(U,$J,358.3,32684,2)
  1. ;;=^5005005
  1. ;;^UTILITY(U,$J,358.3,32685,0)
  1. ;;=H18.001^^128^1667^20
  1. ;;^UTILITY(U,$J,358.3,32685,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32685,1,3,0)
  1. ;;=3^Corneal Deposit,OD,Unspec
  1. ;;^UTILITY(U,$J,358.3,32685,1,4,0)
  1. ;;=4^H18.001
  1. ;;^UTILITY(U,$J,358.3,32685,2)
  1. ;;=^5005004
  1. ;;^UTILITY(U,$J,358.3,32686,0)
  1. ;;=H18.712^^128^1667^38
  1. ;;^UTILITY(U,$J,358.3,32686,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32686,1,3,0)
  1. ;;=3^Corneal Ectasia,OS
  1. ;;^UTILITY(U,$J,358.3,32686,1,4,0)
  1. ;;=4^H18.712
  1. ;;^UTILITY(U,$J,358.3,32686,2)
  1. ;;=^5005103
  1. ;;^UTILITY(U,$J,358.3,32687,0)
  1. ;;=H18.711^^128^1667^37
  1. ;;^UTILITY(U,$J,358.3,32687,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32687,1,3,0)
  1. ;;=3^Corneal Ectasia,OD
  1. ;;^UTILITY(U,$J,358.3,32687,1,4,0)
  1. ;;=4^H18.711
  1. ;;^UTILITY(U,$J,358.3,32687,2)
  1. ;;=^5005102
  1. ;;^UTILITY(U,$J,358.3,32688,0)
  1. ;;=H18.20^^128^1667^40
  1. ;;^UTILITY(U,$J,358.3,32688,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32688,1,3,0)
  1. ;;=3^Corneal Edema,Unspec
  1. ;;^UTILITY(U,$J,358.3,32688,1,4,0)
  1. ;;=4^H18.20
  1. ;;^UTILITY(U,$J,358.3,32688,2)
  1. ;;=^5005035
  1. ;;^UTILITY(U,$J,358.3,32689,0)
  1. ;;=H16.403^^128^1667^15
  1. ;;^UTILITY(U,$J,358.3,32689,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32689,1,3,0)
  1. ;;=3^Corneal Neovascularization,OU,Unspec
  1. ;;^UTILITY(U,$J,358.3,32689,1,4,0)
  1. ;;=4^H16.403
  1. ;;^UTILITY(U,$J,358.3,32689,2)
  1. ;;=^5004967
  1. ;;^UTILITY(U,$J,358.3,32690,0)
  1. ;;=H16.401^^128^1667^13
  1. ;;^UTILITY(U,$J,358.3,32690,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32690,1,3,0)
  1. ;;=3^Corneal Neovascularization,OD,Unspec
  1. ;;^UTILITY(U,$J,358.3,32690,1,4,0)
  1. ;;=4^H16.401
  1. ;;^UTILITY(U,$J,358.3,32690,2)
  1. ;;=^5004965
  1. ;;^UTILITY(U,$J,358.3,32691,0)
  1. ;;=H16.402^^128^1667^14
  1. ;;^UTILITY(U,$J,358.3,32691,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32691,1,3,0)
  1. ;;=3^Corneal Neovascularization,OS,Unspec
  1. ;;^UTILITY(U,$J,358.3,32691,1,4,0)
  1. ;;=4^H16.402
  1. ;;^UTILITY(U,$J,358.3,32691,2)
  1. ;;=^5004966
  1. ;;^UTILITY(U,$J,358.3,32692,0)
  1. ;;=H21.242^^128^1667^45
  1. ;;^UTILITY(U,$J,358.3,32692,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32692,1,3,0)
  1. ;;=3^Degen of Pupillary Margin,OS
  1. ;;^UTILITY(U,$J,358.3,32692,1,4,0)
  1. ;;=4^H21.242
  1. ;;^UTILITY(U,$J,358.3,32692,2)
  1. ;;=^5005192
  1. ;;^UTILITY(U,$J,358.3,32693,0)
  1. ;;=H21.241^^128^1667^44
  1. ;;^UTILITY(U,$J,358.3,32693,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32693,1,3,0)
  1. ;;=3^Degen of Pupillary Margin,OD
  1. ;;^UTILITY(U,$J,358.3,32693,1,4,0)
  1. ;;=4^H21.241
  1. ;;^UTILITY(U,$J,358.3,32693,2)
  1. ;;=^5005191
  1. ;;^UTILITY(U,$J,358.3,32694,0)
  1. ;;=H18.9^^128^1667^41
  1. ;;^UTILITY(U,$J,358.3,32694,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32694,1,3,0)
  1. ;;=3^Cornea Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,32694,1,4,0)
  1. ;;=4^H18.9
  1. ;;^UTILITY(U,$J,358.3,32694,2)
  1. ;;=^5005132
  1. ;;^UTILITY(U,$J,358.3,32695,0)
  1. ;;=H18.51^^128^1667^34
  1. ;;^UTILITY(U,$J,358.3,32695,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32695,1,3,0)
  1. ;;=3^Endothelial Corneal Dystrophy