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

IBDEI22B.m

Go to the documentation of this file.
IBDEI22B ; ; 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,32916,2)
 ;;=^5005501
 ;;^UTILITY(U,$J,358.3,32917,0)
 ;;=H33.032^^128^1672^53
 ;;^UTILITY(U,$J,358.3,32917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32917,1,3,0)
 ;;=3^RD w/ Giant Retinal Tear,OS
 ;;^UTILITY(U,$J,358.3,32917,1,4,0)
 ;;=4^H33.032
 ;;^UTILITY(U,$J,358.3,32917,2)
 ;;=^5005502
 ;;^UTILITY(U,$J,358.3,32918,0)
 ;;=H33.023^^128^1672^48
 ;;^UTILITY(U,$J,358.3,32918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32918,1,3,0)
 ;;=3^RD w/ Multiple Breaks,OU
 ;;^UTILITY(U,$J,358.3,32918,1,4,0)
 ;;=4^H33.023
 ;;^UTILITY(U,$J,358.3,32918,2)
 ;;=^5005499
 ;;^UTILITY(U,$J,358.3,32919,0)
 ;;=H33.021^^128^1672^46
 ;;^UTILITY(U,$J,358.3,32919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32919,1,3,0)
 ;;=3^RD w/ Multiple Breaks,OD
 ;;^UTILITY(U,$J,358.3,32919,1,4,0)
 ;;=4^H33.021
 ;;^UTILITY(U,$J,358.3,32919,2)
 ;;=^5005497
 ;;^UTILITY(U,$J,358.3,32920,0)
 ;;=H33.022^^128^1672^47
 ;;^UTILITY(U,$J,358.3,32920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32920,1,3,0)
 ;;=3^RD w/ Multiple Breaks,OS
 ;;^UTILITY(U,$J,358.3,32920,1,4,0)
 ;;=4^H33.022
 ;;^UTILITY(U,$J,358.3,32920,2)
 ;;=^5005498
 ;;^UTILITY(U,$J,358.3,32921,0)
 ;;=H33.003^^128^1672^42
 ;;^UTILITY(U,$J,358.3,32921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32921,1,3,0)
 ;;=3^RD w/ Retinal Break,Unspec,OU
 ;;^UTILITY(U,$J,358.3,32921,1,4,0)
 ;;=4^H33.003
 ;;^UTILITY(U,$J,358.3,32921,2)
 ;;=^5005492
 ;;^UTILITY(U,$J,358.3,32922,0)
 ;;=H33.001^^128^1672^40
 ;;^UTILITY(U,$J,358.3,32922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32922,1,3,0)
 ;;=3^RD w/ Retinal Break,Unspec,OD
 ;;^UTILITY(U,$J,358.3,32922,1,4,0)
 ;;=4^H33.001
 ;;^UTILITY(U,$J,358.3,32922,2)
 ;;=^5005490
 ;;^UTILITY(U,$J,358.3,32923,0)
 ;;=H33.002^^128^1672^41
 ;;^UTILITY(U,$J,358.3,32923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32923,1,3,0)
 ;;=3^RD w/ Retinal Break,Unspec,OS
 ;;^UTILITY(U,$J,358.3,32923,1,4,0)
 ;;=4^H33.002
 ;;^UTILITY(U,$J,358.3,32923,2)
 ;;=^5005491
 ;;^UTILITY(U,$J,358.3,32924,0)
 ;;=H33.043^^128^1672^57
 ;;^UTILITY(U,$J,358.3,32924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32924,1,3,0)
 ;;=3^RD w/ Retinal Dialysis,OU
 ;;^UTILITY(U,$J,358.3,32924,1,4,0)
 ;;=4^H33.043
 ;;^UTILITY(U,$J,358.3,32924,2)
 ;;=^5005507
 ;;^UTILITY(U,$J,358.3,32925,0)
 ;;=H33.041^^128^1672^55
 ;;^UTILITY(U,$J,358.3,32925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32925,1,3,0)
 ;;=3^RD w/ Retinal Dialysis,OD
 ;;^UTILITY(U,$J,358.3,32925,1,4,0)
 ;;=4^H33.041
 ;;^UTILITY(U,$J,358.3,32925,2)
 ;;=^5005505
 ;;^UTILITY(U,$J,358.3,32926,0)
 ;;=H33.042^^128^1672^56
 ;;^UTILITY(U,$J,358.3,32926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32926,1,3,0)
 ;;=3^RD w/ Retinal Dialysis,OS
 ;;^UTILITY(U,$J,358.3,32926,1,4,0)
 ;;=4^H33.042
 ;;^UTILITY(U,$J,358.3,32926,2)
 ;;=^5005506
 ;;^UTILITY(U,$J,358.3,32927,0)
 ;;=H33.013^^128^1672^45
 ;;^UTILITY(U,$J,358.3,32927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32927,1,3,0)
 ;;=3^RD w/ Single Break,OU
 ;;^UTILITY(U,$J,358.3,32927,1,4,0)
 ;;=4^H33.013
 ;;^UTILITY(U,$J,358.3,32927,2)
 ;;=^5005495
 ;;^UTILITY(U,$J,358.3,32928,0)
 ;;=H33.011^^128^1672^43
 ;;^UTILITY(U,$J,358.3,32928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32928,1,3,0)
 ;;=3^RD w/ Single Break,OD
 ;;^UTILITY(U,$J,358.3,32928,1,4,0)
 ;;=4^H33.011
 ;;^UTILITY(U,$J,358.3,32928,2)
 ;;=^5005493
 ;;^UTILITY(U,$J,358.3,32929,0)
 ;;=H33.012^^128^1672^44