FHINI0AJ ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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,112,7077,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7078,0)
;;=COOKIES,OREO DOUBLE STUFF,NABISCO^BC-00351^.5-oz.^14
;;^UTILITY(U,$J,112,7078,1)
;;=7.143^28.571^64.286^500^^^^^^^^^535.714
;;^UTILITY(U,$J,112,7078,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7078,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7079,0)
;;=COOKIES,OREO,FUDGE COVERED,NABISCO^BC-00352^.75-oz.^21
;;^UTILITY(U,$J,112,7079,1)
;;=4.762^28.571^61.905^523.81^^^^^^^^^380.952
;;^UTILITY(U,$J,112,7079,2)
;;=^^^^^^^^0^19.048
;;^UTILITY(U,$J,112,7079,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7080,0)
;;=COOKIES,PARTY GRAHAMS,COOKIES'N FUDGE,NABISCO^BC-00353^1.5-cookie^14
;;^UTILITY(U,$J,112,7080,1)
;;=7.143^21.429^71.429^500^^^^^^^^^357.143
;;^UTILITY(U,$J,112,7080,2)
;;=^^^^^^^^0^14.286
;;^UTILITY(U,$J,112,7080,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7081,0)
;;=COOKIES,PEANUT BUTTER,KEEBLER OLD FASHIONED^BC-00354^cookies^17
;;^UTILITY(U,$J,112,7081,1)
;;=9.412^25.882^58.235^494.118^^^^64.706^3.824^^^205.882^600^^^^^^^.235
;;^UTILITY(U,$J,112,7081,2)
;;=.176^5.882^^^^^^^0^5.882^^4.118
;;^UTILITY(U,$J,112,7081,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7082,0)
;;=COOKIES,PEANUT BUTTER,PILSBURY^BC-00355^cookies^16
;;^UTILITY(U,$J,112,7082,1)
;;=8.125^20.625^52.5^425^16.25^^^18.75^9.688^^100^181.25^437.5^^^^^31.25^0^.188
;;^UTILITY(U,$J,112,7082,2)
;;=.25^3.75
;;^UTILITY(U,$J,112,7082,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7083,0)
;;=COOKIES,PINWHEELS,CHOC & MARSHMALLOW CAKES^BC-00356^cookies^28
;;^UTILITY(U,$J,112,7083,1)
;;=3.571^17.857^71.429^464.286^^^^^^^^^142.857
;;^UTILITY(U,$J,112,7083,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7083,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7084,0)
;;=COOKIES,PITTER PATTER,KEEBLER^BC-00357^cookies^18
;;^UTILITY(U,$J,112,7084,1)
;;=10^21.111^63.889^488.889^^^^33.333^2.278^^^216.667^538.889^^^^^^^.222
;;^UTILITY(U,$J,112,7084,2)
;;=.111^3.333^^^^^^^0^3.889^^2.778
;;^UTILITY(U,$J,112,7084,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7085,0)
;;=COOKIES,RASPBERRY NEWTON,NABISCO^BC-00358^.75-oz.^21
;;^UTILITY(U,$J,112,7085,1)
;;=4.762^9.524^71.429^380.952^^^^^^^^^285.714
;;^UTILITY(U,$J,112,7085,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7085,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7086,0)
;;=COOKIES,SHORTBREAD^BC-00359^2-cookies^15
;;^UTILITY(U,$J,112,7086,1)
;;=7.333^23.333^65.333^500^3.333^^^73.333^.533^^153.333^66.667^60^^^^^40^0^.067
;;^UTILITY(U,$J,112,7086,2)
;;=.067^.667^^^^^^^^6
;;^UTILITY(U,$J,112,7086,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7087,0)
;;=COOKIES,SHORTBREAD,LORNA DOONE^BC-00360^3-cookies^14
;;^UTILITY(U,$J,112,7087,1)
;;=7.143^28.571^64.286^500^^^^^^^^^464.286
;;^UTILITY(U,$J,112,7087,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7088,0)
;;=COOKIES,STRAWBERRY NEWTON,NABISCO^BC-00361^.75-oz.^21
;;^UTILITY(U,$J,112,7088,1)
;;=4.762^9.524^71.429^380.952^^^^^^^^^285.714
;;^UTILITY(U,$J,112,7088,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7088,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7089,0)
;;=COOKIES,STRIPED,CHIPS AHOY^BC-00362^.5-oz.^14
;;^UTILITY(U,$J,112,7089,1)
;;=7.143^35.714^71.429^642.857^^^^^^^^^321.429
;;^UTILITY(U,$J,112,7089,2)
;;=^^^^^^^^0^14.286
;;^UTILITY(U,$J,112,7089,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7090,0)
;;=COOKIES,STRIPED SHORTBREAD,COOKIES'N FUDGE,NABISCO^BC-00363^.5-oz.^14
;;^UTILITY(U,$J,112,7090,1)
;;=7.143^21.429^50^428.571^^^^^^^^^357.143
;;^UTILITY(U,$J,112,7090,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7090,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7091,0)
;;=COOKIES,STRIPED WAFERS,COOKIES'N FUDGE,NABISCO^BC-00364^.5-oz.^14
;;^UTILITY(U,$J,112,7091,1)
;;=7.143^28.571^64.286^500^^^^^^^^^214.286
;;^UTILITY(U,$J,112,7091,2)
;;=^^^^^^^^0^14.286
;;^UTILITY(U,$J,112,7091,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7092,0)
;;=COOKIES,SUDDENLY S'MORES,NABISCO^BC-00365^.75-oz.^21
;;^UTILITY(U,$J,112,7092,1)
;;=4.762^19.048^71.429^476.19^^^^^^^^^428.571
;;^UTILITY(U,$J,112,7092,2)
;;=^^^^^^^^0^9.524
;;^UTILITY(U,$J,112,7092,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0AJ ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
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,112,7077,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7078,0)
+4 ;;=COOKIES,OREO DOUBLE STUFF,NABISCO^BC-00351^.5-oz.^14
+5 ;;^UTILITY(U,$J,112,7078,1)
+6 ;;=7.143^28.571^64.286^500^^^^^^^^^535.714
+7 ;;^UTILITY(U,$J,112,7078,2)
+8 ;;=^^^^^^^^0^7.143
+9 ;;^UTILITY(U,$J,112,7078,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7079,0)
+12 ;;=COOKIES,OREO,FUDGE COVERED,NABISCO^BC-00352^.75-oz.^21
+13 ;;^UTILITY(U,$J,112,7079,1)
+14 ;;=4.762^28.571^61.905^523.81^^^^^^^^^380.952
+15 ;;^UTILITY(U,$J,112,7079,2)
+16 ;;=^^^^^^^^0^19.048
+17 ;;^UTILITY(U,$J,112,7079,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7080,0)
+20 ;;=COOKIES,PARTY GRAHAMS,COOKIES'N FUDGE,NABISCO^BC-00353^1.5-cookie^14
+21 ;;^UTILITY(U,$J,112,7080,1)
+22 ;;=7.143^21.429^71.429^500^^^^^^^^^357.143
+23 ;;^UTILITY(U,$J,112,7080,2)
+24 ;;=^^^^^^^^0^14.286
+25 ;;^UTILITY(U,$J,112,7080,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7081,0)
+28 ;;=COOKIES,PEANUT BUTTER,KEEBLER OLD FASHIONED^BC-00354^cookies^17
+29 ;;^UTILITY(U,$J,112,7081,1)
+30 ;;=9.412^25.882^58.235^494.118^^^^64.706^3.824^^^205.882^600^^^^^^^.235
+31 ;;^UTILITY(U,$J,112,7081,2)
+32 ;;=.176^5.882^^^^^^^0^5.882^^4.118
+33 ;;^UTILITY(U,$J,112,7081,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7082,0)
+36 ;;=COOKIES,PEANUT BUTTER,PILSBURY^BC-00355^cookies^16
+37 ;;^UTILITY(U,$J,112,7082,1)
+38 ;;=8.125^20.625^52.5^425^16.25^^^18.75^9.688^^100^181.25^437.5^^^^^31.25^0^.188
+39 ;;^UTILITY(U,$J,112,7082,2)
+40 ;;=.25^3.75
+41 ;;^UTILITY(U,$J,112,7082,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7083,0)
+44 ;;=COOKIES,PINWHEELS,CHOC & MARSHMALLOW CAKES^BC-00356^cookies^28
+45 ;;^UTILITY(U,$J,112,7083,1)
+46 ;;=3.571^17.857^71.429^464.286^^^^^^^^^142.857
+47 ;;^UTILITY(U,$J,112,7083,2)
+48 ;;=^^^^^^^^0^7.143
+49 ;;^UTILITY(U,$J,112,7083,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7084,0)
+52 ;;=COOKIES,PITTER PATTER,KEEBLER^BC-00357^cookies^18
+53 ;;^UTILITY(U,$J,112,7084,1)
+54 ;;=10^21.111^63.889^488.889^^^^33.333^2.278^^^216.667^538.889^^^^^^^.222
+55 ;;^UTILITY(U,$J,112,7084,2)
+56 ;;=.111^3.333^^^^^^^0^3.889^^2.778
+57 ;;^UTILITY(U,$J,112,7084,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7085,0)
+60 ;;=COOKIES,RASPBERRY NEWTON,NABISCO^BC-00358^.75-oz.^21
+61 ;;^UTILITY(U,$J,112,7085,1)
+62 ;;=4.762^9.524^71.429^380.952^^^^^^^^^285.714
+63 ;;^UTILITY(U,$J,112,7085,2)
+64 ;;=^^^^^^^^0
+65 ;;^UTILITY(U,$J,112,7085,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,7086,0)
+68 ;;=COOKIES,SHORTBREAD^BC-00359^2-cookies^15
+69 ;;^UTILITY(U,$J,112,7086,1)
+70 ;;=7.333^23.333^65.333^500^3.333^^^73.333^.533^^153.333^66.667^60^^^^^40^0^.067
+71 ;;^UTILITY(U,$J,112,7086,2)
+72 ;;=.067^.667^^^^^^^^6
+73 ;;^UTILITY(U,$J,112,7086,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,7087,0)
+76 ;;=COOKIES,SHORTBREAD,LORNA DOONE^BC-00360^3-cookies^14
+77 ;;^UTILITY(U,$J,112,7087,1)
+78 ;;=7.143^28.571^64.286^500^^^^^^^^^464.286
+79 ;;^UTILITY(U,$J,112,7087,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7088,0)
+82 ;;=COOKIES,STRAWBERRY NEWTON,NABISCO^BC-00361^.75-oz.^21
+83 ;;^UTILITY(U,$J,112,7088,1)
+84 ;;=4.762^9.524^71.429^380.952^^^^^^^^^285.714
+85 ;;^UTILITY(U,$J,112,7088,2)
+86 ;;=^^^^^^^^0
+87 ;;^UTILITY(U,$J,112,7088,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7089,0)
+90 ;;=COOKIES,STRIPED,CHIPS AHOY^BC-00362^.5-oz.^14
+91 ;;^UTILITY(U,$J,112,7089,1)
+92 ;;=7.143^35.714^71.429^642.857^^^^^^^^^321.429
+93 ;;^UTILITY(U,$J,112,7089,2)
+94 ;;=^^^^^^^^0^14.286
+95 ;;^UTILITY(U,$J,112,7089,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7090,0)
+98 ;;=COOKIES,STRIPED SHORTBREAD,COOKIES'N FUDGE,NABISCO^BC-00363^.5-oz.^14
+99 ;;^UTILITY(U,$J,112,7090,1)
+100 ;;=7.143^21.429^50^428.571^^^^^^^^^357.143
+101 ;;^UTILITY(U,$J,112,7090,2)
+102 ;;=^^^^^^^^0^7.143
+103 ;;^UTILITY(U,$J,112,7090,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7091,0)
+106 ;;=COOKIES,STRIPED WAFERS,COOKIES'N FUDGE,NABISCO^BC-00364^.5-oz.^14
+107 ;;^UTILITY(U,$J,112,7091,1)
+108 ;;=7.143^28.571^64.286^500^^^^^^^^^214.286
+109 ;;^UTILITY(U,$J,112,7091,2)
+110 ;;=^^^^^^^^0^14.286
+111 ;;^UTILITY(U,$J,112,7091,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+113 ;;^UTILITY(U,$J,112,7092,0)
+114 ;;=COOKIES,SUDDENLY S'MORES,NABISCO^BC-00365^.75-oz.^21
+115 ;;^UTILITY(U,$J,112,7092,1)
+116 ;;=4.762^19.048^71.429^476.19^^^^^^^^^428.571
+117 ;;^UTILITY(U,$J,112,7092,2)
+118 ;;=^^^^^^^^0^9.524
+119 ;;^UTILITY(U,$J,112,7092,20)
+120 ;;=Bowes & Church's Food Values, Sixteenth Edition.
