FHINI0EE ; ; 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,8981,2)
;;=.078^.469
;;^UTILITY(U,$J,112,8981,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8982,0)
;;=BF,VEG,CORN,CREAMED,GERBER SECOND FOOD^BC-02255^4-oz.^113
;;^UTILITY(U,$J,112,8982,1)
;;=1.858^.442^12.566^61.947^^^^20.354^.177^11.504^46.903^100.885^8.85^.31^.027^.124^^^0^.018
;;^UTILITY(U,$J,112,8982,2)
;;=.044^.531^^.044^^^^^^^^^3.54
;;^UTILITY(U,$J,112,8982,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8983,0)
;;=BF,VEG,GARDEN,BEECH-NUT STAGE 2^BC-02256^4.5-oz.^128
;;^UTILITY(U,$J,112,8983,1)
;;=2.266^0^8.281^42.188^^^^21.875^.703^^^^9.375^^^^^1970.313^3.906^.039
;;^UTILITY(U,$J,112,8983,2)
;;=.07^.703
;;^UTILITY(U,$J,112,8983,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8984,0)
;;=BF,VEG,GARDEN,GERBER SECOND FOOD^BC-02257^4-oz.^113
;;^UTILITY(U,$J,112,8984,1)
;;=2.389^.442^6.46^39.823^^^^30.088^.796^21.239^41.593^170.796^20.354^.389^.062^.257^^^2.655^.062
;;^UTILITY(U,$J,112,8984,2)
;;=.062^.796^^.08^^^^^^^^^538.938
;;^UTILITY(U,$J,112,8984,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8985,0)
;;=BF,VEG,GREEN BEANS,BEECH-NUT STAGE 3^BC-02258^6-oz.^170
;;^UTILITY(U,$J,112,8985,1)
;;=1.176^0^5^25.882^^^^38.235^1.3^^^^^^^^^440^^.041
;;^UTILITY(U,$J,112,8985,2)
;;=.112^.353
;;^UTILITY(U,$J,112,8985,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8986,0)
;;=BF,VEG,GREEN BEANS,BEECH-NUT STAGE 2^BC-02259^4.5-oz.^128
;;^UTILITY(U,$J,112,8986,1)
;;=1.172^0^4.922^25^^^^39.844^1^^^^^^^^^360.156^^.031
;;^UTILITY(U,$J,112,8986,2)
;;=.078^.391
;;^UTILITY(U,$J,112,8986,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8987,0)
;;=BF,VEG,GREEN BEANS,GERBER FIRST FOOD^BC-02260^2.5-oz.^71
;;^UTILITY(U,$J,112,8987,1)
;;=1.127^.282^6.62^33.803^^^^35.211^.563^26.761^30.986^183.099^1.408^.225^.056^.324^^^0^.042
;;^UTILITY(U,$J,112,8987,2)
;;=.085^.282^^.042^^.042^^^^^^^40.845
;;^UTILITY(U,$J,112,8987,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8988,0)
;;=BF,VEG,GREEN BEANS,GERBER SECOND FOOD^BC-02261^4-oz.^113
;;^UTILITY(U,$J,112,8988,1)
;;=1.416^.265^5.752^30.973^^^^37.168^.531^19.469^27.434^161.947^.885^.204^.044^.31^^^2.655^.035
;;^UTILITY(U,$J,112,8988,2)
;;=.071^.354^^.035^^^^^^^^^34.513
;;^UTILITY(U,$J,112,8988,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8989,0)
;;=BF,VEG,GREEN BEANS,CREAMED,GERBER THIRD FOOD^BC-02262^6-oz.^170
;;^UTILITY(U,$J,112,8989,1)
;;=1.765^.294^9.471^47.059^^^^34.706^.294^12.941^34.706^101.176^8.235^.253^.041^.235^^^0^.024
;;^UTILITY(U,$J,112,8989,2)
;;=.059^.235^^.029^^^^^^^^^14.118
;;^UTILITY(U,$J,112,8989,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8990,0)
;;=BF,VEG,MIXED,INST,HEINZ^BC-02263^5-tbsp.^14
;;^UTILITY(U,$J,112,8990,1)
;;=14.286^14.286^64.286^428.571^^^^85.714^2.143^^221.429^828.571^21.429^1.786^.429^^^11114.286^0^.357
;;^UTILITY(U,$J,112,8990,2)
;;=.286^4.286^^.357
;;^UTILITY(U,$J,112,8990,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8991,0)
;;=BF,VEG,MIXED,GERBER THIRD FOOD^BC-02264^6-oz.^170
;;^UTILITY(U,$J,112,8991,1)
;;=1.353^.235^8^39.412^^^^14.118^.353^11.176^30.588^132.941^18.824^.247^.041^.135^^^0^.035
;;^UTILITY(U,$J,112,8991,2)
;;=.024^.588^^.071^^^^^^^^^511.765
;;^UTILITY(U,$J,112,8991,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8992,0)
;;=BF,VEG,MIXED,BEECH-NUT STAGE 2^BC-02265^4.5-oz.^128
;;^UTILITY(U,$J,112,8992,1)
;;=1.094^0^8.281^40.625^^^^15.625^.398^^^^17.969^^^^^3770.313^1.563^.023
;;^UTILITY(U,$J,112,8992,2)
;;=.031^.391
;;^UTILITY(U,$J,112,8992,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8993,0)
;;=BF,VEG,MIXED,GERBER SECOND FOOD^BC-02266^4-oz.^113
;;^UTILITY(U,$J,112,8993,1)
;;=1.239^.442^8.319^42.478^^^^13.274^.265^11.504^30.088^119.469^18.584^.212^.035^.212^^^0^.035
;;^UTILITY(U,$J,112,8993,2)
;;=.018^.265^^.062^^^^^^^^^531.858
;;^UTILITY(U,$J,112,8993,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8994,0)
;;=BF,VEG,PEAS,GERBER THIRD FOOD^BC-02267^6-oz.^170
;;^UTILITY(U,$J,112,8994,1)
;;=3.588^.412^9.353^55.882^^^^19.412^1^^55.294^79.412^2.941^^^^^^4.118^.094
;;^UTILITY(U,$J,112,8994,2)
;;=.071^1.059^^.071^^^^^^^^^39.412
;;^UTILITY(U,$J,112,8994,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0EE ; ; 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,8981,2)
+2 ;;=.078^.469
+3 ;;^UTILITY(U,$J,112,8981,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8982,0)
+6 ;;=BF,VEG,CORN,CREAMED,GERBER SECOND FOOD^BC-02255^4-oz.^113
+7 ;;^UTILITY(U,$J,112,8982,1)
+8 ;;=1.858^.442^12.566^61.947^^^^20.354^.177^11.504^46.903^100.885^8.85^.31^.027^.124^^^0^.018
+9 ;;^UTILITY(U,$J,112,8982,2)
+10 ;;=.044^.531^^.044^^^^^^^^^3.54
+11 ;;^UTILITY(U,$J,112,8982,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8983,0)
+14 ;;=BF,VEG,GARDEN,BEECH-NUT STAGE 2^BC-02256^4.5-oz.^128
+15 ;;^UTILITY(U,$J,112,8983,1)
+16 ;;=2.266^0^8.281^42.188^^^^21.875^.703^^^^9.375^^^^^1970.313^3.906^.039
+17 ;;^UTILITY(U,$J,112,8983,2)
+18 ;;=.07^.703
+19 ;;^UTILITY(U,$J,112,8983,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8984,0)
+22 ;;=BF,VEG,GARDEN,GERBER SECOND FOOD^BC-02257^4-oz.^113
+23 ;;^UTILITY(U,$J,112,8984,1)
+24 ;;=2.389^.442^6.46^39.823^^^^30.088^.796^21.239^41.593^170.796^20.354^.389^.062^.257^^^2.655^.062
+25 ;;^UTILITY(U,$J,112,8984,2)
+26 ;;=.062^.796^^.08^^^^^^^^^538.938
+27 ;;^UTILITY(U,$J,112,8984,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8985,0)
+30 ;;=BF,VEG,GREEN BEANS,BEECH-NUT STAGE 3^BC-02258^6-oz.^170
+31 ;;^UTILITY(U,$J,112,8985,1)
+32 ;;=1.176^0^5^25.882^^^^38.235^1.3^^^^^^^^^440^^.041
+33 ;;^UTILITY(U,$J,112,8985,2)
+34 ;;=.112^.353
+35 ;;^UTILITY(U,$J,112,8985,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8986,0)
+38 ;;=BF,VEG,GREEN BEANS,BEECH-NUT STAGE 2^BC-02259^4.5-oz.^128
+39 ;;^UTILITY(U,$J,112,8986,1)
+40 ;;=1.172^0^4.922^25^^^^39.844^1^^^^^^^^^360.156^^.031
+41 ;;^UTILITY(U,$J,112,8986,2)
+42 ;;=.078^.391
+43 ;;^UTILITY(U,$J,112,8986,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8987,0)
+46 ;;=BF,VEG,GREEN BEANS,GERBER FIRST FOOD^BC-02260^2.5-oz.^71
+47 ;;^UTILITY(U,$J,112,8987,1)
+48 ;;=1.127^.282^6.62^33.803^^^^35.211^.563^26.761^30.986^183.099^1.408^.225^.056^.324^^^0^.042
+49 ;;^UTILITY(U,$J,112,8987,2)
+50 ;;=.085^.282^^.042^^.042^^^^^^^40.845
+51 ;;^UTILITY(U,$J,112,8987,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8988,0)
+54 ;;=BF,VEG,GREEN BEANS,GERBER SECOND FOOD^BC-02261^4-oz.^113
+55 ;;^UTILITY(U,$J,112,8988,1)
+56 ;;=1.416^.265^5.752^30.973^^^^37.168^.531^19.469^27.434^161.947^.885^.204^.044^.31^^^2.655^.035
+57 ;;^UTILITY(U,$J,112,8988,2)
+58 ;;=.071^.354^^.035^^^^^^^^^34.513
+59 ;;^UTILITY(U,$J,112,8988,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8989,0)
+62 ;;=BF,VEG,GREEN BEANS,CREAMED,GERBER THIRD FOOD^BC-02262^6-oz.^170
+63 ;;^UTILITY(U,$J,112,8989,1)
+64 ;;=1.765^.294^9.471^47.059^^^^34.706^.294^12.941^34.706^101.176^8.235^.253^.041^.235^^^0^.024
+65 ;;^UTILITY(U,$J,112,8989,2)
+66 ;;=.059^.235^^.029^^^^^^^^^14.118
+67 ;;^UTILITY(U,$J,112,8989,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8990,0)
+70 ;;=BF,VEG,MIXED,INST,HEINZ^BC-02263^5-tbsp.^14
+71 ;;^UTILITY(U,$J,112,8990,1)
+72 ;;=14.286^14.286^64.286^428.571^^^^85.714^2.143^^221.429^828.571^21.429^1.786^.429^^^11114.286^0^.357
+73 ;;^UTILITY(U,$J,112,8990,2)
+74 ;;=.286^4.286^^.357
+75 ;;^UTILITY(U,$J,112,8990,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8991,0)
+78 ;;=BF,VEG,MIXED,GERBER THIRD FOOD^BC-02264^6-oz.^170
+79 ;;^UTILITY(U,$J,112,8991,1)
+80 ;;=1.353^.235^8^39.412^^^^14.118^.353^11.176^30.588^132.941^18.824^.247^.041^.135^^^0^.035
+81 ;;^UTILITY(U,$J,112,8991,2)
+82 ;;=.024^.588^^.071^^^^^^^^^511.765
+83 ;;^UTILITY(U,$J,112,8991,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8992,0)
+86 ;;=BF,VEG,MIXED,BEECH-NUT STAGE 2^BC-02265^4.5-oz.^128
+87 ;;^UTILITY(U,$J,112,8992,1)
+88 ;;=1.094^0^8.281^40.625^^^^15.625^.398^^^^17.969^^^^^3770.313^1.563^.023
+89 ;;^UTILITY(U,$J,112,8992,2)
+90 ;;=.031^.391
+91 ;;^UTILITY(U,$J,112,8992,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8993,0)
+94 ;;=BF,VEG,MIXED,GERBER SECOND FOOD^BC-02266^4-oz.^113
+95 ;;^UTILITY(U,$J,112,8993,1)
+96 ;;=1.239^.442^8.319^42.478^^^^13.274^.265^11.504^30.088^119.469^18.584^.212^.035^.212^^^0^.035
+97 ;;^UTILITY(U,$J,112,8993,2)
+98 ;;=.018^.265^^.062^^^^^^^^^531.858
+99 ;;^UTILITY(U,$J,112,8993,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8994,0)
+102 ;;=BF,VEG,PEAS,GERBER THIRD FOOD^BC-02267^6-oz.^170
+103 ;;^UTILITY(U,$J,112,8994,1)
+104 ;;=3.588^.412^9.353^55.882^^^^19.412^1^^55.294^79.412^2.941^^^^^^4.118^.094
+105 ;;^UTILITY(U,$J,112,8994,2)
+106 ;;=.071^1.059^^.071^^^^^^^^^39.412
+107 ;;^UTILITY(U,$J,112,8994,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
