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

IBDEI0SO.m

Go to the documentation of this file.
IBDEI0SO ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,12904,1,3,0)
 ;;=3^Retinal Telangiectasis,OU
 ;;^UTILITY(U,$J,358.3,12904,1,4,0)
 ;;=4^H35.073
 ;;^UTILITY(U,$J,358.3,12904,2)
 ;;=^5005608
 ;;^UTILITY(U,$J,358.3,12905,0)
 ;;=H35.071^^51^623^34
 ;;^UTILITY(U,$J,358.3,12905,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12905,1,3,0)
 ;;=3^Retinal Telangiectasis,OD
 ;;^UTILITY(U,$J,358.3,12905,1,4,0)
 ;;=4^H35.071
 ;;^UTILITY(U,$J,358.3,12905,2)
 ;;=^5005606
 ;;^UTILITY(U,$J,358.3,12906,0)
 ;;=H35.072^^51^623^35
 ;;^UTILITY(U,$J,358.3,12906,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12906,1,3,0)
 ;;=3^Retinal Telangiectasis,OS
 ;;^UTILITY(U,$J,358.3,12906,1,4,0)
 ;;=4^H35.072
 ;;^UTILITY(U,$J,358.3,12906,2)
 ;;=^5005607
 ;;^UTILITY(U,$J,358.3,12907,0)
 ;;=H34.03^^51^623^23
 ;;^UTILITY(U,$J,358.3,12907,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12907,1,3,0)
 ;;=3^Transient Retinal Artery Occlusion,OU
 ;;^UTILITY(U,$J,358.3,12907,1,4,0)
 ;;=4^H34.03
 ;;^UTILITY(U,$J,358.3,12907,2)
 ;;=^5005555
 ;;^UTILITY(U,$J,358.3,12908,0)
 ;;=H34.01^^51^623^21
 ;;^UTILITY(U,$J,358.3,12908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12908,1,3,0)
 ;;=3^Transient Retinal Artery Occlusion,OD
 ;;^UTILITY(U,$J,358.3,12908,1,4,0)
 ;;=4^H34.01
 ;;^UTILITY(U,$J,358.3,12908,2)
 ;;=^5005553
 ;;^UTILITY(U,$J,358.3,12909,0)
 ;;=H34.02^^51^623^22
 ;;^UTILITY(U,$J,358.3,12909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12909,1,3,0)
 ;;=3^Transient Retinal Artery Occlusion,OS
 ;;^UTILITY(U,$J,358.3,12909,1,4,0)
 ;;=4^H34.02
 ;;^UTILITY(U,$J,358.3,12909,2)
 ;;=^5005554
 ;;^UTILITY(U,$J,358.3,12910,0)
 ;;=H35.00^^51^623^47
 ;;^UTILITY(U,$J,358.3,12910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12910,1,3,0)
 ;;=3^Background Retinopathy,Unspec
 ;;^UTILITY(U,$J,358.3,12910,1,4,0)
 ;;=4^H35.00
 ;;^UTILITY(U,$J,358.3,12910,2)
 ;;=^5005581
 ;;^UTILITY(U,$J,358.3,12911,0)
 ;;=H34.823^^51^623^50
 ;;^UTILITY(U,$J,358.3,12911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12911,1,3,0)
 ;;=3^Venous Engorgement,OU
 ;;^UTILITY(U,$J,358.3,12911,1,4,0)
 ;;=4^H34.823
 ;;^UTILITY(U,$J,358.3,12911,2)
 ;;=^5005574
 ;;^UTILITY(U,$J,358.3,12912,0)
 ;;=H34.821^^51^623^48
 ;;^UTILITY(U,$J,358.3,12912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12912,1,3,0)
 ;;=3^Venous Engorgement,OD
 ;;^UTILITY(U,$J,358.3,12912,1,4,0)
 ;;=4^H34.821
 ;;^UTILITY(U,$J,358.3,12912,2)
 ;;=^5005572
 ;;^UTILITY(U,$J,358.3,12913,0)
 ;;=H34.822^^51^623^49
 ;;^UTILITY(U,$J,358.3,12913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12913,1,3,0)
 ;;=3^Venous Engorgement,OS
 ;;^UTILITY(U,$J,358.3,12913,1,4,0)
 ;;=4^H34.822
 ;;^UTILITY(U,$J,358.3,12913,2)
 ;;=^5005573
 ;;^UTILITY(U,$J,358.3,12914,0)
 ;;=H34.9^^51^623^24
 ;;^UTILITY(U,$J,358.3,12914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12914,1,3,0)
 ;;=3^Retinal Vascular Occlusion,Unspec
 ;;^UTILITY(U,$J,358.3,12914,1,4,0)
 ;;=4^H34.9
 ;;^UTILITY(U,$J,358.3,12914,2)
 ;;=^5005580
 ;;^UTILITY(U,$J,358.3,12915,0)
 ;;=H52.201^^51^624^2
 ;;^UTILITY(U,$J,358.3,12915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12915,1,3,0)
 ;;=3^Astigmatism,Unspec,Rt Eye
 ;;^UTILITY(U,$J,358.3,12915,1,4,0)
 ;;=4^H52.201
 ;;^UTILITY(U,$J,358.3,12915,2)
 ;;=^5006267
 ;;^UTILITY(U,$J,358.3,12916,0)
 ;;=H52.202^^51^624^3
 ;;^UTILITY(U,$J,358.3,12916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12916,1,3,0)
 ;;=3^Astigmatism,Unspec,Lt Eye
 ;;^UTILITY(U,$J,358.3,12916,1,4,0)
 ;;=4^H52.202