FHINI0EJ ; ; 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,9048,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9049,0)
;;=MEAT SUBS,SALAMI,FROZEN,LOMA LINDA^BC-02322^2-slices^57
;;^UTILITY(U,$J,112,9049,1)
;;=22.807^12.281^3.509^228.07^57.895^^^22.807^1.93^^^122.807^1122.807^1.596^^^^^^.667
;;^UTILITY(U,$J,112,9049,2)
;;=.596^5.263^3.684^1.105^^3.509^^^0
;;^UTILITY(U,$J,112,9049,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9050,0)
;;=MEAT SUBS,SANDWICH SPREAD,CND,LOMA LINDA^BC-02323^3-tbsp.^48
;;^UTILITY(U,$J,112,9050,1)
;;=8.333^8.333^8.333^145.833^70.833^^^43.75^1.5^^^333.333^625^1.292^^^^^^.604
;;^UTILITY(U,$J,112,9050,2)
;;=.708^12.917^2.5^1.104^^4.167^^^0
;;^UTILITY(U,$J,112,9050,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9051,0)
;;=MEAT SUBS,SAUSAGE,SIMULATED MEAT PRODUCT^BC-02324^link^25
;;^UTILITY(U,$J,112,9051,1)
;;=18.4^18^10^256^50.4^^^64^3.72^36^224^232^888^1.48^.252^.724^^640^0^2.36
;;^UTILITY(U,$J,112,9051,2)
;;=.4^11.2^.32^.84^28^0^^^0^2.8^4.4^9.2^64^^^^.4
;;^UTILITY(U,$J,112,9051,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9052,0)
;;=MEAT SUBS,PATTY,SIMULATED MEAT PRODUCT^BC-02325^patty^38
;;^UTILITY(U,$J,112,9052,1)
;;=18.421^18.158^9.737^255.263^50.526^^^63.158^3.711^36.842^223.684^231.579^886.842^1.447^.25^.726^^639.474^0^2.342
;;^UTILITY(U,$J,112,9052,2)
;;=.395^11.316^.316^.842^26.316^0^^^0^2.895^^9.211^63.158
;;^UTILITY(U,$J,112,9052,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9053,0)
;;=MEAT SUBS,SIZZLE BURGER,FROZEN,LOMA LINDA^BC-02326^burger^71
;;^UTILITY(U,$J,112,9053,1)
;;=21.127^15.493^18.31^295.775^39.437^^^69.014^2.254^^^253.521^450.704^1.099^^^^^^.901
;;^UTILITY(U,$J,112,9053,2)
;;=.718^11.972^2.113^1.099^^2.817^^^0
;;^UTILITY(U,$J,112,9053,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9054,0)
;;=MEAT SUBS,SIZZLE FRANKS,CND,LOMA LINDA^BC-02327^2-franks^70
;;^UTILITY(U,$J,112,9054,1)
;;=14.286^18.571^4.286^242.857^61.429^^^28.571^2^^^142.857^485.714^.9^^^^^^.5
;;^UTILITY(U,$J,112,9054,2)
;;=.5^5.857^3.286^.5^^2.857^^^0
;;^UTILITY(U,$J,112,9054,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9055,0)
;;=MEAT SUBS,STAKELETS,WORTHINGTON^BC-02328^piece^71
;;^UTILITY(U,$J,112,9055,1)
;;=20.282^9.155^9.155^201.408^58.31^^^88.732^4.62^^^201.408^607.042
;;^UTILITY(U,$J,112,9055,2)
;;=.408^8.169^^.451^^7.268^^^^1.69^^4.789
;;^UTILITY(U,$J,112,9055,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9056,0)
;;=MEAT SUBS,STEW PAC,CND,LOMA LINDA^BC-02329^2-oz.^57
;;^UTILITY(U,$J,112,9056,1)
;;=17.544^3.509^7.018^122.807^68.421^^^29.825^1.281^^^105.263^385.965^1.088^^^^^^.684
;;^UTILITY(U,$J,112,9056,2)
;;=.596^11.754^2.807^1.088^^1.754^^^0
;;^UTILITY(U,$J,112,9056,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9057,0)
;;=MEAT SUBS,STRIPLES,WORTHINGTON^BC-02330^4-strips^33
;;^UTILITY(U,$J,112,9057,1)
;;=12.727^26.061^11.818^333.333^43.939^^^51.515^2.879^^^106.061^1096.97
;;^UTILITY(U,$J,112,9057,2)
;;=.455^8.182^^.485^^5.394^^^^3.333^^17.576
;;^UTILITY(U,$J,112,9057,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9058,0)
;;=MEAT SUBS,STRIPS,MORNINGSTAR FARMS^BC-02331^3-strips^25
;;^UTILITY(U,$J,112,9058,1)
;;=12.8^26^11.6^332^44^^^52^2.88^^^104^1096
;;^UTILITY(U,$J,112,9058,2)
;;=.44^8^^.48^^5.4^^^0^3.2^^16.4
;;^UTILITY(U,$J,112,9058,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9059,0)
;;=MEAT SUBS,SWEDISH MEATBALLS,FROZEN,LOMA LINDA^BC-02332^8-meatball^70
;;^UTILITY(U,$J,112,9059,1)
;;=31.429^11.429^10^271.429^42.857^^^45.714^2.571^^^242.857^600^.929^^^^^^.7
;;^UTILITY(U,$J,112,9059,2)
;;=.6^7^2.143^1^^2.857^^^0
;;^UTILITY(U,$J,112,9059,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9060,0)
;;=MEAT SUBS,SWISS STEAK W/GRAVY,CND,LOMA LINDA^BC-02333^steak^74
;;^UTILITY(U,$J,112,9060,1)
;;=12.162^10.811^10.811^189.189^60.811^^^45.946^2.027^^^243.243^472.973^.797^^^^^^.703
;;^UTILITY(U,$J,112,9060,2)
;;=.595^5.405^2.027^.5^^1.351^^^0
;;^UTILITY(U,$J,112,9060,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9061,0)
;;=MEAT SUBS,TASTEE CUTS,CND,LOMA LINDA^BC-02334^2-cuts^71
;;^UTILITY(U,$J,112,9061,1)
;;=16.901^1.408^2.817^98.592^76.056^^^18.31^1.549^^^56.338^323.944^1.972^^^^^^.521
;;^UTILITY(U,$J,112,9061,2)
;;=.254^1.831^.225^.056^^.282^^^0
FHINI0EJ ; ; 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,9048,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9049,0)
+4 ;;=MEAT SUBS,SALAMI,FROZEN,LOMA LINDA^BC-02322^2-slices^57
+5 ;;^UTILITY(U,$J,112,9049,1)
+6 ;;=22.807^12.281^3.509^228.07^57.895^^^22.807^1.93^^^122.807^1122.807^1.596^^^^^^.667
+7 ;;^UTILITY(U,$J,112,9049,2)
+8 ;;=.596^5.263^3.684^1.105^^3.509^^^0
+9 ;;^UTILITY(U,$J,112,9049,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9050,0)
+12 ;;=MEAT SUBS,SANDWICH SPREAD,CND,LOMA LINDA^BC-02323^3-tbsp.^48
+13 ;;^UTILITY(U,$J,112,9050,1)
+14 ;;=8.333^8.333^8.333^145.833^70.833^^^43.75^1.5^^^333.333^625^1.292^^^^^^.604
+15 ;;^UTILITY(U,$J,112,9050,2)
+16 ;;=.708^12.917^2.5^1.104^^4.167^^^0
+17 ;;^UTILITY(U,$J,112,9050,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9051,0)
+20 ;;=MEAT SUBS,SAUSAGE,SIMULATED MEAT PRODUCT^BC-02324^link^25
+21 ;;^UTILITY(U,$J,112,9051,1)
+22 ;;=18.4^18^10^256^50.4^^^64^3.72^36^224^232^888^1.48^.252^.724^^640^0^2.36
+23 ;;^UTILITY(U,$J,112,9051,2)
+24 ;;=.4^11.2^.32^.84^28^0^^^0^2.8^4.4^9.2^64^^^^.4
+25 ;;^UTILITY(U,$J,112,9051,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9052,0)
+28 ;;=MEAT SUBS,PATTY,SIMULATED MEAT PRODUCT^BC-02325^patty^38
+29 ;;^UTILITY(U,$J,112,9052,1)
+30 ;;=18.421^18.158^9.737^255.263^50.526^^^63.158^3.711^36.842^223.684^231.579^886.842^1.447^.25^.726^^639.474^0^2.342
+31 ;;^UTILITY(U,$J,112,9052,2)
+32 ;;=.395^11.316^.316^.842^26.316^0^^^0^2.895^^9.211^63.158
+33 ;;^UTILITY(U,$J,112,9052,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9053,0)
+36 ;;=MEAT SUBS,SIZZLE BURGER,FROZEN,LOMA LINDA^BC-02326^burger^71
+37 ;;^UTILITY(U,$J,112,9053,1)
+38 ;;=21.127^15.493^18.31^295.775^39.437^^^69.014^2.254^^^253.521^450.704^1.099^^^^^^.901
+39 ;;^UTILITY(U,$J,112,9053,2)
+40 ;;=.718^11.972^2.113^1.099^^2.817^^^0
+41 ;;^UTILITY(U,$J,112,9053,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9054,0)
+44 ;;=MEAT SUBS,SIZZLE FRANKS,CND,LOMA LINDA^BC-02327^2-franks^70
+45 ;;^UTILITY(U,$J,112,9054,1)
+46 ;;=14.286^18.571^4.286^242.857^61.429^^^28.571^2^^^142.857^485.714^.9^^^^^^.5
+47 ;;^UTILITY(U,$J,112,9054,2)
+48 ;;=.5^5.857^3.286^.5^^2.857^^^0
+49 ;;^UTILITY(U,$J,112,9054,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9055,0)
+52 ;;=MEAT SUBS,STAKELETS,WORTHINGTON^BC-02328^piece^71
+53 ;;^UTILITY(U,$J,112,9055,1)
+54 ;;=20.282^9.155^9.155^201.408^58.31^^^88.732^4.62^^^201.408^607.042
+55 ;;^UTILITY(U,$J,112,9055,2)
+56 ;;=.408^8.169^^.451^^7.268^^^^1.69^^4.789
+57 ;;^UTILITY(U,$J,112,9055,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9056,0)
+60 ;;=MEAT SUBS,STEW PAC,CND,LOMA LINDA^BC-02329^2-oz.^57
+61 ;;^UTILITY(U,$J,112,9056,1)
+62 ;;=17.544^3.509^7.018^122.807^68.421^^^29.825^1.281^^^105.263^385.965^1.088^^^^^^.684
+63 ;;^UTILITY(U,$J,112,9056,2)
+64 ;;=.596^11.754^2.807^1.088^^1.754^^^0
+65 ;;^UTILITY(U,$J,112,9056,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9057,0)
+68 ;;=MEAT SUBS,STRIPLES,WORTHINGTON^BC-02330^4-strips^33
+69 ;;^UTILITY(U,$J,112,9057,1)
+70 ;;=12.727^26.061^11.818^333.333^43.939^^^51.515^2.879^^^106.061^1096.97
+71 ;;^UTILITY(U,$J,112,9057,2)
+72 ;;=.455^8.182^^.485^^5.394^^^^3.333^^17.576
+73 ;;^UTILITY(U,$J,112,9057,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9058,0)
+76 ;;=MEAT SUBS,STRIPS,MORNINGSTAR FARMS^BC-02331^3-strips^25
+77 ;;^UTILITY(U,$J,112,9058,1)
+78 ;;=12.8^26^11.6^332^44^^^52^2.88^^^104^1096
+79 ;;^UTILITY(U,$J,112,9058,2)
+80 ;;=.44^8^^.48^^5.4^^^0^3.2^^16.4
+81 ;;^UTILITY(U,$J,112,9058,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9059,0)
+84 ;;=MEAT SUBS,SWEDISH MEATBALLS,FROZEN,LOMA LINDA^BC-02332^8-meatball^70
+85 ;;^UTILITY(U,$J,112,9059,1)
+86 ;;=31.429^11.429^10^271.429^42.857^^^45.714^2.571^^^242.857^600^.929^^^^^^.7
+87 ;;^UTILITY(U,$J,112,9059,2)
+88 ;;=.6^7^2.143^1^^2.857^^^0
+89 ;;^UTILITY(U,$J,112,9059,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9060,0)
+92 ;;=MEAT SUBS,SWISS STEAK W/GRAVY,CND,LOMA LINDA^BC-02333^steak^74
+93 ;;^UTILITY(U,$J,112,9060,1)
+94 ;;=12.162^10.811^10.811^189.189^60.811^^^45.946^2.027^^^243.243^472.973^.797^^^^^^.703
+95 ;;^UTILITY(U,$J,112,9060,2)
+96 ;;=.595^5.405^2.027^.5^^1.351^^^0
+97 ;;^UTILITY(U,$J,112,9060,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9061,0)
+100 ;;=MEAT SUBS,TASTEE CUTS,CND,LOMA LINDA^BC-02334^2-cuts^71
+101 ;;^UTILITY(U,$J,112,9061,1)
+102 ;;=16.901^1.408^2.817^98.592^76.056^^^18.31^1.549^^^56.338^323.944^1.972^^^^^^.521
+103 ;;^UTILITY(U,$J,112,9061,2)
+104 ;;=.254^1.831^.225^.056^^.282^^^0
