FHINI0B9 ; ; 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,7424,2)
;;=.085^.775
;;^UTILITY(U,$J,112,7424,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7425,0)
;;=ENTREES,BEEF PATTIES,CHARBOILED W/ONION,BANQUET^BC-00698^8-oz.^227
;;^UTILITY(U,$J,112,7425,1)
;;=5.286^9.251^6.167^132.159
;;^UTILITY(U,$J,112,7425,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7426,0)
;;=ENTREES,BEEF PEPPER ORIENTAL,CHUN KING^BC-00699^13-oz.^369
;;^UTILITY(U,$J,112,7426,1)
;;=4.607^.813^14.363^84.011^^^^9.485^.813^^46.07^100.271^352.304^^^^^443.36^5.962^.051
;;^UTILITY(U,$J,112,7426,2)
;;=.07^.596
;;^UTILITY(U,$J,112,7426,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7427,0)
;;=ENTREES,BEEF PEPPER STEAK,HEALTHY CHOICE^BC-00700^9.5-oz.^269
;;^UTILITY(U,$J,112,7427,1)
;;=6.691^1.487^13.383^92.937^^^^8.55^.372^^49.071^92.937^126.394^^^^^105.576^10.409^.071
;;^UTILITY(U,$J,112,7427,2)
;;=.078^.595^^^^^^^14.87
;;^UTILITY(U,$J,112,7427,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7428,0)
;;=ENTREES,BEEF,SLICED W/BBQ SCE,BANQUET (BAG)^BC-00701^4-oz.^113
;;^UTILITY(U,$J,112,7428,1)
;;=7.965^1.77^9.735^88.496^^^^14.159^1.327^^^121.239^698.23^^^^^300^0^.044
;;^UTILITY(U,$J,112,7428,2)
;;=.08^.973^^^^^^^35.398
;;^UTILITY(U,$J,112,7428,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7429,0)
;;=ENTREES,BEEF,SLICED W/GRAVY,BANQUET (BAG)^BC-00702^4-oz.^113
;;^UTILITY(U,$J,112,7429,1)
;;=7.08^4.425^4.425^88.496^^^^8.85^1.77^^^71.681^376.991^^^^^25.664^0^.027
;;^UTILITY(U,$J,112,7429,2)
;;=.088^1.062^^^^^^^35.398
;;^UTILITY(U,$J,112,7429,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7430,0)
;;=ENTREES,BEEF STEAK RANCHERO,LEAN CUISINE^BC-00703^9.2-oz.^262
;;^UTILITY(U,$J,112,7430,1)
;;=6.107^3.435^11.45^103.053^^^^15.267^.55^^^171.756^362.595^^^^^114.504^3.435^.034
;;^UTILITY(U,$J,112,7430,2)
;;=.099^1.145^^^^^^^17.176^1.145^^.382
;;^UTILITY(U,$J,112,7430,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7431,0)
;;=ENTREES,BEEF STEW,BANQUET FAMILY^BC-00704^7-oz.^198
;;^UTILITY(U,$J,112,7431,1)
;;=3.03^2.525^9.091^70.707
;;^UTILITY(U,$J,112,7431,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7432,0)
;;=ENTREES,BEEF STEW,STOUFFERS^BC-00705^5-oz.^142
;;^UTILITY(U,$J,112,7432,1)
;;=6.831^4.789^5.07^90.845^81.972^^^9.859^.901^^^150^380.282^^^^^750^2.113^.042
;;^UTILITY(U,$J,112,7432,2)
;;=.092^.986^^^^^^^19.718
;;^UTILITY(U,$J,112,7432,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7433,0)
;;=ENTREES,BEEF STROGANOFF,STOUFFERS^BC-00706^4-oz.^113
;;^UTILITY(U,$J,112,7433,1)
;;=10.973^9.027^4.071^140.708^73.982^^^23.894^1^^^190.265^560.177^^^^^30.088^0^.044
;;^UTILITY(U,$J,112,7433,2)
;;=.177^1.858^^^^^^^39.823
;;^UTILITY(U,$J,112,7433,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7434,0)
;;=ENTREES,BEEF,SZECHUAN,CHUN KING^BC-00707^13-oz.^369
;;^UTILITY(U,$J,112,7434,1)
;;=5.42^.813^15.447^92.141^^^^8.13^1.084^^47.696^75.881^490.515^^^^^170.732^1.355^.043
;;^UTILITY(U,$J,112,7434,2)
;;=.084^.678
;;^UTILITY(U,$J,112,7434,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7435,0)
;;=ENTREES,BEEF SZECHUAN,GREEN GIANT^BC-00708^5-oz.^142
;;^UTILITY(U,$J,112,7435,1)
;;=7.746^2.817^8.451^85.211^^^^20.423^1.056^^110.563^215.493^321.831^8.451^^^^785.211^16.197^.028
;;^UTILITY(U,$J,112,7435,2)
;;=.077^1.197^^^^^^^17.606^.563^^.704
;;^UTILITY(U,$J,112,7435,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7436,0)
;;=ENTREES,BEEF SZECHUAN,LEAN CUISINE^BC-00709^9.2-oz.^262
;;^UTILITY(U,$J,112,7436,1)
;;=7.634^4.198^9.542^106.87^^^^15.267^.687^^^122.137^274.809^^^^^477.099^4.58^.057
;;^UTILITY(U,$J,112,7436,2)
;;=.13^1.527^^^^^^^36.26^1.145^^.763
;;^UTILITY(U,$J,112,7436,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7437,0)
;;=ENTREES,BEEF TERIYAKI,CHUN KING^BC-00710^13-oz.^369
;;^UTILITY(U,$J,112,7437,1)
;;=5.962^.542^18.428^102.981^^^^10.569^.813^^58.808^111.111^596.206^^^^^152.575^6.775^.049
;;^UTILITY(U,$J,112,7437,2)
;;=.127^.786
;;^UTILITY(U,$J,112,7437,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7438,0)
;;=ENTREES,BEEF TERIYAKI,DINING LITE^BC-00711^9-oz.^255
;;^UTILITY(U,$J,112,7438,1)
;;=7.843^1.961^14.118^105.882^^^^11.373^.784^^^145.098^333.333^^^^^287.059^.784^.086
FHINI0B9 ; ; 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,7424,2)
+2 ;;=.085^.775
+3 ;;^UTILITY(U,$J,112,7424,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7425,0)
+6 ;;=ENTREES,BEEF PATTIES,CHARBOILED W/ONION,BANQUET^BC-00698^8-oz.^227
+7 ;;^UTILITY(U,$J,112,7425,1)
+8 ;;=5.286^9.251^6.167^132.159
+9 ;;^UTILITY(U,$J,112,7425,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7426,0)
+12 ;;=ENTREES,BEEF PEPPER ORIENTAL,CHUN KING^BC-00699^13-oz.^369
+13 ;;^UTILITY(U,$J,112,7426,1)
+14 ;;=4.607^.813^14.363^84.011^^^^9.485^.813^^46.07^100.271^352.304^^^^^443.36^5.962^.051
+15 ;;^UTILITY(U,$J,112,7426,2)
+16 ;;=.07^.596
+17 ;;^UTILITY(U,$J,112,7426,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7427,0)
+20 ;;=ENTREES,BEEF PEPPER STEAK,HEALTHY CHOICE^BC-00700^9.5-oz.^269
+21 ;;^UTILITY(U,$J,112,7427,1)
+22 ;;=6.691^1.487^13.383^92.937^^^^8.55^.372^^49.071^92.937^126.394^^^^^105.576^10.409^.071
+23 ;;^UTILITY(U,$J,112,7427,2)
+24 ;;=.078^.595^^^^^^^14.87
+25 ;;^UTILITY(U,$J,112,7427,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7428,0)
+28 ;;=ENTREES,BEEF,SLICED W/BBQ SCE,BANQUET (BAG)^BC-00701^4-oz.^113
+29 ;;^UTILITY(U,$J,112,7428,1)
+30 ;;=7.965^1.77^9.735^88.496^^^^14.159^1.327^^^121.239^698.23^^^^^300^0^.044
+31 ;;^UTILITY(U,$J,112,7428,2)
+32 ;;=.08^.973^^^^^^^35.398
+33 ;;^UTILITY(U,$J,112,7428,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7429,0)
+36 ;;=ENTREES,BEEF,SLICED W/GRAVY,BANQUET (BAG)^BC-00702^4-oz.^113
+37 ;;^UTILITY(U,$J,112,7429,1)
+38 ;;=7.08^4.425^4.425^88.496^^^^8.85^1.77^^^71.681^376.991^^^^^25.664^0^.027
+39 ;;^UTILITY(U,$J,112,7429,2)
+40 ;;=.088^1.062^^^^^^^35.398
+41 ;;^UTILITY(U,$J,112,7429,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7430,0)
+44 ;;=ENTREES,BEEF STEAK RANCHERO,LEAN CUISINE^BC-00703^9.2-oz.^262
+45 ;;^UTILITY(U,$J,112,7430,1)
+46 ;;=6.107^3.435^11.45^103.053^^^^15.267^.55^^^171.756^362.595^^^^^114.504^3.435^.034
+47 ;;^UTILITY(U,$J,112,7430,2)
+48 ;;=.099^1.145^^^^^^^17.176^1.145^^.382
+49 ;;^UTILITY(U,$J,112,7430,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7431,0)
+52 ;;=ENTREES,BEEF STEW,BANQUET FAMILY^BC-00704^7-oz.^198
+53 ;;^UTILITY(U,$J,112,7431,1)
+54 ;;=3.03^2.525^9.091^70.707
+55 ;;^UTILITY(U,$J,112,7431,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7432,0)
+58 ;;=ENTREES,BEEF STEW,STOUFFERS^BC-00705^5-oz.^142
+59 ;;^UTILITY(U,$J,112,7432,1)
+60 ;;=6.831^4.789^5.07^90.845^81.972^^^9.859^.901^^^150^380.282^^^^^750^2.113^.042
+61 ;;^UTILITY(U,$J,112,7432,2)
+62 ;;=.092^.986^^^^^^^19.718
+63 ;;^UTILITY(U,$J,112,7432,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7433,0)
+66 ;;=ENTREES,BEEF STROGANOFF,STOUFFERS^BC-00706^4-oz.^113
+67 ;;^UTILITY(U,$J,112,7433,1)
+68 ;;=10.973^9.027^4.071^140.708^73.982^^^23.894^1^^^190.265^560.177^^^^^30.088^0^.044
+69 ;;^UTILITY(U,$J,112,7433,2)
+70 ;;=.177^1.858^^^^^^^39.823
+71 ;;^UTILITY(U,$J,112,7433,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7434,0)
+74 ;;=ENTREES,BEEF,SZECHUAN,CHUN KING^BC-00707^13-oz.^369
+75 ;;^UTILITY(U,$J,112,7434,1)
+76 ;;=5.42^.813^15.447^92.141^^^^8.13^1.084^^47.696^75.881^490.515^^^^^170.732^1.355^.043
+77 ;;^UTILITY(U,$J,112,7434,2)
+78 ;;=.084^.678
+79 ;;^UTILITY(U,$J,112,7434,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7435,0)
+82 ;;=ENTREES,BEEF SZECHUAN,GREEN GIANT^BC-00708^5-oz.^142
+83 ;;^UTILITY(U,$J,112,7435,1)
+84 ;;=7.746^2.817^8.451^85.211^^^^20.423^1.056^^110.563^215.493^321.831^8.451^^^^785.211^16.197^.028
+85 ;;^UTILITY(U,$J,112,7435,2)
+86 ;;=.077^1.197^^^^^^^17.606^.563^^.704
+87 ;;^UTILITY(U,$J,112,7435,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7436,0)
+90 ;;=ENTREES,BEEF SZECHUAN,LEAN CUISINE^BC-00709^9.2-oz.^262
+91 ;;^UTILITY(U,$J,112,7436,1)
+92 ;;=7.634^4.198^9.542^106.87^^^^15.267^.687^^^122.137^274.809^^^^^477.099^4.58^.057
+93 ;;^UTILITY(U,$J,112,7436,2)
+94 ;;=.13^1.527^^^^^^^36.26^1.145^^.763
+95 ;;^UTILITY(U,$J,112,7436,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7437,0)
+98 ;;=ENTREES,BEEF TERIYAKI,CHUN KING^BC-00710^13-oz.^369
+99 ;;^UTILITY(U,$J,112,7437,1)
+100 ;;=5.962^.542^18.428^102.981^^^^10.569^.813^^58.808^111.111^596.206^^^^^152.575^6.775^.049
+101 ;;^UTILITY(U,$J,112,7437,2)
+102 ;;=.127^.786
+103 ;;^UTILITY(U,$J,112,7437,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7438,0)
+106 ;;=ENTREES,BEEF TERIYAKI,DINING LITE^BC-00711^9-oz.^255
+107 ;;^UTILITY(U,$J,112,7438,1)
+108 ;;=7.843^1.961^14.118^105.882^^^^11.373^.784^^^145.098^333.333^^^^^287.059^.784^.086
