FHINI0E9 ; ; 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,8914,2)
;;=.07^.563^^.366^^^^^^^^^9.859
;;^UTILITY(U,$J,112,8914,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8915,0)
;;=BF,FRUIT,BANANAS W/PEARS & APPLESCE,BEECH-NUT STAGE 2^BC-02188^4.5-oz.^128
;;^UTILITY(U,$J,112,8915,1)
;;=.625^0^17.969^75^^^^^.297^^^^^^^^^^12.5^.023
;;^UTILITY(U,$J,112,8915,2)
;;=.047^.469
;;^UTILITY(U,$J,112,8915,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8916,0)
;;=BF,FRUIT,BANANAS W/PEARS & APPLES,BEECH-NUT STAGE 3^BC-02189^6-oz.^170
;;^UTILITY(U,$J,112,8916,1)
;;=.588^0^18.412^78.235^^^^^.3^^^^^^^^^94.118^9.412^.018
;;^UTILITY(U,$J,112,8916,2)
;;=.018^.294
;;^UTILITY(U,$J,112,8916,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8917,0)
;;=BF,FRUIT,BANANAS W/PINEAPPLE & TAPIOCA,GERBER THIRD FOOD^BC-02190^6-oz.^170
;;^UTILITY(U,$J,112,8917,1)
;;=.412^.118^12^51.176^^^^5.294^.118^10^7.059^108.824^3.529^.053^.035^.271^^^9.412^.024
;;^UTILITY(U,$J,112,8917,2)
;;=.029^.176^^.129^^^^^^^^^4.118
;;^UTILITY(U,$J,112,8917,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8918,0)
;;=BF,FRUIT,BANANAS W/PINEAPPLE & TAPIOCA,GERBER SECOND FOOD^BC-02191^4-oz.^113
;;^UTILITY(U,$J,112,8918,1)
;;=.354^.177^11.947^50.442^^^^5.31^.088^9.735^7.08^110.619^4.425^.053^.035^.221^^^12.389^.018
;;^UTILITY(U,$J,112,8918,2)
;;=.035^.177^^.124^^^^^^^^^5.31
;;^UTILITY(U,$J,112,8918,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8919,0)
;;=BF,FRUIT,BANANAS W/TAPIOCA,GERBER THIRD FOOD^BC-02192^6-oz.^170
;;^UTILITY(U,$J,112,8919,1)
;;=.529^.118^17.706^74.118^^^^3.529^.118^11.765^9.412^148.824^8.824^.065^.035^.165^^^9.412^.006
;;^UTILITY(U,$J,112,8919,2)
;;=.041^.235^^.159^^^^^^^^^3.529
;;^UTILITY(U,$J,112,8919,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8920,0)
;;=BF,FRUIT,BANANAS W/TAPIOCA,GERBER SECOND FOOD^BC-02193^4-oz.^113
;;^UTILITY(U,$J,112,8920,1)
;;=.531^.177^17.699^74.336^^^^3.54^.177^12.389^9.735^149.558^7.08^.062^.035^.159^^^12.389^.009
;;^UTILITY(U,$J,112,8920,2)
;;=.053^.265^^.15
;;^UTILITY(U,$J,112,8920,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8921,0)
;;=BF,FRUIT,BANANA & YOGURT,BEECH-NUT STAGE 2^BC-02194^4.5-oz.^128
;;^UTILITY(U,$J,112,8921,1)
;;=1.484^1.172^19.766^96.094^^^^42.188^^^^^22.656^^^^^^12.5^.008
;;^UTILITY(U,$J,112,8921,2)
;;=.078^.156
;;^UTILITY(U,$J,112,8921,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8922,0)
;;=BF,FRUIT,GUAVA,GERBER SECOND FOOD^BC-02195^4-oz.^113
;;^UTILITY(U,$J,112,8922,1)
;;=.177^.088^18.584^75.221^^^^5.31^.177^3.54^5.31^95.575^2.655^.044^.035^.062^^^^.018
;;^UTILITY(U,$J,112,8922,2)
;;=.027^.354^^.027^^^^^^^^^22.124
;;^UTILITY(U,$J,112,8922,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8923,0)
;;=BF,FRUIT,MANGO,GERBER SECOND FOOD^BC-02196^4-oz.^113
;;^UTILITY(U,$J,112,8923,1)
;;=.027^.265^16.637^69.027^^^^6.195^.088^5.31^6.195^67.257^1.77^.035^.035^.044^^^12.389^.027
;;^UTILITY(U,$J,112,8923,2)
;;=.009^.265^^.018^^^^^^^^^68.142
;;^UTILITY(U,$J,112,8923,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8924,0)
;;=BF,FRUIT,MIXED FRUIT & YOGURT,BEECH-NUT STAGE 3^BC-02197^6-oz.^170
;;^UTILITY(U,$J,112,8924,1)
;;=1.118^.706^20.706^94.118^^^^32.941^^^^^18.235^^^^^55.294^9.412^.029
;;^UTILITY(U,$J,112,8924,2)
;;=.053^.118
;;^UTILITY(U,$J,112,8924,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8925,0)
;;=BF,FRUIT,MIXED FRUIT & YOGURT,BEECH-NUT STAGE 2^BC-02198^4.5-oz.^128
;;^UTILITY(U,$J,112,8925,1)
;;=1.094^.781^21.094^96.094^^^^32.813^^^^^15.625^^^^^60.156^12.5^.039
;;^UTILITY(U,$J,112,8925,2)
;;=.047^.078
;;^UTILITY(U,$J,112,8925,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8926,0)
;;=BF,FRUIT,MIXED,INST,HEINZ^BC-02199^4-tbsp.^14
;;^UTILITY(U,$J,112,8926,1)
;;=7.143^0^92.857^357.143^^^^64.286^1.429^^64.286^1192.857^14.286^.571^.429^^^1514.286^121.429^.071
;;^UTILITY(U,$J,112,8926,2)
;;=.143^3.571^^.286
;;^UTILITY(U,$J,112,8926,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8927,0)
;;=BF,FRUIT,PAPAYA W/TAPIOCA,GERBER SECOND FOOD^BC-02200^4-oz.^113
;;^UTILITY(U,$J,112,8927,1)
;;=.177^.177^14.69^61.062^^^^6.195^.088^4.425^4.425^63.717^6.195^.035^.018^.035^^^12.389^.018
;;^UTILITY(U,$J,112,8927,2)
;;=.009^.088^^.009^^^^^^^^^8.85
FHINI0E9 ; ; 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,8914,2)
+2 ;;=.07^.563^^.366^^^^^^^^^9.859
+3 ;;^UTILITY(U,$J,112,8914,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8915,0)
+6 ;;=BF,FRUIT,BANANAS W/PEARS & APPLESCE,BEECH-NUT STAGE 2^BC-02188^4.5-oz.^128
+7 ;;^UTILITY(U,$J,112,8915,1)
+8 ;;=.625^0^17.969^75^^^^^.297^^^^^^^^^^12.5^.023
+9 ;;^UTILITY(U,$J,112,8915,2)
+10 ;;=.047^.469
+11 ;;^UTILITY(U,$J,112,8915,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8916,0)
+14 ;;=BF,FRUIT,BANANAS W/PEARS & APPLES,BEECH-NUT STAGE 3^BC-02189^6-oz.^170
+15 ;;^UTILITY(U,$J,112,8916,1)
+16 ;;=.588^0^18.412^78.235^^^^^.3^^^^^^^^^94.118^9.412^.018
+17 ;;^UTILITY(U,$J,112,8916,2)
+18 ;;=.018^.294
+19 ;;^UTILITY(U,$J,112,8916,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8917,0)
+22 ;;=BF,FRUIT,BANANAS W/PINEAPPLE & TAPIOCA,GERBER THIRD FOOD^BC-02190^6-oz.^170
+23 ;;^UTILITY(U,$J,112,8917,1)
+24 ;;=.412^.118^12^51.176^^^^5.294^.118^10^7.059^108.824^3.529^.053^.035^.271^^^9.412^.024
+25 ;;^UTILITY(U,$J,112,8917,2)
+26 ;;=.029^.176^^.129^^^^^^^^^4.118
+27 ;;^UTILITY(U,$J,112,8917,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8918,0)
+30 ;;=BF,FRUIT,BANANAS W/PINEAPPLE & TAPIOCA,GERBER SECOND FOOD^BC-02191^4-oz.^113
+31 ;;^UTILITY(U,$J,112,8918,1)
+32 ;;=.354^.177^11.947^50.442^^^^5.31^.088^9.735^7.08^110.619^4.425^.053^.035^.221^^^12.389^.018
+33 ;;^UTILITY(U,$J,112,8918,2)
+34 ;;=.035^.177^^.124^^^^^^^^^5.31
+35 ;;^UTILITY(U,$J,112,8918,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8919,0)
+38 ;;=BF,FRUIT,BANANAS W/TAPIOCA,GERBER THIRD FOOD^BC-02192^6-oz.^170
+39 ;;^UTILITY(U,$J,112,8919,1)
+40 ;;=.529^.118^17.706^74.118^^^^3.529^.118^11.765^9.412^148.824^8.824^.065^.035^.165^^^9.412^.006
+41 ;;^UTILITY(U,$J,112,8919,2)
+42 ;;=.041^.235^^.159^^^^^^^^^3.529
+43 ;;^UTILITY(U,$J,112,8919,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8920,0)
+46 ;;=BF,FRUIT,BANANAS W/TAPIOCA,GERBER SECOND FOOD^BC-02193^4-oz.^113
+47 ;;^UTILITY(U,$J,112,8920,1)
+48 ;;=.531^.177^17.699^74.336^^^^3.54^.177^12.389^9.735^149.558^7.08^.062^.035^.159^^^12.389^.009
+49 ;;^UTILITY(U,$J,112,8920,2)
+50 ;;=.053^.265^^.15
+51 ;;^UTILITY(U,$J,112,8920,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8921,0)
+54 ;;=BF,FRUIT,BANANA & YOGURT,BEECH-NUT STAGE 2^BC-02194^4.5-oz.^128
+55 ;;^UTILITY(U,$J,112,8921,1)
+56 ;;=1.484^1.172^19.766^96.094^^^^42.188^^^^^22.656^^^^^^12.5^.008
+57 ;;^UTILITY(U,$J,112,8921,2)
+58 ;;=.078^.156
+59 ;;^UTILITY(U,$J,112,8921,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8922,0)
+62 ;;=BF,FRUIT,GUAVA,GERBER SECOND FOOD^BC-02195^4-oz.^113
+63 ;;^UTILITY(U,$J,112,8922,1)
+64 ;;=.177^.088^18.584^75.221^^^^5.31^.177^3.54^5.31^95.575^2.655^.044^.035^.062^^^^.018
+65 ;;^UTILITY(U,$J,112,8922,2)
+66 ;;=.027^.354^^.027^^^^^^^^^22.124
+67 ;;^UTILITY(U,$J,112,8922,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8923,0)
+70 ;;=BF,FRUIT,MANGO,GERBER SECOND FOOD^BC-02196^4-oz.^113
+71 ;;^UTILITY(U,$J,112,8923,1)
+72 ;;=.027^.265^16.637^69.027^^^^6.195^.088^5.31^6.195^67.257^1.77^.035^.035^.044^^^12.389^.027
+73 ;;^UTILITY(U,$J,112,8923,2)
+74 ;;=.009^.265^^.018^^^^^^^^^68.142
+75 ;;^UTILITY(U,$J,112,8923,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8924,0)
+78 ;;=BF,FRUIT,MIXED FRUIT & YOGURT,BEECH-NUT STAGE 3^BC-02197^6-oz.^170
+79 ;;^UTILITY(U,$J,112,8924,1)
+80 ;;=1.118^.706^20.706^94.118^^^^32.941^^^^^18.235^^^^^55.294^9.412^.029
+81 ;;^UTILITY(U,$J,112,8924,2)
+82 ;;=.053^.118
+83 ;;^UTILITY(U,$J,112,8924,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8925,0)
+86 ;;=BF,FRUIT,MIXED FRUIT & YOGURT,BEECH-NUT STAGE 2^BC-02198^4.5-oz.^128
+87 ;;^UTILITY(U,$J,112,8925,1)
+88 ;;=1.094^.781^21.094^96.094^^^^32.813^^^^^15.625^^^^^60.156^12.5^.039
+89 ;;^UTILITY(U,$J,112,8925,2)
+90 ;;=.047^.078
+91 ;;^UTILITY(U,$J,112,8925,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8926,0)
+94 ;;=BF,FRUIT,MIXED,INST,HEINZ^BC-02199^4-tbsp.^14
+95 ;;^UTILITY(U,$J,112,8926,1)
+96 ;;=7.143^0^92.857^357.143^^^^64.286^1.429^^64.286^1192.857^14.286^.571^.429^^^1514.286^121.429^.071
+97 ;;^UTILITY(U,$J,112,8926,2)
+98 ;;=.143^3.571^^.286
+99 ;;^UTILITY(U,$J,112,8926,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8927,0)
+102 ;;=BF,FRUIT,PAPAYA W/TAPIOCA,GERBER SECOND FOOD^BC-02200^4-oz.^113
+103 ;;^UTILITY(U,$J,112,8927,1)
+104 ;;=.177^.177^14.69^61.062^^^^6.195^.088^4.425^4.425^63.717^6.195^.035^.018^.035^^^12.389^.018
+105 ;;^UTILITY(U,$J,112,8927,2)
+106 ;;=.009^.088^^.009^^^^^^^^^8.85
