FHINI0EF ; ; 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,8995,0)
;;=BF,VEG,PEAS,BEECH-NUT STAGE 1^BC-02268^2.8-oz.^79
;;^UTILITY(U,$J,112,8995,1)
;;=2.658^0^9.367^50.633^^^^16.456^.899^^^^^^^^^569.62^3.797^.076
;;^UTILITY(U,$J,112,8995,2)
;;=.101^1.139
;;^UTILITY(U,$J,112,8995,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8996,0)
;;=BF,VEG,PEAS,BEECH-NUT STAGE 2^BC-02269^4.5-oz.^128
;;^UTILITY(U,$J,112,8996,1)
;;=2.266^0^9.766^50.781^^^^17.188^.898^^^^^^^^^560.156^3.125^.07
;;^UTILITY(U,$J,112,8996,2)
;;=.063^1.172
;;^UTILITY(U,$J,112,8996,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8997,0)
;;=BF,VEG,PEAS,GERBER FIRST FOOD^BC-02270^2.5-oz.^71
;;^UTILITY(U,$J,112,8997,1)
;;=3.239^.563^8.028^50.704^^^^21.127^.986^19.718^60.563^102.817^4.225^.408^.07^.225^^^1.408^.099
;;^UTILITY(U,$J,112,8997,2)
;;=.056^1.127^^.07^^^^^^^^^36.62
;;^UTILITY(U,$J,112,8997,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8998,0)
;;=BF,VEG,PEAS,GERBER SECOND FOOD^BC-02271^4-oz.^113
;;^UTILITY(U,$J,112,8998,1)
;;=3.274^.442^7.788^48.673^^^^18.584^.973^17.699^53.097^103.54^4.425^.442^.08^.212^^^4.425^.088
;;^UTILITY(U,$J,112,8998,2)
;;=.053^.973^^.053^^^^^^^^^34.513
;;^UTILITY(U,$J,112,8998,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8999,0)
;;=BF,VEG,PEAS & CARROTS,BEECH-NUT-STAGE 2^BC-02272^4.5-oz.^128
;;^UTILITY(U,$J,112,8999,1)
;;=2.266^0^7.266^40.625^^^^21.094^.703^^^^21.875^^^^^5720.313^3.125^.031
;;^UTILITY(U,$J,112,8999,2)
;;=.063^.781
;;^UTILITY(U,$J,112,8999,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9000,0)
;;=BF,VEG,PEAS,CREAMED,INST,HEINZ^BC-02273^5-tbsp.^14
;;^UTILITY(U,$J,112,9000,1)
;;=21.429^14.286^57.143^428.571^^^^85.714^4.286^^350^650^14.286^3.286^.5^^^1014.286^0^.571
;;^UTILITY(U,$J,112,9000,2)
;;=.357^3.571^^.429
;;^UTILITY(U,$J,112,9000,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9001,0)
;;=BF,VEG,SPINACH,CREAMED,GERBER SECOND FOOD^BC-02274^4-oz.^113
;;^UTILITY(U,$J,112,9001,1)
;;=2.92^.708^7.345^46.903^^^^101.77^.796^40.708^61.947^215.929^57.522^.451^.053^.513^^^2.655^.035
;;^UTILITY(U,$J,112,9001,2)
;;=.133^.354^^.071^^^^^^^^^284.071
;;^UTILITY(U,$J,112,9001,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9002,0)
;;=BF,VEG,SQUASH,GERBER THIRD FOOD^BC-02275^6-oz.^170
;;^UTILITY(U,$J,112,9002,1)
;;=.882^.235^6.235^30.588^^^^25.882^.235^12.941^21.765^158.824^1.176^.129^.024^.106^^^2.353^.018
;;^UTILITY(U,$J,112,9002,2)
;;=.053^.412^^.071^^^^^^^^^172.941
;;^UTILITY(U,$J,112,9002,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9003,0)
;;=BF,VEG,SQUASH,BEECH-NUT STAGE 1^BC-02276^2.8-oz.^79
;;^UTILITY(U,$J,112,9003,1)
;;=1.013^0^7.848^36.709^^^^16.456^.304^^^^^^^^^2869.62^2.532^.038
;;^UTILITY(U,$J,112,9003,2)
;;=.025^.633
;;^UTILITY(U,$J,112,9003,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9004,0)
;;=BF,VEG,SQUASH,BEECH-NUT STAGE 2^BC-02277^4.5-oz.^128
;;^UTILITY(U,$J,112,9004,1)
;;=1.172^0^8.125^36.719^^^^18.75^.297^^^^^^^^^2889.844^1.563^.039
;;^UTILITY(U,$J,112,9004,2)
;;=.047^.625
;;^UTILITY(U,$J,112,9004,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9005,0)
;;=BF,VEG,SQUASH,GERBER FIRST FOOD^BC-02278^2.5-oz.^71
;;^UTILITY(U,$J,112,9005,1)
;;=.986^.282^7.606^36.62^^^^25.352^.282^15.493^29.577^219.718^1.408^.169^.042^.085^^^1.408^.028
;;^UTILITY(U,$J,112,9005,2)
;;=.042^.563^^.099^^^^^^^^^126.761
;;^UTILITY(U,$J,112,9005,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9006,0)
;;=BF,VEG,SQUASH,GERBER SECOND FOOD^BC-02279^4-oz.^113
;;^UTILITY(U,$J,112,9006,1)
;;=.885^.265^6.283^30.973^^^^27.434^.265^13.274^22.124^161.947^1.77^.142^.027^.115^^^6.195^.018
;;^UTILITY(U,$J,112,9006,2)
;;=.053^.442^^.071^^^^^^^^^160.177
;;^UTILITY(U,$J,112,9006,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9007,0)
;;=BF,VEG,SWEET POTATOES,INST,HEINZ^BC-02280^4-tbsp.^14
;;^UTILITY(U,$J,112,9007,1)
;;=7.143^0^78.571^357.143^^^^150^2.143^^171.429^1757.143^107.143^1.143^^^^49571.429^7.143^.071
;;^UTILITY(U,$J,112,9007,2)
;;=.071^1.429^^.357
;;^UTILITY(U,$J,112,9007,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9008,0)
;;=BF,VEG,SWEET POTATOES,BEECH-NUT STAGE 3^BC-02281^6-oz.^170
;;^UTILITY(U,$J,112,9008,1)
;;=1.118^0^13.824^60^^^^22.941^^^^^51.176^^^^^6020^.588^.029
FHINI0EF ; ; 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,8995,0)
+2 ;;=BF,VEG,PEAS,BEECH-NUT STAGE 1^BC-02268^2.8-oz.^79
+3 ;;^UTILITY(U,$J,112,8995,1)
+4 ;;=2.658^0^9.367^50.633^^^^16.456^.899^^^^^^^^^569.62^3.797^.076
+5 ;;^UTILITY(U,$J,112,8995,2)
+6 ;;=.101^1.139
+7 ;;^UTILITY(U,$J,112,8995,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8996,0)
+10 ;;=BF,VEG,PEAS,BEECH-NUT STAGE 2^BC-02269^4.5-oz.^128
+11 ;;^UTILITY(U,$J,112,8996,1)
+12 ;;=2.266^0^9.766^50.781^^^^17.188^.898^^^^^^^^^560.156^3.125^.07
+13 ;;^UTILITY(U,$J,112,8996,2)
+14 ;;=.063^1.172
+15 ;;^UTILITY(U,$J,112,8996,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8997,0)
+18 ;;=BF,VEG,PEAS,GERBER FIRST FOOD^BC-02270^2.5-oz.^71
+19 ;;^UTILITY(U,$J,112,8997,1)
+20 ;;=3.239^.563^8.028^50.704^^^^21.127^.986^19.718^60.563^102.817^4.225^.408^.07^.225^^^1.408^.099
+21 ;;^UTILITY(U,$J,112,8997,2)
+22 ;;=.056^1.127^^.07^^^^^^^^^36.62
+23 ;;^UTILITY(U,$J,112,8997,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8998,0)
+26 ;;=BF,VEG,PEAS,GERBER SECOND FOOD^BC-02271^4-oz.^113
+27 ;;^UTILITY(U,$J,112,8998,1)
+28 ;;=3.274^.442^7.788^48.673^^^^18.584^.973^17.699^53.097^103.54^4.425^.442^.08^.212^^^4.425^.088
+29 ;;^UTILITY(U,$J,112,8998,2)
+30 ;;=.053^.973^^.053^^^^^^^^^34.513
+31 ;;^UTILITY(U,$J,112,8998,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8999,0)
+34 ;;=BF,VEG,PEAS & CARROTS,BEECH-NUT-STAGE 2^BC-02272^4.5-oz.^128
+35 ;;^UTILITY(U,$J,112,8999,1)
+36 ;;=2.266^0^7.266^40.625^^^^21.094^.703^^^^21.875^^^^^5720.313^3.125^.031
+37 ;;^UTILITY(U,$J,112,8999,2)
+38 ;;=.063^.781
+39 ;;^UTILITY(U,$J,112,8999,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9000,0)
+42 ;;=BF,VEG,PEAS,CREAMED,INST,HEINZ^BC-02273^5-tbsp.^14
+43 ;;^UTILITY(U,$J,112,9000,1)
+44 ;;=21.429^14.286^57.143^428.571^^^^85.714^4.286^^350^650^14.286^3.286^.5^^^1014.286^0^.571
+45 ;;^UTILITY(U,$J,112,9000,2)
+46 ;;=.357^3.571^^.429
+47 ;;^UTILITY(U,$J,112,9000,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9001,0)
+50 ;;=BF,VEG,SPINACH,CREAMED,GERBER SECOND FOOD^BC-02274^4-oz.^113
+51 ;;^UTILITY(U,$J,112,9001,1)
+52 ;;=2.92^.708^7.345^46.903^^^^101.77^.796^40.708^61.947^215.929^57.522^.451^.053^.513^^^2.655^.035
+53 ;;^UTILITY(U,$J,112,9001,2)
+54 ;;=.133^.354^^.071^^^^^^^^^284.071
+55 ;;^UTILITY(U,$J,112,9001,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9002,0)
+58 ;;=BF,VEG,SQUASH,GERBER THIRD FOOD^BC-02275^6-oz.^170
+59 ;;^UTILITY(U,$J,112,9002,1)
+60 ;;=.882^.235^6.235^30.588^^^^25.882^.235^12.941^21.765^158.824^1.176^.129^.024^.106^^^2.353^.018
+61 ;;^UTILITY(U,$J,112,9002,2)
+62 ;;=.053^.412^^.071^^^^^^^^^172.941
+63 ;;^UTILITY(U,$J,112,9002,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9003,0)
+66 ;;=BF,VEG,SQUASH,BEECH-NUT STAGE 1^BC-02276^2.8-oz.^79
+67 ;;^UTILITY(U,$J,112,9003,1)
+68 ;;=1.013^0^7.848^36.709^^^^16.456^.304^^^^^^^^^2869.62^2.532^.038
+69 ;;^UTILITY(U,$J,112,9003,2)
+70 ;;=.025^.633
+71 ;;^UTILITY(U,$J,112,9003,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9004,0)
+74 ;;=BF,VEG,SQUASH,BEECH-NUT STAGE 2^BC-02277^4.5-oz.^128
+75 ;;^UTILITY(U,$J,112,9004,1)
+76 ;;=1.172^0^8.125^36.719^^^^18.75^.297^^^^^^^^^2889.844^1.563^.039
+77 ;;^UTILITY(U,$J,112,9004,2)
+78 ;;=.047^.625
+79 ;;^UTILITY(U,$J,112,9004,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9005,0)
+82 ;;=BF,VEG,SQUASH,GERBER FIRST FOOD^BC-02278^2.5-oz.^71
+83 ;;^UTILITY(U,$J,112,9005,1)
+84 ;;=.986^.282^7.606^36.62^^^^25.352^.282^15.493^29.577^219.718^1.408^.169^.042^.085^^^1.408^.028
+85 ;;^UTILITY(U,$J,112,9005,2)
+86 ;;=.042^.563^^.099^^^^^^^^^126.761
+87 ;;^UTILITY(U,$J,112,9005,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9006,0)
+90 ;;=BF,VEG,SQUASH,GERBER SECOND FOOD^BC-02279^4-oz.^113
+91 ;;^UTILITY(U,$J,112,9006,1)
+92 ;;=.885^.265^6.283^30.973^^^^27.434^.265^13.274^22.124^161.947^1.77^.142^.027^.115^^^6.195^.018
+93 ;;^UTILITY(U,$J,112,9006,2)
+94 ;;=.053^.442^^.071^^^^^^^^^160.177
+95 ;;^UTILITY(U,$J,112,9006,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9007,0)
+98 ;;=BF,VEG,SWEET POTATOES,INST,HEINZ^BC-02280^4-tbsp.^14
+99 ;;^UTILITY(U,$J,112,9007,1)
+100 ;;=7.143^0^78.571^357.143^^^^150^2.143^^171.429^1757.143^107.143^1.143^^^^49571.429^7.143^.071
+101 ;;^UTILITY(U,$J,112,9007,2)
+102 ;;=.071^1.429^^.357
+103 ;;^UTILITY(U,$J,112,9007,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9008,0)
+106 ;;=BF,VEG,SWEET POTATOES,BEECH-NUT STAGE 3^BC-02281^6-oz.^170
+107 ;;^UTILITY(U,$J,112,9008,1)
+108 ;;=1.118^0^13.824^60^^^^22.941^^^^^51.176^^^^^6020^.588^.029
