FHINI0MF ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(119.1) 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,119.1)
;;=^FH(119.1,
;;^UTILITY(U,$J,119.1,0)
;;=UNITS^119.1^207^204
;;^UTILITY(U,$J,119.1,1,0)
;;=EACH
;;^UTILITY(U,$J,119.1,2,0)
;;=FL-OZ
;;^UTILITY(U,$J,119.1,3,0)
;;=QT
;;^UTILITY(U,$J,119.1,4,0)
;;=GAL
;;^UTILITY(U,$J,119.1,5,0)
;;=OZ
;;^UTILITY(U,$J,119.1,6,0)
;;=LB
;;^UTILITY(U,$J,119.1,7,0)
;;=TBSP
;;^UTILITY(U,$J,119.1,8,0)
;;=TSP
;;^UTILITY(U,$J,119.1,11,0)
;;=#10 CN
;;^UTILITY(U,$J,119.1,12,0)
;;=#2 CN
;;^UTILITY(U,$J,119.1,13,0)
;;=#2-1/2 CN
;;^UTILITY(U,$J,119.1,14,0)
;;=#3 CN
;;^UTILITY(U,$J,119.1,15,0)
;;=#300 CN
;;^UTILITY(U,$J,119.1,16,0)
;;=#303 CN
;;^UTILITY(U,$J,119.1,17,0)
;;=1# BX
;;^UTILITY(U,$J,119.1,18,0)
;;=1# CN
;;^UTILITY(U,$J,119.1,19,0)
;;=1# CO
;;^UTILITY(U,$J,119.1,21,0)
;;=1# JR
;;^UTILITY(U,$J,119.1,22,0)
;;=1# PG
;;^UTILITY(U,$J,119.1,23,0)
;;=1-2-GL JR
;;^UTILITY(U,$J,119.1,24,0)
;;=1/2-GL BT
;;^UTILITY(U,$J,119.1,25,0)
;;=1/2-GL CO
;;^UTILITY(U,$J,119.1,26,0)
;;=10# BX
;;^UTILITY(U,$J,119.1,27,0)
;;=10-OZ BG
;;^UTILITY(U,$J,119.1,28,0)
;;=10-OZ BT
;;^UTILITY(U,$J,119.1,29,0)
;;=10-OZ CN
;;^UTILITY(U,$J,119.1,30,0)
;;=10-OZ JR
;;^UTILITY(U,$J,119.1,31,0)
;;=10-OZ PG
;;^UTILITY(U,$J,119.1,32,0)
;;=11-OZ BT
;;^UTILITY(U,$J,119.1,33,0)
;;=11-OZ CN
;;^UTILITY(U,$J,119.1,34,0)
;;=12-1/2# CS
;;^UTILITY(U,$J,119.1,35,0)
;;=12-OZ BG
;;^UTILITY(U,$J,119.1,36,0)
;;=12-OZ BT
;;^UTILITY(U,$J,119.1,37,0)
;;=12-OZ BX
;;^UTILITY(U,$J,119.1,38,0)
;;=12-OZ CN
;;^UTILITY(U,$J,119.1,39,0)
;;=12-OZ JR
;;^UTILITY(U,$J,119.1,40,0)
;;=12-OZ PG
;;^UTILITY(U,$J,119.1,41,0)
;;=13-OZ CN
;;^UTILITY(U,$J,119.1,42,0)
;;=14-OZ CN
;;^UTILITY(U,$J,119.1,43,0)
;;=14-OZ CO
;;^UTILITY(U,$J,119.1,44,0)
;;=14-OZ PG
;;^UTILITY(U,$J,119.1,45,0)
;;=15-OZ CN
;;^UTILITY(U,$J,119.1,46,0)
;;=15-OZ PG
;;^UTILITY(U,$J,119.1,47,0)
;;=17-OZ CN
;;^UTILITY(U,$J,119.1,48,0)
;;=18-OZ CN
;;^UTILITY(U,$J,119.1,49,0)
;;=2# BG
;;^UTILITY(U,$J,119.1,50,0)
;;=2# CN
;;^UTILITY(U,$J,119.1,51,0)
;;=2# PG
;;^UTILITY(U,$J,119.1,52,0)
;;=2-1/4 GL BT
;;^UTILITY(U,$J,119.1,53,0)
;;=2-1/4# CO
;;^UTILITY(U,$J,119.1,54,0)
;;=2-OZ BT
;;^UTILITY(U,$J,119.1,55,0)
;;=2-OZ PG
;;^UTILITY(U,$J,119.1,56,0)
;;=20-OZ CN
;;^UTILITY(U,$J,119.1,57,0)
;;=20-OZ PG
;;^UTILITY(U,$J,119.1,58,0)
;;=22-OZ PG
;;^UTILITY(U,$J,119.1,59,0)
;;=24-OZ CO
;;^UTILITY(U,$J,119.1,60,0)
;;=24-OZ PG
;;^UTILITY(U,$J,119.1,61,0)
;;=25# BG
;;^UTILITY(U,$J,119.1,62,0)
;;=25# CO
;;^UTILITY(U,$J,119.1,63,0)
;;=25# SA
;;^UTILITY(U,$J,119.1,64,0)
;;=28# CO
;;^UTILITY(U,$J,119.1,65,0)
;;=28-OZ JR
;;^UTILITY(U,$J,119.1,66,0)
;;=28-OZ PG
;;^UTILITY(U,$J,119.1,67,0)
;;=3# CN
;;^UTILITY(U,$J,119.1,68,0)
;;=3# PG
;;^UTILITY(U,$J,119.1,69,0)
;;=3-1/2 OZ CN
;;^UTILITY(U,$J,119.1,70,0)
;;=3-3/4 OZ CN
;;^UTILITY(U,$J,119.1,71,0)
;;=3-OZ CO
;;^UTILITY(U,$J,119.1,72,0)
;;=4# BX
;;^UTILITY(U,$J,119.1,73,0)
;;=4# CN
;;^UTILITY(U,$J,119.1,74,0)
;;=4# JR
;;^UTILITY(U,$J,119.1,75,0)
;;=4# PG
;;^UTILITY(U,$J,119.1,76,0)
;;=4-OZ BT
;;^UTILITY(U,$J,119.1,77,0)
;;=4-OZ CN
;;^UTILITY(U,$J,119.1,78,0)
;;=4-OZ JR
;;^UTILITY(U,$J,119.1,79,0)
;;=40-OZ JR
;;^UTILITY(U,$J,119.1,80,0)
;;=40-OZ PG
;;^UTILITY(U,$J,119.1,81,0)
;;=42-OZ PG
;;^UTILITY(U,$J,119.1,82,0)
;;=49-OZ CN
;;^UTILITY(U,$J,119.1,83,0)
;;=5# BG
;;^UTILITY(U,$J,119.1,84,0)
;;=5# BX
;;^UTILITY(U,$J,119.1,85,0)
;;=5# CN
;;^UTILITY(U,$J,119.1,86,0)
;;=5# CO
;;^UTILITY(U,$J,119.1,87,0)
;;=5# CS
;;^UTILITY(U,$J,119.1,88,0)
;;=5# PG
;;^UTILITY(U,$J,119.1,89,0)
;;=5-1/4 OZ BT
;;^UTILITY(U,$J,119.1,90,0)
;;=5-GL CN
;;^UTILITY(U,$J,119.1,91,0)
;;=5-OZ CN
;;^UTILITY(U,$J,119.1,92,0)
;;=5-OZ JR
;;^UTILITY(U,$J,119.1,93,0)
;;=5-QT CN
;;^UTILITY(U,$J,119.1,94,0)
;;=50# CN
;;^UTILITY(U,$J,119.1,95,0)
;;=50# CO
;;^UTILITY(U,$J,119.1,96,0)
;;=50# SA
;;^UTILITY(U,$J,119.1,97,0)
;;=50-OZ CN
;;^UTILITY(U,$J,119.1,98,0)
;;=51-OZ CN
;;^UTILITY(U,$J,119.1,99,0)
;;=52-OZ CN
;;^UTILITY(U,$J,119.1,100,0)
;;=55-OZ CN
;;^UTILITY(U,$J,119.1,101,0)
;;=57-OZ JR
;;^UTILITY(U,$J,119.1,102,0)
;;=6-1/2 OZ CN
;;^UTILITY(U,$J,119.1,103,0)
;;=6-3/4 OZ JR
;;^UTILITY(U,$J,119.1,104,0)
;;=6-OZ BT
;;^UTILITY(U,$J,119.1,105,0)
;;=60# CO
;;^UTILITY(U,$J,119.1,106,0)
;;=66-1/2 OZ CN
;;^UTILITY(U,$J,119.1,107,0)
;;=7-3/4 OZ CN
;;^UTILITY(U,$J,119.1,108,0)
;;=7-OZ CN
;;^UTILITY(U,$J,119.1,109,0)
;;=7-OZ JR
;;^UTILITY(U,$J,119.1,110,0)
;;=70-OZ CN
;;^UTILITY(U,$J,119.1,111,0)
;;=8-OZ BG
;;^UTILITY(U,$J,119.1,112,0)
;;=8-OZ BT
;;^UTILITY(U,$J,119.1,113,0)
;;=8-OZ CN
;;^UTILITY(U,$J,119.1,114,0)
;;=8-OZ CO
;;^UTILITY(U,$J,119.1,115,0)
;;=BX-1000
FHINI0MF ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(119.1)
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,119.1)
+2 ;;=^FH(119.1,
+3 ;;^UTILITY(U,$J,119.1,0)
+4 ;;=UNITS^119.1^207^204
+5 ;;^UTILITY(U,$J,119.1,1,0)
+6 ;;=EACH
+7 ;;^UTILITY(U,$J,119.1,2,0)
+8 ;;=FL-OZ
+9 ;;^UTILITY(U,$J,119.1,3,0)
+10 ;;=QT
+11 ;;^UTILITY(U,$J,119.1,4,0)
+12 ;;=GAL
+13 ;;^UTILITY(U,$J,119.1,5,0)
+14 ;;=OZ
+15 ;;^UTILITY(U,$J,119.1,6,0)
+16 ;;=LB
+17 ;;^UTILITY(U,$J,119.1,7,0)
+18 ;;=TBSP
+19 ;;^UTILITY(U,$J,119.1,8,0)
+20 ;;=TSP
+21 ;;^UTILITY(U,$J,119.1,11,0)
+22 ;;=#10 CN
+23 ;;^UTILITY(U,$J,119.1,12,0)
+24 ;;=#2 CN
+25 ;;^UTILITY(U,$J,119.1,13,0)
+26 ;;=#2-1/2 CN
+27 ;;^UTILITY(U,$J,119.1,14,0)
+28 ;;=#3 CN
+29 ;;^UTILITY(U,$J,119.1,15,0)
+30 ;;=#300 CN
+31 ;;^UTILITY(U,$J,119.1,16,0)
+32 ;;=#303 CN
+33 ;;^UTILITY(U,$J,119.1,17,0)
+34 ;;=1# BX
+35 ;;^UTILITY(U,$J,119.1,18,0)
+36 ;;=1# CN
+37 ;;^UTILITY(U,$J,119.1,19,0)
+38 ;;=1# CO
+39 ;;^UTILITY(U,$J,119.1,21,0)
+40 ;;=1# JR
+41 ;;^UTILITY(U,$J,119.1,22,0)
+42 ;;=1# PG
+43 ;;^UTILITY(U,$J,119.1,23,0)
+44 ;;=1-2-GL JR
+45 ;;^UTILITY(U,$J,119.1,24,0)
+46 ;;=1/2-GL BT
+47 ;;^UTILITY(U,$J,119.1,25,0)
+48 ;;=1/2-GL CO
+49 ;;^UTILITY(U,$J,119.1,26,0)
+50 ;;=10# BX
+51 ;;^UTILITY(U,$J,119.1,27,0)
+52 ;;=10-OZ BG
+53 ;;^UTILITY(U,$J,119.1,28,0)
+54 ;;=10-OZ BT
+55 ;;^UTILITY(U,$J,119.1,29,0)
+56 ;;=10-OZ CN
+57 ;;^UTILITY(U,$J,119.1,30,0)
+58 ;;=10-OZ JR
+59 ;;^UTILITY(U,$J,119.1,31,0)
+60 ;;=10-OZ PG
+61 ;;^UTILITY(U,$J,119.1,32,0)
+62 ;;=11-OZ BT
+63 ;;^UTILITY(U,$J,119.1,33,0)
+64 ;;=11-OZ CN
+65 ;;^UTILITY(U,$J,119.1,34,0)
+66 ;;=12-1/2# CS
+67 ;;^UTILITY(U,$J,119.1,35,0)
+68 ;;=12-OZ BG
+69 ;;^UTILITY(U,$J,119.1,36,0)
+70 ;;=12-OZ BT
+71 ;;^UTILITY(U,$J,119.1,37,0)
+72 ;;=12-OZ BX
+73 ;;^UTILITY(U,$J,119.1,38,0)
+74 ;;=12-OZ CN
+75 ;;^UTILITY(U,$J,119.1,39,0)
+76 ;;=12-OZ JR
+77 ;;^UTILITY(U,$J,119.1,40,0)
+78 ;;=12-OZ PG
+79 ;;^UTILITY(U,$J,119.1,41,0)
+80 ;;=13-OZ CN
+81 ;;^UTILITY(U,$J,119.1,42,0)
+82 ;;=14-OZ CN
+83 ;;^UTILITY(U,$J,119.1,43,0)
+84 ;;=14-OZ CO
+85 ;;^UTILITY(U,$J,119.1,44,0)
+86 ;;=14-OZ PG
+87 ;;^UTILITY(U,$J,119.1,45,0)
+88 ;;=15-OZ CN
+89 ;;^UTILITY(U,$J,119.1,46,0)
+90 ;;=15-OZ PG
+91 ;;^UTILITY(U,$J,119.1,47,0)
+92 ;;=17-OZ CN
+93 ;;^UTILITY(U,$J,119.1,48,0)
+94 ;;=18-OZ CN
+95 ;;^UTILITY(U,$J,119.1,49,0)
+96 ;;=2# BG
+97 ;;^UTILITY(U,$J,119.1,50,0)
+98 ;;=2# CN
+99 ;;^UTILITY(U,$J,119.1,51,0)
+100 ;;=2# PG
+101 ;;^UTILITY(U,$J,119.1,52,0)
+102 ;;=2-1/4 GL BT
+103 ;;^UTILITY(U,$J,119.1,53,0)
+104 ;;=2-1/4# CO
+105 ;;^UTILITY(U,$J,119.1,54,0)
+106 ;;=2-OZ BT
+107 ;;^UTILITY(U,$J,119.1,55,0)
+108 ;;=2-OZ PG
+109 ;;^UTILITY(U,$J,119.1,56,0)
+110 ;;=20-OZ CN
+111 ;;^UTILITY(U,$J,119.1,57,0)
+112 ;;=20-OZ PG
+113 ;;^UTILITY(U,$J,119.1,58,0)
+114 ;;=22-OZ PG
+115 ;;^UTILITY(U,$J,119.1,59,0)
+116 ;;=24-OZ CO
+117 ;;^UTILITY(U,$J,119.1,60,0)
+118 ;;=24-OZ PG
+119 ;;^UTILITY(U,$J,119.1,61,0)
+120 ;;=25# BG
+121 ;;^UTILITY(U,$J,119.1,62,0)
+122 ;;=25# CO
+123 ;;^UTILITY(U,$J,119.1,63,0)
+124 ;;=25# SA
+125 ;;^UTILITY(U,$J,119.1,64,0)
+126 ;;=28# CO
+127 ;;^UTILITY(U,$J,119.1,65,0)
+128 ;;=28-OZ JR
+129 ;;^UTILITY(U,$J,119.1,66,0)
+130 ;;=28-OZ PG
+131 ;;^UTILITY(U,$J,119.1,67,0)
+132 ;;=3# CN
+133 ;;^UTILITY(U,$J,119.1,68,0)
+134 ;;=3# PG
+135 ;;^UTILITY(U,$J,119.1,69,0)
+136 ;;=3-1/2 OZ CN
+137 ;;^UTILITY(U,$J,119.1,70,0)
+138 ;;=3-3/4 OZ CN
+139 ;;^UTILITY(U,$J,119.1,71,0)
+140 ;;=3-OZ CO
+141 ;;^UTILITY(U,$J,119.1,72,0)
+142 ;;=4# BX
+143 ;;^UTILITY(U,$J,119.1,73,0)
+144 ;;=4# CN
+145 ;;^UTILITY(U,$J,119.1,74,0)
+146 ;;=4# JR
+147 ;;^UTILITY(U,$J,119.1,75,0)
+148 ;;=4# PG
+149 ;;^UTILITY(U,$J,119.1,76,0)
+150 ;;=4-OZ BT
+151 ;;^UTILITY(U,$J,119.1,77,0)
+152 ;;=4-OZ CN
+153 ;;^UTILITY(U,$J,119.1,78,0)
+154 ;;=4-OZ JR
+155 ;;^UTILITY(U,$J,119.1,79,0)
+156 ;;=40-OZ JR
+157 ;;^UTILITY(U,$J,119.1,80,0)
+158 ;;=40-OZ PG
+159 ;;^UTILITY(U,$J,119.1,81,0)
+160 ;;=42-OZ PG
+161 ;;^UTILITY(U,$J,119.1,82,0)
+162 ;;=49-OZ CN
+163 ;;^UTILITY(U,$J,119.1,83,0)
+164 ;;=5# BG
+165 ;;^UTILITY(U,$J,119.1,84,0)
+166 ;;=5# BX
+167 ;;^UTILITY(U,$J,119.1,85,0)
+168 ;;=5# CN
+169 ;;^UTILITY(U,$J,119.1,86,0)
+170 ;;=5# CO
+171 ;;^UTILITY(U,$J,119.1,87,0)
+172 ;;=5# CS
+173 ;;^UTILITY(U,$J,119.1,88,0)
+174 ;;=5# PG
+175 ;;^UTILITY(U,$J,119.1,89,0)
+176 ;;=5-1/4 OZ BT
+177 ;;^UTILITY(U,$J,119.1,90,0)
+178 ;;=5-GL CN
+179 ;;^UTILITY(U,$J,119.1,91,0)
+180 ;;=5-OZ CN
+181 ;;^UTILITY(U,$J,119.1,92,0)
+182 ;;=5-OZ JR
+183 ;;^UTILITY(U,$J,119.1,93,0)
+184 ;;=5-QT CN
+185 ;;^UTILITY(U,$J,119.1,94,0)
+186 ;;=50# CN
+187 ;;^UTILITY(U,$J,119.1,95,0)
+188 ;;=50# CO
+189 ;;^UTILITY(U,$J,119.1,96,0)
+190 ;;=50# SA
+191 ;;^UTILITY(U,$J,119.1,97,0)
+192 ;;=50-OZ CN
+193 ;;^UTILITY(U,$J,119.1,98,0)
+194 ;;=51-OZ CN
+195 ;;^UTILITY(U,$J,119.1,99,0)
+196 ;;=52-OZ CN
+197 ;;^UTILITY(U,$J,119.1,100,0)
+198 ;;=55-OZ CN
+199 ;;^UTILITY(U,$J,119.1,101,0)
+200 ;;=57-OZ JR
+201 ;;^UTILITY(U,$J,119.1,102,0)
+202 ;;=6-1/2 OZ CN
+203 ;;^UTILITY(U,$J,119.1,103,0)
+204 ;;=6-3/4 OZ JR
+205 ;;^UTILITY(U,$J,119.1,104,0)
+206 ;;=6-OZ BT
+207 ;;^UTILITY(U,$J,119.1,105,0)
+208 ;;=60# CO
+209 ;;^UTILITY(U,$J,119.1,106,0)
+210 ;;=66-1/2 OZ CN
+211 ;;^UTILITY(U,$J,119.1,107,0)
+212 ;;=7-3/4 OZ CN
+213 ;;^UTILITY(U,$J,119.1,108,0)
+214 ;;=7-OZ CN
+215 ;;^UTILITY(U,$J,119.1,109,0)
+216 ;;=7-OZ JR
+217 ;;^UTILITY(U,$J,119.1,110,0)
+218 ;;=70-OZ CN
+219 ;;^UTILITY(U,$J,119.1,111,0)
+220 ;;=8-OZ BG
+221 ;;^UTILITY(U,$J,119.1,112,0)
+222 ;;=8-OZ BT
+223 ;;^UTILITY(U,$J,119.1,113,0)
+224 ;;=8-OZ CN
+225 ;;^UTILITY(U,$J,119.1,114,0)
+226 ;;=8-OZ CO
+227 ;;^UTILITY(U,$J,119.1,115,0)
+228 ;;=BX-1000
