FHINI0AG ; ; 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,7033,1)
;;=7.143^21.429^50^428.571^^^^^^^^^285.714
;;^UTILITY(U,$J,112,7033,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7033,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7034,0)
;;=COOKIES,CHOC CHIP,CHIPS AHOY^BC-00307^.5-oz.^14
;;^UTILITY(U,$J,112,7034,1)
;;=7.143^14.286^50^357.143^^^^^^^^^285.714
;;^UTILITY(U,$J,112,7034,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7034,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7035,0)
;;=COOKIES,CHOC CHIP,DUNCAN HINES^BC-00308^2-cookies^25
;;^UTILITY(U,$J,112,7035,1)
;;=4^20^62.4^440^^^^^^^^^360
;;^UTILITY(U,$J,112,7035,2)
;;=^^^^^^^^0^8^10^2
;;^UTILITY(U,$J,112,7035,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7036,0)
;;=COOKIES,CHOC CHIP,FIBER ENRICHED,KEEBLER^BC-00309^cookies^15
;;^UTILITY(U,$J,112,7036,1)
;;=4.667^27.333^58.667^486.667^^^^33.333^2.133^^^113.333^346.667^^^^^^^.267
;;^UTILITY(U,$J,112,7036,2)
;;=.133^2^^^^^^^0^6.667^^.667
;;^UTILITY(U,$J,112,7036,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7037,0)
;;=COOKIES,CHOC CHIP,KEEBLER OLD FASHIONED^BC-00310^cookies^16
;;^UTILITY(U,$J,112,7037,1)
;;=5.625^21.875^68.125^487.5^^^^25^2.313^^^137.5^487.5^^^^^^^.125
;;^UTILITY(U,$J,112,7037,2)
;;=.188^2.5^^^^^^^0^6.25^^1.875
;;^UTILITY(U,$J,112,7037,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7038,0)
;;=COOKIES,CHOC CHIP,PILSBURY^BC-00311^cookies^16
;;^UTILITY(U,$J,112,7038,1)
;;=4.375^21.25^58.125^425^15^^^12.5^1.75^^56.25^106.25^343.75^^^^^25^0^.188
;;^UTILITY(U,$J,112,7038,2)
;;=.25^1.875
;;^UTILITY(U,$J,112,7038,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7039,0)
;;=COOKIES,CHOC CHIP SNAPS,NABISCO^BC-00312^3-cookies^14
;;^UTILITY(U,$J,112,7039,1)
;;=7.143^14.286^78.571^500^^^^^^^^^357.143
;;^UTILITY(U,$J,112,7039,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7039,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7040,0)
;;=COOKIES,CHOC CHOC CHIP,PILSBURY^BC-00313^cookies^16
;;^UTILITY(U,$J,112,7040,1)
;;=3.75^19.375^60^412.5^15^^^12.5^2^^68.75^237.5^231.25^^^^^6.25^0^.188
;;^UTILITY(U,$J,112,7040,2)
;;=.25^1.875
;;^UTILITY(U,$J,112,7040,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7041,0)
;;=COOKIES,CHOC CHOC CHUNK,CHIPS AHOY^BC-00314^.5-oz.^14
;;^UTILITY(U,$J,112,7041,1)
;;=7.143^35.714^71.429^642.857^^^^^^^^^464.286
;;^UTILITY(U,$J,112,7041,2)
;;=^^^^^^^^71.429^14.286
;;^UTILITY(U,$J,112,7041,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7042,0)
;;=COOKIES,CHOC FUDGE SANDWICH,KEEBLER^BC-00315^cookies^17
;;^UTILITY(U,$J,112,7042,1)
;;=5.294^21.765^68.824^488.235^^^^17.647^2.588^^^158.824^370.588^^^^^^^.176
;;^UTILITY(U,$J,112,7042,2)
;;=.176^2.941^^^^^^^0^5.882^^1.176
;;^UTILITY(U,$J,112,7042,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7043,0)
;;=COOKIES,CHOC GRAHAM SNACKS,TEDDY GRAHAMS^BC-00316^11-pieces^14
;;^UTILITY(U,$J,112,7043,1)
;;=7.143^14.286^71.429^428.571^^^^^^^^^642.857
;;^UTILITY(U,$J,112,7043,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7043,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7044,0)
;;=COOKIES,CHOC MIDDLES,NABISCO^BC-00317^.5-oz.^14
;;^UTILITY(U,$J,112,7044,1)
;;=7.143^35.714^64.286^571.429^^^^^^^^^250
;;^UTILITY(U,$J,112,7044,2)
;;=^^^^^^^^^14.286
;;^UTILITY(U,$J,112,7044,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7045,0)
;;=COOKIES,CHOC SNAPS,NABISCO^BC-00318^4-cookies^14
;;^UTILITY(U,$J,112,7045,1)
;;=7.143^14.286^78.571^500^^^^^^^^^535.714
;;^UTILITY(U,$J,112,7045,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7045,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7046,0)
;;=COOKIES,CARAMEL BARS,LITTLE DEBBIE^BC-00319^1.2-oz.^33
;;^UTILITY(U,$J,112,7046,1)
;;=3.333^24.545^66.667^500^4.545^^^0^1.515^^^^251.515^^^^^0^0^.182
;;^UTILITY(U,$J,112,7046,2)
;;=.212^2.121^^^^^^^3.03^5.758^16.97^1.818
;;^UTILITY(U,$J,112,7046,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7047,0)
;;=COOKIES,COOKIE MATES,KEEBLER^BC-00320^2-cookies^11
;;^UTILITY(U,$J,112,7047,1)
;;=6.364^17.273^70.909^463.636^^^^36.364^3.364^^^163.636^481.818^^^^^^^.364
;;^UTILITY(U,$J,112,7047,2)
;;=.273^3.636^^^^^^^0^2.727^^.909
;;^UTILITY(U,$J,112,7047,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7048,0)
;;=COOKIES,FIGAROOS,LITTLE DEBBIE^BC-00321^1.5-oz.^43
FHINI0AG ; ; 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,7033,1)
+2 ;;=7.143^21.429^50^428.571^^^^^^^^^285.714
+3 ;;^UTILITY(U,$J,112,7033,2)
+4 ;;=^^^^^^^^0^7.143
+5 ;;^UTILITY(U,$J,112,7033,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7034,0)
+8 ;;=COOKIES,CHOC CHIP,CHIPS AHOY^BC-00307^.5-oz.^14
+9 ;;^UTILITY(U,$J,112,7034,1)
+10 ;;=7.143^14.286^50^357.143^^^^^^^^^285.714
+11 ;;^UTILITY(U,$J,112,7034,2)
+12 ;;=^^^^^^^^0
+13 ;;^UTILITY(U,$J,112,7034,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7035,0)
+16 ;;=COOKIES,CHOC CHIP,DUNCAN HINES^BC-00308^2-cookies^25
+17 ;;^UTILITY(U,$J,112,7035,1)
+18 ;;=4^20^62.4^440^^^^^^^^^360
+19 ;;^UTILITY(U,$J,112,7035,2)
+20 ;;=^^^^^^^^0^8^10^2
+21 ;;^UTILITY(U,$J,112,7035,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7036,0)
+24 ;;=COOKIES,CHOC CHIP,FIBER ENRICHED,KEEBLER^BC-00309^cookies^15
+25 ;;^UTILITY(U,$J,112,7036,1)
+26 ;;=4.667^27.333^58.667^486.667^^^^33.333^2.133^^^113.333^346.667^^^^^^^.267
+27 ;;^UTILITY(U,$J,112,7036,2)
+28 ;;=.133^2^^^^^^^0^6.667^^.667
+29 ;;^UTILITY(U,$J,112,7036,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7037,0)
+32 ;;=COOKIES,CHOC CHIP,KEEBLER OLD FASHIONED^BC-00310^cookies^16
+33 ;;^UTILITY(U,$J,112,7037,1)
+34 ;;=5.625^21.875^68.125^487.5^^^^25^2.313^^^137.5^487.5^^^^^^^.125
+35 ;;^UTILITY(U,$J,112,7037,2)
+36 ;;=.188^2.5^^^^^^^0^6.25^^1.875
+37 ;;^UTILITY(U,$J,112,7037,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7038,0)
+40 ;;=COOKIES,CHOC CHIP,PILSBURY^BC-00311^cookies^16
+41 ;;^UTILITY(U,$J,112,7038,1)
+42 ;;=4.375^21.25^58.125^425^15^^^12.5^1.75^^56.25^106.25^343.75^^^^^25^0^.188
+43 ;;^UTILITY(U,$J,112,7038,2)
+44 ;;=.25^1.875
+45 ;;^UTILITY(U,$J,112,7038,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7039,0)
+48 ;;=COOKIES,CHOC CHIP SNAPS,NABISCO^BC-00312^3-cookies^14
+49 ;;^UTILITY(U,$J,112,7039,1)
+50 ;;=7.143^14.286^78.571^500^^^^^^^^^357.143
+51 ;;^UTILITY(U,$J,112,7039,2)
+52 ;;=^^^^^^^^0^7.143
+53 ;;^UTILITY(U,$J,112,7039,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7040,0)
+56 ;;=COOKIES,CHOC CHOC CHIP,PILSBURY^BC-00313^cookies^16
+57 ;;^UTILITY(U,$J,112,7040,1)
+58 ;;=3.75^19.375^60^412.5^15^^^12.5^2^^68.75^237.5^231.25^^^^^6.25^0^.188
+59 ;;^UTILITY(U,$J,112,7040,2)
+60 ;;=.25^1.875
+61 ;;^UTILITY(U,$J,112,7040,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7041,0)
+64 ;;=COOKIES,CHOC CHOC CHUNK,CHIPS AHOY^BC-00314^.5-oz.^14
+65 ;;^UTILITY(U,$J,112,7041,1)
+66 ;;=7.143^35.714^71.429^642.857^^^^^^^^^464.286
+67 ;;^UTILITY(U,$J,112,7041,2)
+68 ;;=^^^^^^^^71.429^14.286
+69 ;;^UTILITY(U,$J,112,7041,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7042,0)
+72 ;;=COOKIES,CHOC FUDGE SANDWICH,KEEBLER^BC-00315^cookies^17
+73 ;;^UTILITY(U,$J,112,7042,1)
+74 ;;=5.294^21.765^68.824^488.235^^^^17.647^2.588^^^158.824^370.588^^^^^^^.176
+75 ;;^UTILITY(U,$J,112,7042,2)
+76 ;;=.176^2.941^^^^^^^0^5.882^^1.176
+77 ;;^UTILITY(U,$J,112,7042,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7043,0)
+80 ;;=COOKIES,CHOC GRAHAM SNACKS,TEDDY GRAHAMS^BC-00316^11-pieces^14
+81 ;;^UTILITY(U,$J,112,7043,1)
+82 ;;=7.143^14.286^71.429^428.571^^^^^^^^^642.857
+83 ;;^UTILITY(U,$J,112,7043,2)
+84 ;;=^^^^^^^^0
+85 ;;^UTILITY(U,$J,112,7043,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7044,0)
+88 ;;=COOKIES,CHOC MIDDLES,NABISCO^BC-00317^.5-oz.^14
+89 ;;^UTILITY(U,$J,112,7044,1)
+90 ;;=7.143^35.714^64.286^571.429^^^^^^^^^250
+91 ;;^UTILITY(U,$J,112,7044,2)
+92 ;;=^^^^^^^^^14.286
+93 ;;^UTILITY(U,$J,112,7044,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7045,0)
+96 ;;=COOKIES,CHOC SNAPS,NABISCO^BC-00318^4-cookies^14
+97 ;;^UTILITY(U,$J,112,7045,1)
+98 ;;=7.143^14.286^78.571^500^^^^^^^^^535.714
+99 ;;^UTILITY(U,$J,112,7045,2)
+100 ;;=^^^^^^^^0^7.143
+101 ;;^UTILITY(U,$J,112,7045,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7046,0)
+104 ;;=COOKIES,CARAMEL BARS,LITTLE DEBBIE^BC-00319^1.2-oz.^33
+105 ;;^UTILITY(U,$J,112,7046,1)
+106 ;;=3.333^24.545^66.667^500^4.545^^^0^1.515^^^^251.515^^^^^0^0^.182
+107 ;;^UTILITY(U,$J,112,7046,2)
+108 ;;=.212^2.121^^^^^^^3.03^5.758^16.97^1.818
+109 ;;^UTILITY(U,$J,112,7046,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,7047,0)
+112 ;;=COOKIES,COOKIE MATES,KEEBLER^BC-00320^2-cookies^11
+113 ;;^UTILITY(U,$J,112,7047,1)
+114 ;;=6.364^17.273^70.909^463.636^^^^36.364^3.364^^^163.636^481.818^^^^^^^.364
+115 ;;^UTILITY(U,$J,112,7047,2)
+116 ;;=.273^3.636^^^^^^^0^2.727^^.909
+117 ;;^UTILITY(U,$J,112,7047,20)
+118 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+119 ;;^UTILITY(U,$J,112,7048,0)
+120 ;;=COOKIES,FIGAROOS,LITTLE DEBBIE^BC-00321^1.5-oz.^43
