FHINI0EK ; ; 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,9061,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9062,0)
;;=MEAT SUBS,TENDER BITS,CND,LOMA LINDA^BC-02335^4-pieces^57
;;^UTILITY(U,$J,112,9062,1)
;;=14.035^5.263^7.018^140.351^70.175^^^29.825^1.596^^^78.947^596.491^1.105^^^^^^.895
;;^UTILITY(U,$J,112,9062,2)
;;=.509^9.825^3.509^1.105^^1.754^^^0
;;^UTILITY(U,$J,112,9062,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9063,0)
;;=MEAT SUBS,TENDER CUTS,MILLSTONE^BC-02336^3.6-oz.^102
;;^UTILITY(U,$J,112,9063,1)
;;=13.725^1.176^3.235^78.431^80.392^^^12.745^1.275^^^49.02^401.961^2.941^^^^^^.098
;;^UTILITY(U,$J,112,9063,2)
;;=^4.314^2.255^^^^^^0
;;^UTILITY(U,$J,112,9063,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9064,0)
;;=MEAT SUBS,TENDER ROUNDS W/GRAVY,CND,LOMA LINDA^BC-02337^6-rounds^75
;;^UTILITY(U,$J,112,9064,1)
;;=20^5.333^9.333^160^61.333^^^38.667^2.4^^^153.333^413.333^.88^^^^^^.88
;;^UTILITY(U,$J,112,9064,2)
;;=.587^6.667^1.067^1.173^^2.667^^^0
;;^UTILITY(U,$J,112,9064,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9065,0)
;;=MEAT SUBS,TURKEY,FROZEN,LOMA LINDA^BC-02338^2-slices^57
;;^UTILITY(U,$J,112,9065,1)
;;=17.544^21.053^5.263^280.702^54.386^^^33.333^1.93^^^192.982^2368.421^1.509^^^^^^.807
;;^UTILITY(U,$J,112,9065,2)
;;=.404^3.333^4.386^1.035^^3.509^^^0
;;^UTILITY(U,$J,112,9065,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9066,0)
;;=MEAT SUBS,VEGE-BURGER,CND,LOMA LINDA^BC-02339^1/2-cup^108
;;^UTILITY(U,$J,112,9066,1)
;;=20.37^.926^3.704^101.852^73.148^^^29.63^2.5^^^101.852^175.926^1.019^^^^^^.491
;;^UTILITY(U,$J,112,9066,2)
;;=.63^4.63^2.685^.519^^1.852^^^0
;;^UTILITY(U,$J,112,9066,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9067,0)
;;=MEAT SUBS,VEGE-BURGER,MILLSTONE^BC-02340^1/2-cup^108
;;^UTILITY(U,$J,112,9067,1)
;;=18.519^1.574^2.778^101.852^70.37^^^11.111^1.019^^^69.444^416.667^2.5^^^^^^.028
;;^UTILITY(U,$J,112,9067,2)
;;=.13^^1.667^^^^^^0
;;^UTILITY(U,$J,112,9067,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9068,0)
;;=MEAT SUBS,VEGE-BURGER,NO SALT ADDED,CND,LOMA LINDA^BC-02341^1/2-cup^108
;;^UTILITY(U,$J,112,9068,1)
;;=25^1.852^3.704^129.63^66.667^^^39.815^1.667^^^185.185^50.926^1.574^^^^^^.491
;;^UTILITY(U,$J,112,9068,2)
;;=.472^6.019^1.204^.861^^1.852^^^0
;;^UTILITY(U,$J,112,9068,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9069,0)
;;=MEAT SUBS,VEGE-LONA,CND,LOMA LINDA^BC-02342^1/2"-slice^67
;;^UTILITY(U,$J,112,9069,1)
;;=26.866^1.493^8.955^149.254^61.194^^^22.388^2.239^^^149.254^313.433^1.791^^^^^^.806
;;^UTILITY(U,$J,112,9069,2)
;;=.746^12.985^2.239^.746^^1.343^^^0
;;^UTILITY(U,$J,112,9069,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9070,0)
;;=MEAT SUBS,VEGE-SCALLOPS,CND,LOMA LINDA^BC-02343^6-pieces^78
;;^UTILITY(U,$J,112,9070,1)
;;=17.949^1.282^2.564^89.744^76.923^^^21.795^1.41^^^38.462^230.769^1.41^^^^^^.436
;;^UTILITY(U,$J,112,9070,2)
;;=.103^.897^.231^.026^^2.564^^^0
;;^UTILITY(U,$J,112,9070,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9071,0)
;;=MEAT SUBS,VEGETARIAN BURGER,WORTHINGTON^BC-02344^1/2-cup^113
;;^UTILITY(U,$J,112,9071,1)
;;=19.292^2.655^5.752^123.894^70.619^^^7.08^3.965^^^50.442^460.177^^^^^^^.558
;;^UTILITY(U,$J,112,9071,2)
;;=.221^10.708^^.389^^7.478
;;^UTILITY(U,$J,112,9071,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9072,0)
;;=MEAT SUBS,VEG-SKALLOPS,WORTHINGTON^BC-02345^1/2-cup^85
;;^UTILITY(U,$J,112,9072,1)
;;=19.882^1.294^4^108.235^73.176^^^10.588^1.776^^^14.118^408.235^3.529
;;^UTILITY(U,$J,112,9072,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9073,0)
;;=MEAT SUBS,VEJA-LINKS,WORTHINGTON^BC-02346^2-links^62
;;^UTILITY(U,$J,112,9073,1)
;;=13.226^10.645^8.71^183.871^65.484^^^11.29^2.355^^^56.452^479.032^^^^^^^.468
;;^UTILITY(U,$J,112,9073,2)
;;=.355^5^^.258^^6.516^^^^1.774^^4.516
;;^UTILITY(U,$J,112,9073,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9074,0)
;;=BEEF,BREAKFAST STRIPS,CKD,LEAN'N TASTY,OSCAR MAYER^BC-02347^slices^12
;;^UTILITY(U,$J,112,9074,1)
;;=26.667^32.5^1.667^400^35^^^8.333^1.917^16.667^166.667^300^1641.667^4^.333
;;^UTILITY(U,$J,112,9074,2)
;;=^^^^^^^^108.333^12.5^16.667^1.667
;;^UTILITY(U,$J,112,9074,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0EK ; ; 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,9061,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9062,0)
+4 ;;=MEAT SUBS,TENDER BITS,CND,LOMA LINDA^BC-02335^4-pieces^57
+5 ;;^UTILITY(U,$J,112,9062,1)
+6 ;;=14.035^5.263^7.018^140.351^70.175^^^29.825^1.596^^^78.947^596.491^1.105^^^^^^.895
+7 ;;^UTILITY(U,$J,112,9062,2)
+8 ;;=.509^9.825^3.509^1.105^^1.754^^^0
+9 ;;^UTILITY(U,$J,112,9062,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9063,0)
+12 ;;=MEAT SUBS,TENDER CUTS,MILLSTONE^BC-02336^3.6-oz.^102
+13 ;;^UTILITY(U,$J,112,9063,1)
+14 ;;=13.725^1.176^3.235^78.431^80.392^^^12.745^1.275^^^49.02^401.961^2.941^^^^^^.098
+15 ;;^UTILITY(U,$J,112,9063,2)
+16 ;;=^4.314^2.255^^^^^^0
+17 ;;^UTILITY(U,$J,112,9063,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9064,0)
+20 ;;=MEAT SUBS,TENDER ROUNDS W/GRAVY,CND,LOMA LINDA^BC-02337^6-rounds^75
+21 ;;^UTILITY(U,$J,112,9064,1)
+22 ;;=20^5.333^9.333^160^61.333^^^38.667^2.4^^^153.333^413.333^.88^^^^^^.88
+23 ;;^UTILITY(U,$J,112,9064,2)
+24 ;;=.587^6.667^1.067^1.173^^2.667^^^0
+25 ;;^UTILITY(U,$J,112,9064,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9065,0)
+28 ;;=MEAT SUBS,TURKEY,FROZEN,LOMA LINDA^BC-02338^2-slices^57
+29 ;;^UTILITY(U,$J,112,9065,1)
+30 ;;=17.544^21.053^5.263^280.702^54.386^^^33.333^1.93^^^192.982^2368.421^1.509^^^^^^.807
+31 ;;^UTILITY(U,$J,112,9065,2)
+32 ;;=.404^3.333^4.386^1.035^^3.509^^^0
+33 ;;^UTILITY(U,$J,112,9065,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9066,0)
+36 ;;=MEAT SUBS,VEGE-BURGER,CND,LOMA LINDA^BC-02339^1/2-cup^108
+37 ;;^UTILITY(U,$J,112,9066,1)
+38 ;;=20.37^.926^3.704^101.852^73.148^^^29.63^2.5^^^101.852^175.926^1.019^^^^^^.491
+39 ;;^UTILITY(U,$J,112,9066,2)
+40 ;;=.63^4.63^2.685^.519^^1.852^^^0
+41 ;;^UTILITY(U,$J,112,9066,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9067,0)
+44 ;;=MEAT SUBS,VEGE-BURGER,MILLSTONE^BC-02340^1/2-cup^108
+45 ;;^UTILITY(U,$J,112,9067,1)
+46 ;;=18.519^1.574^2.778^101.852^70.37^^^11.111^1.019^^^69.444^416.667^2.5^^^^^^.028
+47 ;;^UTILITY(U,$J,112,9067,2)
+48 ;;=.13^^1.667^^^^^^0
+49 ;;^UTILITY(U,$J,112,9067,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9068,0)
+52 ;;=MEAT SUBS,VEGE-BURGER,NO SALT ADDED,CND,LOMA LINDA^BC-02341^1/2-cup^108
+53 ;;^UTILITY(U,$J,112,9068,1)
+54 ;;=25^1.852^3.704^129.63^66.667^^^39.815^1.667^^^185.185^50.926^1.574^^^^^^.491
+55 ;;^UTILITY(U,$J,112,9068,2)
+56 ;;=.472^6.019^1.204^.861^^1.852^^^0
+57 ;;^UTILITY(U,$J,112,9068,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9069,0)
+60 ;;=MEAT SUBS,VEGE-LONA,CND,LOMA LINDA^BC-02342^1/2"-slice^67
+61 ;;^UTILITY(U,$J,112,9069,1)
+62 ;;=26.866^1.493^8.955^149.254^61.194^^^22.388^2.239^^^149.254^313.433^1.791^^^^^^.806
+63 ;;^UTILITY(U,$J,112,9069,2)
+64 ;;=.746^12.985^2.239^.746^^1.343^^^0
+65 ;;^UTILITY(U,$J,112,9069,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9070,0)
+68 ;;=MEAT SUBS,VEGE-SCALLOPS,CND,LOMA LINDA^BC-02343^6-pieces^78
+69 ;;^UTILITY(U,$J,112,9070,1)
+70 ;;=17.949^1.282^2.564^89.744^76.923^^^21.795^1.41^^^38.462^230.769^1.41^^^^^^.436
+71 ;;^UTILITY(U,$J,112,9070,2)
+72 ;;=.103^.897^.231^.026^^2.564^^^0
+73 ;;^UTILITY(U,$J,112,9070,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9071,0)
+76 ;;=MEAT SUBS,VEGETARIAN BURGER,WORTHINGTON^BC-02344^1/2-cup^113
+77 ;;^UTILITY(U,$J,112,9071,1)
+78 ;;=19.292^2.655^5.752^123.894^70.619^^^7.08^3.965^^^50.442^460.177^^^^^^^.558
+79 ;;^UTILITY(U,$J,112,9071,2)
+80 ;;=.221^10.708^^.389^^7.478
+81 ;;^UTILITY(U,$J,112,9071,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9072,0)
+84 ;;=MEAT SUBS,VEG-SKALLOPS,WORTHINGTON^BC-02345^1/2-cup^85
+85 ;;^UTILITY(U,$J,112,9072,1)
+86 ;;=19.882^1.294^4^108.235^73.176^^^10.588^1.776^^^14.118^408.235^3.529
+87 ;;^UTILITY(U,$J,112,9072,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9073,0)
+90 ;;=MEAT SUBS,VEJA-LINKS,WORTHINGTON^BC-02346^2-links^62
+91 ;;^UTILITY(U,$J,112,9073,1)
+92 ;;=13.226^10.645^8.71^183.871^65.484^^^11.29^2.355^^^56.452^479.032^^^^^^^.468
+93 ;;^UTILITY(U,$J,112,9073,2)
+94 ;;=.355^5^^.258^^6.516^^^^1.774^^4.516
+95 ;;^UTILITY(U,$J,112,9073,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9074,0)
+98 ;;=BEEF,BREAKFAST STRIPS,CKD,LEAN'N TASTY,OSCAR MAYER^BC-02347^slices^12
+99 ;;^UTILITY(U,$J,112,9074,1)
+100 ;;=26.667^32.5^1.667^400^35^^^8.333^1.917^16.667^166.667^300^1641.667^4^.333
+101 ;;^UTILITY(U,$J,112,9074,2)
+102 ;;=^^^^^^^^108.333^12.5^16.667^1.667
+103 ;;^UTILITY(U,$J,112,9074,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
