IBDEI3HH ; ; 19-NOV-2015
;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.3,58588,1,3,0)
;;=3^Visual Discomfort,Right Eye
;;^UTILITY(U,$J,358.3,58588,1,4,0)
;;=4^H53.141
;;^UTILITY(U,$J,358.3,58588,2)
;;=^5006317
;;^UTILITY(U,$J,358.3,58589,0)
;;=H53.142^^272^2909^49
;;^UTILITY(U,$J,358.3,58589,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58589,1,3,0)
;;=3^Visual Discomfort,Left Eye
;;^UTILITY(U,$J,358.3,58589,1,4,0)
;;=4^H53.142
;;^UTILITY(U,$J,358.3,58589,2)
;;=^5006318
;;^UTILITY(U,$J,358.3,58590,0)
;;=H53.143^^272^2909^48
;;^UTILITY(U,$J,358.3,58590,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58590,1,3,0)
;;=3^Visual Discomfort,Bilateral
;;^UTILITY(U,$J,358.3,58590,1,4,0)
;;=4^H53.143
;;^UTILITY(U,$J,358.3,58590,2)
;;=^5006319
;;^UTILITY(U,$J,358.3,58591,0)
;;=H53.8^^272^2909^51
;;^UTILITY(U,$J,358.3,58591,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58591,1,3,0)
;;=3^Visual Disturbance NEC
;;^UTILITY(U,$J,358.3,58591,1,4,0)
;;=4^H53.8
;;^UTILITY(U,$J,358.3,58591,2)
;;=^5006356
;;^UTILITY(U,$J,358.3,58592,0)
;;=H53.16^^272^2909^52
;;^UTILITY(U,$J,358.3,58592,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58592,1,3,0)
;;=3^Visual Disturbance,Psychophysical
;;^UTILITY(U,$J,358.3,58592,1,4,0)
;;=4^H53.16
;;^UTILITY(U,$J,358.3,58592,2)
;;=^268838
;;^UTILITY(U,$J,358.3,58593,0)
;;=H53.10^^272^2909^54
;;^UTILITY(U,$J,358.3,58593,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58593,1,3,0)
;;=3^Visual Disturbance,Subjective,Unspec
;;^UTILITY(U,$J,358.3,58593,1,4,0)
;;=4^H53.10
;;^UTILITY(U,$J,358.3,58593,2)
;;=^5006307
;;^UTILITY(U,$J,358.3,58594,0)
;;=H53.9^^272^2909^55
;;^UTILITY(U,$J,358.3,58594,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58594,1,3,0)
;;=3^Visual Disturbance,Unspec
;;^UTILITY(U,$J,358.3,58594,1,4,0)
;;=4^H53.9
;;^UTILITY(U,$J,358.3,58594,2)
;;=^124001
;;^UTILITY(U,$J,358.3,58595,0)
;;=H53.19^^272^2909^53
;;^UTILITY(U,$J,358.3,58595,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58595,1,3,0)
;;=3^Visual Disturbance,Subjective NEC
;;^UTILITY(U,$J,358.3,58595,1,4,0)
;;=4^H53.19
;;^UTILITY(U,$J,358.3,58595,2)
;;=^5006321
;;^UTILITY(U,$J,358.3,58596,0)
;;=H53.451^^272^2909^58
;;^UTILITY(U,$J,358.3,58596,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58596,1,3,0)
;;=3^Visual Field Defect,Localized,Right Eye NEC
;;^UTILITY(U,$J,358.3,58596,1,4,0)
;;=4^H53.451
;;^UTILITY(U,$J,358.3,58596,2)
;;=^5006337
;;^UTILITY(U,$J,358.3,58597,0)
;;=H53.452^^272^2909^57
;;^UTILITY(U,$J,358.3,58597,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58597,1,3,0)
;;=3^Visual Field Defect,Localized,Left Eye NEC
;;^UTILITY(U,$J,358.3,58597,1,4,0)
;;=4^H53.452
;;^UTILITY(U,$J,358.3,58597,2)
;;=^5006338
;;^UTILITY(U,$J,358.3,58598,0)
;;=H53.453^^272^2909^56
;;^UTILITY(U,$J,358.3,58598,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58598,1,3,0)
;;=3^Visual Field Defect,Localized,Bilateral NEC
;;^UTILITY(U,$J,358.3,58598,1,4,0)
;;=4^H53.453
;;^UTILITY(U,$J,358.3,58598,2)
;;=^5006339
;;^UTILITY(U,$J,358.3,58599,0)
;;=C69.31^^272^2910^62
;;^UTILITY(U,$J,358.3,58599,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58599,1,3,0)
;;=3^Malig Neop of Right Choroid
;;^UTILITY(U,$J,358.3,58599,1,4,0)
;;=4^C69.31
;;^UTILITY(U,$J,358.3,58599,2)
;;=^5001276
;;^UTILITY(U,$J,358.3,58600,0)
;;=C69.32^^272^2910^61
;;^UTILITY(U,$J,358.3,58600,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,58600,1,3,0)
;;=3^Malig Neop of Left Choroid
;;^UTILITY(U,$J,358.3,58600,1,4,0)
;;=4^C69.32
;;^UTILITY(U,$J,358.3,58600,2)
;;=^5001277
;;^UTILITY(U,$J,358.3,58601,0)
;;=D31.31^^272^2910^5
;;^UTILITY(U,$J,358.3,58601,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3HH 3984 printed Oct 16, 2024@18:49:38 Page 2
IBDEI3HH ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+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,99)
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,58588,1,3,0)
+2 ;;=3^Visual Discomfort,Right Eye
+3 ;;^UTILITY(U,$J,358.3,58588,1,4,0)
+4 ;;=4^H53.141
+5 ;;^UTILITY(U,$J,358.3,58588,2)
+6 ;;=^5006317
+7 ;;^UTILITY(U,$J,358.3,58589,0)
+8 ;;=H53.142^^272^2909^49
+9 ;;^UTILITY(U,$J,358.3,58589,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,58589,1,3,0)
+12 ;;=3^Visual Discomfort,Left Eye
+13 ;;^UTILITY(U,$J,358.3,58589,1,4,0)
+14 ;;=4^H53.142
+15 ;;^UTILITY(U,$J,358.3,58589,2)
+16 ;;=^5006318
+17 ;;^UTILITY(U,$J,358.3,58590,0)
+18 ;;=H53.143^^272^2909^48
+19 ;;^UTILITY(U,$J,358.3,58590,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,58590,1,3,0)
+22 ;;=3^Visual Discomfort,Bilateral
+23 ;;^UTILITY(U,$J,358.3,58590,1,4,0)
+24 ;;=4^H53.143
+25 ;;^UTILITY(U,$J,358.3,58590,2)
+26 ;;=^5006319
+27 ;;^UTILITY(U,$J,358.3,58591,0)
+28 ;;=H53.8^^272^2909^51
+29 ;;^UTILITY(U,$J,358.3,58591,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,58591,1,3,0)
+32 ;;=3^Visual Disturbance NEC
+33 ;;^UTILITY(U,$J,358.3,58591,1,4,0)
+34 ;;=4^H53.8
+35 ;;^UTILITY(U,$J,358.3,58591,2)
+36 ;;=^5006356
+37 ;;^UTILITY(U,$J,358.3,58592,0)
+38 ;;=H53.16^^272^2909^52
+39 ;;^UTILITY(U,$J,358.3,58592,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,58592,1,3,0)
+42 ;;=3^Visual Disturbance,Psychophysical
+43 ;;^UTILITY(U,$J,358.3,58592,1,4,0)
+44 ;;=4^H53.16
+45 ;;^UTILITY(U,$J,358.3,58592,2)
+46 ;;=^268838
+47 ;;^UTILITY(U,$J,358.3,58593,0)
+48 ;;=H53.10^^272^2909^54
+49 ;;^UTILITY(U,$J,358.3,58593,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,58593,1,3,0)
+52 ;;=3^Visual Disturbance,Subjective,Unspec
+53 ;;^UTILITY(U,$J,358.3,58593,1,4,0)
+54 ;;=4^H53.10
+55 ;;^UTILITY(U,$J,358.3,58593,2)
+56 ;;=^5006307
+57 ;;^UTILITY(U,$J,358.3,58594,0)
+58 ;;=H53.9^^272^2909^55
+59 ;;^UTILITY(U,$J,358.3,58594,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,58594,1,3,0)
+62 ;;=3^Visual Disturbance,Unspec
+63 ;;^UTILITY(U,$J,358.3,58594,1,4,0)
+64 ;;=4^H53.9
+65 ;;^UTILITY(U,$J,358.3,58594,2)
+66 ;;=^124001
+67 ;;^UTILITY(U,$J,358.3,58595,0)
+68 ;;=H53.19^^272^2909^53
+69 ;;^UTILITY(U,$J,358.3,58595,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,58595,1,3,0)
+72 ;;=3^Visual Disturbance,Subjective NEC
+73 ;;^UTILITY(U,$J,358.3,58595,1,4,0)
+74 ;;=4^H53.19
+75 ;;^UTILITY(U,$J,358.3,58595,2)
+76 ;;=^5006321
+77 ;;^UTILITY(U,$J,358.3,58596,0)
+78 ;;=H53.451^^272^2909^58
+79 ;;^UTILITY(U,$J,358.3,58596,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,58596,1,3,0)
+82 ;;=3^Visual Field Defect,Localized,Right Eye NEC
+83 ;;^UTILITY(U,$J,358.3,58596,1,4,0)
+84 ;;=4^H53.451
+85 ;;^UTILITY(U,$J,358.3,58596,2)
+86 ;;=^5006337
+87 ;;^UTILITY(U,$J,358.3,58597,0)
+88 ;;=H53.452^^272^2909^57
+89 ;;^UTILITY(U,$J,358.3,58597,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,58597,1,3,0)
+92 ;;=3^Visual Field Defect,Localized,Left Eye NEC
+93 ;;^UTILITY(U,$J,358.3,58597,1,4,0)
+94 ;;=4^H53.452
+95 ;;^UTILITY(U,$J,358.3,58597,2)
+96 ;;=^5006338
+97 ;;^UTILITY(U,$J,358.3,58598,0)
+98 ;;=H53.453^^272^2909^56
+99 ;;^UTILITY(U,$J,358.3,58598,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,58598,1,3,0)
+102 ;;=3^Visual Field Defect,Localized,Bilateral NEC
+103 ;;^UTILITY(U,$J,358.3,58598,1,4,0)
+104 ;;=4^H53.453
+105 ;;^UTILITY(U,$J,358.3,58598,2)
+106 ;;=^5006339
+107 ;;^UTILITY(U,$J,358.3,58599,0)
+108 ;;=C69.31^^272^2910^62
+109 ;;^UTILITY(U,$J,358.3,58599,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,58599,1,3,0)
+112 ;;=3^Malig Neop of Right Choroid
+113 ;;^UTILITY(U,$J,358.3,58599,1,4,0)
+114 ;;=4^C69.31
+115 ;;^UTILITY(U,$J,358.3,58599,2)
+116 ;;=^5001276
+117 ;;^UTILITY(U,$J,358.3,58600,0)
+118 ;;=C69.32^^272^2910^61
+119 ;;^UTILITY(U,$J,358.3,58600,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,58600,1,3,0)
+122 ;;=3^Malig Neop of Left Choroid
+123 ;;^UTILITY(U,$J,358.3,58600,1,4,0)
+124 ;;=4^C69.32
+125 ;;^UTILITY(U,$J,358.3,58600,2)
+126 ;;=^5001277
+127 ;;^UTILITY(U,$J,358.3,58601,0)
+128 ;;=D31.31^^272^2910^5
+129 ;;^UTILITY(U,$J,358.3,58601,1,0)
+130 ;;=^358.31IA^4^2
