FHINI0AH ; ; 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,7048,1)
;;=3.256^8.372^72.791^379.07^14.419^^^0^1.837^^^^246.512^^^^^0^0^.093
;;^UTILITY(U,$J,112,7048,2)
;;=.07^1.628^^^^^^^0^2.093^5.116^1.163
;;^UTILITY(U,$J,112,7048,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7049,0)
;;=COOKIES,FIG BAR,NEWTON NABISCO^BC-00322^cookies^14
;;^UTILITY(U,$J,112,7049,1)
;;=7.143^7.143^78.571^428.571^^^^^^^^^428.571
;;^UTILITY(U,$J,112,7049,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7049,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7050,0)
;;=COOKIES,FORTUNE,LACHOY^BC-00323^cookies^5
;;^UTILITY(U,$J,112,7050,1)
;;=0^0^80^300^^^^0^2^^^40^20^^^^^^0^.4
;;^UTILITY(U,$J,112,7050,2)
;;=.2^2^^^^^^^0^^^^0^^^^0
;;^UTILITY(U,$J,112,7050,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7051,0)
;;=COOKIES,FRENCH VAN CREME,KEEBLER^BC-00324^cookies^17
;;^UTILITY(U,$J,112,7051,1)
;;=4.706^21.176^71.176^488.235^^^^17.647^2.176^^^58.824^405.882
;;^UTILITY(U,$J,112,7051,2)
;;=^^^^^^^^0^5.294^^1.765
;;^UTILITY(U,$J,112,7051,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7052,0)
;;=COOKIES,GINGERSNAPS,SUNSHINE^BC-00325^5-cookies^23
;;^UTILITY(U,$J,112,7052,1)
;;=4.348^13.043^69.565^434.783^^^^^^^^^521.739
;;^UTILITY(U,$J,112,7052,2)
;;=^^^^^^^^0^4.348
;;^UTILITY(U,$J,112,7052,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7053,0)
;;=COOKIES,GRAHAM CRACKERS,CINN. SUNSHINE^BC-00326^2-crackers^16
;;^UTILITY(U,$J,112,7053,1)
;;=6.25^18.75^68.75^437.5^^^^^^^^^593.75
;;^UTILITY(U,$J,112,7053,2)
;;=^^^^^^^^0^6.25
;;^UTILITY(U,$J,112,7053,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7054,0)
;;=COOKIES,GRAHAM CRACKERS,HONEY FIBER ENRICHED,KEEBLER^BC-00327^3-crackers^22
;;^UTILITY(U,$J,112,7054,1)
;;=6.818^9.091^70.909^390.909^^^^145.455^4^^^131.818^490.909^^^^^^^.409
;;^UTILITY(U,$J,112,7054,2)
;;=.409^5^^^^^^^0^1.818^^0^^^^^9.091
;;^UTILITY(U,$J,112,7054,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7055,0)
;;=COOKIES,GRAHAM CRACKERS,HONEY KEEBLER^BC-00328^2-crackers^15
;;^UTILITY(U,$J,112,7055,1)
;;=7.333^12^71.333^440^^^^26.667^3.533^^^146.667^493.333^^^^^^^.133
;;^UTILITY(U,$J,112,7055,2)
;;=.333^.4^^^^^^^0^3.333^^1.333
;;^UTILITY(U,$J,112,7055,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7056,0)
;;=COOKIES,GRAHAM CRACKERS,HONEY MAID^BC-00329^2-crackers^14
;;^UTILITY(U,$J,112,7056,1)
;;=7.143^7.143^78.571^428.571^^^^^^^^^642.857
;;^UTILITY(U,$J,112,7056,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7056,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7057,0)
;;=COOKIES,GRAHAM CRACKERS,KITCHEN RICH^BC-00330^2-crackers^13
;;^UTILITY(U,$J,112,7057,1)
;;=6.923^17.692^70^469.231^^^^23.077^3^^^176.923^430.769^^^^^^^.077
;;^UTILITY(U,$J,112,7057,2)
;;=.231^3.077^^^^^^^0^3.077^^.769
;;^UTILITY(U,$J,112,7057,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7058,0)
;;=COOKIES,GRAHAM SNACKS,CINN. HONEY,TEDDY GRAHAMS^BC-00331^11-pieces^14
;;^UTILITY(U,$J,112,7058,1)
;;=7.143^14.286^78.571^428.571^^^^^^^^^642.857
;;^UTILITY(U,$J,112,7058,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7058,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7059,0)
;;=COOKIES,GRAHAMY BEARS,SUNSHINE^BC-00332^9-cookies^30
;;^UTILITY(U,$J,112,7059,1)
;;=6.667^16.667^70^433.333^^^^^^^^^533.333
;;^UTILITY(U,$J,112,7059,2)
;;=^^^^^^^^0^3.333
;;^UTILITY(U,$J,112,7059,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7060,0)
;;=COOKIES,HOMEPLATE,KEEBLER^BC-00333^cookies^13
;;^UTILITY(U,$J,112,7060,1)
;;=6.923^13.077^75.385^461.538^^^^30.769^2.615^^^161.538^500^^^^^^^.308
;;^UTILITY(U,$J,112,7060,2)
;;=.308^3.077^^^^^^^0^3.846^^.769
;;^UTILITY(U,$J,112,7060,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7061,0)
;;=COOKIES,ICE CREAM CONE,VAN CUPS,KEEBLER^BC-00334^cones^5
;;^UTILITY(U,$J,112,7061,1)
;;=10^0^82^380^^^^60^5.6^^^140^420^^^^^^^.2
;;^UTILITY(U,$J,112,7061,2)
;;=.4^8^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,7061,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7062,0)
;;=COOKIES,ICE CREAM CONE,SUGAR CONE,KEEBLER^BC-00335^cones^12
;;^UTILITY(U,$J,112,7062,1)
;;=7.5^1.667^85.833^391.667^^^^25^5.417^^^208.333^233.333^^^^^^^.5
;;^UTILITY(U,$J,112,7062,2)
;;=.833^5.833^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,7062,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0AH ; ; 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,7048,1)
+2 ;;=3.256^8.372^72.791^379.07^14.419^^^0^1.837^^^^246.512^^^^^0^0^.093
+3 ;;^UTILITY(U,$J,112,7048,2)
+4 ;;=.07^1.628^^^^^^^0^2.093^5.116^1.163
+5 ;;^UTILITY(U,$J,112,7048,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7049,0)
+8 ;;=COOKIES,FIG BAR,NEWTON NABISCO^BC-00322^cookies^14
+9 ;;^UTILITY(U,$J,112,7049,1)
+10 ;;=7.143^7.143^78.571^428.571^^^^^^^^^428.571
+11 ;;^UTILITY(U,$J,112,7049,2)
+12 ;;=^^^^^^^^0
+13 ;;^UTILITY(U,$J,112,7049,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7050,0)
+16 ;;=COOKIES,FORTUNE,LACHOY^BC-00323^cookies^5
+17 ;;^UTILITY(U,$J,112,7050,1)
+18 ;;=0^0^80^300^^^^0^2^^^40^20^^^^^^0^.4
+19 ;;^UTILITY(U,$J,112,7050,2)
+20 ;;=.2^2^^^^^^^0^^^^0^^^^0
+21 ;;^UTILITY(U,$J,112,7050,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7051,0)
+24 ;;=COOKIES,FRENCH VAN CREME,KEEBLER^BC-00324^cookies^17
+25 ;;^UTILITY(U,$J,112,7051,1)
+26 ;;=4.706^21.176^71.176^488.235^^^^17.647^2.176^^^58.824^405.882
+27 ;;^UTILITY(U,$J,112,7051,2)
+28 ;;=^^^^^^^^0^5.294^^1.765
+29 ;;^UTILITY(U,$J,112,7051,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7052,0)
+32 ;;=COOKIES,GINGERSNAPS,SUNSHINE^BC-00325^5-cookies^23
+33 ;;^UTILITY(U,$J,112,7052,1)
+34 ;;=4.348^13.043^69.565^434.783^^^^^^^^^521.739
+35 ;;^UTILITY(U,$J,112,7052,2)
+36 ;;=^^^^^^^^0^4.348
+37 ;;^UTILITY(U,$J,112,7052,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7053,0)
+40 ;;=COOKIES,GRAHAM CRACKERS,CINN. SUNSHINE^BC-00326^2-crackers^16
+41 ;;^UTILITY(U,$J,112,7053,1)
+42 ;;=6.25^18.75^68.75^437.5^^^^^^^^^593.75
+43 ;;^UTILITY(U,$J,112,7053,2)
+44 ;;=^^^^^^^^0^6.25
+45 ;;^UTILITY(U,$J,112,7053,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7054,0)
+48 ;;=COOKIES,GRAHAM CRACKERS,HONEY FIBER ENRICHED,KEEBLER^BC-00327^3-crackers^22
+49 ;;^UTILITY(U,$J,112,7054,1)
+50 ;;=6.818^9.091^70.909^390.909^^^^145.455^4^^^131.818^490.909^^^^^^^.409
+51 ;;^UTILITY(U,$J,112,7054,2)
+52 ;;=.409^5^^^^^^^0^1.818^^0^^^^^9.091
+53 ;;^UTILITY(U,$J,112,7054,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7055,0)
+56 ;;=COOKIES,GRAHAM CRACKERS,HONEY KEEBLER^BC-00328^2-crackers^15
+57 ;;^UTILITY(U,$J,112,7055,1)
+58 ;;=7.333^12^71.333^440^^^^26.667^3.533^^^146.667^493.333^^^^^^^.133
+59 ;;^UTILITY(U,$J,112,7055,2)
+60 ;;=.333^.4^^^^^^^0^3.333^^1.333
+61 ;;^UTILITY(U,$J,112,7055,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7056,0)
+64 ;;=COOKIES,GRAHAM CRACKERS,HONEY MAID^BC-00329^2-crackers^14
+65 ;;^UTILITY(U,$J,112,7056,1)
+66 ;;=7.143^7.143^78.571^428.571^^^^^^^^^642.857
+67 ;;^UTILITY(U,$J,112,7056,2)
+68 ;;=^^^^^^^^0
+69 ;;^UTILITY(U,$J,112,7056,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7057,0)
+72 ;;=COOKIES,GRAHAM CRACKERS,KITCHEN RICH^BC-00330^2-crackers^13
+73 ;;^UTILITY(U,$J,112,7057,1)
+74 ;;=6.923^17.692^70^469.231^^^^23.077^3^^^176.923^430.769^^^^^^^.077
+75 ;;^UTILITY(U,$J,112,7057,2)
+76 ;;=.231^3.077^^^^^^^0^3.077^^.769
+77 ;;^UTILITY(U,$J,112,7057,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7058,0)
+80 ;;=COOKIES,GRAHAM SNACKS,CINN. HONEY,TEDDY GRAHAMS^BC-00331^11-pieces^14
+81 ;;^UTILITY(U,$J,112,7058,1)
+82 ;;=7.143^14.286^78.571^428.571^^^^^^^^^642.857
+83 ;;^UTILITY(U,$J,112,7058,2)
+84 ;;=^^^^^^^^0
+85 ;;^UTILITY(U,$J,112,7058,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7059,0)
+88 ;;=COOKIES,GRAHAMY BEARS,SUNSHINE^BC-00332^9-cookies^30
+89 ;;^UTILITY(U,$J,112,7059,1)
+90 ;;=6.667^16.667^70^433.333^^^^^^^^^533.333
+91 ;;^UTILITY(U,$J,112,7059,2)
+92 ;;=^^^^^^^^0^3.333
+93 ;;^UTILITY(U,$J,112,7059,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7060,0)
+96 ;;=COOKIES,HOMEPLATE,KEEBLER^BC-00333^cookies^13
+97 ;;^UTILITY(U,$J,112,7060,1)
+98 ;;=6.923^13.077^75.385^461.538^^^^30.769^2.615^^^161.538^500^^^^^^^.308
+99 ;;^UTILITY(U,$J,112,7060,2)
+100 ;;=.308^3.077^^^^^^^0^3.846^^.769
+101 ;;^UTILITY(U,$J,112,7060,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7061,0)
+104 ;;=COOKIES,ICE CREAM CONE,VAN CUPS,KEEBLER^BC-00334^cones^5
+105 ;;^UTILITY(U,$J,112,7061,1)
+106 ;;=10^0^82^380^^^^60^5.6^^^140^420^^^^^^^.2
+107 ;;^UTILITY(U,$J,112,7061,2)
+108 ;;=.4^8^^^^^^^0^0^^0
+109 ;;^UTILITY(U,$J,112,7061,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,7062,0)
+112 ;;=COOKIES,ICE CREAM CONE,SUGAR CONE,KEEBLER^BC-00335^cones^12
+113 ;;^UTILITY(U,$J,112,7062,1)
+114 ;;=7.5^1.667^85.833^391.667^^^^25^5.417^^^208.333^233.333^^^^^^^.5
+115 ;;^UTILITY(U,$J,112,7062,2)
+116 ;;=.833^5.833^^^^^^^0^0^^0
+117 ;;^UTILITY(U,$J,112,7062,20)
+118 ;;=Bowes & Church's Food Values, Sixteenth Edition.
