FHINI0AI ; ; 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,7063,0)
;;=COOKIES,ICE CREAM CONE,WAFFLE CONE,KEEBLER^BC-00336^cones^24
;;^UTILITY(U,$J,112,7063,1)
;;=7.083^2.917^85^404.167^^^^16.667^.708^^^104.167^0^^^^^^^.042
;;^UTILITY(U,$J,112,7063,2)
;;=.25^.417^^^^^^^0
;;^UTILITY(U,$J,112,7063,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7064,0)
;;=COOKIES,KEEBIES,KEEBLER^BC-00337^cookies^18
;;^UTILITY(U,$J,112,7064,1)
;;=5.556^20^70^477.778^^^^38.889^3.222^^^150^383.333^^^^^^^0
;;^UTILITY(U,$J,112,7064,2)
;;=.222^2.222^^^^^^^0^6.111^^1.111
;;^UTILITY(U,$J,112,7064,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7065,0)
;;=COOKIES,KRISP KREEM WAFERS,KEEBLER^BC-00338^2-cookies^10
;;^UTILITY(U,$J,112,7065,1)
;;=4^26^68^520^^^^20^1.7^^^90^150^^^^^^^0
;;^UTILITY(U,$J,112,7065,2)
;;=.4^2^^^^^^^0^5^^2
;;^UTILITY(U,$J,112,7065,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7066,0)
;;=COOKIES,MALLOMARS CHOC CAKES,NABISCO^BC-00339^.5-oz.^14
;;^UTILITY(U,$J,112,7066,1)
;;=7.143^21.429^64.286^428.571^^^^^^^^^142.857
;;^UTILITY(U,$J,112,7066,2)
;;=^^^^^^^^0^7.143
;;^UTILITY(U,$J,112,7066,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7067,0)
;;=COOKIES,MARSHMALLOW PUFFS FUDGE CAKES,NABISCO^BC-00340^.75-oz.^21
;;^UTILITY(U,$J,112,7067,1)
;;=4.762^19.048^66.667^428.571^^^^^^^^^214.286
;;^UTILITY(U,$J,112,7067,2)
;;=^^^^^^^^0^14.286
;;^UTILITY(U,$J,112,7067,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7068,0)
;;=COOKIES,MARSHMALLOW TWIRLS FUDGE CAKES,NABISCO^BC-00341^oz.^28
;;^UTILITY(U,$J,112,7068,1)
;;=3.571^21.429^71.429^500^^^^^^^^^250
;;^UTILITY(U,$J,112,7068,2)
;;=^^^^^^^^0^14.286
;;^UTILITY(U,$J,112,7068,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7069,0)
;;=COOKIES,NILLA WAFERS,NABISCO^BC-00342^3-1/2-cook^14
;;^UTILITY(U,$J,112,7069,1)
;;=7.143^14.286^78.571^428.571^^^^^^^^^321.429
;;^UTILITY(U,$J,112,7069,2)
;;=^^^^^^^^35.714
;;^UTILITY(U,$J,112,7069,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7070,0)
;;=COOKIES,NUTTER BUTTER,PEANUT BUTTER SANDWICH,NABISCO^BC-00343^.5-oz.^14
;;^UTILITY(U,$J,112,7070,1)
;;=7.143^21.429^64.286^500^^^^^^^^^357.143
;;^UTILITY(U,$J,112,7070,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7070,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7071,0)
;;=COOKIES,NUTTER BUTTER,PEANUT CREME PATTIES,NABISCO^BC-00344^2-cookies^14
;;^UTILITY(U,$J,112,7071,1)
;;=14.286^28.571^57.143^571.429^^^^^^^^^321.429
;;^UTILITY(U,$J,112,7071,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7071,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7072,0)
;;=COOKIES,OAT BRAN,APPLE,FIBER ENRICHED,KEEBLER^BC-00345^cookies^15
;;^UTILITY(U,$J,112,7072,1)
;;=5.333^22^64^473.333^^^^20^2.333^^^86.667^373.333^^^^^^^.333
;;^UTILITY(U,$J,112,7072,2)
;;=.2^2^^^^^^^0^4^^1.333^^^^^7.333
;;^UTILITY(U,$J,112,7072,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7073,0)
;;=COOKIES,OATMEAL FIBER ENRICHED,KEEBLER^BC-00346^cookies^15
;;^UTILITY(U,$J,112,7073,1)
;;=6^20^64.667^453.333^^^^20^2.2^^^106.667^433.333^^^^^^^.333
;;^UTILITY(U,$J,112,7073,2)
;;=.2^2^^^^^^^0^4^^1.333^^^^^7.333
;;^UTILITY(U,$J,112,7073,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7074,0)
;;=COOKIES,OATMEAL,KEEBLER OLD FASHIONED^BC-00347^cookies^18
;;^UTILITY(U,$J,112,7074,1)
;;=7.222^17.222^68.889^461.111^^^^27.778^3.278^^^155.556^488.889^^^^^^^.111
;;^UTILITY(U,$J,112,7074,2)
;;=.222^2.222^^^^^^^0^5^^2.222
;;^UTILITY(U,$J,112,7074,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7075,0)
;;=COOKIES,OATMEAL CREME PIES,LITTLE DEBBIE^BC-00348^1.3-oz.^38
;;^UTILITY(U,$J,112,7075,1)
;;=4.474^21.053^62.632^457.895^10.526^^^0^1.605^^^^371.053^^^^^^0^.158
;;^UTILITY(U,$J,112,7075,2)
;;=.132^1.316^^^^^^^0^5.789^12.105^3.158
;;^UTILITY(U,$J,112,7075,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7076,0)
;;=COOKIES,OREO,NABISCO^BC-00349^.5-oz.^14
;;^UTILITY(U,$J,112,7076,1)
;;=7.143^14.286^57.143^357.143^^^^^^^^^535.714
;;^UTILITY(U,$J,112,7076,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7076,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7077,0)
;;=COOKIES,OREO BIG STUFF,NABISCO^BC-00350^1.75-oz.^50
;;^UTILITY(U,$J,112,7077,1)
;;=4^24^66^500^^^^^^^^^440
;;^UTILITY(U,$J,112,7077,2)
;;=^^^^^^^^^8^^2
FHINI0AI ; ; 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,7063,0)
+2 ;;=COOKIES,ICE CREAM CONE,WAFFLE CONE,KEEBLER^BC-00336^cones^24
+3 ;;^UTILITY(U,$J,112,7063,1)
+4 ;;=7.083^2.917^85^404.167^^^^16.667^.708^^^104.167^0^^^^^^^.042
+5 ;;^UTILITY(U,$J,112,7063,2)
+6 ;;=.25^.417^^^^^^^0
+7 ;;^UTILITY(U,$J,112,7063,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7064,0)
+10 ;;=COOKIES,KEEBIES,KEEBLER^BC-00337^cookies^18
+11 ;;^UTILITY(U,$J,112,7064,1)
+12 ;;=5.556^20^70^477.778^^^^38.889^3.222^^^150^383.333^^^^^^^0
+13 ;;^UTILITY(U,$J,112,7064,2)
+14 ;;=.222^2.222^^^^^^^0^6.111^^1.111
+15 ;;^UTILITY(U,$J,112,7064,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7065,0)
+18 ;;=COOKIES,KRISP KREEM WAFERS,KEEBLER^BC-00338^2-cookies^10
+19 ;;^UTILITY(U,$J,112,7065,1)
+20 ;;=4^26^68^520^^^^20^1.7^^^90^150^^^^^^^0
+21 ;;^UTILITY(U,$J,112,7065,2)
+22 ;;=.4^2^^^^^^^0^5^^2
+23 ;;^UTILITY(U,$J,112,7065,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7066,0)
+26 ;;=COOKIES,MALLOMARS CHOC CAKES,NABISCO^BC-00339^.5-oz.^14
+27 ;;^UTILITY(U,$J,112,7066,1)
+28 ;;=7.143^21.429^64.286^428.571^^^^^^^^^142.857
+29 ;;^UTILITY(U,$J,112,7066,2)
+30 ;;=^^^^^^^^0^7.143
+31 ;;^UTILITY(U,$J,112,7066,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7067,0)
+34 ;;=COOKIES,MARSHMALLOW PUFFS FUDGE CAKES,NABISCO^BC-00340^.75-oz.^21
+35 ;;^UTILITY(U,$J,112,7067,1)
+36 ;;=4.762^19.048^66.667^428.571^^^^^^^^^214.286
+37 ;;^UTILITY(U,$J,112,7067,2)
+38 ;;=^^^^^^^^0^14.286
+39 ;;^UTILITY(U,$J,112,7067,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,7068,0)
+42 ;;=COOKIES,MARSHMALLOW TWIRLS FUDGE CAKES,NABISCO^BC-00341^oz.^28
+43 ;;^UTILITY(U,$J,112,7068,1)
+44 ;;=3.571^21.429^71.429^500^^^^^^^^^250
+45 ;;^UTILITY(U,$J,112,7068,2)
+46 ;;=^^^^^^^^0^14.286
+47 ;;^UTILITY(U,$J,112,7068,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,7069,0)
+50 ;;=COOKIES,NILLA WAFERS,NABISCO^BC-00342^3-1/2-cook^14
+51 ;;^UTILITY(U,$J,112,7069,1)
+52 ;;=7.143^14.286^78.571^428.571^^^^^^^^^321.429
+53 ;;^UTILITY(U,$J,112,7069,2)
+54 ;;=^^^^^^^^35.714
+55 ;;^UTILITY(U,$J,112,7069,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7070,0)
+58 ;;=COOKIES,NUTTER BUTTER,PEANUT BUTTER SANDWICH,NABISCO^BC-00343^.5-oz.^14
+59 ;;^UTILITY(U,$J,112,7070,1)
+60 ;;=7.143^21.429^64.286^500^^^^^^^^^357.143
+61 ;;^UTILITY(U,$J,112,7070,2)
+62 ;;=^^^^^^^^0
+63 ;;^UTILITY(U,$J,112,7070,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7071,0)
+66 ;;=COOKIES,NUTTER BUTTER,PEANUT CREME PATTIES,NABISCO^BC-00344^2-cookies^14
+67 ;;^UTILITY(U,$J,112,7071,1)
+68 ;;=14.286^28.571^57.143^571.429^^^^^^^^^321.429
+69 ;;^UTILITY(U,$J,112,7071,2)
+70 ;;=^^^^^^^^0
+71 ;;^UTILITY(U,$J,112,7071,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7072,0)
+74 ;;=COOKIES,OAT BRAN,APPLE,FIBER ENRICHED,KEEBLER^BC-00345^cookies^15
+75 ;;^UTILITY(U,$J,112,7072,1)
+76 ;;=5.333^22^64^473.333^^^^20^2.333^^^86.667^373.333^^^^^^^.333
+77 ;;^UTILITY(U,$J,112,7072,2)
+78 ;;=.2^2^^^^^^^0^4^^1.333^^^^^7.333
+79 ;;^UTILITY(U,$J,112,7072,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7073,0)
+82 ;;=COOKIES,OATMEAL FIBER ENRICHED,KEEBLER^BC-00346^cookies^15
+83 ;;^UTILITY(U,$J,112,7073,1)
+84 ;;=6^20^64.667^453.333^^^^20^2.2^^^106.667^433.333^^^^^^^.333
+85 ;;^UTILITY(U,$J,112,7073,2)
+86 ;;=.2^2^^^^^^^0^4^^1.333^^^^^7.333
+87 ;;^UTILITY(U,$J,112,7073,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7074,0)
+90 ;;=COOKIES,OATMEAL,KEEBLER OLD FASHIONED^BC-00347^cookies^18
+91 ;;^UTILITY(U,$J,112,7074,1)
+92 ;;=7.222^17.222^68.889^461.111^^^^27.778^3.278^^^155.556^488.889^^^^^^^.111
+93 ;;^UTILITY(U,$J,112,7074,2)
+94 ;;=.222^2.222^^^^^^^0^5^^2.222
+95 ;;^UTILITY(U,$J,112,7074,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7075,0)
+98 ;;=COOKIES,OATMEAL CREME PIES,LITTLE DEBBIE^BC-00348^1.3-oz.^38
+99 ;;^UTILITY(U,$J,112,7075,1)
+100 ;;=4.474^21.053^62.632^457.895^10.526^^^0^1.605^^^^371.053^^^^^^0^.158
+101 ;;^UTILITY(U,$J,112,7075,2)
+102 ;;=.132^1.316^^^^^^^0^5.789^12.105^3.158
+103 ;;^UTILITY(U,$J,112,7075,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7076,0)
+106 ;;=COOKIES,OREO,NABISCO^BC-00349^.5-oz.^14
+107 ;;^UTILITY(U,$J,112,7076,1)
+108 ;;=7.143^14.286^57.143^357.143^^^^^^^^^535.714
+109 ;;^UTILITY(U,$J,112,7076,2)
+110 ;;=^^^^^^^^0
+111 ;;^UTILITY(U,$J,112,7076,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+113 ;;^UTILITY(U,$J,112,7077,0)
+114 ;;=COOKIES,OREO BIG STUFF,NABISCO^BC-00350^1.75-oz.^50
+115 ;;^UTILITY(U,$J,112,7077,1)
+116 ;;=4^24^66^500^^^^^^^^^440
+117 ;;^UTILITY(U,$J,112,7077,2)
+118 ;;=^^^^^^^^^8^^2
