FHINI0EA ; ; 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,8927,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8928,0)
;;=BF,FRUIT,PEACHES,INST,HEINZ^BC-02201^3-tbsp.^14
;;^UTILITY(U,$J,112,8928,1)
;;=7.143^7.143^92.857^357.143^^^^85.714^2.857^^142.857^1442.857^14.286^1^.5^^^1600^114.286^.071
;;^UTILITY(U,$J,112,8928,2)
;;=.071^3.571^^.286
;;^UTILITY(U,$J,112,8928,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8929,0)
;;=BF,FRUIT,PEACHES,BEECH-NUT STAGE 3^BC-02202^6-oz.^170
;;^UTILITY(U,$J,112,8929,1)
;;=.824^0^11.176^48.235^^^^^^^^^^^^^^480^9.412^.012
;;^UTILITY(U,$J,112,8929,2)
;;=.029^.824
;;^UTILITY(U,$J,112,8929,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8930,0)
;;=BF,FRUIT,PEACHES,GERBER THIRD FOOD^BC-02203^6-oz.^170
;;^UTILITY(U,$J,112,8930,1)
;;=.647^.235^14.706^63.529^^^^4.118^.118^7.647^16.471^164.118^3.529^.076^.047^.047^^^9.412^.018
;;^UTILITY(U,$J,112,8930,2)
;;=.041^.765^^.024^^^^^^^^^30
;;^UTILITY(U,$J,112,8930,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8931,0)
;;=BF,FRUIT,PEACHES,BEECH-NUT STAGE 1^BC-02204^2.8-oz.^79
;;^UTILITY(U,$J,112,8931,1)
;;=1.013^0^13.544^59.494^^^^^^^^^^^^^^489.873^20.253^.013
;;^UTILITY(U,$J,112,8931,2)
;;=.038^1.013
;;^UTILITY(U,$J,112,8931,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8932,0)
;;=BF,FRUIT,PEACHES,BEECH-NUT STAGE 2^BC-02205^4.5-oz.^128
;;^UTILITY(U,$J,112,8932,1)
;;=.781^0^11.172^47.656^^^^^^^^^^^^^^479.688^12.5^.008
;;^UTILITY(U,$J,112,8932,2)
;;=.031^.781
;;^UTILITY(U,$J,112,8932,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8933,0)
;;=BF,FRUIT,PEACHES,GERBER FIRST FOOD^BC-02206^2.5-oz.^71
;;^UTILITY(U,$J,112,8933,1)
;;=.704^.014^10.986^49.296^^^^4.225^.141^8.451^18.31^166.197^1.408^.085^.056^.07^^^22.535^.014
;;^UTILITY(U,$J,112,8933,2)
;;=.042^.704^^.028^^^^^^^^^40.845
;;^UTILITY(U,$J,112,8933,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8934,0)
;;=BF,FRUIT,PEACHES,GERBER SECOND FOOD^BC-02207^4-oz.^113
;;^UTILITY(U,$J,112,8934,1)
;;=.619^.265^14.867^64.602^^^^4.425^.177^7.08^15.929^156.637^2.655^.08^.053^.044^^^12.389^.018
;;^UTILITY(U,$J,112,8934,2)
;;=.044^.708^^.018^^^^^^^^^26.549
;;^UTILITY(U,$J,112,8934,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8935,0)
;;=BF,FRUIT,PEACHES & YOGURT,BEECH-NUT STAGE 2^BC-02208^4.5-oz.^128
;;^UTILITY(U,$J,112,8935,1)
;;=1.484^.938^19.375^92.188^^^^42.188^^^^^21.875^^^^^229.688^12.5^.039
;;^UTILITY(U,$J,112,8935,2)
;;=.07^.391
;;^UTILITY(U,$J,112,8935,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8936,0)
;;=BF,FRUIT,PEARS,BEECH-NUT STAGE 3^BC-02209^6-oz.^170
;;^UTILITY(U,$J,112,8936,1)
;;=0^0^13^54.118^^^^^^^^^1.176^^^^^^9.412^.018
;;^UTILITY(U,$J,112,8936,2)
;;=.029^.294
;;^UTILITY(U,$J,112,8936,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8937,0)
;;=BF,FRUIT,PEARS,GERBER THIRD FOOD^BC-02210^6-oz.^170
;;^UTILITY(U,$J,112,8937,1)
;;=.412^.235^12.529^53.529^^^^10^.118^7.059^11.176^105.882^.588^.082^.076^.059^^^9.412^.012
;;^UTILITY(U,$J,112,8937,2)
;;=.029^.235^^.018^^^^^^^^^1.765
;;^UTILITY(U,$J,112,8937,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8938,0)
;;=BF,FRUIT,PEARS,BEECH-NUT STAGE 1^BC-02211^2.8-oz.^79
;;^UTILITY(U,$J,112,8938,1)
;;=0^0^14.43^60.759^^^^^^^^^^^^^^^20.253^.013
;;^UTILITY(U,$J,112,8938,2)
;;=.038^.253
;;^UTILITY(U,$J,112,8938,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8939,0)
;;=BF,FRUIT,PEARS,BEECH-NUT STAGE 2^BC-02212^4.5-oz.^128
;;^UTILITY(U,$J,112,8939,1)
;;=0^0^12.969^53.906^^^^^^^^^^^^^^^12.5^.023
;;^UTILITY(U,$J,112,8939,2)
;;=.023^.234
;;^UTILITY(U,$J,112,8939,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8940,0)
;;=BF,FRUIT,PEARS,GERBER FIRST FOODS^BC-02213^2.5-oz.^71
;;^UTILITY(U,$J,112,8940,1)
;;=.423^.282^13.662^57.746^^^^9.859^.141^7.042^12.676^125.352^0^.099^.07^.07^^^22.535^.028
;;^UTILITY(U,$J,112,8940,2)
;;=.028^.141^^.014^^^^^^^^^2.817
;;^UTILITY(U,$J,112,8940,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8941,0)
;;=BF,FRUIT,PEARS,GERBER SECOND FOOD^BC-02214^4-oz.^113
;;^UTILITY(U,$J,112,8941,1)
;;=.354^.177^12.566^53.097^^^^9.735^.177^7.08^10.619^106.195^.885^.088^.062^.053^^^12.389^.018
;;^UTILITY(U,$J,112,8941,2)
;;=.027^.177^^.018^^^^^^^^^.885
FHINI0EA ; ; 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,8927,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,8928,0)
+4 ;;=BF,FRUIT,PEACHES,INST,HEINZ^BC-02201^3-tbsp.^14
+5 ;;^UTILITY(U,$J,112,8928,1)
+6 ;;=7.143^7.143^92.857^357.143^^^^85.714^2.857^^142.857^1442.857^14.286^1^.5^^^1600^114.286^.071
+7 ;;^UTILITY(U,$J,112,8928,2)
+8 ;;=.071^3.571^^.286
+9 ;;^UTILITY(U,$J,112,8928,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,8929,0)
+12 ;;=BF,FRUIT,PEACHES,BEECH-NUT STAGE 3^BC-02202^6-oz.^170
+13 ;;^UTILITY(U,$J,112,8929,1)
+14 ;;=.824^0^11.176^48.235^^^^^^^^^^^^^^480^9.412^.012
+15 ;;^UTILITY(U,$J,112,8929,2)
+16 ;;=.029^.824
+17 ;;^UTILITY(U,$J,112,8929,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,8930,0)
+20 ;;=BF,FRUIT,PEACHES,GERBER THIRD FOOD^BC-02203^6-oz.^170
+21 ;;^UTILITY(U,$J,112,8930,1)
+22 ;;=.647^.235^14.706^63.529^^^^4.118^.118^7.647^16.471^164.118^3.529^.076^.047^.047^^^9.412^.018
+23 ;;^UTILITY(U,$J,112,8930,2)
+24 ;;=.041^.765^^.024^^^^^^^^^30
+25 ;;^UTILITY(U,$J,112,8930,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,8931,0)
+28 ;;=BF,FRUIT,PEACHES,BEECH-NUT STAGE 1^BC-02204^2.8-oz.^79
+29 ;;^UTILITY(U,$J,112,8931,1)
+30 ;;=1.013^0^13.544^59.494^^^^^^^^^^^^^^489.873^20.253^.013
+31 ;;^UTILITY(U,$J,112,8931,2)
+32 ;;=.038^1.013
+33 ;;^UTILITY(U,$J,112,8931,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,8932,0)
+36 ;;=BF,FRUIT,PEACHES,BEECH-NUT STAGE 2^BC-02205^4.5-oz.^128
+37 ;;^UTILITY(U,$J,112,8932,1)
+38 ;;=.781^0^11.172^47.656^^^^^^^^^^^^^^479.688^12.5^.008
+39 ;;^UTILITY(U,$J,112,8932,2)
+40 ;;=.031^.781
+41 ;;^UTILITY(U,$J,112,8932,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,8933,0)
+44 ;;=BF,FRUIT,PEACHES,GERBER FIRST FOOD^BC-02206^2.5-oz.^71
+45 ;;^UTILITY(U,$J,112,8933,1)
+46 ;;=.704^.014^10.986^49.296^^^^4.225^.141^8.451^18.31^166.197^1.408^.085^.056^.07^^^22.535^.014
+47 ;;^UTILITY(U,$J,112,8933,2)
+48 ;;=.042^.704^^.028^^^^^^^^^40.845
+49 ;;^UTILITY(U,$J,112,8933,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,8934,0)
+52 ;;=BF,FRUIT,PEACHES,GERBER SECOND FOOD^BC-02207^4-oz.^113
+53 ;;^UTILITY(U,$J,112,8934,1)
+54 ;;=.619^.265^14.867^64.602^^^^4.425^.177^7.08^15.929^156.637^2.655^.08^.053^.044^^^12.389^.018
+55 ;;^UTILITY(U,$J,112,8934,2)
+56 ;;=.044^.708^^.018^^^^^^^^^26.549
+57 ;;^UTILITY(U,$J,112,8934,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,8935,0)
+60 ;;=BF,FRUIT,PEACHES & YOGURT,BEECH-NUT STAGE 2^BC-02208^4.5-oz.^128
+61 ;;^UTILITY(U,$J,112,8935,1)
+62 ;;=1.484^.938^19.375^92.188^^^^42.188^^^^^21.875^^^^^229.688^12.5^.039
+63 ;;^UTILITY(U,$J,112,8935,2)
+64 ;;=.07^.391
+65 ;;^UTILITY(U,$J,112,8935,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,8936,0)
+68 ;;=BF,FRUIT,PEARS,BEECH-NUT STAGE 3^BC-02209^6-oz.^170
+69 ;;^UTILITY(U,$J,112,8936,1)
+70 ;;=0^0^13^54.118^^^^^^^^^1.176^^^^^^9.412^.018
+71 ;;^UTILITY(U,$J,112,8936,2)
+72 ;;=.029^.294
+73 ;;^UTILITY(U,$J,112,8936,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,8937,0)
+76 ;;=BF,FRUIT,PEARS,GERBER THIRD FOOD^BC-02210^6-oz.^170
+77 ;;^UTILITY(U,$J,112,8937,1)
+78 ;;=.412^.235^12.529^53.529^^^^10^.118^7.059^11.176^105.882^.588^.082^.076^.059^^^9.412^.012
+79 ;;^UTILITY(U,$J,112,8937,2)
+80 ;;=.029^.235^^.018^^^^^^^^^1.765
+81 ;;^UTILITY(U,$J,112,8937,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,8938,0)
+84 ;;=BF,FRUIT,PEARS,BEECH-NUT STAGE 1^BC-02211^2.8-oz.^79
+85 ;;^UTILITY(U,$J,112,8938,1)
+86 ;;=0^0^14.43^60.759^^^^^^^^^^^^^^^20.253^.013
+87 ;;^UTILITY(U,$J,112,8938,2)
+88 ;;=.038^.253
+89 ;;^UTILITY(U,$J,112,8938,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,8939,0)
+92 ;;=BF,FRUIT,PEARS,BEECH-NUT STAGE 2^BC-02212^4.5-oz.^128
+93 ;;^UTILITY(U,$J,112,8939,1)
+94 ;;=0^0^12.969^53.906^^^^^^^^^^^^^^^12.5^.023
+95 ;;^UTILITY(U,$J,112,8939,2)
+96 ;;=.023^.234
+97 ;;^UTILITY(U,$J,112,8939,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,8940,0)
+100 ;;=BF,FRUIT,PEARS,GERBER FIRST FOODS^BC-02213^2.5-oz.^71
+101 ;;^UTILITY(U,$J,112,8940,1)
+102 ;;=.423^.282^13.662^57.746^^^^9.859^.141^7.042^12.676^125.352^0^.099^.07^.07^^^22.535^.028
+103 ;;^UTILITY(U,$J,112,8940,2)
+104 ;;=.028^.141^^.014^^^^^^^^^2.817
+105 ;;^UTILITY(U,$J,112,8940,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,8941,0)
+108 ;;=BF,FRUIT,PEARS,GERBER SECOND FOOD^BC-02214^4-oz.^113
+109 ;;^UTILITY(U,$J,112,8941,1)
+110 ;;=.354^.177^12.566^53.097^^^^9.735^.177^7.08^10.619^106.195^.885^.088^.062^.053^^^12.389^.018
+111 ;;^UTILITY(U,$J,112,8941,2)
+112 ;;=.027^.177^^.018^^^^^^^^^.885
