IBDEI2MQ ; ; 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,41980,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41980,1,3,0)
;;=3^Contus/lac/hem crblm w LOC >24 hr w/o ret consc w surv, sqla
;;^UTILITY(U,$J,358.3,41980,1,4,0)
;;=4^S06.376S
;;^UTILITY(U,$J,358.3,41980,2)
;;=^5020986
;;^UTILITY(U,$J,358.3,41981,0)
;;=S06.373S^^155^2066^34
;;^UTILITY(U,$J,358.3,41981,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41981,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,41981,1,4,0)
;;=4^S06.373S
;;^UTILITY(U,$J,358.3,41981,2)
;;=^5020977
;;^UTILITY(U,$J,358.3,41982,0)
;;=S06.371S^^155^2066^35
;;^UTILITY(U,$J,358.3,41982,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41982,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,41982,1,4,0)
;;=4^S06.371S
;;^UTILITY(U,$J,358.3,41982,2)
;;=^5020971
;;^UTILITY(U,$J,358.3,41983,0)
;;=S06.372S^^155^2066^36
;;^UTILITY(U,$J,358.3,41983,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41983,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 31-59 min, sequela
;;^UTILITY(U,$J,358.3,41983,1,4,0)
;;=4^S06.372S
;;^UTILITY(U,$J,358.3,41983,2)
;;=^5020974
;;^UTILITY(U,$J,358.3,41984,0)
;;=S06.374S^^155^2066^37
;;^UTILITY(U,$J,358.3,41984,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41984,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of 6 hours to 24 hours, sequela
;;^UTILITY(U,$J,358.3,41984,1,4,0)
;;=4^S06.374S
;;^UTILITY(U,$J,358.3,41984,2)
;;=^5020980
;;^UTILITY(U,$J,358.3,41985,0)
;;=S06.379S^^155^2066^38
;;^UTILITY(U,$J,358.3,41985,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41985,1,3,0)
;;=3^Contus/lac/hem crblm w LOC of unsp duration, sequela
;;^UTILITY(U,$J,358.3,41985,1,4,0)
;;=4^S06.379S
;;^UTILITY(U,$J,358.3,41985,2)
;;=^5020995
;;^UTILITY(U,$J,358.3,41986,0)
;;=S06.370S^^155^2066^39
;;^UTILITY(U,$J,358.3,41986,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41986,1,3,0)
;;=3^Contus/lac/hem crblm w/o LOC, sequela
;;^UTILITY(U,$J,358.3,41986,1,4,0)
;;=4^S06.370S
;;^UTILITY(U,$J,358.3,41986,2)
;;=^5020968
;;^UTILITY(U,$J,358.3,41987,0)
;;=S06.2X5S^^155^2066^40
;;^UTILITY(U,$J,358.3,41987,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41987,1,3,0)
;;=3^Diffuse TBI w LOC >24 hr w return to consc levels, sequela
;;^UTILITY(U,$J,358.3,41987,1,4,0)
;;=4^S06.2X5S
;;^UTILITY(U,$J,358.3,41987,2)
;;=^5020743
;;^UTILITY(U,$J,358.3,41988,0)
;;=S06.2X6S^^155^2066^41
;;^UTILITY(U,$J,358.3,41988,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41988,1,3,0)
;;=3^Diffuse TBI w LOC >24 hr w/o ret consc w surv, sequela
;;^UTILITY(U,$J,358.3,41988,1,4,0)
;;=4^S06.2X6S
;;^UTILITY(U,$J,358.3,41988,2)
;;=^5020746
;;^UTILITY(U,$J,358.3,41989,0)
;;=S06.2X3S^^155^2066^42
;;^UTILITY(U,$J,358.3,41989,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41989,1,3,0)
;;=3^Diffuse TBI w LOC of 1-5 hrs 59 min, sequela
;;^UTILITY(U,$J,358.3,41989,1,4,0)
;;=4^S06.2X3S
;;^UTILITY(U,$J,358.3,41989,2)
;;=^5020737
;;^UTILITY(U,$J,358.3,41990,0)
;;=S06.2X1S^^155^2066^43
;;^UTILITY(U,$J,358.3,41990,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41990,1,3,0)
;;=3^Diffuse TBI w LOC of 30 minutes or less, sequela
;;^UTILITY(U,$J,358.3,41990,1,4,0)
;;=4^S06.2X1S
;;^UTILITY(U,$J,358.3,41990,2)
;;=^5020731
;;^UTILITY(U,$J,358.3,41991,0)
;;=S06.2X2S^^155^2066^44
;;^UTILITY(U,$J,358.3,41991,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,41991,1,3,0)
;;=3^Diffuse TBI w LOC of 31-59 min, sequela
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI2MQ 3812 printed Apr 09, 2024@21:00:29 Page 2
IBDEI2MQ ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,41980,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,41980,1,3,0)
+4 ;;=3^Contus/lac/hem crblm w LOC >24 hr w/o ret consc w surv, sqla
+5 ;;^UTILITY(U,$J,358.3,41980,1,4,0)
+6 ;;=4^S06.376S
+7 ;;^UTILITY(U,$J,358.3,41980,2)
+8 ;;=^5020986
+9 ;;^UTILITY(U,$J,358.3,41981,0)
+10 ;;=S06.373S^^155^2066^34
+11 ;;^UTILITY(U,$J,358.3,41981,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,41981,1,3,0)
+14 ;;=3^Contus/lac/hem crblm w LOC of 1-5 hrs 59 min, sequela
+15 ;;^UTILITY(U,$J,358.3,41981,1,4,0)
+16 ;;=4^S06.373S
+17 ;;^UTILITY(U,$J,358.3,41981,2)
+18 ;;=^5020977
+19 ;;^UTILITY(U,$J,358.3,41982,0)
+20 ;;=S06.371S^^155^2066^35
+21 ;;^UTILITY(U,$J,358.3,41982,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,41982,1,3,0)
+24 ;;=3^Contus/lac/hem crblm w LOC of 30 minutes or less, sequela
+25 ;;^UTILITY(U,$J,358.3,41982,1,4,0)
+26 ;;=4^S06.371S
+27 ;;^UTILITY(U,$J,358.3,41982,2)
+28 ;;=^5020971
+29 ;;^UTILITY(U,$J,358.3,41983,0)
+30 ;;=S06.372S^^155^2066^36
+31 ;;^UTILITY(U,$J,358.3,41983,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,41983,1,3,0)
+34 ;;=3^Contus/lac/hem crblm w LOC of 31-59 min, sequela
+35 ;;^UTILITY(U,$J,358.3,41983,1,4,0)
+36 ;;=4^S06.372S
+37 ;;^UTILITY(U,$J,358.3,41983,2)
+38 ;;=^5020974
+39 ;;^UTILITY(U,$J,358.3,41984,0)
+40 ;;=S06.374S^^155^2066^37
+41 ;;^UTILITY(U,$J,358.3,41984,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,41984,1,3,0)
+44 ;;=3^Contus/lac/hem crblm w LOC of 6 hours to 24 hours, sequela
+45 ;;^UTILITY(U,$J,358.3,41984,1,4,0)
+46 ;;=4^S06.374S
+47 ;;^UTILITY(U,$J,358.3,41984,2)
+48 ;;=^5020980
+49 ;;^UTILITY(U,$J,358.3,41985,0)
+50 ;;=S06.379S^^155^2066^38
+51 ;;^UTILITY(U,$J,358.3,41985,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,41985,1,3,0)
+54 ;;=3^Contus/lac/hem crblm w LOC of unsp duration, sequela
+55 ;;^UTILITY(U,$J,358.3,41985,1,4,0)
+56 ;;=4^S06.379S
+57 ;;^UTILITY(U,$J,358.3,41985,2)
+58 ;;=^5020995
+59 ;;^UTILITY(U,$J,358.3,41986,0)
+60 ;;=S06.370S^^155^2066^39
+61 ;;^UTILITY(U,$J,358.3,41986,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,41986,1,3,0)
+64 ;;=3^Contus/lac/hem crblm w/o LOC, sequela
+65 ;;^UTILITY(U,$J,358.3,41986,1,4,0)
+66 ;;=4^S06.370S
+67 ;;^UTILITY(U,$J,358.3,41986,2)
+68 ;;=^5020968
+69 ;;^UTILITY(U,$J,358.3,41987,0)
+70 ;;=S06.2X5S^^155^2066^40
+71 ;;^UTILITY(U,$J,358.3,41987,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,41987,1,3,0)
+74 ;;=3^Diffuse TBI w LOC >24 hr w return to consc levels, sequela
+75 ;;^UTILITY(U,$J,358.3,41987,1,4,0)
+76 ;;=4^S06.2X5S
+77 ;;^UTILITY(U,$J,358.3,41987,2)
+78 ;;=^5020743
+79 ;;^UTILITY(U,$J,358.3,41988,0)
+80 ;;=S06.2X6S^^155^2066^41
+81 ;;^UTILITY(U,$J,358.3,41988,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,41988,1,3,0)
+84 ;;=3^Diffuse TBI w LOC >24 hr w/o ret consc w surv, sequela
+85 ;;^UTILITY(U,$J,358.3,41988,1,4,0)
+86 ;;=4^S06.2X6S
+87 ;;^UTILITY(U,$J,358.3,41988,2)
+88 ;;=^5020746
+89 ;;^UTILITY(U,$J,358.3,41989,0)
+90 ;;=S06.2X3S^^155^2066^42
+91 ;;^UTILITY(U,$J,358.3,41989,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,41989,1,3,0)
+94 ;;=3^Diffuse TBI w LOC of 1-5 hrs 59 min, sequela
+95 ;;^UTILITY(U,$J,358.3,41989,1,4,0)
+96 ;;=4^S06.2X3S
+97 ;;^UTILITY(U,$J,358.3,41989,2)
+98 ;;=^5020737
+99 ;;^UTILITY(U,$J,358.3,41990,0)
+100 ;;=S06.2X1S^^155^2066^43
+101 ;;^UTILITY(U,$J,358.3,41990,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,41990,1,3,0)
+104 ;;=3^Diffuse TBI w LOC of 30 minutes or less, sequela
+105 ;;^UTILITY(U,$J,358.3,41990,1,4,0)
+106 ;;=4^S06.2X1S
+107 ;;^UTILITY(U,$J,358.3,41990,2)
+108 ;;=^5020731
+109 ;;^UTILITY(U,$J,358.3,41991,0)
+110 ;;=S06.2X2S^^155^2066^44
+111 ;;^UTILITY(U,$J,358.3,41991,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,41991,1,3,0)
+114 ;;=3^Diffuse TBI w LOC of 31-59 min, sequela
