FHINI0EG ; ; 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,9008,2)
;;=.029^.412
;;^UTILITY(U,$J,112,9008,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9009,0)
;;=BF,VEG,SWEET POTATOES,GERBER THIRD FOOD^BC-02282^6-oz.^170
;;^UTILITY(U,$J,112,9009,1)
;;=1.118^.176^14^62.353^^^^14.118^.294^13.529^28.235^227.059^22.941^.141^.076^.218^^^3.529^.029
;;^UTILITY(U,$J,112,9009,2)
;;=.035^.353^^.1^^^^^^^^^815.882
;;^UTILITY(U,$J,112,9009,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9010,0)
;;=BF,VEG,SWEET POTATOES,BEECH-NUT STAGE 1^BC-02283^2.8-oz.^79
;;^UTILITY(U,$J,112,9010,1)
;;=1.139^0^15.063^64.557^^^^16.456^.405^^^^6.329^^^^^6100^^.025
;;^UTILITY(U,$J,112,9010,2)
;;=.038^.506
;;^UTILITY(U,$J,112,9010,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9011,0)
;;=BF,VEG,SWEET POTATOES,BEECH-NUT STAGE 2^BC-02284^4.5-oz.^128
;;^UTILITY(U,$J,112,9011,1)
;;=1.094^0^14.297^61.719^^^^14.844^.297^^^^4.688^^^^^6170.313^3.125^.031
;;^UTILITY(U,$J,112,9011,2)
;;=.031^.391
;;^UTILITY(U,$J,112,9011,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9012,0)
;;=BF,VEG,SWEET POTATOES,GERBER FIRST FOOD^BC-02285^2.5-oz.^71
;;^UTILITY(U,$J,112,9012,1)
;;=1.127^.141^14.507^64.789^^^^14.085^.282^15.493^28.169^257.746^15.493^.155^.099^.268^^^4.225^.028
;;^UTILITY(U,$J,112,9012,2)
;;=.028^.423^^.127^^^^^^^^^773.239
;;^UTILITY(U,$J,112,9012,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9013,0)
;;=BF,VEG,SWEET POTATOES,GERBER SECOND FOOD^BC-02286^4-oz.^113
;;^UTILITY(U,$J,112,9013,1)
;;=1.15^.177^14.159^62.832^^^^14.159^.265^14.159^28.319^237.168^16.814^.15^.088^.23^^^3.54^.027
;;^UTILITY(U,$J,112,9013,2)
;;=.035^.354^^.106^^^^^^^^^781.416
;;^UTILITY(U,$J,112,9013,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9014,0)
;;=MEAT,SUBS,BACON,SIMULATED MEAT PRODUCT^BC-02287^strip^8
;;^UTILITY(U,$J,112,9014,1)
;;=11.25^30^6.25^312.5^48.75^^^25^2.375^25^75^175^1462.5^.375^.1^.2^^87.5^0^4.375
;;^UTILITY(U,$J,112,9014,2)
;;=.5^7.5^.125^.5^37.5^0^^^0^5^7.5^15^12.5^^^^1.25
;;^UTILITY(U,$J,112,9014,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9015,0)
;;=MEAT SUBS,BACOS,GENERAL MILLS^BC-02288^2-tsp.^5
;;^UTILITY(U,$J,112,9015,1)
;;=40^20^40^500^^^^^^^^2000^1800
;;^UTILITY(U,$J,112,9015,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,9015,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9016,0)
;;=MEAT SUBS,BIG FRANKS,CND,LOMA LINDA^BC-02289^frank^51
;;^UTILITY(U,$J,112,9016,1)
;;=19.608^9.804^7.843^196.078^58.824^^^33.333^1.804^^^147.059^431.373^1.196^^^^^^1.098
;;^UTILITY(U,$J,112,9016,2)
;;=1.196^16.078^1.608^.98^^2.353^^^0
;;^UTILITY(U,$J,112,9016,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9017,0)
;;=MEAT SUBS,BOLOGNA,FRZN,LOMA LINDA^BC-02290^2-slices^57
;;^UTILITY(U,$J,112,9017,1)
;;=24.561^15.789^8.772^263.158^45.614^^^40.351^2.281^^^280.702^859.649^1.596^^^^^^.947
;;^UTILITY(U,$J,112,9017,2)
;;=.544^11.228^3.509^1.123^^3.509^^^0
;;^UTILITY(U,$J,112,9017,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9018,0)
;;=MEAT SUBS,BREAKFAST LINKS,MORNINGSTAR FARMS^BC-02291^2-links^45
;;^UTILITY(U,$J,112,9018,1)
;;=17.778^11.111^6.667^200^^^^^^^^122.222^666.667
;;^UTILITY(U,$J,112,9018,2)
;;=^^^^^^^^0^2.222^^6.667
;;^UTILITY(U,$J,112,9018,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9019,0)
;;=MEAT SUBS,BREAKFAST PATTIES,MORNINGSTAR FARMS^BC-02292^2-patties^76
;;^UTILITY(U,$J,112,9019,1)
;;=19.737^15.789^8.947^250^48.816^^^50^5.618^^^26.316^934.211
;;^UTILITY(U,$J,112,9019,2)
;;=.5^12.105^^.658^^9.395^^^0^3.026^^7.895
;;^UTILITY(U,$J,112,9019,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9020,0)
;;=MEAT SUBS,BURGER-LIKE,MILLSTONE^BC-02293^4-oz.^113
;;^UTILITY(U,$J,112,9020,1)
;;=11.504^.177^7.08^79.646^78.761^^^33.628^.504^^^380.531^389.381^.973^^^^^^.027
;;^UTILITY(U,$J,112,9020,2)
;;=.027^1.593^^^^^^^0
;;^UTILITY(U,$J,112,9020,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9021,0)
;;=MEAT SUBS,BURGERMIX,MILLSTONE^BC-02294^oz.^28
;;^UTILITY(U,$J,112,9021,1)
;;=35.714^2.5^42.857^321.429^10.357^^^235.714^8.214^^^121.429^1314.286^1.964^^^^^^.821
;;^UTILITY(U,$J,112,9021,2)
;;=.607^1.071^6.071^^^^^^0
;;^UTILITY(U,$J,112,9021,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9022,0)
;;=MEAT SUBS,CHICKEN,FRIED,LOMA LINDA^BC-02295^piece^57
FHINI0EG ; ; 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,9008,2)
+2 ;;=.029^.412
+3 ;;^UTILITY(U,$J,112,9008,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9009,0)
+6 ;;=BF,VEG,SWEET POTATOES,GERBER THIRD FOOD^BC-02282^6-oz.^170
+7 ;;^UTILITY(U,$J,112,9009,1)
+8 ;;=1.118^.176^14^62.353^^^^14.118^.294^13.529^28.235^227.059^22.941^.141^.076^.218^^^3.529^.029
+9 ;;^UTILITY(U,$J,112,9009,2)
+10 ;;=.035^.353^^.1^^^^^^^^^815.882
+11 ;;^UTILITY(U,$J,112,9009,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9010,0)
+14 ;;=BF,VEG,SWEET POTATOES,BEECH-NUT STAGE 1^BC-02283^2.8-oz.^79
+15 ;;^UTILITY(U,$J,112,9010,1)
+16 ;;=1.139^0^15.063^64.557^^^^16.456^.405^^^^6.329^^^^^6100^^.025
+17 ;;^UTILITY(U,$J,112,9010,2)
+18 ;;=.038^.506
+19 ;;^UTILITY(U,$J,112,9010,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9011,0)
+22 ;;=BF,VEG,SWEET POTATOES,BEECH-NUT STAGE 2^BC-02284^4.5-oz.^128
+23 ;;^UTILITY(U,$J,112,9011,1)
+24 ;;=1.094^0^14.297^61.719^^^^14.844^.297^^^^4.688^^^^^6170.313^3.125^.031
+25 ;;^UTILITY(U,$J,112,9011,2)
+26 ;;=.031^.391
+27 ;;^UTILITY(U,$J,112,9011,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9012,0)
+30 ;;=BF,VEG,SWEET POTATOES,GERBER FIRST FOOD^BC-02285^2.5-oz.^71
+31 ;;^UTILITY(U,$J,112,9012,1)
+32 ;;=1.127^.141^14.507^64.789^^^^14.085^.282^15.493^28.169^257.746^15.493^.155^.099^.268^^^4.225^.028
+33 ;;^UTILITY(U,$J,112,9012,2)
+34 ;;=.028^.423^^.127^^^^^^^^^773.239
+35 ;;^UTILITY(U,$J,112,9012,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9013,0)
+38 ;;=BF,VEG,SWEET POTATOES,GERBER SECOND FOOD^BC-02286^4-oz.^113
+39 ;;^UTILITY(U,$J,112,9013,1)
+40 ;;=1.15^.177^14.159^62.832^^^^14.159^.265^14.159^28.319^237.168^16.814^.15^.088^.23^^^3.54^.027
+41 ;;^UTILITY(U,$J,112,9013,2)
+42 ;;=.035^.354^^.106^^^^^^^^^781.416
+43 ;;^UTILITY(U,$J,112,9013,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9014,0)
+46 ;;=MEAT,SUBS,BACON,SIMULATED MEAT PRODUCT^BC-02287^strip^8
+47 ;;^UTILITY(U,$J,112,9014,1)
+48 ;;=11.25^30^6.25^312.5^48.75^^^25^2.375^25^75^175^1462.5^.375^.1^.2^^87.5^0^4.375
+49 ;;^UTILITY(U,$J,112,9014,2)
+50 ;;=.5^7.5^.125^.5^37.5^0^^^0^5^7.5^15^12.5^^^^1.25
+51 ;;^UTILITY(U,$J,112,9014,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9015,0)
+54 ;;=MEAT SUBS,BACOS,GENERAL MILLS^BC-02288^2-tsp.^5
+55 ;;^UTILITY(U,$J,112,9015,1)
+56 ;;=40^20^40^500^^^^^^^^2000^1800
+57 ;;^UTILITY(U,$J,112,9015,2)
+58 ;;=^^^^^^^^0
+59 ;;^UTILITY(U,$J,112,9015,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9016,0)
+62 ;;=MEAT SUBS,BIG FRANKS,CND,LOMA LINDA^BC-02289^frank^51
+63 ;;^UTILITY(U,$J,112,9016,1)
+64 ;;=19.608^9.804^7.843^196.078^58.824^^^33.333^1.804^^^147.059^431.373^1.196^^^^^^1.098
+65 ;;^UTILITY(U,$J,112,9016,2)
+66 ;;=1.196^16.078^1.608^.98^^2.353^^^0
+67 ;;^UTILITY(U,$J,112,9016,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9017,0)
+70 ;;=MEAT SUBS,BOLOGNA,FRZN,LOMA LINDA^BC-02290^2-slices^57
+71 ;;^UTILITY(U,$J,112,9017,1)
+72 ;;=24.561^15.789^8.772^263.158^45.614^^^40.351^2.281^^^280.702^859.649^1.596^^^^^^.947
+73 ;;^UTILITY(U,$J,112,9017,2)
+74 ;;=.544^11.228^3.509^1.123^^3.509^^^0
+75 ;;^UTILITY(U,$J,112,9017,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9018,0)
+78 ;;=MEAT SUBS,BREAKFAST LINKS,MORNINGSTAR FARMS^BC-02291^2-links^45
+79 ;;^UTILITY(U,$J,112,9018,1)
+80 ;;=17.778^11.111^6.667^200^^^^^^^^122.222^666.667
+81 ;;^UTILITY(U,$J,112,9018,2)
+82 ;;=^^^^^^^^0^2.222^^6.667
+83 ;;^UTILITY(U,$J,112,9018,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9019,0)
+86 ;;=MEAT SUBS,BREAKFAST PATTIES,MORNINGSTAR FARMS^BC-02292^2-patties^76
+87 ;;^UTILITY(U,$J,112,9019,1)
+88 ;;=19.737^15.789^8.947^250^48.816^^^50^5.618^^^26.316^934.211
+89 ;;^UTILITY(U,$J,112,9019,2)
+90 ;;=.5^12.105^^.658^^9.395^^^0^3.026^^7.895
+91 ;;^UTILITY(U,$J,112,9019,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9020,0)
+94 ;;=MEAT SUBS,BURGER-LIKE,MILLSTONE^BC-02293^4-oz.^113
+95 ;;^UTILITY(U,$J,112,9020,1)
+96 ;;=11.504^.177^7.08^79.646^78.761^^^33.628^.504^^^380.531^389.381^.973^^^^^^.027
+97 ;;^UTILITY(U,$J,112,9020,2)
+98 ;;=.027^1.593^^^^^^^0
+99 ;;^UTILITY(U,$J,112,9020,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9021,0)
+102 ;;=MEAT SUBS,BURGERMIX,MILLSTONE^BC-02294^oz.^28
+103 ;;^UTILITY(U,$J,112,9021,1)
+104 ;;=35.714^2.5^42.857^321.429^10.357^^^235.714^8.214^^^121.429^1314.286^1.964^^^^^^.821
+105 ;;^UTILITY(U,$J,112,9021,2)
+106 ;;=.607^1.071^6.071^^^^^^0
+107 ;;^UTILITY(U,$J,112,9021,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9022,0)
+110 ;;=MEAT SUBS,CHICKEN,FRIED,LOMA LINDA^BC-02295^piece^57
