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

IBDEI39E.m

Go to the documentation of this file.
  1. IBDEI39E ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,52022,2)
  1. ;;=^5059824
  1. ;;^UTILITY(U,$J,358.3,52023,0)
  1. ;;=W18.42XD^^193^2516^119
  1. ;;^UTILITY(U,$J,358.3,52023,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52023,1,3,0)
  1. ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,52023,1,4,0)
  1. ;;=4^W18.42XD
  1. ;;^UTILITY(U,$J,358.3,52023,2)
  1. ;;=^5059825
  1. ;;^UTILITY(U,$J,358.3,52024,0)
  1. ;;=W18.43XA^^193^2516^112
  1. ;;^UTILITY(U,$J,358.3,52024,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52024,1,3,0)
  1. ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,52024,1,4,0)
  1. ;;=4^W18.43XA
  1. ;;^UTILITY(U,$J,358.3,52024,2)
  1. ;;=^5059827
  1. ;;^UTILITY(U,$J,358.3,52025,0)
  1. ;;=W18.43XD^^193^2516^113
  1. ;;^UTILITY(U,$J,358.3,52025,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52025,1,3,0)
  1. ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,52025,1,4,0)
  1. ;;=4^W18.43XD
  1. ;;^UTILITY(U,$J,358.3,52025,2)
  1. ;;=^5059828
  1. ;;^UTILITY(U,$J,358.3,52026,0)
  1. ;;=W18.49XA^^193^2516^120
  1. ;;^UTILITY(U,$J,358.3,52026,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52026,1,3,0)
  1. ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,52026,1,4,0)
  1. ;;=4^W18.49XA
  1. ;;^UTILITY(U,$J,358.3,52026,2)
  1. ;;=^5059830
  1. ;;^UTILITY(U,$J,358.3,52027,0)
  1. ;;=W18.49XD^^193^2516^121
  1. ;;^UTILITY(U,$J,358.3,52027,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52027,1,3,0)
  1. ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,52027,1,4,0)
  1. ;;=4^W18.49XD
  1. ;;^UTILITY(U,$J,358.3,52027,2)
  1. ;;=^5059831
  1. ;;^UTILITY(U,$J,358.3,52028,0)
  1. ;;=W19.XXXA^^193^2516^94
  1. ;;^UTILITY(U,$J,358.3,52028,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52028,1,3,0)
  1. ;;=3^Fall,Unspec,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,52028,1,4,0)
  1. ;;=4^W19.XXXA
  1. ;;^UTILITY(U,$J,358.3,52028,2)
  1. ;;=^5059833
  1. ;;^UTILITY(U,$J,358.3,52029,0)
  1. ;;=W19.XXXD^^193^2516^95
  1. ;;^UTILITY(U,$J,358.3,52029,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52029,1,3,0)
  1. ;;=3^Fall,Unspec,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,52029,1,4,0)
  1. ;;=4^W19.XXXD
  1. ;;^UTILITY(U,$J,358.3,52029,2)
  1. ;;=^5059834
  1. ;;^UTILITY(U,$J,358.3,52030,0)
  1. ;;=W54.0XXA^^193^2516^11
  1. ;;^UTILITY(U,$J,358.3,52030,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52030,1,3,0)
  1. ;;=3^Bitten by Dog,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,52030,1,4,0)
  1. ;;=4^W54.0XXA
  1. ;;^UTILITY(U,$J,358.3,52030,2)
  1. ;;=^5060256
  1. ;;^UTILITY(U,$J,358.3,52031,0)
  1. ;;=W54.0XXD^^193^2516^12
  1. ;;^UTILITY(U,$J,358.3,52031,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52031,1,3,0)
  1. ;;=3^Bitten by Dog,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,52031,1,4,0)
  1. ;;=4^W54.0XXD
  1. ;;^UTILITY(U,$J,358.3,52031,2)
  1. ;;=^5060257
  1. ;;^UTILITY(U,$J,358.3,52032,0)
  1. ;;=W55.01XA^^193^2516^9
  1. ;;^UTILITY(U,$J,358.3,52032,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52032,1,3,0)
  1. ;;=3^Bitten by Cat,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,52032,1,4,0)
  1. ;;=4^W55.01XA
  1. ;;^UTILITY(U,$J,358.3,52032,2)
  1. ;;=^5060265
  1. ;;^UTILITY(U,$J,358.3,52033,0)
  1. ;;=W55.01XD^^193^2516^10
  1. ;;^UTILITY(U,$J,358.3,52033,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,52033,1,3,0)
  1. ;;=3^Bitten by Cat,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,52033,1,4,0)
  1. ;;=4^W55.01XD
  1. ;;^UTILITY(U,$J,358.3,52033,2)
  1. ;;=^5060266
  1. ;;^UTILITY(U,$J,358.3,52034,0)
  1. ;;=W55.03XA^^193^2516^110
  1. ;;^UTILITY(U,$J,358.3,52034,1,0)
  1. ;;=^358.31IA^4^2