FHINI0ED ; ; 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,8968,1)
;;=13.521^10.563^.986^153.521^^^^26.761^1.127^11.268^133.803^119.718^423.944^2.225^.056^.014^^^2.817^.028
;;^UTILITY(U,$J,112,8968,2)
;;=.155^2.113^^.085^^^^^^^^^1.408
;;^UTILITY(U,$J,112,8968,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8969,0)
;;=BF,VEAL,GERBER THIRD FOOD^BC-02242^2.5-oz.^71
;;^UTILITY(U,$J,112,8969,1)
;;=15.07^4.789^0^104.225^^^^5.634^.986^14.085^130.986^225.352^56.338^2.606^.028^.014^^^2.817^.028
;;^UTILITY(U,$J,112,8969,2)
;;=.141^3.803^^.113^^^^^^^^^2.817
;;^UTILITY(U,$J,112,8969,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8970,0)
;;=BF,VEAL,GERBER SECOND FOOD^BC-02243^2.5-oz.^71
;;^UTILITY(U,$J,112,8970,1)
;;=14.085^4.93^.141^101.408^^^^4.225^.845^12.676^126.761^223.944^54.93^2.437^.028^.014^^^2.817^.028
;;^UTILITY(U,$J,112,8970,2)
;;=.155^3.803^^.127^^^^^^^^^4.225
;;^UTILITY(U,$J,112,8970,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8971,0)
;;=BF,VEG,BEETS,STR,GERBER SECOND FOOD^BC-02244^4-oz.^113
;;^UTILITY(U,$J,112,8971,1)
;;=1.327^.177^8.496^40.708^^^^15.929^.354^21.239^23.894^244.248^91.15^.212^.053^.389^^^0^.018
;;^UTILITY(U,$J,112,8971,2)
;;=.044^.177^^.027^^^^^^^^^.885
;;^UTILITY(U,$J,112,8971,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8972,0)
;;=BF,VEG,BROCCOLI W/CARROTS & CHEESE,GERBER THIRD FOOD^BC-02245^6-oz.^170
;;^UTILITY(U,$J,112,8972,1)
;;=1.529^.941^7.706^45.294^^^^33.529^.294^^41.176^108.824^45.882^^^^^^4.706^.018
;;^UTILITY(U,$J,112,8972,2)
;;=.041^.235^^.065^^^^^^^^^269.412
;;^UTILITY(U,$J,112,8972,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8973,0)
;;=BF,VEG,CARROTS,INST,HEINZ^BC-02246^4-tbsp.^14
;;^UTILITY(U,$J,112,8973,1)
;;=7.143^14.286^78.571^428.571^^^^321.429^4.286^^271.429^1607.143^214.286^1.571^.571^^^64685.714^7.143^.286
;;^UTILITY(U,$J,112,8973,2)
;;=.357^2.143^^.214
;;^UTILITY(U,$J,112,8973,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8974,0)
;;=BF,VEG,CARROTS,BEECH-NUT STAGE 3^BC-02247^6-oz.^170
;;^UTILITY(U,$J,112,8974,1)
;;=.824^0^7.588^35.294^^^^18.824^^^^^18.824^^^^^11300^^.018
;;^UTILITY(U,$J,112,8974,2)
;;=.053^.588
;;^UTILITY(U,$J,112,8974,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8975,0)
;;=BF,VEG,CARROTS,GERBER THIRD FOOD^BC-02248^6-oz.^170
;;^UTILITY(U,$J,112,8975,1)
;;=.765^.176^5.824^28.235^^^^22.353^.176^9.412^21.765^190^48.824^.159^.029^.124^^^0^.024
;;^UTILITY(U,$J,112,8975,2)
;;=.035^.353^^.076^^^^^^^^^1378.824
;;^UTILITY(U,$J,112,8975,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8976,0)
;;=BF,VEG,CARROTS,BEECH-NUT STAGE 1^BC-02249^2.8-oz.^79
;;^UTILITY(U,$J,112,8976,1)
;;=.886^0^7.215^32.911^^^^26.582^^^^^21.519^^^^^11900^^.025
;;^UTILITY(U,$J,112,8976,2)
;;=.038^.506
;;^UTILITY(U,$J,112,8976,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8977,0)
;;=BF,VEG,CARROTS,BEECH-NUT STAGE 2^BC-02250^4.5-oz.^128
;;^UTILITY(U,$J,112,8977,1)
;;=.781^0^6.875^32.031^^^^27.344^.297^^^^64.063^^^^^10900^^.023
;;^UTILITY(U,$J,112,8977,2)
;;=.031^.469
;;^UTILITY(U,$J,112,8977,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8978,0)
;;=BF,VEG,CARROTS,GERBER FIRST FOOD^BC-02251^2.5-oz.^71
;;^UTILITY(U,$J,112,8978,1)
;;=.986^.282^7.606^36.62^^^^26.761^.282^12.676^32.394^183.099^77.465^.155^.028^.099^^^0^.028
;;^UTILITY(U,$J,112,8978,2)
;;=.042^.423^^.113^^^^^^^^^1978.873
;;^UTILITY(U,$J,112,8978,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8979,0)
;;=BF,VEG,CARROTS,GERBER SECOND FOOD^BC-02252^4-oz.^113
;;^UTILITY(U,$J,112,8979,1)
;;=.796^.177^5.752^27.434^^^^22.124^.265^8.85^23.009^205.31^36.283^.159^.035^.115^^^0^.027
;;^UTILITY(U,$J,112,8979,2)
;;=.044^.354^^.071^^^^^^^^^1269.912
;;^UTILITY(U,$J,112,8979,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8980,0)
;;=BF,VEG,CORN,CREAMED,INST,HEINZ^BC-02253^6-tbsp.^14
;;^UTILITY(U,$J,112,8980,1)
;;=14.286^7.143^71.429^428.571^^^^28.571^2.143^^214.286^650^7.143^1.714^.143^^^164.286^0^.143
;;^UTILITY(U,$J,112,8980,2)
;;=.071^2.143^^.286
;;^UTILITY(U,$J,112,8980,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8981,0)
;;=BF,VEG,CORN,CREAMED,BEECH-NUT STAGE 2^BC-02254^4.5-oz.^128
;;^UTILITY(U,$J,112,8981,1)
;;=1.719^.625^14.375^70.313^^^^20.313^.297^^^^17.188^^^^^139.844
FHINI0ED ; ; 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,8968,1)
+2 ;;=13.521^10.563^.986^153.521^^^^26.761^1.127^11.268^133.803^119.718^423.944^2.225^.056^.014^^^2.817^.028
+3 ;;^UTILITY(U,$J,112,8968,2)
+4 ;;=.155^2.113^^.085^^^^^^^^^1.408
+5 ;;^UTILITY(U,$J,112,8968,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8969,0)
+8 ;;=BF,VEAL,GERBER THIRD FOOD^BC-02242^2.5-oz.^71
+9 ;;^UTILITY(U,$J,112,8969,1)
+10 ;;=15.07^4.789^0^104.225^^^^5.634^.986^14.085^130.986^225.352^56.338^2.606^.028^.014^^^2.817^.028
+11 ;;^UTILITY(U,$J,112,8969,2)
+12 ;;=.141^3.803^^.113^^^^^^^^^2.817
+13 ;;^UTILITY(U,$J,112,8969,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8970,0)
+16 ;;=BF,VEAL,GERBER SECOND FOOD^BC-02243^2.5-oz.^71
+17 ;;^UTILITY(U,$J,112,8970,1)
+18 ;;=14.085^4.93^.141^101.408^^^^4.225^.845^12.676^126.761^223.944^54.93^2.437^.028^.014^^^2.817^.028
+19 ;;^UTILITY(U,$J,112,8970,2)
+20 ;;=.155^3.803^^.127^^^^^^^^^4.225
+21 ;;^UTILITY(U,$J,112,8970,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8971,0)
+24 ;;=BF,VEG,BEETS,STR,GERBER SECOND FOOD^BC-02244^4-oz.^113
+25 ;;^UTILITY(U,$J,112,8971,1)
+26 ;;=1.327^.177^8.496^40.708^^^^15.929^.354^21.239^23.894^244.248^91.15^.212^.053^.389^^^0^.018
+27 ;;^UTILITY(U,$J,112,8971,2)
+28 ;;=.044^.177^^.027^^^^^^^^^.885
+29 ;;^UTILITY(U,$J,112,8971,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8972,0)
+32 ;;=BF,VEG,BROCCOLI W/CARROTS & CHEESE,GERBER THIRD FOOD^BC-02245^6-oz.^170
+33 ;;^UTILITY(U,$J,112,8972,1)
+34 ;;=1.529^.941^7.706^45.294^^^^33.529^.294^^41.176^108.824^45.882^^^^^^4.706^.018
+35 ;;^UTILITY(U,$J,112,8972,2)
+36 ;;=.041^.235^^.065^^^^^^^^^269.412
+37 ;;^UTILITY(U,$J,112,8972,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8973,0)
+40 ;;=BF,VEG,CARROTS,INST,HEINZ^BC-02246^4-tbsp.^14
+41 ;;^UTILITY(U,$J,112,8973,1)
+42 ;;=7.143^14.286^78.571^428.571^^^^321.429^4.286^^271.429^1607.143^214.286^1.571^.571^^^64685.714^7.143^.286
+43 ;;^UTILITY(U,$J,112,8973,2)
+44 ;;=.357^2.143^^.214
+45 ;;^UTILITY(U,$J,112,8973,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8974,0)
+48 ;;=BF,VEG,CARROTS,BEECH-NUT STAGE 3^BC-02247^6-oz.^170
+49 ;;^UTILITY(U,$J,112,8974,1)
+50 ;;=.824^0^7.588^35.294^^^^18.824^^^^^18.824^^^^^11300^^.018
+51 ;;^UTILITY(U,$J,112,8974,2)
+52 ;;=.053^.588
+53 ;;^UTILITY(U,$J,112,8974,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8975,0)
+56 ;;=BF,VEG,CARROTS,GERBER THIRD FOOD^BC-02248^6-oz.^170
+57 ;;^UTILITY(U,$J,112,8975,1)
+58 ;;=.765^.176^5.824^28.235^^^^22.353^.176^9.412^21.765^190^48.824^.159^.029^.124^^^0^.024
+59 ;;^UTILITY(U,$J,112,8975,2)
+60 ;;=.035^.353^^.076^^^^^^^^^1378.824
+61 ;;^UTILITY(U,$J,112,8975,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8976,0)
+64 ;;=BF,VEG,CARROTS,BEECH-NUT STAGE 1^BC-02249^2.8-oz.^79
+65 ;;^UTILITY(U,$J,112,8976,1)
+66 ;;=.886^0^7.215^32.911^^^^26.582^^^^^21.519^^^^^11900^^.025
+67 ;;^UTILITY(U,$J,112,8976,2)
+68 ;;=.038^.506
+69 ;;^UTILITY(U,$J,112,8976,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8977,0)
+72 ;;=BF,VEG,CARROTS,BEECH-NUT STAGE 2^BC-02250^4.5-oz.^128
+73 ;;^UTILITY(U,$J,112,8977,1)
+74 ;;=.781^0^6.875^32.031^^^^27.344^.297^^^^64.063^^^^^10900^^.023
+75 ;;^UTILITY(U,$J,112,8977,2)
+76 ;;=.031^.469
+77 ;;^UTILITY(U,$J,112,8977,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8978,0)
+80 ;;=BF,VEG,CARROTS,GERBER FIRST FOOD^BC-02251^2.5-oz.^71
+81 ;;^UTILITY(U,$J,112,8978,1)
+82 ;;=.986^.282^7.606^36.62^^^^26.761^.282^12.676^32.394^183.099^77.465^.155^.028^.099^^^0^.028
+83 ;;^UTILITY(U,$J,112,8978,2)
+84 ;;=.042^.423^^.113^^^^^^^^^1978.873
+85 ;;^UTILITY(U,$J,112,8978,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8979,0)
+88 ;;=BF,VEG,CARROTS,GERBER SECOND FOOD^BC-02252^4-oz.^113
+89 ;;^UTILITY(U,$J,112,8979,1)
+90 ;;=.796^.177^5.752^27.434^^^^22.124^.265^8.85^23.009^205.31^36.283^.159^.035^.115^^^0^.027
+91 ;;^UTILITY(U,$J,112,8979,2)
+92 ;;=.044^.354^^.071^^^^^^^^^1269.912
+93 ;;^UTILITY(U,$J,112,8979,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8980,0)
+96 ;;=BF,VEG,CORN,CREAMED,INST,HEINZ^BC-02253^6-tbsp.^14
+97 ;;^UTILITY(U,$J,112,8980,1)
+98 ;;=14.286^7.143^71.429^428.571^^^^28.571^2.143^^214.286^650^7.143^1.714^.143^^^164.286^0^.143
+99 ;;^UTILITY(U,$J,112,8980,2)
+100 ;;=.071^2.143^^.286
+101 ;;^UTILITY(U,$J,112,8980,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8981,0)
+104 ;;=BF,VEG,CORN,CREAMED,BEECH-NUT STAGE 2^BC-02254^4.5-oz.^128
+105 ;;^UTILITY(U,$J,112,8981,1)
+106 ;;=1.719^.625^14.375^70.313^^^^20.313^.297^^^^17.188^^^^^139.844
