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

IBDEI2WU.m

Go to the documentation of this file.
IBDEI2WU ; ; 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,46418,2)
 ;;=^5005671
 ;;^UTILITY(U,$J,358.3,46419,0)
 ;;=H35.412^^176^2309^19
 ;;^UTILITY(U,$J,358.3,46419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46419,1,3,0)
 ;;=3^Lattice Degeneration,Left Eye
 ;;^UTILITY(U,$J,358.3,46419,1,4,0)
 ;;=4^H35.412
 ;;^UTILITY(U,$J,358.3,46419,2)
 ;;=^5005672
 ;;^UTILITY(U,$J,358.3,46420,0)
 ;;=H35.413^^176^2309^20
 ;;^UTILITY(U,$J,358.3,46420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46420,1,3,0)
 ;;=3^Lattice Degeneration,Bilateral
 ;;^UTILITY(U,$J,358.3,46420,1,4,0)
 ;;=4^H35.413
 ;;^UTILITY(U,$J,358.3,46420,2)
 ;;=^5005673
 ;;^UTILITY(U,$J,358.3,46421,0)
 ;;=H35.52^^176^2309^21
 ;;^UTILITY(U,$J,358.3,46421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46421,1,3,0)
 ;;=3^Retinal Pigmentary Dystrophy
 ;;^UTILITY(U,$J,358.3,46421,1,4,0)
 ;;=4^H35.52
 ;;^UTILITY(U,$J,358.3,46421,2)
 ;;=^5005697
 ;;^UTILITY(U,$J,358.3,46422,0)
 ;;=H35.50^^176^2309^22
 ;;^UTILITY(U,$J,358.3,46422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46422,1,3,0)
 ;;=3^Retinal Dystrophy,Hereditary,Unspec
 ;;^UTILITY(U,$J,358.3,46422,1,4,0)
 ;;=4^H35.50
 ;;^UTILITY(U,$J,358.3,46422,2)
 ;;=^5005695
 ;;^UTILITY(U,$J,358.3,46423,0)
 ;;=H35.363^^176^2310^12
 ;;^UTILITY(U,$J,358.3,46423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46423,1,3,0)
 ;;=3^Drusen of Macula,Bilateral
 ;;^UTILITY(U,$J,358.3,46423,1,4,0)
 ;;=4^H35.363
 ;;^UTILITY(U,$J,358.3,46423,2)
 ;;=^5005660
 ;;^UTILITY(U,$J,358.3,46424,0)
 ;;=H35.731^^176^2310^28
 ;;^UTILITY(U,$J,358.3,46424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46424,1,3,0)
 ;;=3^Hemorrhagic Detachment of RPE,Right Eye
 ;;^UTILITY(U,$J,358.3,46424,1,4,0)
 ;;=4^H35.731
 ;;^UTILITY(U,$J,358.3,46424,2)
 ;;=^5005711
 ;;^UTILITY(U,$J,358.3,46425,0)
 ;;=H35.732^^176^2310^29
 ;;^UTILITY(U,$J,358.3,46425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46425,1,3,0)
 ;;=3^Hemorrhagic Detachment of RPE,Left Eye
 ;;^UTILITY(U,$J,358.3,46425,1,4,0)
 ;;=4^H35.732
 ;;^UTILITY(U,$J,358.3,46425,2)
 ;;=^5005712
 ;;^UTILITY(U,$J,358.3,46426,0)
 ;;=H35.721^^176^2310^30
 ;;^UTILITY(U,$J,358.3,46426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46426,1,3,0)
 ;;=3^Serous Detachment of RPE,Right Eye
 ;;^UTILITY(U,$J,358.3,46426,1,4,0)
 ;;=4^H35.721
 ;;^UTILITY(U,$J,358.3,46426,2)
 ;;=^5005707
 ;;^UTILITY(U,$J,358.3,46427,0)
 ;;=H35.722^^176^2310^31
 ;;^UTILITY(U,$J,358.3,46427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46427,1,3,0)
 ;;=3^Serous Detachment of RPE,Left Eye
 ;;^UTILITY(U,$J,358.3,46427,1,4,0)
 ;;=4^H35.722
 ;;^UTILITY(U,$J,358.3,46427,2)
 ;;=^5005708
 ;;^UTILITY(U,$J,358.3,46428,0)
 ;;=H59.031^^176^2310^13
 ;;^UTILITY(U,$J,358.3,46428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46428,1,3,0)
 ;;=3^CME after Cataract Surgery,Right Eye
 ;;^UTILITY(U,$J,358.3,46428,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,46428,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,46429,0)
 ;;=H59.032^^176^2310^14
 ;;^UTILITY(U,$J,358.3,46429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46429,1,3,0)
 ;;=3^CME after Cataract Surgery,Left Eye
 ;;^UTILITY(U,$J,358.3,46429,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,46429,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,46430,0)
 ;;=H35.81^^176^2310^15
 ;;^UTILITY(U,$J,358.3,46430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46430,1,3,0)
 ;;=3^Retinal Edema/CME Other Etiology
 ;;^UTILITY(U,$J,358.3,46430,1,4,0)
 ;;=4^H35.81
 ;;^UTILITY(U,$J,358.3,46430,2)
 ;;=^5005715