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

IBDEI2WG.m

Go to the documentation of this file.
IBDEI2WG ; ; 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,46249,2)
 ;;=^5063739
 ;;^UTILITY(U,$J,358.3,46250,0)
 ;;=Z96.1^^176^2303^11
 ;;^UTILITY(U,$J,358.3,46250,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46250,1,3,0)
 ;;=3^Pseudophakia/Intraocular Lens,Unspec Eye
 ;;^UTILITY(U,$J,358.3,46250,1,4,0)
 ;;=4^Z96.1
 ;;^UTILITY(U,$J,358.3,46250,2)
 ;;=^5063682
 ;;^UTILITY(U,$J,358.3,46251,0)
 ;;=H26.491^^176^2303^13
 ;;^UTILITY(U,$J,358.3,46251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46251,1,3,0)
 ;;=3^PCO/Secondary Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,46251,1,4,0)
 ;;=4^H26.491
 ;;^UTILITY(U,$J,358.3,46251,2)
 ;;=^5005358
 ;;^UTILITY(U,$J,358.3,46252,0)
 ;;=H26.492^^176^2303^14
 ;;^UTILITY(U,$J,358.3,46252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46252,1,3,0)
 ;;=3^PCO/Secondary Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,46252,1,4,0)
 ;;=4^H26.492
 ;;^UTILITY(U,$J,358.3,46252,2)
 ;;=^5005359
 ;;^UTILITY(U,$J,358.3,46253,0)
 ;;=H59.031^^176^2303^15
 ;;^UTILITY(U,$J,358.3,46253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46253,1,3,0)
 ;;=3^CME after Cataract Surgery,Right Eye
 ;;^UTILITY(U,$J,358.3,46253,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,46253,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,46254,0)
 ;;=H59.032^^176^2303^16
 ;;^UTILITY(U,$J,358.3,46254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46254,1,3,0)
 ;;=3^CME after Cataract Surgery,Left Eye
 ;;^UTILITY(U,$J,358.3,46254,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,46254,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,46255,0)
 ;;=H20.9^^176^2303^18
 ;;^UTILITY(U,$J,358.3,46255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46255,1,3,0)
 ;;=3^Iridocyclitis,Unspec
 ;;^UTILITY(U,$J,358.3,46255,1,4,0)
 ;;=4^H20.9
 ;;^UTILITY(U,$J,358.3,46255,2)
 ;;=^5005170
 ;;^UTILITY(U,$J,358.3,46256,0)
 ;;=H20.21^^176^2303^19
 ;;^UTILITY(U,$J,358.3,46256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46256,1,3,0)
 ;;=3^Iridocyclitis,Lens-Induced,Right Eye
 ;;^UTILITY(U,$J,358.3,46256,1,4,0)
 ;;=4^H20.21
 ;;^UTILITY(U,$J,358.3,46256,2)
 ;;=^5005159
 ;;^UTILITY(U,$J,358.3,46257,0)
 ;;=H20.22^^176^2303^20
 ;;^UTILITY(U,$J,358.3,46257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46257,1,3,0)
 ;;=3^Iridocyclitis,Lens-Induced,Left Eye
 ;;^UTILITY(U,$J,358.3,46257,1,4,0)
 ;;=4^H20.22
 ;;^UTILITY(U,$J,358.3,46257,2)
 ;;=^5005160
 ;;^UTILITY(U,$J,358.3,46258,0)
 ;;=H21.81^^176^2303^21
 ;;^UTILITY(U,$J,358.3,46258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46258,1,3,0)
 ;;=3^Floppy Iris Syndrome
 ;;^UTILITY(U,$J,358.3,46258,1,4,0)
 ;;=4^H21.81
 ;;^UTILITY(U,$J,358.3,46258,2)
 ;;=^5005263
 ;;^UTILITY(U,$J,358.3,46259,0)
 ;;=H27.01^^176^2303^23
 ;;^UTILITY(U,$J,358.3,46259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46259,1,3,0)
 ;;=3^Aphakia,Right Eye
 ;;^UTILITY(U,$J,358.3,46259,1,4,0)
 ;;=4^H27.01
 ;;^UTILITY(U,$J,358.3,46259,2)
 ;;=^5005365
 ;;^UTILITY(U,$J,358.3,46260,0)
 ;;=H27.02^^176^2303^24
 ;;^UTILITY(U,$J,358.3,46260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46260,1,3,0)
 ;;=3^Aphakia,Left Eye
 ;;^UTILITY(U,$J,358.3,46260,1,4,0)
 ;;=4^H27.02
 ;;^UTILITY(U,$J,358.3,46260,2)
 ;;=^5005366
 ;;^UTILITY(U,$J,358.3,46261,0)
 ;;=H27.111^^176^2303^25
 ;;^UTILITY(U,$J,358.3,46261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46261,1,3,0)
 ;;=3^Subluxation of Lens,Right Eye
 ;;^UTILITY(U,$J,358.3,46261,1,4,0)
 ;;=4^H27.111
 ;;^UTILITY(U,$J,358.3,46261,2)
 ;;=^5005369
 ;;^UTILITY(U,$J,358.3,46262,0)
 ;;=H27.112^^176^2303^26