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

IBDEI2MR.m

Go to the documentation of this file.
  1. IBDEI2MR ; ; 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,41991,1,4,0)
  1. ;;=4^S06.2X2S
  1. ;;^UTILITY(U,$J,358.3,41991,2)
  1. ;;=^5020734
  1. ;;^UTILITY(U,$J,358.3,41992,0)
  1. ;;=S06.2X4S^^155^2066^45
  1. ;;^UTILITY(U,$J,358.3,41992,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41992,1,3,0)
  1. ;;=3^Diffuse TBI w LOC of 6 hours to 24 hours, sequela
  1. ;;^UTILITY(U,$J,358.3,41992,1,4,0)
  1. ;;=4^S06.2X4S
  1. ;;^UTILITY(U,$J,358.3,41992,2)
  1. ;;=^5020740
  1. ;;^UTILITY(U,$J,358.3,41993,0)
  1. ;;=S06.2X9S^^155^2066^46
  1. ;;^UTILITY(U,$J,358.3,41993,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41993,1,3,0)
  1. ;;=3^Diffuse TBI w LOC of unsp duration, sequela
  1. ;;^UTILITY(U,$J,358.3,41993,1,4,0)
  1. ;;=4^S06.2X9S
  1. ;;^UTILITY(U,$J,358.3,41993,2)
  1. ;;=^5020755
  1. ;;^UTILITY(U,$J,358.3,41994,0)
  1. ;;=S06.2X0S^^155^2066^47
  1. ;;^UTILITY(U,$J,358.3,41994,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41994,1,3,0)
  1. ;;=3^Diffuse TBI w/o LOC, sequela
  1. ;;^UTILITY(U,$J,358.3,41994,1,4,0)
  1. ;;=4^S06.2X0S
  1. ;;^UTILITY(U,$J,358.3,41994,2)
  1. ;;=^5020728
  1. ;;^UTILITY(U,$J,358.3,41995,0)
  1. ;;=S06.4X5S^^155^2066^48
  1. ;;^UTILITY(U,$J,358.3,41995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41995,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC >24 hr w ret consc lev, sequela
  1. ;;^UTILITY(U,$J,358.3,41995,1,4,0)
  1. ;;=4^S06.4X5S
  1. ;;^UTILITY(U,$J,358.3,41995,2)
  1. ;;=^5021043
  1. ;;^UTILITY(U,$J,358.3,41996,0)
  1. ;;=S06.4X6S^^155^2066^49
  1. ;;^UTILITY(U,$J,358.3,41996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41996,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC >24 hr w/o ret consc w surv, sequela
  1. ;;^UTILITY(U,$J,358.3,41996,1,4,0)
  1. ;;=4^S06.4X6S
  1. ;;^UTILITY(U,$J,358.3,41996,2)
  1. ;;=^5021046
  1. ;;^UTILITY(U,$J,358.3,41997,0)
  1. ;;=S06.4X3S^^155^2066^50
  1. ;;^UTILITY(U,$J,358.3,41997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41997,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC of 1-5 hrs 59 min, sequela
  1. ;;^UTILITY(U,$J,358.3,41997,1,4,0)
  1. ;;=4^S06.4X3S
  1. ;;^UTILITY(U,$J,358.3,41997,2)
  1. ;;=^5021037
  1. ;;^UTILITY(U,$J,358.3,41998,0)
  1. ;;=S06.4X1S^^155^2066^51
  1. ;;^UTILITY(U,$J,358.3,41998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41998,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC of 30 minutes or less, sequela
  1. ;;^UTILITY(U,$J,358.3,41998,1,4,0)
  1. ;;=4^S06.4X1S
  1. ;;^UTILITY(U,$J,358.3,41998,2)
  1. ;;=^5021031
  1. ;;^UTILITY(U,$J,358.3,41999,0)
  1. ;;=S06.4X2S^^155^2066^52
  1. ;;^UTILITY(U,$J,358.3,41999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,41999,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC of 31-59 min, sequela
  1. ;;^UTILITY(U,$J,358.3,41999,1,4,0)
  1. ;;=4^S06.4X2S
  1. ;;^UTILITY(U,$J,358.3,41999,2)
  1. ;;=^5021034
  1. ;;^UTILITY(U,$J,358.3,42000,0)
  1. ;;=S06.4X4S^^155^2066^53
  1. ;;^UTILITY(U,$J,358.3,42000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42000,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC of 6 hours to 24 hours, sequela
  1. ;;^UTILITY(U,$J,358.3,42000,1,4,0)
  1. ;;=4^S06.4X4S
  1. ;;^UTILITY(U,$J,358.3,42000,2)
  1. ;;=^5021040
  1. ;;^UTILITY(U,$J,358.3,42001,0)
  1. ;;=S06.4X9S^^155^2066^54
  1. ;;^UTILITY(U,$J,358.3,42001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42001,1,3,0)
  1. ;;=3^Epidural hemorrhage w LOC of unsp duration, sequela
  1. ;;^UTILITY(U,$J,358.3,42001,1,4,0)
  1. ;;=4^S06.4X9S
  1. ;;^UTILITY(U,$J,358.3,42001,2)
  1. ;;=^5021055
  1. ;;^UTILITY(U,$J,358.3,42002,0)
  1. ;;=S06.4X0S^^155^2066^55
  1. ;;^UTILITY(U,$J,358.3,42002,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42002,1,3,0)
  1. ;;=3^Epidural hemorrhage without LOC, sequela
  1. ;;^UTILITY(U,$J,358.3,42002,1,4,0)
  1. ;;=4^S06.4X0S
  1. ;;^UTILITY(U,$J,358.3,42002,2)
  1. ;;=^5021028