FHINI0E1 ; ; 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,8805,0)
;;=BF,DINNER,VEG & BEEF,TODDLER,GERBER^BC-02078^6.25-oz.^177
;;^UTILITY(U,$J,112,8805,1)
;;=3.446^2.147^8.757^68.362^^^^12.429^.508^10.734^38.418^161.582^201.695^.672^.034^.119^^^3.39^.028
;;^UTILITY(U,$J,112,8805,2)
;;=.051^.847^^.09^^^^^^^^^218.644
;;^UTILITY(U,$J,112,8805,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8806,0)
;;=BF,DINNER,VEG & BEEF,INST,HEINZ^BC-02079^5-tbsp.^14
;;^UTILITY(U,$J,112,8806,1)
;;=21.429^14.286^50^428.571^^^^85.714^6.429^^335.714^1014.286^178.571^3.643^.5^^^2528.571^0^.286
;;^UTILITY(U,$J,112,8806,2)
;;=.286^5.714^^.357
;;^UTILITY(U,$J,112,8806,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8807,0)
;;=BF,DINNER,VEG & BEEF,BEECH-NUT STAGE 3^BC-02080^6-oz.^170
;;^UTILITY(U,$J,112,8807,1)
;;=1.882^2.882^9.118^70^^^^15.294^.4^^^^25.294^^^^^3700^^.018
;;^UTILITY(U,$J,112,8807,2)
;;=.029^.588
;;^UTILITY(U,$J,112,8807,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8808,0)
;;=BF,DINNER,VEG & BEEF,GERBER THIRD FOOD^BC-02081^6-oz.^170
;;^UTILITY(U,$J,112,8808,1)
;;=2.529^1.706^9.294^62.353^^^^11.176^.412^9.412^34.706^122.941^17.059^.559^.212^.141^^^1.765^.029
;;^UTILITY(U,$J,112,8808,2)
;;=.029^.706^^.059^^^^^^^^^298.235
;;^UTILITY(U,$J,112,8808,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8809,0)
;;=BF,DINNER,VEG & BEEF,BEECH-NUT STAGE 2^BC-02082^4.5-oz.^128
;;^UTILITY(U,$J,112,8809,1)
;;=1.797^2.891^7.969^65.625^^^^13.281^.398^^^^24.219^^^^^3179.688^^.023
;;^UTILITY(U,$J,112,8809,2)
;;=.031^.625
;;^UTILITY(U,$J,112,8809,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8810,0)
;;=BF,DINNER,VEG & BEEF,GERBER SECOND FOOD^BC-02083^4-oz.^113
;;^UTILITY(U,$J,112,8810,1)
;;=2.389^2.478^8.673^66.372^^^^8.85^.354^8.85^30.973^101.77^13.274^.434^.035^.142^^^.885^.027
;;^UTILITY(U,$J,112,8810,2)
;;=.027^.531^^.053^^^^^^^^^194.69
;;^UTILITY(U,$J,112,8810,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8811,0)
;;=BF,DINNER,VEG & CHICKEN,TODDLER,GERBER^BC-02084^6.25-oz.^177
;;^UTILITY(U,$J,112,8811,1)
;;=3.446^1.525^9.153^63.842^^^^22.599^.395^11.864^44.633^126.554^204.52^.339^.04^.153^^^2.825^.023
;;^UTILITY(U,$J,112,8811,2)
;;=.04^.96^^.073^^^^^^^^^304.52
;;^UTILITY(U,$J,112,8811,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8812,0)
;;=BF,DINNER,VEG & CHICKEN,INST,HEINZ^BC-02085^6-tbsp.^14
;;^UTILITY(U,$J,112,8812,1)
;;=21.429^14.286^57.143^428.571^^^^171.429^6.429^^414.286^928.571^214.286^2.571^.429^^^3028.571^0^.357
;;^UTILITY(U,$J,112,8812,2)
;;=.143^7.857^^.429
;;^UTILITY(U,$J,112,8812,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8813,0)
;;=BF,DINNER,VEG & CHICKEN,BEECH-NUT STAGE 3^BC-02086^6-oz.^170
;;^UTILITY(U,$J,112,8813,1)
;;=2.176^2^8.118^58.824^^^^55.882^.4^^^^34.118^^^^^3530^^.018
;;^UTILITY(U,$J,112,8813,2)
;;=.059^.706
;;^UTILITY(U,$J,112,8813,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8814,0)
;;=BF,DINNER,VEG & CHICKEN,GERBER THIRD FOOD^BC-02087^6-oz.^170
;;^UTILITY(U,$J,112,8814,1)
;;=2.176^1.118^8.176^51.176^^^^17.059^.353^^34.118^97.059^12.941^^^^^^1.765^.018
;;^UTILITY(U,$J,112,8814,2)
;;=.029^.588^^.059^^^^^^^^^177.059
;;^UTILITY(U,$J,112,8814,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8815,0)
;;=BF,DINNER,VEG & CHICKEN,BEECH-NUT STAGE 2^BC-02088^4.5-oz.^128
;;^UTILITY(U,$J,112,8815,1)
;;=2.969^2.031^9.375^67.969^^^^60.156^.297^^^^32.031^^^^^1910.156^^.023
;;^UTILITY(U,$J,112,8815,2)
;;=.078^.625
;;^UTILITY(U,$J,112,8815,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8816,0)
;;=BF,DINNER,VEG & CHICKEN,GERBER SECOND FOOD^BC-02089^4-oz.^113
;;^UTILITY(U,$J,112,8816,1)
;;=2.301^1.239^9.558^58.407^^^^18.584^.265^8.85^35.398^77.876^8.85^.283^.027^.221^^^.885^.018
;;^UTILITY(U,$J,112,8816,2)
;;=.027^.619^^.053^^^^^^^^^137.168
;;^UTILITY(U,$J,112,8816,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8817,0)
;;=BF,DINNER,VEG & HAM,TODDLER,GERBER^BC-02090^6.25-oz.^177
;;^UTILITY(U,$J,112,8817,1)
;;=3.446^.791^8.475^70.056^^^^11.864^.339^10.734^40.113^111.299^200^.497^.045^.119^^^2.26^.056
;;^UTILITY(U,$J,112,8817,2)
;;=.045^.791^^.062^^^^^^^^^177.401
;;^UTILITY(U,$J,112,8817,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8818,0)
;;=BF,DINNER,VEG & HAM,INST,HEINZ^BC-02091^6-tbsp^14
FHINI0E1 ; ; 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,8805,0)
+2 ;;=BF,DINNER,VEG & BEEF,TODDLER,GERBER^BC-02078^6.25-oz.^177
+3 ;;^UTILITY(U,$J,112,8805,1)
+4 ;;=3.446^2.147^8.757^68.362^^^^12.429^.508^10.734^38.418^161.582^201.695^.672^.034^.119^^^3.39^.028
+5 ;;^UTILITY(U,$J,112,8805,2)
+6 ;;=.051^.847^^.09^^^^^^^^^218.644
+7 ;;^UTILITY(U,$J,112,8805,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8806,0)
+10 ;;=BF,DINNER,VEG & BEEF,INST,HEINZ^BC-02079^5-tbsp.^14
+11 ;;^UTILITY(U,$J,112,8806,1)
+12 ;;=21.429^14.286^50^428.571^^^^85.714^6.429^^335.714^1014.286^178.571^3.643^.5^^^2528.571^0^.286
+13 ;;^UTILITY(U,$J,112,8806,2)
+14 ;;=.286^5.714^^.357
+15 ;;^UTILITY(U,$J,112,8806,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8807,0)
+18 ;;=BF,DINNER,VEG & BEEF,BEECH-NUT STAGE 3^BC-02080^6-oz.^170
+19 ;;^UTILITY(U,$J,112,8807,1)
+20 ;;=1.882^2.882^9.118^70^^^^15.294^.4^^^^25.294^^^^^3700^^.018
+21 ;;^UTILITY(U,$J,112,8807,2)
+22 ;;=.029^.588
+23 ;;^UTILITY(U,$J,112,8807,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8808,0)
+26 ;;=BF,DINNER,VEG & BEEF,GERBER THIRD FOOD^BC-02081^6-oz.^170
+27 ;;^UTILITY(U,$J,112,8808,1)
+28 ;;=2.529^1.706^9.294^62.353^^^^11.176^.412^9.412^34.706^122.941^17.059^.559^.212^.141^^^1.765^.029
+29 ;;^UTILITY(U,$J,112,8808,2)
+30 ;;=.029^.706^^.059^^^^^^^^^298.235
+31 ;;^UTILITY(U,$J,112,8808,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8809,0)
+34 ;;=BF,DINNER,VEG & BEEF,BEECH-NUT STAGE 2^BC-02082^4.5-oz.^128
+35 ;;^UTILITY(U,$J,112,8809,1)
+36 ;;=1.797^2.891^7.969^65.625^^^^13.281^.398^^^^24.219^^^^^3179.688^^.023
+37 ;;^UTILITY(U,$J,112,8809,2)
+38 ;;=.031^.625
+39 ;;^UTILITY(U,$J,112,8809,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8810,0)
+42 ;;=BF,DINNER,VEG & BEEF,GERBER SECOND FOOD^BC-02083^4-oz.^113
+43 ;;^UTILITY(U,$J,112,8810,1)
+44 ;;=2.389^2.478^8.673^66.372^^^^8.85^.354^8.85^30.973^101.77^13.274^.434^.035^.142^^^.885^.027
+45 ;;^UTILITY(U,$J,112,8810,2)
+46 ;;=.027^.531^^.053^^^^^^^^^194.69
+47 ;;^UTILITY(U,$J,112,8810,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8811,0)
+50 ;;=BF,DINNER,VEG & CHICKEN,TODDLER,GERBER^BC-02084^6.25-oz.^177
+51 ;;^UTILITY(U,$J,112,8811,1)
+52 ;;=3.446^1.525^9.153^63.842^^^^22.599^.395^11.864^44.633^126.554^204.52^.339^.04^.153^^^2.825^.023
+53 ;;^UTILITY(U,$J,112,8811,2)
+54 ;;=.04^.96^^.073^^^^^^^^^304.52
+55 ;;^UTILITY(U,$J,112,8811,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8812,0)
+58 ;;=BF,DINNER,VEG & CHICKEN,INST,HEINZ^BC-02085^6-tbsp.^14
+59 ;;^UTILITY(U,$J,112,8812,1)
+60 ;;=21.429^14.286^57.143^428.571^^^^171.429^6.429^^414.286^928.571^214.286^2.571^.429^^^3028.571^0^.357
+61 ;;^UTILITY(U,$J,112,8812,2)
+62 ;;=.143^7.857^^.429
+63 ;;^UTILITY(U,$J,112,8812,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8813,0)
+66 ;;=BF,DINNER,VEG & CHICKEN,BEECH-NUT STAGE 3^BC-02086^6-oz.^170
+67 ;;^UTILITY(U,$J,112,8813,1)
+68 ;;=2.176^2^8.118^58.824^^^^55.882^.4^^^^34.118^^^^^3530^^.018
+69 ;;^UTILITY(U,$J,112,8813,2)
+70 ;;=.059^.706
+71 ;;^UTILITY(U,$J,112,8813,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8814,0)
+74 ;;=BF,DINNER,VEG & CHICKEN,GERBER THIRD FOOD^BC-02087^6-oz.^170
+75 ;;^UTILITY(U,$J,112,8814,1)
+76 ;;=2.176^1.118^8.176^51.176^^^^17.059^.353^^34.118^97.059^12.941^^^^^^1.765^.018
+77 ;;^UTILITY(U,$J,112,8814,2)
+78 ;;=.029^.588^^.059^^^^^^^^^177.059
+79 ;;^UTILITY(U,$J,112,8814,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8815,0)
+82 ;;=BF,DINNER,VEG & CHICKEN,BEECH-NUT STAGE 2^BC-02088^4.5-oz.^128
+83 ;;^UTILITY(U,$J,112,8815,1)
+84 ;;=2.969^2.031^9.375^67.969^^^^60.156^.297^^^^32.031^^^^^1910.156^^.023
+85 ;;^UTILITY(U,$J,112,8815,2)
+86 ;;=.078^.625
+87 ;;^UTILITY(U,$J,112,8815,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8816,0)
+90 ;;=BF,DINNER,VEG & CHICKEN,GERBER SECOND FOOD^BC-02089^4-oz.^113
+91 ;;^UTILITY(U,$J,112,8816,1)
+92 ;;=2.301^1.239^9.558^58.407^^^^18.584^.265^8.85^35.398^77.876^8.85^.283^.027^.221^^^.885^.018
+93 ;;^UTILITY(U,$J,112,8816,2)
+94 ;;=.027^.619^^.053^^^^^^^^^137.168
+95 ;;^UTILITY(U,$J,112,8816,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8817,0)
+98 ;;=BF,DINNER,VEG & HAM,TODDLER,GERBER^BC-02090^6.25-oz.^177
+99 ;;^UTILITY(U,$J,112,8817,1)
+100 ;;=3.446^.791^8.475^70.056^^^^11.864^.339^10.734^40.113^111.299^200^.497^.045^.119^^^2.26^.056
+101 ;;^UTILITY(U,$J,112,8817,2)
+102 ;;=.045^.791^^.062^^^^^^^^^177.401
+103 ;;^UTILITY(U,$J,112,8817,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8818,0)
+106 ;;=BF,DINNER,VEG & HAM,INST,HEINZ^BC-02091^6-tbsp^14