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

IBDEI2WD.m

Go to the documentation of this file.
IBDEI2WD ; ; 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,46212,2)
 ;;=^5004871
 ;;^UTILITY(U,$J,358.3,46213,0)
 ;;=H16.049^^176^2302^3
 ;;^UTILITY(U,$J,358.3,46213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46213,1,3,0)
 ;;=3^Marginal Corneal Ulcer,Unspec Eye
 ;;^UTILITY(U,$J,358.3,46213,1,4,0)
 ;;=4^H16.049
 ;;^UTILITY(U,$J,358.3,46213,2)
 ;;=^5004885
 ;;^UTILITY(U,$J,358.3,46214,0)
 ;;=H17.10^^176^2302^4
 ;;^UTILITY(U,$J,358.3,46214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46214,1,3,0)
 ;;=3^Central Corneal Opacity,Unspec Eye
 ;;^UTILITY(U,$J,358.3,46214,1,4,0)
 ;;=4^H17.10
 ;;^UTILITY(U,$J,358.3,46214,2)
 ;;=^5004990
 ;;^UTILITY(U,$J,358.3,46215,0)
 ;;=H17.9^^176^2302^5
 ;;^UTILITY(U,$J,358.3,46215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46215,1,3,0)
 ;;=3^Corneal Scar & Opacity
 ;;^UTILITY(U,$J,358.3,46215,1,4,0)
 ;;=4^H17.9
 ;;^UTILITY(U,$J,358.3,46215,2)
 ;;=^5005003
 ;;^UTILITY(U,$J,358.3,46216,0)
 ;;=H16.401^^176^2302^6
 ;;^UTILITY(U,$J,358.3,46216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46216,1,3,0)
 ;;=3^Corneal Neovascularization,Right Eye
 ;;^UTILITY(U,$J,358.3,46216,1,4,0)
 ;;=4^H16.401
 ;;^UTILITY(U,$J,358.3,46216,2)
 ;;=^5004965
 ;;^UTILITY(U,$J,358.3,46217,0)
 ;;=H16.402^^176^2302^7
 ;;^UTILITY(U,$J,358.3,46217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46217,1,3,0)
 ;;=3^Corneal Neovascularization,Left Eye
 ;;^UTILITY(U,$J,358.3,46217,1,4,0)
 ;;=4^H16.402
 ;;^UTILITY(U,$J,358.3,46217,2)
 ;;=^5004966
 ;;^UTILITY(U,$J,358.3,46218,0)
 ;;=H18.20^^176^2302^8
 ;;^UTILITY(U,$J,358.3,46218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46218,1,3,0)
 ;;=3^Corneal Edema
 ;;^UTILITY(U,$J,358.3,46218,1,4,0)
 ;;=4^H18.20
 ;;^UTILITY(U,$J,358.3,46218,2)
 ;;=^5005035
 ;;^UTILITY(U,$J,358.3,46219,0)
 ;;=H18.231^^176^2302^9
 ;;^UTILITY(U,$J,358.3,46219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46219,1,3,0)
 ;;=3^Corneal Edema,Right Eye,Secondary
 ;;^UTILITY(U,$J,358.3,46219,1,4,0)
 ;;=4^H18.231
 ;;^UTILITY(U,$J,358.3,46219,2)
 ;;=^5005044
 ;;^UTILITY(U,$J,358.3,46220,0)
 ;;=H18.232^^176^2302^10
 ;;^UTILITY(U,$J,358.3,46220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46220,1,3,0)
 ;;=3^Corneal Edema,Left Eye,Secondary
 ;;^UTILITY(U,$J,358.3,46220,1,4,0)
 ;;=4^H18.232
 ;;^UTILITY(U,$J,358.3,46220,2)
 ;;=^5005045
 ;;^UTILITY(U,$J,358.3,46221,0)
 ;;=H18.11^^176^2302^11
 ;;^UTILITY(U,$J,358.3,46221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46221,1,3,0)
 ;;=3^Bullous Keratopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,46221,1,4,0)
 ;;=4^H18.11
 ;;^UTILITY(U,$J,358.3,46221,2)
 ;;=^5005032
 ;;^UTILITY(U,$J,358.3,46222,0)
 ;;=H18.12^^176^2302^12
 ;;^UTILITY(U,$J,358.3,46222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46222,1,3,0)
 ;;=3^Bullous Keratopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,46222,1,4,0)
 ;;=4^H18.12
 ;;^UTILITY(U,$J,358.3,46222,2)
 ;;=^5005033
 ;;^UTILITY(U,$J,358.3,46223,0)
 ;;=H18.51^^176^2302^13
 ;;^UTILITY(U,$J,358.3,46223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46223,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy
 ;;^UTILITY(U,$J,358.3,46223,1,4,0)
 ;;=4^H18.51
 ;;^UTILITY(U,$J,358.3,46223,2)
 ;;=^268988
 ;;^UTILITY(U,$J,358.3,46224,0)
 ;;=H18.50^^176^2302^14
 ;;^UTILITY(U,$J,358.3,46224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46224,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies
 ;;^UTILITY(U,$J,358.3,46224,1,4,0)
 ;;=4^H18.50
 ;;^UTILITY(U,$J,358.3,46224,2)
 ;;=^5005084
 ;;^UTILITY(U,$J,358.3,46225,0)
 ;;=H18.601^^176^2302^15