IBDEI31Y ; ; 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,48737,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48737,1,3,0)
;;=3^Psychomotor Deficit After Ntrm Subarachnoid Hemorrhage
;;^UTILITY(U,$J,358.3,48737,1,4,0)
;;=4^I69.013
;;^UTILITY(U,$J,358.3,48737,2)
;;=^5138623
;;^UTILITY(U,$J,358.3,48738,0)
;;=I69.014^^185^2424^74
;;^UTILITY(U,$J,358.3,48738,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48738,1,3,0)
;;=3^Fntl Lobe & Exec Fcn Deficit After Ntrm Subarachnoid Hemorrhage
;;^UTILITY(U,$J,358.3,48738,1,4,0)
;;=4^I69.014
;;^UTILITY(U,$J,358.3,48738,2)
;;=^5138624
;;^UTILITY(U,$J,358.3,48739,0)
;;=I69.015^^185^2424^49
;;^UTILITY(U,$J,358.3,48739,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48739,1,3,0)
;;=3^Cognitive Social/Emotional Deficit After Ntrm Subarachnoid Hemorrage
;;^UTILITY(U,$J,358.3,48739,1,4,0)
;;=4^I69.015
;;^UTILITY(U,$J,358.3,48739,2)
;;=^5138625
;;^UTILITY(U,$J,358.3,48740,0)
;;=I69.018^^185^2424^47
;;^UTILITY(U,$J,358.3,48740,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48740,1,3,0)
;;=3^Cognitive Fnctn Symptoms/Signs After Ntrm Subarachnoid Hemorrage,Other
;;^UTILITY(U,$J,358.3,48740,1,4,0)
;;=4^I69.018
;;^UTILITY(U,$J,358.3,48740,2)
;;=^5138626
;;^UTILITY(U,$J,358.3,48741,0)
;;=I69.110^^185^2424^9
;;^UTILITY(U,$J,358.3,48741,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48741,1,3,0)
;;=3^Attn & Concentration Deficit After Ntrm Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48741,1,4,0)
;;=4^I69.110
;;^UTILITY(U,$J,358.3,48741,2)
;;=^5138628
;;^UTILITY(U,$J,358.3,48742,0)
;;=I69.111^^185^2424^87
;;^UTILITY(U,$J,358.3,48742,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48742,1,3,0)
;;=3^Memory Deficit After Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48742,1,4,0)
;;=4^I69.111
;;^UTILITY(U,$J,358.3,48742,2)
;;=^5138629
;;^UTILITY(U,$J,358.3,48743,0)
;;=I69.112^^185^2424^145
;;^UTILITY(U,$J,358.3,48743,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48743,1,3,0)
;;=3^Vis Def/Sptl Nglct After Ntrm Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48743,1,4,0)
;;=4^I69.112
;;^UTILITY(U,$J,358.3,48743,2)
;;=^5138630
;;^UTILITY(U,$J,358.3,48744,0)
;;=I69.113^^185^2424^132
;;^UTILITY(U,$J,358.3,48744,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48744,1,3,0)
;;=3^Psychomotor Deficit After Ntrm Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48744,1,4,0)
;;=4^I69.113
;;^UTILITY(U,$J,358.3,48744,2)
;;=^5138631
;;^UTILITY(U,$J,358.3,48745,0)
;;=I69.114^^185^2424^75
;;^UTILITY(U,$J,358.3,48745,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48745,1,3,0)
;;=3^Fntl Lobe & Exec Fcn Deficit After Ntrm Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48745,1,4,0)
;;=4^I69.114
;;^UTILITY(U,$J,358.3,48745,2)
;;=^5138632
;;^UTILITY(U,$J,358.3,48746,0)
;;=I69.115^^185^2424^50
;;^UTILITY(U,$J,358.3,48746,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48746,1,3,0)
;;=3^Cognitive Social/Emotional Deficit After Ntrm Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48746,1,4,0)
;;=4^I69.115
;;^UTILITY(U,$J,358.3,48746,2)
;;=^5138633
;;^UTILITY(U,$J,358.3,48747,0)
;;=I69.118^^185^2424^48
;;^UTILITY(U,$J,358.3,48747,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,48747,1,3,0)
;;=3^Cognitive Fnctn Symptoms/Signs After Ntrm Intcrbl Hemorrhage
;;^UTILITY(U,$J,358.3,48747,1,4,0)
;;=4^I69.118
;;^UTILITY(U,$J,358.3,48747,2)
;;=^5138634
;;^UTILITY(U,$J,358.3,48748,0)
;;=I69.310^^185^2424^7
;;^UTILITY(U,$J,358.3,48748,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI31Y 3768 printed Sep 23, 2025@20:16:14 Page 2
IBDEI31Y ; ; 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,48737,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,48737,1,3,0)
+4 ;;=3^Psychomotor Deficit After Ntrm Subarachnoid Hemorrhage
+5 ;;^UTILITY(U,$J,358.3,48737,1,4,0)
+6 ;;=4^I69.013
+7 ;;^UTILITY(U,$J,358.3,48737,2)
+8 ;;=^5138623
+9 ;;^UTILITY(U,$J,358.3,48738,0)
+10 ;;=I69.014^^185^2424^74
+11 ;;^UTILITY(U,$J,358.3,48738,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,48738,1,3,0)
+14 ;;=3^Fntl Lobe & Exec Fcn Deficit After Ntrm Subarachnoid Hemorrhage
+15 ;;^UTILITY(U,$J,358.3,48738,1,4,0)
+16 ;;=4^I69.014
+17 ;;^UTILITY(U,$J,358.3,48738,2)
+18 ;;=^5138624
+19 ;;^UTILITY(U,$J,358.3,48739,0)
+20 ;;=I69.015^^185^2424^49
+21 ;;^UTILITY(U,$J,358.3,48739,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,48739,1,3,0)
+24 ;;=3^Cognitive Social/Emotional Deficit After Ntrm Subarachnoid Hemorrage
+25 ;;^UTILITY(U,$J,358.3,48739,1,4,0)
+26 ;;=4^I69.015
+27 ;;^UTILITY(U,$J,358.3,48739,2)
+28 ;;=^5138625
+29 ;;^UTILITY(U,$J,358.3,48740,0)
+30 ;;=I69.018^^185^2424^47
+31 ;;^UTILITY(U,$J,358.3,48740,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,48740,1,3,0)
+34 ;;=3^Cognitive Fnctn Symptoms/Signs After Ntrm Subarachnoid Hemorrage,Other
+35 ;;^UTILITY(U,$J,358.3,48740,1,4,0)
+36 ;;=4^I69.018
+37 ;;^UTILITY(U,$J,358.3,48740,2)
+38 ;;=^5138626
+39 ;;^UTILITY(U,$J,358.3,48741,0)
+40 ;;=I69.110^^185^2424^9
+41 ;;^UTILITY(U,$J,358.3,48741,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,48741,1,3,0)
+44 ;;=3^Attn & Concentration Deficit After Ntrm Intcrbl Hemorrhage
+45 ;;^UTILITY(U,$J,358.3,48741,1,4,0)
+46 ;;=4^I69.110
+47 ;;^UTILITY(U,$J,358.3,48741,2)
+48 ;;=^5138628
+49 ;;^UTILITY(U,$J,358.3,48742,0)
+50 ;;=I69.111^^185^2424^87
+51 ;;^UTILITY(U,$J,358.3,48742,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,48742,1,3,0)
+54 ;;=3^Memory Deficit After Intcrbl Hemorrhage
+55 ;;^UTILITY(U,$J,358.3,48742,1,4,0)
+56 ;;=4^I69.111
+57 ;;^UTILITY(U,$J,358.3,48742,2)
+58 ;;=^5138629
+59 ;;^UTILITY(U,$J,358.3,48743,0)
+60 ;;=I69.112^^185^2424^145
+61 ;;^UTILITY(U,$J,358.3,48743,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,48743,1,3,0)
+64 ;;=3^Vis Def/Sptl Nglct After Ntrm Intcrbl Hemorrhage
+65 ;;^UTILITY(U,$J,358.3,48743,1,4,0)
+66 ;;=4^I69.112
+67 ;;^UTILITY(U,$J,358.3,48743,2)
+68 ;;=^5138630
+69 ;;^UTILITY(U,$J,358.3,48744,0)
+70 ;;=I69.113^^185^2424^132
+71 ;;^UTILITY(U,$J,358.3,48744,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,48744,1,3,0)
+74 ;;=3^Psychomotor Deficit After Ntrm Intcrbl Hemorrhage
+75 ;;^UTILITY(U,$J,358.3,48744,1,4,0)
+76 ;;=4^I69.113
+77 ;;^UTILITY(U,$J,358.3,48744,2)
+78 ;;=^5138631
+79 ;;^UTILITY(U,$J,358.3,48745,0)
+80 ;;=I69.114^^185^2424^75
+81 ;;^UTILITY(U,$J,358.3,48745,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,48745,1,3,0)
+84 ;;=3^Fntl Lobe & Exec Fcn Deficit After Ntrm Intcrbl Hemorrhage
+85 ;;^UTILITY(U,$J,358.3,48745,1,4,0)
+86 ;;=4^I69.114
+87 ;;^UTILITY(U,$J,358.3,48745,2)
+88 ;;=^5138632
+89 ;;^UTILITY(U,$J,358.3,48746,0)
+90 ;;=I69.115^^185^2424^50
+91 ;;^UTILITY(U,$J,358.3,48746,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,48746,1,3,0)
+94 ;;=3^Cognitive Social/Emotional Deficit After Ntrm Intcrbl Hemorrhage
+95 ;;^UTILITY(U,$J,358.3,48746,1,4,0)
+96 ;;=4^I69.115
+97 ;;^UTILITY(U,$J,358.3,48746,2)
+98 ;;=^5138633
+99 ;;^UTILITY(U,$J,358.3,48747,0)
+100 ;;=I69.118^^185^2424^48
+101 ;;^UTILITY(U,$J,358.3,48747,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,48747,1,3,0)
+104 ;;=3^Cognitive Fnctn Symptoms/Signs After Ntrm Intcrbl Hemorrhage
+105 ;;^UTILITY(U,$J,358.3,48747,1,4,0)
+106 ;;=4^I69.118
+107 ;;^UTILITY(U,$J,358.3,48747,2)
+108 ;;=^5138634
+109 ;;^UTILITY(U,$J,358.3,48748,0)
+110 ;;=I69.310^^185^2424^7
+111 ;;^UTILITY(U,$J,358.3,48748,1,0)
+112 ;;=^358.31IA^4^2
