FHINI0E6 ; ; 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,8872,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8873,0)
;;=BF,JUICE,RED GRAPE,TODDLER,GERBER^BC-02146^4.42-floz.^125
;;^UTILITY(U,$J,112,8873,1)
;;=.24^0^16.56^67.2^^^^8.8^.16^^15.2^38.4^4^^^^^^32^.008
;;^UTILITY(U,$J,112,8873,2)
;;=.016^.08^^.064^^^^^^^^^0
;;^UTILITY(U,$J,112,8873,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8874,0)
;;=BF,JUICE,TROPICAL BLEND,BEECH-NUT STAGE 2^BC-02147^4-floz.^122
;;^UTILITY(U,$J,112,8874,1)
;;=.574^0^13.934^59.016^^^^17.213^^^^^^^^^^40.164^32.787^.008
;;^UTILITY(U,$J,112,8874,2)
;;=.008^.164
;;^UTILITY(U,$J,112,8874,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8875,0)
;;=BF,JUICE,WHITE GRAPE,BEECH-NUT STAGE 1^BC-02148^4.2-floz.^128
;;^UTILITY(U,$J,112,8875,1)
;;=0^0^15.313^63.281^^^^13.281^.297^^^^6.25^^^^^^33.594
;;^UTILITY(U,$J,112,8875,2)
;;=.023^.313
;;^UTILITY(U,$J,112,8875,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8876,0)
;;=BF,JUICE,WHITE GRAPE,GERBER SECOND FOOD^BC-02149^4.42-floz.^125
;;^UTILITY(U,$J,112,8876,1)
;;=.24^.08^16.24^66.4^^^^9.6^.08^^13.6^36^4^^^^^^33.6^0
;;^UTILITY(U,$J,112,8876,2)
;;=0^.08^^.056^^^^^^^^^0
;;^UTILITY(U,$J,112,8876,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8877,0)
;;=BF,FRUIT,APPLE BLUEBERRY,GERBER THIRD FOOD^BC-02150^6-oz.^170
;;^UTILITY(U,$J,112,8877,1)
;;=.235^.176^11.294^47.647^^^^4.118^.118^4.118^7.647^75.294^1.176^.029^.024^.094^^^9.412^.018
;;^UTILITY(U,$J,112,8877,2)
;;=.041^.118^^.029^^^^^^^^^2.941
;;^UTILITY(U,$J,112,8877,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8878,0)
;;=BF,FRUIT,APPLE BLUEBERRY,GERBER SECOND FOOD^BC-02151^4-oz.^113
;;^UTILITY(U,$J,112,8878,1)
;;=.177^.177^11.327^47.788^^^^4.425^.088^4.425^7.965^76.106^.885^.027^.027^.106^^^12.389^.018
;;^UTILITY(U,$J,112,8878,2)
;;=.044^.088^^.027^^^^^^^^^1.77
;;^UTILITY(U,$J,112,8878,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8879,0)
;;=BF,FRUIT,APPLE STRAWBERRY,BEECH-NUT STAGE 2^BC-02152^4.5-oz.^128
;;^UTILITY(U,$J,112,8879,1)
;;=0^0^17.031^70.313^^^^^^^^^^^^^^^12.5^.008
;;^UTILITY(U,$J,112,8879,2)
;;=.039^.234
;;^UTILITY(U,$J,112,8879,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8880,0)
;;=BF,FRUIT,APPLES,INST,HEINZ^BC-02153^4-tbsp.^14
;;^UTILITY(U,$J,112,8880,1)
;;=0^0^92.857^357.143^^^^57.143^1.429^^64.286^742.857^28.571^.286^.286^^^200^114.286^.143
;;^UTILITY(U,$J,112,8880,2)
;;=.071^.714^^.214
;;^UTILITY(U,$J,112,8880,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8881,0)
;;=BF,FRUIT,APPLES & APRICOT,INST,HEINZ^BC-02154^3-tbsp.^14
;;^UTILITY(U,$J,112,8881,1)
;;=0^7.143^92.857^357.143^^^^78.571^^^71.429^1142.857^14.286^.429^.286^^^4042.857^121.429^.143
;;^UTILITY(U,$J,112,8881,2)
;;=.143^1.429^^.286
;;^UTILITY(U,$J,112,8881,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8882,0)
;;=BF,FRUIT,APPLES & APRICOT,JR,HEINZ^BC-02155^jar^213
;;^UTILITY(U,$J,112,8882,1)
;;=.423^.282^12.488^53.991^^^^7.981^.202^^15.962^101.878^1.878^.07^.09^^^325.822^7.042^.042
;;^UTILITY(U,$J,112,8882,2)
;;=.019^.141^^.052
;;^UTILITY(U,$J,112,8882,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8883,0)
;;=BF,FRUIT,APPLES & APRICOT,STR,HEINZ^BC-02156^jar^128
;;^UTILITY(U,$J,112,8883,1)
;;=.391^.313^12.5^53.906^^^^14.844^.203^^15.625^102.344^2.344^.07^.09^^^325.781^12.5^.039
;;^UTILITY(U,$J,112,8883,2)
;;=.023^.156^^.047
;;^UTILITY(U,$J,112,8883,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8884,0)
;;=BF,FRUIT,APPLES & BALANCE,INST,HEINZ^BC-02157^4-tbsp.^14
;;^UTILITY(U,$J,112,8884,1)
;;=0^0^92.857^357.143^^^^0^1.429^^50^1021.429^21.429^.286^.071^^^200^121.429^.143
;;^UTILITY(U,$J,112,8884,2)
;;=.071^.714^^.286
;;^UTILITY(U,$J,112,8884,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8885,0)
;;=BF,FRUIT,APPLES & CRANBERRIES,JR,HEINZ^BC-02158^jar^213
;;^UTILITY(U,$J,112,8885,1)
;;=.094^.282^20.188^84.038^^^^6.103^.202^^6.103^17.84^8.92^.028^.04^^^28.169^2.817^.009
;;^UTILITY(U,$J,112,8885,2)
;;=.009^.094^^.019
;;^UTILITY(U,$J,112,8885,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8886,0)
;;=BF,FRUIT,APPLES & CRANBERRIES,STR,HEINZ^BC-02159^jar^128
;;^UTILITY(U,$J,112,8886,1)
;;=.078^.313^20.234^84.375^^^^6.25^.203^^6.25^17.969^5.469^.031^.04^^^28.125^3.125^.008
FHINI0E6 ; ; 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,8872,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,8873,0)
+4 ;;=BF,JUICE,RED GRAPE,TODDLER,GERBER^BC-02146^4.42-floz.^125
+5 ;;^UTILITY(U,$J,112,8873,1)
+6 ;;=.24^0^16.56^67.2^^^^8.8^.16^^15.2^38.4^4^^^^^^32^.008
+7 ;;^UTILITY(U,$J,112,8873,2)
+8 ;;=.016^.08^^.064^^^^^^^^^0
+9 ;;^UTILITY(U,$J,112,8873,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,8874,0)
+12 ;;=BF,JUICE,TROPICAL BLEND,BEECH-NUT STAGE 2^BC-02147^4-floz.^122
+13 ;;^UTILITY(U,$J,112,8874,1)
+14 ;;=.574^0^13.934^59.016^^^^17.213^^^^^^^^^^40.164^32.787^.008
+15 ;;^UTILITY(U,$J,112,8874,2)
+16 ;;=.008^.164
+17 ;;^UTILITY(U,$J,112,8874,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,8875,0)
+20 ;;=BF,JUICE,WHITE GRAPE,BEECH-NUT STAGE 1^BC-02148^4.2-floz.^128
+21 ;;^UTILITY(U,$J,112,8875,1)
+22 ;;=0^0^15.313^63.281^^^^13.281^.297^^^^6.25^^^^^^33.594
+23 ;;^UTILITY(U,$J,112,8875,2)
+24 ;;=.023^.313
+25 ;;^UTILITY(U,$J,112,8875,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,8876,0)
+28 ;;=BF,JUICE,WHITE GRAPE,GERBER SECOND FOOD^BC-02149^4.42-floz.^125
+29 ;;^UTILITY(U,$J,112,8876,1)
+30 ;;=.24^.08^16.24^66.4^^^^9.6^.08^^13.6^36^4^^^^^^33.6^0
+31 ;;^UTILITY(U,$J,112,8876,2)
+32 ;;=0^.08^^.056^^^^^^^^^0
+33 ;;^UTILITY(U,$J,112,8876,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,8877,0)
+36 ;;=BF,FRUIT,APPLE BLUEBERRY,GERBER THIRD FOOD^BC-02150^6-oz.^170
+37 ;;^UTILITY(U,$J,112,8877,1)
+38 ;;=.235^.176^11.294^47.647^^^^4.118^.118^4.118^7.647^75.294^1.176^.029^.024^.094^^^9.412^.018
+39 ;;^UTILITY(U,$J,112,8877,2)
+40 ;;=.041^.118^^.029^^^^^^^^^2.941
+41 ;;^UTILITY(U,$J,112,8877,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,8878,0)
+44 ;;=BF,FRUIT,APPLE BLUEBERRY,GERBER SECOND FOOD^BC-02151^4-oz.^113
+45 ;;^UTILITY(U,$J,112,8878,1)
+46 ;;=.177^.177^11.327^47.788^^^^4.425^.088^4.425^7.965^76.106^.885^.027^.027^.106^^^12.389^.018
+47 ;;^UTILITY(U,$J,112,8878,2)
+48 ;;=.044^.088^^.027^^^^^^^^^1.77
+49 ;;^UTILITY(U,$J,112,8878,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,8879,0)
+52 ;;=BF,FRUIT,APPLE STRAWBERRY,BEECH-NUT STAGE 2^BC-02152^4.5-oz.^128
+53 ;;^UTILITY(U,$J,112,8879,1)
+54 ;;=0^0^17.031^70.313^^^^^^^^^^^^^^^12.5^.008
+55 ;;^UTILITY(U,$J,112,8879,2)
+56 ;;=.039^.234
+57 ;;^UTILITY(U,$J,112,8879,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,8880,0)
+60 ;;=BF,FRUIT,APPLES,INST,HEINZ^BC-02153^4-tbsp.^14
+61 ;;^UTILITY(U,$J,112,8880,1)
+62 ;;=0^0^92.857^357.143^^^^57.143^1.429^^64.286^742.857^28.571^.286^.286^^^200^114.286^.143
+63 ;;^UTILITY(U,$J,112,8880,2)
+64 ;;=.071^.714^^.214
+65 ;;^UTILITY(U,$J,112,8880,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,8881,0)
+68 ;;=BF,FRUIT,APPLES & APRICOT,INST,HEINZ^BC-02154^3-tbsp.^14
+69 ;;^UTILITY(U,$J,112,8881,1)
+70 ;;=0^7.143^92.857^357.143^^^^78.571^^^71.429^1142.857^14.286^.429^.286^^^4042.857^121.429^.143
+71 ;;^UTILITY(U,$J,112,8881,2)
+72 ;;=.143^1.429^^.286
+73 ;;^UTILITY(U,$J,112,8881,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,8882,0)
+76 ;;=BF,FRUIT,APPLES & APRICOT,JR,HEINZ^BC-02155^jar^213
+77 ;;^UTILITY(U,$J,112,8882,1)
+78 ;;=.423^.282^12.488^53.991^^^^7.981^.202^^15.962^101.878^1.878^.07^.09^^^325.822^7.042^.042
+79 ;;^UTILITY(U,$J,112,8882,2)
+80 ;;=.019^.141^^.052
+81 ;;^UTILITY(U,$J,112,8882,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,8883,0)
+84 ;;=BF,FRUIT,APPLES & APRICOT,STR,HEINZ^BC-02156^jar^128
+85 ;;^UTILITY(U,$J,112,8883,1)
+86 ;;=.391^.313^12.5^53.906^^^^14.844^.203^^15.625^102.344^2.344^.07^.09^^^325.781^12.5^.039
+87 ;;^UTILITY(U,$J,112,8883,2)
+88 ;;=.023^.156^^.047
+89 ;;^UTILITY(U,$J,112,8883,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,8884,0)
+92 ;;=BF,FRUIT,APPLES & BALANCE,INST,HEINZ^BC-02157^4-tbsp.^14
+93 ;;^UTILITY(U,$J,112,8884,1)
+94 ;;=0^0^92.857^357.143^^^^0^1.429^^50^1021.429^21.429^.286^.071^^^200^121.429^.143
+95 ;;^UTILITY(U,$J,112,8884,2)
+96 ;;=.071^.714^^.286
+97 ;;^UTILITY(U,$J,112,8884,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,8885,0)
+100 ;;=BF,FRUIT,APPLES & CRANBERRIES,JR,HEINZ^BC-02158^jar^213
+101 ;;^UTILITY(U,$J,112,8885,1)
+102 ;;=.094^.282^20.188^84.038^^^^6.103^.202^^6.103^17.84^8.92^.028^.04^^^28.169^2.817^.009
+103 ;;^UTILITY(U,$J,112,8885,2)
+104 ;;=.009^.094^^.019
+105 ;;^UTILITY(U,$J,112,8885,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,8886,0)
+108 ;;=BF,FRUIT,APPLES & CRANBERRIES,STR,HEINZ^BC-02159^jar^128
+109 ;;^UTILITY(U,$J,112,8886,1)
+110 ;;=.078^.313^20.234^84.375^^^^6.25^.203^^6.25^17.969^5.469^.031^.04^^^28.125^3.125^.008
