FHINI0E8 ; ; 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,8900,2)
;;=.018
;;^UTILITY(U,$J,112,8900,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8901,0)
;;=BF,FRUIT,APPLESCE & BANANAS,BEECH-NUT STAGE 2^BC-02174^4.5-oz.^128
;;^UTILITY(U,$J,112,8901,1)
;;=0^0^13.594^57.031^^^^^^^^^2.344^^^^^^12.5^.008
;;^UTILITY(U,$J,112,8901,2)
;;=.008^.156
;;^UTILITY(U,$J,112,8901,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8902,0)
;;=BF,FRUIT,APPLESCE & CHERRIES,BEECH-NUT STAGE 3^BC-02175^6-oz.^170
;;^UTILITY(U,$J,112,8902,1)
;;=0^0^14.412^58.824^^^^^.4^^^^^^^^^47.059^9.412^.012
;;^UTILITY(U,$J,112,8902,2)
;;=.018^.118
;;^UTILITY(U,$J,112,8902,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8903,0)
;;=BF,FRUIT,APPLESCE & CHERRIES,BEECH-NUT STAGE 2^BC-02176^4.5-oz.^128
;;^UTILITY(U,$J,112,8903,1)
;;=0^0^13.828^56.25^^^^10.156^.398^^^^^^^^^70.313^12.5^.023
;;^UTILITY(U,$J,112,8903,2)
;;=.031
;;^UTILITY(U,$J,112,8903,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8904,0)
;;=BF,FRUIT,APPLESCE & PINEAPPLE,GERBER SECOND FOODS^BC-02177^4-oz.^113
;;^UTILITY(U,$J,112,8904,1)
;;=.177^.177^10.973^46.903^^^^4.425^.088^4.425^7.08^78.761^.885^.027^.027^.142^^^12.389^.027
;;^UTILITY(U,$J,112,8904,2)
;;=.027^.088^^.035^^^^^^^^^.885
;;^UTILITY(U,$J,112,8904,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8905,0)
;;=BF,FRUIT,APPLES,PEACHES & STRAWBERRIES,BEECH-NUT STAGE 2^BC-02178^4.5-oz.^128
;;^UTILITY(U,$J,112,8905,1)
;;=0^0^17.422^72.656^^^^^.297^^^^^^^^^199.219^12.5^.008
;;^UTILITY(U,$J,112,8905,2)
;;=.031^.391
;;^UTILITY(U,$J,112,8905,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8906,0)
;;=BF,FRUIT,APPLES, PEARS & BANANAS,BEECH-NUT STAGE 2^BC-02179^4.5-oz.^128
;;^UTILITY(U,$J,112,8906,1)
;;=0^0^18.438^75.781^^^^^^^^^^^^^^^12.5^.023
;;^UTILITY(U,$J,112,8906,2)
;;=.039^.234
;;^UTILITY(U,$J,112,8906,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8907,0)
;;=BF,FRUIT,APRICOTS W/PEARS & APPLESCE,BEECH-NUT STAGE 2^BC-02180^4.5-oz.^128
;;^UTILITY(U,$J,112,8907,1)
;;=.625^0^15.938^67.969^^^^10.938^.398^^^^^^^^^929.688^12.5^.023
;;^UTILITY(U,$J,112,8907,2)
;;=.031^.469
;;^UTILITY(U,$J,112,8907,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8908,0)
;;=BF,FRUIT,APRICOTS W/PEARS & APPLES,BEECH-NUT STAGE 3^BC-02181^6-oz.^170
;;^UTILITY(U,$J,112,8908,1)
;;=.706^0^15.412^65.882^^^^^.4^^^^^^^^^840^9.412^.018
;;^UTILITY(U,$J,112,8908,2)
;;=.029^.471
;;^UTILITY(U,$J,112,8908,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8909,0)
;;=BF,FRUIT,APRICOTS W/TAPIOCA,GERBER THIRD FOOD^BC-02182^6-oz.^170
;;^UTILITY(U,$J,112,8909,1)
;;=.353^.176^16.882^70.588^^^^7.647^.235^5.294^8.824^108.235^5.294^.059^.035^.035^^^9.412^.018
;;^UTILITY(U,$J,112,8909,2)
;;=.012^.235^^.035^^^^^^^^^92.353
;;^UTILITY(U,$J,112,8909,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8910,0)
;;=BF,FRUIT,APRICOTS W/TAPIOCA,GERBER SECOND FOOD^BC-02183^4-oz.^113
;;^UTILITY(U,$J,112,8910,1)
;;=.354^.177^15.929^66.372^^^^7.08^.177^5.31^9.735^110.619^6.195^.062^.035^.035^^^12.389^.009
;;^UTILITY(U,$J,112,8910,2)
;;=.018^.265^^.035^^^^^^^^^112.389
;;^UTILITY(U,$J,112,8910,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8911,0)
;;=BF,FRUIT,BANANAS,INST,HEINZ^BC-02184^3-tbsp.^14
;;^UTILITY(U,$J,112,8911,1)
;;=7.143^0^92.857^357.143^^^^28.571^1.429^^114.286^1685.714^28.571^.714^.357^^^428.571^114.286^.071
;;^UTILITY(U,$J,112,8911,2)
;;=.286^1.429^^1.714
;;^UTILITY(U,$J,112,8911,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8912,0)
;;=BF,FRUIT,BANANAS,BEECH-NUT STAGE 1^BC-02185^2.8-oz.^79
;;^UTILITY(U,$J,112,8912,1)
;;=.886^0^19.367^82.278^^^^^.304^^^^^^^^^79.747^20.253^.025
;;^UTILITY(U,$J,112,8912,2)
;;=.051^.506
;;^UTILITY(U,$J,112,8912,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8913,0)
;;=BF,FRUIT,BANANAS,BEECH-NUT STAGE 2^BC-02186^4.5-oz.^128
;;^UTILITY(U,$J,112,8913,1)
;;=.938^0^19.766^84.375^^^^^.297^^^^^^^^^89.844^12.5^.023
;;^UTILITY(U,$J,112,8913,2)
;;=.039^.391
;;^UTILITY(U,$J,112,8913,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8914,0)
;;=BF,FRUIT,BANANAS,GERBER FIRST FOOD^BC-02187^2.5-oz.^71
;;^UTILITY(U,$J,112,8914,1)
;;=1.127^.282^22.958^98.592^^^^4.225^.282^28.169^22.535^360.563^2.817^.155^.085^.38^^^22.535^.028
FHINI0E8 ; ; 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,8900,2)
+2 ;;=.018
+3 ;;^UTILITY(U,$J,112,8900,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8901,0)
+6 ;;=BF,FRUIT,APPLESCE & BANANAS,BEECH-NUT STAGE 2^BC-02174^4.5-oz.^128
+7 ;;^UTILITY(U,$J,112,8901,1)
+8 ;;=0^0^13.594^57.031^^^^^^^^^2.344^^^^^^12.5^.008
+9 ;;^UTILITY(U,$J,112,8901,2)
+10 ;;=.008^.156
+11 ;;^UTILITY(U,$J,112,8901,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8902,0)
+14 ;;=BF,FRUIT,APPLESCE & CHERRIES,BEECH-NUT STAGE 3^BC-02175^6-oz.^170
+15 ;;^UTILITY(U,$J,112,8902,1)
+16 ;;=0^0^14.412^58.824^^^^^.4^^^^^^^^^47.059^9.412^.012
+17 ;;^UTILITY(U,$J,112,8902,2)
+18 ;;=.018^.118
+19 ;;^UTILITY(U,$J,112,8902,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8903,0)
+22 ;;=BF,FRUIT,APPLESCE & CHERRIES,BEECH-NUT STAGE 2^BC-02176^4.5-oz.^128
+23 ;;^UTILITY(U,$J,112,8903,1)
+24 ;;=0^0^13.828^56.25^^^^10.156^.398^^^^^^^^^70.313^12.5^.023
+25 ;;^UTILITY(U,$J,112,8903,2)
+26 ;;=.031
+27 ;;^UTILITY(U,$J,112,8903,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8904,0)
+30 ;;=BF,FRUIT,APPLESCE & PINEAPPLE,GERBER SECOND FOODS^BC-02177^4-oz.^113
+31 ;;^UTILITY(U,$J,112,8904,1)
+32 ;;=.177^.177^10.973^46.903^^^^4.425^.088^4.425^7.08^78.761^.885^.027^.027^.142^^^12.389^.027
+33 ;;^UTILITY(U,$J,112,8904,2)
+34 ;;=.027^.088^^.035^^^^^^^^^.885
+35 ;;^UTILITY(U,$J,112,8904,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8905,0)
+38 ;;=BF,FRUIT,APPLES,PEACHES & STRAWBERRIES,BEECH-NUT STAGE 2^BC-02178^4.5-oz.^128
+39 ;;^UTILITY(U,$J,112,8905,1)
+40 ;;=0^0^17.422^72.656^^^^^.297^^^^^^^^^199.219^12.5^.008
+41 ;;^UTILITY(U,$J,112,8905,2)
+42 ;;=.031^.391
+43 ;;^UTILITY(U,$J,112,8905,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8906,0)
+46 ;;=BF,FRUIT,APPLES, PEARS & BANANAS,BEECH-NUT STAGE 2^BC-02179^4.5-oz.^128
+47 ;;^UTILITY(U,$J,112,8906,1)
+48 ;;=0^0^18.438^75.781^^^^^^^^^^^^^^^12.5^.023
+49 ;;^UTILITY(U,$J,112,8906,2)
+50 ;;=.039^.234
+51 ;;^UTILITY(U,$J,112,8906,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8907,0)
+54 ;;=BF,FRUIT,APRICOTS W/PEARS & APPLESCE,BEECH-NUT STAGE 2^BC-02180^4.5-oz.^128
+55 ;;^UTILITY(U,$J,112,8907,1)
+56 ;;=.625^0^15.938^67.969^^^^10.938^.398^^^^^^^^^929.688^12.5^.023
+57 ;;^UTILITY(U,$J,112,8907,2)
+58 ;;=.031^.469
+59 ;;^UTILITY(U,$J,112,8907,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8908,0)
+62 ;;=BF,FRUIT,APRICOTS W/PEARS & APPLES,BEECH-NUT STAGE 3^BC-02181^6-oz.^170
+63 ;;^UTILITY(U,$J,112,8908,1)
+64 ;;=.706^0^15.412^65.882^^^^^.4^^^^^^^^^840^9.412^.018
+65 ;;^UTILITY(U,$J,112,8908,2)
+66 ;;=.029^.471
+67 ;;^UTILITY(U,$J,112,8908,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8909,0)
+70 ;;=BF,FRUIT,APRICOTS W/TAPIOCA,GERBER THIRD FOOD^BC-02182^6-oz.^170
+71 ;;^UTILITY(U,$J,112,8909,1)
+72 ;;=.353^.176^16.882^70.588^^^^7.647^.235^5.294^8.824^108.235^5.294^.059^.035^.035^^^9.412^.018
+73 ;;^UTILITY(U,$J,112,8909,2)
+74 ;;=.012^.235^^.035^^^^^^^^^92.353
+75 ;;^UTILITY(U,$J,112,8909,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8910,0)
+78 ;;=BF,FRUIT,APRICOTS W/TAPIOCA,GERBER SECOND FOOD^BC-02183^4-oz.^113
+79 ;;^UTILITY(U,$J,112,8910,1)
+80 ;;=.354^.177^15.929^66.372^^^^7.08^.177^5.31^9.735^110.619^6.195^.062^.035^.035^^^12.389^.009
+81 ;;^UTILITY(U,$J,112,8910,2)
+82 ;;=.018^.265^^.035^^^^^^^^^112.389
+83 ;;^UTILITY(U,$J,112,8910,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8911,0)
+86 ;;=BF,FRUIT,BANANAS,INST,HEINZ^BC-02184^3-tbsp.^14
+87 ;;^UTILITY(U,$J,112,8911,1)
+88 ;;=7.143^0^92.857^357.143^^^^28.571^1.429^^114.286^1685.714^28.571^.714^.357^^^428.571^114.286^.071
+89 ;;^UTILITY(U,$J,112,8911,2)
+90 ;;=.286^1.429^^1.714
+91 ;;^UTILITY(U,$J,112,8911,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8912,0)
+94 ;;=BF,FRUIT,BANANAS,BEECH-NUT STAGE 1^BC-02185^2.8-oz.^79
+95 ;;^UTILITY(U,$J,112,8912,1)
+96 ;;=.886^0^19.367^82.278^^^^^.304^^^^^^^^^79.747^20.253^.025
+97 ;;^UTILITY(U,$J,112,8912,2)
+98 ;;=.051^.506
+99 ;;^UTILITY(U,$J,112,8912,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8913,0)
+102 ;;=BF,FRUIT,BANANAS,BEECH-NUT STAGE 2^BC-02186^4.5-oz.^128
+103 ;;^UTILITY(U,$J,112,8913,1)
+104 ;;=.938^0^19.766^84.375^^^^^.297^^^^^^^^^89.844^12.5^.023
+105 ;;^UTILITY(U,$J,112,8913,2)
+106 ;;=.039^.391
+107 ;;^UTILITY(U,$J,112,8913,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8914,0)
+110 ;;=BF,FRUIT,BANANAS,GERBER FIRST FOOD^BC-02187^2.5-oz.^71
+111 ;;^UTILITY(U,$J,112,8914,1)
+112 ;;=1.127^.282^22.958^98.592^^^^4.225^.282^28.169^22.535^360.563^2.817^.155^.085^.38^^^22.535^.028
