FHINI0OB ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
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,"SBF",114.1,114.1)
;;=
;;^UTILITY(U,$J,"SBF",114.2,114.2)
;;=
;;^UTILITY(U,$J,"SBF",114.3,114.3)
;;=
;;^UTILITY(U,$J,"SBF",114.4,114.4)
;;=
;;^UTILITY(U,$J,"SBF",115,115)
;;=
;;^UTILITY(U,$J,"SBF",115,115.01)
;;=
;;^UTILITY(U,$J,"SBF",115,115.011)
;;=
;;^UTILITY(U,$J,"SBF",115,115.012)
;;=
;;^UTILITY(U,$J,"SBF",115,115.02)
;;=
;;^UTILITY(U,$J,"SBF",115,115.021)
;;=
;;^UTILITY(U,$J,"SBF",115,115.03)
;;=
;;^UTILITY(U,$J,"SBF",115,115.04)
;;=
;;^UTILITY(U,$J,"SBF",115,115.05)
;;=
;;^UTILITY(U,$J,"SBF",115,115.06)
;;=
;;^UTILITY(U,$J,"SBF",115,115.07)
;;=
;;^UTILITY(U,$J,"SBF",115,115.08)
;;=
;;^UTILITY(U,$J,"SBF",115,115.09)
;;=
;;^UTILITY(U,$J,"SBF",115,115.1)
;;=
;;^UTILITY(U,$J,"SBF",115,115.1171)
;;=
;;^UTILITY(U,$J,"SBF",115,115.14)
;;=
;;^UTILITY(U,$J,"SBF",115.2,115.2)
;;=
;;^UTILITY(U,$J,"SBF",115.2,115.21)
;;=
;;^UTILITY(U,$J,"SBF",115.3,115.3)
;;=
;;^UTILITY(U,$J,"SBF",115.4,115.4)
;;=
;;^UTILITY(U,$J,"SBF",115.5,115.5)
;;=
;;^UTILITY(U,$J,"SBF",115.6,115.6)
;;=
;;^UTILITY(U,$J,"SBF",115.7,115.7)
;;=
;;^UTILITY(U,$J,"SBF",115.7,115.701)
;;=
;;^UTILITY(U,$J,"SBF",116,116)
;;=
;;^UTILITY(U,$J,"SBF",116,116.01)
;;=
;;^UTILITY(U,$J,"SBF",116,116.02)
;;=
;;^UTILITY(U,$J,"SBF",116.1,116.1)
;;=
;;^UTILITY(U,$J,"SBF",116.1,116.11)
;;=
;;^UTILITY(U,$J,"SBF",116.1,116.112)
;;=
;;^UTILITY(U,$J,"SBF",116.1,116.12)
;;=
;;^UTILITY(U,$J,"SBF",116.2,116.2)
;;=
;;^UTILITY(U,$J,"SBF",116.2,116.211)
;;=
;;^UTILITY(U,$J,"SBF",116.3,116.3)
;;=
;;^UTILITY(U,$J,"SBF",117,117)
;;=
;;^UTILITY(U,$J,"SBF",117.1,117.1)
;;=
;;^UTILITY(U,$J,"SBF",117.2,117.2)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.3)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.31)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.312)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.313)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.325)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.332)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.338)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.356)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.358)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.359)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.361)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.362)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.363)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.364)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.365)
;;=
;;^UTILITY(U,$J,"SBF",117.3,117.366)
;;=
;;^UTILITY(U,$J,"SBF",117.4,117.4)
;;=
;;^UTILITY(U,$J,"SBF",118,118)
;;=
;;^UTILITY(U,$J,"SBF",118,118.01)
;;=
;;^UTILITY(U,$J,"SBF",118.1,118.1)
;;=
;;^UTILITY(U,$J,"SBF",118.2,118.2)
;;=
;;^UTILITY(U,$J,"SBF",118.2,118.21)
;;=
;;^UTILITY(U,$J,"SBF",118.3,118.3)
;;=
;;^UTILITY(U,$J,"SBF",119,119)
;;=
;;^UTILITY(U,$J,"SBF",119,119.01)
;;=
;;^UTILITY(U,$J,"SBF",119.1,119.1)
;;=
;;^UTILITY(U,$J,"SBF",119.4,119.4)
;;=
;;^UTILITY(U,$J,"SBF",119.5,119.5)
;;=
;;^UTILITY(U,$J,"SBF",119.6,119.6)
;;=
;;^UTILITY(U,$J,"SBF",119.6,119.61)
;;=
;;^UTILITY(U,$J,"SBF",119.6,119.62)
;;=
;;^UTILITY(U,$J,"SBF",119.6,119.63)
;;=
;;^UTILITY(U,$J,"SBF",119.71,119.71)
;;=
;;^UTILITY(U,$J,"SBF",119.72,119.72)
;;=
;;^UTILITY(U,$J,"SBF",119.72,119.721)
;;=
;;^UTILITY(U,$J,"SBF",119.72,119.7211)
;;=
;;^UTILITY(U,$J,"SBF",119.72,119.722)
;;=
;;^UTILITY(U,$J,"SBF",119.73,119.73)
;;=
;;^UTILITY(U,$J,"SBF",119.74,119.74)
;;=
;;^UTILITY(U,$J,"SBF",119.8,119.8)
;;=
;;^UTILITY(U,$J,"SBF",119.9,119.9)
;;=
;;^UTILITY(U,$J,"SBF",119.9,119.9001)
;;=
;;^UTILITY(U,$J,"SBF",119.9,119.93)
;;=
;;^UTILITY(U,$J,"SBF",119.9,119.985)
;;=
FHINI0OB ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 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,"SBF",114.1,114.1)
+2 ;;=
+3 ;;^UTILITY(U,$J,"SBF",114.2,114.2)
+4 ;;=
+5 ;;^UTILITY(U,$J,"SBF",114.3,114.3)
+6 ;;=
+7 ;;^UTILITY(U,$J,"SBF",114.4,114.4)
+8 ;;=
+9 ;;^UTILITY(U,$J,"SBF",115,115)
+10 ;;=
+11 ;;^UTILITY(U,$J,"SBF",115,115.01)
+12 ;;=
+13 ;;^UTILITY(U,$J,"SBF",115,115.011)
+14 ;;=
+15 ;;^UTILITY(U,$J,"SBF",115,115.012)
+16 ;;=
+17 ;;^UTILITY(U,$J,"SBF",115,115.02)
+18 ;;=
+19 ;;^UTILITY(U,$J,"SBF",115,115.021)
+20 ;;=
+21 ;;^UTILITY(U,$J,"SBF",115,115.03)
+22 ;;=
+23 ;;^UTILITY(U,$J,"SBF",115,115.04)
+24 ;;=
+25 ;;^UTILITY(U,$J,"SBF",115,115.05)
+26 ;;=
+27 ;;^UTILITY(U,$J,"SBF",115,115.06)
+28 ;;=
+29 ;;^UTILITY(U,$J,"SBF",115,115.07)
+30 ;;=
+31 ;;^UTILITY(U,$J,"SBF",115,115.08)
+32 ;;=
+33 ;;^UTILITY(U,$J,"SBF",115,115.09)
+34 ;;=
+35 ;;^UTILITY(U,$J,"SBF",115,115.1)
+36 ;;=
+37 ;;^UTILITY(U,$J,"SBF",115,115.1171)
+38 ;;=
+39 ;;^UTILITY(U,$J,"SBF",115,115.14)
+40 ;;=
+41 ;;^UTILITY(U,$J,"SBF",115.2,115.2)
+42 ;;=
+43 ;;^UTILITY(U,$J,"SBF",115.2,115.21)
+44 ;;=
+45 ;;^UTILITY(U,$J,"SBF",115.3,115.3)
+46 ;;=
+47 ;;^UTILITY(U,$J,"SBF",115.4,115.4)
+48 ;;=
+49 ;;^UTILITY(U,$J,"SBF",115.5,115.5)
+50 ;;=
+51 ;;^UTILITY(U,$J,"SBF",115.6,115.6)
+52 ;;=
+53 ;;^UTILITY(U,$J,"SBF",115.7,115.7)
+54 ;;=
+55 ;;^UTILITY(U,$J,"SBF",115.7,115.701)
+56 ;;=
+57 ;;^UTILITY(U,$J,"SBF",116,116)
+58 ;;=
+59 ;;^UTILITY(U,$J,"SBF",116,116.01)
+60 ;;=
+61 ;;^UTILITY(U,$J,"SBF",116,116.02)
+62 ;;=
+63 ;;^UTILITY(U,$J,"SBF",116.1,116.1)
+64 ;;=
+65 ;;^UTILITY(U,$J,"SBF",116.1,116.11)
+66 ;;=
+67 ;;^UTILITY(U,$J,"SBF",116.1,116.112)
+68 ;;=
+69 ;;^UTILITY(U,$J,"SBF",116.1,116.12)
+70 ;;=
+71 ;;^UTILITY(U,$J,"SBF",116.2,116.2)
+72 ;;=
+73 ;;^UTILITY(U,$J,"SBF",116.2,116.211)
+74 ;;=
+75 ;;^UTILITY(U,$J,"SBF",116.3,116.3)
+76 ;;=
+77 ;;^UTILITY(U,$J,"SBF",117,117)
+78 ;;=
+79 ;;^UTILITY(U,$J,"SBF",117.1,117.1)
+80 ;;=
+81 ;;^UTILITY(U,$J,"SBF",117.2,117.2)
+82 ;;=
+83 ;;^UTILITY(U,$J,"SBF",117.3,117.3)
+84 ;;=
+85 ;;^UTILITY(U,$J,"SBF",117.3,117.31)
+86 ;;=
+87 ;;^UTILITY(U,$J,"SBF",117.3,117.312)
+88 ;;=
+89 ;;^UTILITY(U,$J,"SBF",117.3,117.313)
+90 ;;=
+91 ;;^UTILITY(U,$J,"SBF",117.3,117.325)
+92 ;;=
+93 ;;^UTILITY(U,$J,"SBF",117.3,117.332)
+94 ;;=
+95 ;;^UTILITY(U,$J,"SBF",117.3,117.338)
+96 ;;=
+97 ;;^UTILITY(U,$J,"SBF",117.3,117.356)
+98 ;;=
+99 ;;^UTILITY(U,$J,"SBF",117.3,117.358)
+100 ;;=
+101 ;;^UTILITY(U,$J,"SBF",117.3,117.359)
+102 ;;=
+103 ;;^UTILITY(U,$J,"SBF",117.3,117.361)
+104 ;;=
+105 ;;^UTILITY(U,$J,"SBF",117.3,117.362)
+106 ;;=
+107 ;;^UTILITY(U,$J,"SBF",117.3,117.363)
+108 ;;=
+109 ;;^UTILITY(U,$J,"SBF",117.3,117.364)
+110 ;;=
+111 ;;^UTILITY(U,$J,"SBF",117.3,117.365)
+112 ;;=
+113 ;;^UTILITY(U,$J,"SBF",117.3,117.366)
+114 ;;=
+115 ;;^UTILITY(U,$J,"SBF",117.4,117.4)
+116 ;;=
+117 ;;^UTILITY(U,$J,"SBF",118,118)
+118 ;;=
+119 ;;^UTILITY(U,$J,"SBF",118,118.01)
+120 ;;=
+121 ;;^UTILITY(U,$J,"SBF",118.1,118.1)
+122 ;;=
+123 ;;^UTILITY(U,$J,"SBF",118.2,118.2)
+124 ;;=
+125 ;;^UTILITY(U,$J,"SBF",118.2,118.21)
+126 ;;=
+127 ;;^UTILITY(U,$J,"SBF",118.3,118.3)
+128 ;;=
+129 ;;^UTILITY(U,$J,"SBF",119,119)
+130 ;;=
+131 ;;^UTILITY(U,$J,"SBF",119,119.01)
+132 ;;=
+133 ;;^UTILITY(U,$J,"SBF",119.1,119.1)
+134 ;;=
+135 ;;^UTILITY(U,$J,"SBF",119.4,119.4)
+136 ;;=
+137 ;;^UTILITY(U,$J,"SBF",119.5,119.5)
+138 ;;=
+139 ;;^UTILITY(U,$J,"SBF",119.6,119.6)
+140 ;;=
+141 ;;^UTILITY(U,$J,"SBF",119.6,119.61)
+142 ;;=
+143 ;;^UTILITY(U,$J,"SBF",119.6,119.62)
+144 ;;=
+145 ;;^UTILITY(U,$J,"SBF",119.6,119.63)
+146 ;;=
+147 ;;^UTILITY(U,$J,"SBF",119.71,119.71)
+148 ;;=
+149 ;;^UTILITY(U,$J,"SBF",119.72,119.72)
+150 ;;=
+151 ;;^UTILITY(U,$J,"SBF",119.72,119.721)
+152 ;;=
+153 ;;^UTILITY(U,$J,"SBF",119.72,119.7211)
+154 ;;=
+155 ;;^UTILITY(U,$J,"SBF",119.72,119.722)
+156 ;;=
+157 ;;^UTILITY(U,$J,"SBF",119.73,119.73)
+158 ;;=
+159 ;;^UTILITY(U,$J,"SBF",119.74,119.74)
+160 ;;=
+161 ;;^UTILITY(U,$J,"SBF",119.8,119.8)
+162 ;;=
+163 ;;^UTILITY(U,$J,"SBF",119.9,119.9)
+164 ;;=
+165 ;;^UTILITY(U,$J,"SBF",119.9,119.9001)
+166 ;;=
+167 ;;^UTILITY(U,$J,"SBF",119.9,119.93)
+168 ;;=
+169 ;;^UTILITY(U,$J,"SBF",119.9,119.985)
+170 ;;=
