FHINI0DA ; ; 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,8440,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8441,0)
;;=JUICE,V-8 VEG COCKTAIL,CAMPBELL'S,SPICY HOT^BC-01714^6-floz.^182
;;^UTILITY(U,$J,112,8441,1)
;;=.769^0^4.231^20.33^^^^13.187^.659^^^221.978^348.352^^^^^1443.407^21.429^.016
;;^UTILITY(U,$J,112,8441,2)
;;=.022^.659^^^^^^^0^0^0^0^^^^^.714
;;^UTILITY(U,$J,112,8441,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8442,0)
;;=FRUITS,APPLESAUCE,CND,CHUNKY,MOTT'S^BC-01715^6-oz.^175
;;^UTILITY(U,$J,112,8442,1)
;;=0^0^12^49.143^82^^^6.286^.114^^^63.429^6.286^^^^^^1.143
;;^UTILITY(U,$J,112,8442,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8443,0)
;;=FRUITS,APPLESAUCE,CND,CINN,MOTT'S^BC-01716^6-oz.^175
;;^UTILITY(U,$J,112,8443,1)
;;=0^0^20.571^86.857^79.029^^^3.429^.286^^^58.286^0^^^^^^1.714
;;^UTILITY(U,$J,112,8443,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8444,0)
;;=FRUITS,APPLESAUCE,CND,STRAWBERRY FRUIT PAK,MOTT'S^BC-01717^3.75-oz.^108
;;^UTILITY(U,$J,112,8444,1)
;;=0^0^16.667^70.37^83.981^^^7.407^.278^^^64.815^9.259^^^^^^5.556
;;^UTILITY(U,$J,112,8444,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8445,0)
;;=FRUITS,APPLES,ESCALLOPED,FRZN,STOUFFERS^BC-01718^3-oz.^85
;;^UTILITY(U,$J,112,8445,1)
;;=.353^1.529^23.529^110.588^74^^^3.529^.106^^^70.588^30.588^^^^^100^84.706^.024
;;^UTILITY(U,$J,112,8445,2)
;;=0^.706
;;^UTILITY(U,$J,112,8445,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8446,0)
;;=FRUITS SNACKS,FRUIT BAR,GENERAL MILLS^BC-01719^bars^23
;;^UTILITY(U,$J,112,8446,1)
;;=4.348^8.696^74.783^391.304^^^^^^^^160.87^43.478
;;^UTILITY(U,$J,112,8446,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8447,0)
;;=FRUIT SNACKS,FRUIT ROLL-UPS,BETTY CROCKER^BC-01720^1/2-oz.^14
;;^UTILITY(U,$J,112,8447,1)
;;=0^0^85.714^357.143^^^^^^^^185.714^285.714
;;^UTILITY(U,$J,112,8447,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8448,0)
;;=FRUIT SNACKS,FRUIT WRINKLES,BETTY CROCKER^BC-01721^pouches^26
;;^UTILITY(U,$J,112,8448,1)
;;=0^3.846^84.615^384.615^^^^^^^^173.077^211.538
;;^UTILITY(U,$J,112,8448,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8449,0)
;;=FRUIT SNACKS,FUN FRUITS,LIPTON^BC-01722^.9-oz.^26
;;^UTILITY(U,$J,112,8449,1)
;;=.385^5.385^83.846^384.615^^^^0^0^0^0^0^38.462^0^0^0^^0^0^0
;;^UTILITY(U,$J,112,8449,2)
;;=0^0^^^^^^^0
;;^UTILITY(U,$J,112,8449,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8450,0)
;;=FRUIT SNACKS,GARFIELD & FRIENDS,BETTY CROCKER^BC-01723^1/2-oz.^14
;;^UTILITY(U,$J,112,8450,1)
;;=0^0^85.714^357.143^^^^^^^^250^214.286
;;^UTILITY(U,$J,112,8450,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8451,0)
;;=FRUIT SNACKS,SHARK BITES & BERRY BEARS,BETTY CROCKER^BC-01724^pouches^26
;;^UTILITY(U,$J,112,8451,1)
;;=0^0^84.615^384.615^^^^^^^^134.615^76.923
;;^UTILITY(U,$J,112,8451,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8452,0)
;;=FRUITS,MINCEMEAT,CND,S&W^BC-01725^3-1/2-oz.^100
;;^UTILITY(U,$J,112,8452,1)
;;=1^2^49^206^^^^^^^^^206
;;^UTILITY(U,$J,112,8452,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8453,0)
;;=FRUITS,MIXED FRUITS,DRIED,DICED,DEL MONTE^BC-01726^oz.^28
;;^UTILITY(U,$J,112,8453,1)
;;=2.857^.357^69.643^264.286^25^^^53.571^3.571^39.286^17.857^1042.857^92.857^.393^.286^^^2653.571^10.714^.036
;;^UTILITY(U,$J,112,8453,2)
;;=.357^1.429
;;^UTILITY(U,$J,112,8453,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8454,0)
;;=FRUITS,MIXED FRUITS,FRZN,IN SYRUP,BIRD'S EYE^BC-01727^1/2-cup^142
;;^UTILITY(U,$J,112,8454,1)
;;=.563^.282^21.831^86.62^76.901^^^6.338^.296^5.634^9.859^113.38^2.817^.063^.041^^^245.07^19.014^.021
;;^UTILITY(U,$J,112,8454,2)
;;=.035^.423^.099^.021^5.634^0^^^0^.07^^.07
;;^UTILITY(U,$J,112,8454,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8455,0)
;;=FRUITS,RAISINS W/ VAN YOGURT COATING,DEL MONTE^BC-01728^oz.^28
;;^UTILITY(U,$J,112,8455,1)
;;=5.714^19.643^69.643^478.571^2.857^^^182.143^.536^35.714^135.714^853.571^96.429^.536^.114^^^10.714^3.571^.107
;;^UTILITY(U,$J,112,8455,2)
;;=.071^0
;;^UTILITY(U,$J,112,8455,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8456,0)
;;=FRUITS,RASPBERRIES,FRZN IN LITE SYRUP,BIRDS EYE^BC-01729^1/2-cup^142
FHINI0DA ; ; 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,8440,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,8441,0)
+4 ;;=JUICE,V-8 VEG COCKTAIL,CAMPBELL'S,SPICY HOT^BC-01714^6-floz.^182
+5 ;;^UTILITY(U,$J,112,8441,1)
+6 ;;=.769^0^4.231^20.33^^^^13.187^.659^^^221.978^348.352^^^^^1443.407^21.429^.016
+7 ;;^UTILITY(U,$J,112,8441,2)
+8 ;;=.022^.659^^^^^^^0^0^0^0^^^^^.714
+9 ;;^UTILITY(U,$J,112,8441,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,8442,0)
+12 ;;=FRUITS,APPLESAUCE,CND,CHUNKY,MOTT'S^BC-01715^6-oz.^175
+13 ;;^UTILITY(U,$J,112,8442,1)
+14 ;;=0^0^12^49.143^82^^^6.286^.114^^^63.429^6.286^^^^^^1.143
+15 ;;^UTILITY(U,$J,112,8442,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8443,0)
+18 ;;=FRUITS,APPLESAUCE,CND,CINN,MOTT'S^BC-01716^6-oz.^175
+19 ;;^UTILITY(U,$J,112,8443,1)
+20 ;;=0^0^20.571^86.857^79.029^^^3.429^.286^^^58.286^0^^^^^^1.714
+21 ;;^UTILITY(U,$J,112,8443,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8444,0)
+24 ;;=FRUITS,APPLESAUCE,CND,STRAWBERRY FRUIT PAK,MOTT'S^BC-01717^3.75-oz.^108
+25 ;;^UTILITY(U,$J,112,8444,1)
+26 ;;=0^0^16.667^70.37^83.981^^^7.407^.278^^^64.815^9.259^^^^^^5.556
+27 ;;^UTILITY(U,$J,112,8444,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8445,0)
+30 ;;=FRUITS,APPLES,ESCALLOPED,FRZN,STOUFFERS^BC-01718^3-oz.^85
+31 ;;^UTILITY(U,$J,112,8445,1)
+32 ;;=.353^1.529^23.529^110.588^74^^^3.529^.106^^^70.588^30.588^^^^^100^84.706^.024
+33 ;;^UTILITY(U,$J,112,8445,2)
+34 ;;=0^.706
+35 ;;^UTILITY(U,$J,112,8445,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8446,0)
+38 ;;=FRUITS SNACKS,FRUIT BAR,GENERAL MILLS^BC-01719^bars^23
+39 ;;^UTILITY(U,$J,112,8446,1)
+40 ;;=4.348^8.696^74.783^391.304^^^^^^^^160.87^43.478
+41 ;;^UTILITY(U,$J,112,8446,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,8447,0)
+44 ;;=FRUIT SNACKS,FRUIT ROLL-UPS,BETTY CROCKER^BC-01720^1/2-oz.^14
+45 ;;^UTILITY(U,$J,112,8447,1)
+46 ;;=0^0^85.714^357.143^^^^^^^^185.714^285.714
+47 ;;^UTILITY(U,$J,112,8447,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8448,0)
+50 ;;=FRUIT SNACKS,FRUIT WRINKLES,BETTY CROCKER^BC-01721^pouches^26
+51 ;;^UTILITY(U,$J,112,8448,1)
+52 ;;=0^3.846^84.615^384.615^^^^^^^^173.077^211.538
+53 ;;^UTILITY(U,$J,112,8448,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8449,0)
+56 ;;=FRUIT SNACKS,FUN FRUITS,LIPTON^BC-01722^.9-oz.^26
+57 ;;^UTILITY(U,$J,112,8449,1)
+58 ;;=.385^5.385^83.846^384.615^^^^0^0^0^0^0^38.462^0^0^0^^0^0^0
+59 ;;^UTILITY(U,$J,112,8449,2)
+60 ;;=0^0^^^^^^^0
+61 ;;^UTILITY(U,$J,112,8449,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8450,0)
+64 ;;=FRUIT SNACKS,GARFIELD & FRIENDS,BETTY CROCKER^BC-01723^1/2-oz.^14
+65 ;;^UTILITY(U,$J,112,8450,1)
+66 ;;=0^0^85.714^357.143^^^^^^^^250^214.286
+67 ;;^UTILITY(U,$J,112,8450,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8451,0)
+70 ;;=FRUIT SNACKS,SHARK BITES & BERRY BEARS,BETTY CROCKER^BC-01724^pouches^26
+71 ;;^UTILITY(U,$J,112,8451,1)
+72 ;;=0^0^84.615^384.615^^^^^^^^134.615^76.923
+73 ;;^UTILITY(U,$J,112,8451,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,8452,0)
+76 ;;=FRUITS,MINCEMEAT,CND,S&W^BC-01725^3-1/2-oz.^100
+77 ;;^UTILITY(U,$J,112,8452,1)
+78 ;;=1^2^49^206^^^^^^^^^206
+79 ;;^UTILITY(U,$J,112,8452,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8453,0)
+82 ;;=FRUITS,MIXED FRUITS,DRIED,DICED,DEL MONTE^BC-01726^oz.^28
+83 ;;^UTILITY(U,$J,112,8453,1)
+84 ;;=2.857^.357^69.643^264.286^25^^^53.571^3.571^39.286^17.857^1042.857^92.857^.393^.286^^^2653.571^10.714^.036
+85 ;;^UTILITY(U,$J,112,8453,2)
+86 ;;=.357^1.429
+87 ;;^UTILITY(U,$J,112,8453,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8454,0)
+90 ;;=FRUITS,MIXED FRUITS,FRZN,IN SYRUP,BIRD'S EYE^BC-01727^1/2-cup^142
+91 ;;^UTILITY(U,$J,112,8454,1)
+92 ;;=.563^.282^21.831^86.62^76.901^^^6.338^.296^5.634^9.859^113.38^2.817^.063^.041^^^245.07^19.014^.021
+93 ;;^UTILITY(U,$J,112,8454,2)
+94 ;;=.035^.423^.099^.021^5.634^0^^^0^.07^^.07
+95 ;;^UTILITY(U,$J,112,8454,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8455,0)
+98 ;;=FRUITS,RAISINS W/ VAN YOGURT COATING,DEL MONTE^BC-01728^oz.^28
+99 ;;^UTILITY(U,$J,112,8455,1)
+100 ;;=5.714^19.643^69.643^478.571^2.857^^^182.143^.536^35.714^135.714^853.571^96.429^.536^.114^^^10.714^3.571^.107
+101 ;;^UTILITY(U,$J,112,8455,2)
+102 ;;=.071^0
+103 ;;^UTILITY(U,$J,112,8455,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8456,0)
+106 ;;=FRUITS,RASPBERRIES,FRZN IN LITE SYRUP,BIRDS EYE^BC-01729^1/2-cup^142