FHINI0E2 ; ; 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,8818,1)
;;=28.571^14.286^50^428.571^^^^85.714^4.286^^335.714^614.286^214.286^3.357^.429^^^2142.857^7.143^.571
;;^UTILITY(U,$J,112,8818,2)
;;=.286^4.286^^.357
;;^UTILITY(U,$J,112,8818,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8819,0)
;;=BF,DINNER,VEG & HAM,GERBER THIRD FOOD^BC-02092^6-oz.^170
;;^UTILITY(U,$J,112,8819,1)
;;=2.176^1.706^9.353^61.765^^^^8.824^.235^8.235^28.235^91.176^13.529^.288^.035^.141^^^1.176^.035
;;^UTILITY(U,$J,112,8819,2)
;;=.024^.529^^.059^^^^^^^^^235.294
;;^UTILITY(U,$J,112,8819,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8820,0)
;;=BF,DINNER,VEG & HAM,BEECH-NUT STAGE 2^BC-02093^4.5-oz.^128
;;^UTILITY(U,$J,112,8820,1)
;;=2.422^1.797^8.906^60.938^^^^14.063^.398^^^^27.344^^^^^3389.844^^.039
;;^UTILITY(U,$J,112,8820,2)
;;=.039^.703
;;^UTILITY(U,$J,112,8820,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8821,0)
;;=BF,DINNER,VEG & HAM,GERBER SECOND FOOD^BC-02094^4-oz.^113
;;^UTILITY(U,$J,112,8821,1)
;;=1.947^1.77^8.673^58.407^^^^7.965^.265^7.08^25.664^74.336^10.619^.257^.035^.133^^^.885^.035
;;^UTILITY(U,$J,112,8821,2)
;;=.027^.531^^^^^^^^^^^125.664
;;^UTILITY(U,$J,112,8821,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8822,0)
;;=BF,DINNER,VEG & LAMB,BEECH-NUT STAGE 2^BC-02095^4.5-oz.^128
;;^UTILITY(U,$J,112,8822,1)
;;=1.875^2.578^9.297^68.75^^^^14.063^.398^^^^21.875^^^^^2789.844^^.023
;;^UTILITY(U,$J,112,8822,2)
;;=.039^.781
;;^UTILITY(U,$J,112,8822,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8823,0)
;;=BF,DINNER,VEG & LAMB,GERBER SECOND FOOD^BC-02096^4-oz.^113
;;^UTILITY(U,$J,112,8823,1)
;;=2.035^2.743^8.142^65.487^^^^8.85^.265^7.965^28.319^97.345^12.389^.327^.035^.133^^^.885^.027
;;^UTILITY(U,$J,112,8823,2)
;;=.027^.531^^.053^^^^^^^^^175.221
;;^UTILITY(U,$J,112,8823,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8824,0)
;;=BF,VEG & TURKEY,TODDLER,GERBER^BC-02097^6.25-oz.^177
;;^UTILITY(U,$J,112,8824,1)
;;=3.333^1.864^8.531^64.407^^^^22.599^.395^10.734^45.763^104.52^190.395^.525^.04^.153^^^1.695^.023
;;^UTILITY(U,$J,112,8824,2)
;;=.051^.847^^.051^^^^^^^^^166.102
;;^UTILITY(U,$J,112,8824,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8825,0)
;;=BF,DINNER,VEG & TURKEY,INST,HEINZ^BC-02098^6-tbsp.^14
;;^UTILITY(U,$J,112,8825,1)
;;=28.571^14.286^57.143^428.571^^^^85.714^6.429^^407.143^1000^178.571^3^.5^^^3214.286^0^.357
;;^UTILITY(U,$J,112,8825,2)
;;=.143^7.857^^.214
;;^UTILITY(U,$J,112,8825,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8826,0)
;;=BF,DINNER,VEG & TURKEY,GERBER THIRD FOOD^BC-02099^6-oz.^170
;;^UTILITY(U,$J,112,8826,1)
;;=2.235^1.059^8.882^54.118^^^^11.765^.353^^37.059^95.882^14.118^^^^^^1.765^.024
;;^UTILITY(U,$J,112,8826,2)
;;=.035^.588^^.041^^^^^^^^^134.118
;;^UTILITY(U,$J,112,8826,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8827,0)
;;=BF,DINNER,VEG & TURKEY,GERBER SECOND FOOD^BC-02100^4-oz.^113
;;^UTILITY(U,$J,112,8827,1)
;;=2.212^1.327^7.611^51.327^^^^18.584^.265^7.08^30.973^74.336^12.389^.319^.027^.124^^^.885^.018
;;^UTILITY(U,$J,112,8827,2)
;;=.035^.619^^.035^^^^^^^^^129.204
;;^UTILITY(U,$J,112,8827,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8828,0)
;;=BF,DINNER,VEG STEW W/CHICKEN,BEECH-NUT TABLE-TIME^BC-02101^6-oz.^170
;;^UTILITY(U,$J,112,8828,1)
;;=3.176^4.294^11.824^98.824^^^^35.882^.5^^^^174.118^^^^^2230^^.029
;;^UTILITY(U,$J,112,8828,2)
;;=.071^.882
;;^UTILITY(U,$J,112,8828,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8829,0)
;;=BF,DINNER,BEEF W/VEG,GERBER THIRD FOOD^BC-02102^4-oz.^113
;;^UTILITY(U,$J,112,8829,1)
;;=6.283^1.947^7.876^73.451^^^^7.08^1.15^^^131.858^23.009^^^^^^3.54^.027
;;^UTILITY(U,$J,112,8829,2)
;;=.062^1.15^^.08^^^^^^^^^81.416
;;^UTILITY(U,$J,112,8829,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8830,0)
;;=BF,DINNER,BEEF W/VEG,GERBER SECOND FOOD^BC-02103^4-oz.^113
;;^UTILITY(U,$J,112,8830,1)
;;=6.018^1.593^6.903^65.487^^^^6.195^.619^^^113.274^24.779^^^^^^2.655^.018
;;^UTILITY(U,$J,112,8830,2)
;;=.053^1.062^^.071^^^^^^^^^34.513
;;^UTILITY(U,$J,112,8830,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8831,0)
;;=BF,DINNER,CHICKEN W/VEG,GERBER THIRD FOOD^BC-02104^4-oz.^113
;;^UTILITY(U,$J,112,8831,1)
;;=5.664^1.504^7.611^66.372^^^^23.894^.885^^^119.469^25.664^^^^^^1.77^.027
FHINI0E2 ; ; 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,8818,1)
+2 ;;=28.571^14.286^50^428.571^^^^85.714^4.286^^335.714^614.286^214.286^3.357^.429^^^2142.857^7.143^.571
+3 ;;^UTILITY(U,$J,112,8818,2)
+4 ;;=.286^4.286^^.357
+5 ;;^UTILITY(U,$J,112,8818,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8819,0)
+8 ;;=BF,DINNER,VEG & HAM,GERBER THIRD FOOD^BC-02092^6-oz.^170
+9 ;;^UTILITY(U,$J,112,8819,1)
+10 ;;=2.176^1.706^9.353^61.765^^^^8.824^.235^8.235^28.235^91.176^13.529^.288^.035^.141^^^1.176^.035
+11 ;;^UTILITY(U,$J,112,8819,2)
+12 ;;=.024^.529^^.059^^^^^^^^^235.294
+13 ;;^UTILITY(U,$J,112,8819,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8820,0)
+16 ;;=BF,DINNER,VEG & HAM,BEECH-NUT STAGE 2^BC-02093^4.5-oz.^128
+17 ;;^UTILITY(U,$J,112,8820,1)
+18 ;;=2.422^1.797^8.906^60.938^^^^14.063^.398^^^^27.344^^^^^3389.844^^.039
+19 ;;^UTILITY(U,$J,112,8820,2)
+20 ;;=.039^.703
+21 ;;^UTILITY(U,$J,112,8820,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8821,0)
+24 ;;=BF,DINNER,VEG & HAM,GERBER SECOND FOOD^BC-02094^4-oz.^113
+25 ;;^UTILITY(U,$J,112,8821,1)
+26 ;;=1.947^1.77^8.673^58.407^^^^7.965^.265^7.08^25.664^74.336^10.619^.257^.035^.133^^^.885^.035
+27 ;;^UTILITY(U,$J,112,8821,2)
+28 ;;=.027^.531^^^^^^^^^^^125.664
+29 ;;^UTILITY(U,$J,112,8821,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8822,0)
+32 ;;=BF,DINNER,VEG & LAMB,BEECH-NUT STAGE 2^BC-02095^4.5-oz.^128
+33 ;;^UTILITY(U,$J,112,8822,1)
+34 ;;=1.875^2.578^9.297^68.75^^^^14.063^.398^^^^21.875^^^^^2789.844^^.023
+35 ;;^UTILITY(U,$J,112,8822,2)
+36 ;;=.039^.781
+37 ;;^UTILITY(U,$J,112,8822,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8823,0)
+40 ;;=BF,DINNER,VEG & LAMB,GERBER SECOND FOOD^BC-02096^4-oz.^113
+41 ;;^UTILITY(U,$J,112,8823,1)
+42 ;;=2.035^2.743^8.142^65.487^^^^8.85^.265^7.965^28.319^97.345^12.389^.327^.035^.133^^^.885^.027
+43 ;;^UTILITY(U,$J,112,8823,2)
+44 ;;=.027^.531^^.053^^^^^^^^^175.221
+45 ;;^UTILITY(U,$J,112,8823,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8824,0)
+48 ;;=BF,VEG & TURKEY,TODDLER,GERBER^BC-02097^6.25-oz.^177
+49 ;;^UTILITY(U,$J,112,8824,1)
+50 ;;=3.333^1.864^8.531^64.407^^^^22.599^.395^10.734^45.763^104.52^190.395^.525^.04^.153^^^1.695^.023
+51 ;;^UTILITY(U,$J,112,8824,2)
+52 ;;=.051^.847^^.051^^^^^^^^^166.102
+53 ;;^UTILITY(U,$J,112,8824,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8825,0)
+56 ;;=BF,DINNER,VEG & TURKEY,INST,HEINZ^BC-02098^6-tbsp.^14
+57 ;;^UTILITY(U,$J,112,8825,1)
+58 ;;=28.571^14.286^57.143^428.571^^^^85.714^6.429^^407.143^1000^178.571^3^.5^^^3214.286^0^.357
+59 ;;^UTILITY(U,$J,112,8825,2)
+60 ;;=.143^7.857^^.214
+61 ;;^UTILITY(U,$J,112,8825,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8826,0)
+64 ;;=BF,DINNER,VEG & TURKEY,GERBER THIRD FOOD^BC-02099^6-oz.^170
+65 ;;^UTILITY(U,$J,112,8826,1)
+66 ;;=2.235^1.059^8.882^54.118^^^^11.765^.353^^37.059^95.882^14.118^^^^^^1.765^.024
+67 ;;^UTILITY(U,$J,112,8826,2)
+68 ;;=.035^.588^^.041^^^^^^^^^134.118
+69 ;;^UTILITY(U,$J,112,8826,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8827,0)
+72 ;;=BF,DINNER,VEG & TURKEY,GERBER SECOND FOOD^BC-02100^4-oz.^113
+73 ;;^UTILITY(U,$J,112,8827,1)
+74 ;;=2.212^1.327^7.611^51.327^^^^18.584^.265^7.08^30.973^74.336^12.389^.319^.027^.124^^^.885^.018
+75 ;;^UTILITY(U,$J,112,8827,2)
+76 ;;=.035^.619^^.035^^^^^^^^^129.204
+77 ;;^UTILITY(U,$J,112,8827,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8828,0)
+80 ;;=BF,DINNER,VEG STEW W/CHICKEN,BEECH-NUT TABLE-TIME^BC-02101^6-oz.^170
+81 ;;^UTILITY(U,$J,112,8828,1)
+82 ;;=3.176^4.294^11.824^98.824^^^^35.882^.5^^^^174.118^^^^^2230^^.029
+83 ;;^UTILITY(U,$J,112,8828,2)
+84 ;;=.071^.882
+85 ;;^UTILITY(U,$J,112,8828,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8829,0)
+88 ;;=BF,DINNER,BEEF W/VEG,GERBER THIRD FOOD^BC-02102^4-oz.^113
+89 ;;^UTILITY(U,$J,112,8829,1)
+90 ;;=6.283^1.947^7.876^73.451^^^^7.08^1.15^^^131.858^23.009^^^^^^3.54^.027
+91 ;;^UTILITY(U,$J,112,8829,2)
+92 ;;=.062^1.15^^.08^^^^^^^^^81.416
+93 ;;^UTILITY(U,$J,112,8829,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8830,0)
+96 ;;=BF,DINNER,BEEF W/VEG,GERBER SECOND FOOD^BC-02103^4-oz.^113
+97 ;;^UTILITY(U,$J,112,8830,1)
+98 ;;=6.018^1.593^6.903^65.487^^^^6.195^.619^^^113.274^24.779^^^^^^2.655^.018
+99 ;;^UTILITY(U,$J,112,8830,2)
+100 ;;=.053^1.062^^.071^^^^^^^^^34.513
+101 ;;^UTILITY(U,$J,112,8830,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8831,0)
+104 ;;=BF,DINNER,CHICKEN W/VEG,GERBER THIRD FOOD^BC-02104^4-oz.^113
+105 ;;^UTILITY(U,$J,112,8831,1)
+106 ;;=5.664^1.504^7.611^66.372^^^^23.894^.885^^^119.469^25.664^^^^^^1.77^.027
