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

IBDEI2WB.m

Go to the documentation of this file.
IBDEI2WB ; ; 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,46187,2)
 ;;=^87396
 ;;^UTILITY(U,$J,358.3,46188,0)
 ;;=B30.8^^176^2301^7
 ;;^UTILITY(U,$J,358.3,46188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46188,1,3,0)
 ;;=3^Conjunctivitis,Viral
 ;;^UTILITY(U,$J,358.3,46188,1,4,0)
 ;;=4^B30.8
 ;;^UTILITY(U,$J,358.3,46188,2)
 ;;=^88239
 ;;^UTILITY(U,$J,358.3,46189,0)
 ;;=H10.13^^176^2301^8
 ;;^UTILITY(U,$J,358.3,46189,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46189,1,3,0)
 ;;=3^Conjunctivitis,Atopic,Bilateral
 ;;^UTILITY(U,$J,358.3,46189,1,4,0)
 ;;=4^H10.13
 ;;^UTILITY(U,$J,358.3,46189,2)
 ;;=^5004667
 ;;^UTILITY(U,$J,358.3,46190,0)
 ;;=H10.419^^176^2301^9
 ;;^UTILITY(U,$J,358.3,46190,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46190,1,3,0)
 ;;=3^Giant Papillary Conjunctivitis,Chronic
 ;;^UTILITY(U,$J,358.3,46190,1,4,0)
 ;;=4^H10.419
 ;;^UTILITY(U,$J,358.3,46190,2)
 ;;=^5004687
 ;;^UTILITY(U,$J,358.3,46191,0)
 ;;=H10.219^^176^2301^10
 ;;^UTILITY(U,$J,358.3,46191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46191,1,3,0)
 ;;=3^Toxic Conjunctivitis,Acute
 ;;^UTILITY(U,$J,358.3,46191,1,4,0)
 ;;=4^H10.219
 ;;^UTILITY(U,$J,358.3,46191,2)
 ;;=^5004671
 ;;^UTILITY(U,$J,358.3,46192,0)
 ;;=M35.01^^176^2301^11
 ;;^UTILITY(U,$J,358.3,46192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46192,1,3,0)
 ;;=3^Keratoconjunctivitis w/ Sicca Syndrome
 ;;^UTILITY(U,$J,358.3,46192,1,4,0)
 ;;=4^M35.01
 ;;^UTILITY(U,$J,358.3,46192,2)
 ;;=^5011787
 ;;^UTILITY(U,$J,358.3,46193,0)
 ;;=H11.31^^176^2301^12
 ;;^UTILITY(U,$J,358.3,46193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46193,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,46193,1,4,0)
 ;;=4^H11.31
 ;;^UTILITY(U,$J,358.3,46193,2)
 ;;=^5004782
 ;;^UTILITY(U,$J,358.3,46194,0)
 ;;=H11.32^^176^2301^13
 ;;^UTILITY(U,$J,358.3,46194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46194,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,46194,1,4,0)
 ;;=4^H11.32
 ;;^UTILITY(U,$J,358.3,46194,2)
 ;;=^5004783
 ;;^UTILITY(U,$J,358.3,46195,0)
 ;;=H15.101^^176^2301^14
 ;;^UTILITY(U,$J,358.3,46195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46195,1,3,0)
 ;;=3^Episcleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,46195,1,4,0)
 ;;=4^H15.101
 ;;^UTILITY(U,$J,358.3,46195,2)
 ;;=^5004835
 ;;^UTILITY(U,$J,358.3,46196,0)
 ;;=H15.102^^176^2301^15
 ;;^UTILITY(U,$J,358.3,46196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46196,1,3,0)
 ;;=3^Episcleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,46196,1,4,0)
 ;;=4^H15.102
 ;;^UTILITY(U,$J,358.3,46196,2)
 ;;=^5004836
 ;;^UTILITY(U,$J,358.3,46197,0)
 ;;=H15.001^^176^2301^16
 ;;^UTILITY(U,$J,358.3,46197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46197,1,3,0)
 ;;=3^Scleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,46197,1,4,0)
 ;;=4^H15.001
 ;;^UTILITY(U,$J,358.3,46197,2)
 ;;=^5004810
 ;;^UTILITY(U,$J,358.3,46198,0)
 ;;=H15.002^^176^2301^17
 ;;^UTILITY(U,$J,358.3,46198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46198,1,3,0)
 ;;=3^Scleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,46198,1,4,0)
 ;;=4^H15.002
 ;;^UTILITY(U,$J,358.3,46198,2)
 ;;=^5004811
 ;;^UTILITY(U,$J,358.3,46199,0)
 ;;=H11.001^^176^2301^18
 ;;^UTILITY(U,$J,358.3,46199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46199,1,3,0)
 ;;=3^Pterygium,Right Eye
 ;;^UTILITY(U,$J,358.3,46199,1,4,0)
 ;;=4^H11.001
 ;;^UTILITY(U,$J,358.3,46199,2)
 ;;=^5004717
 ;;^UTILITY(U,$J,358.3,46200,0)
 ;;=H11.002^^176^2301^19