FHINI0BQ ; ; 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,7653,0)
;;=ENTREES,SALISBURY STEAK W/SCALLOPED POTATOES,LEAN CUISINE^BC-00926^9.5-oz.^269
;;^UTILITY(U,$J,112,7653,1)
;;=8.178^3.346^8.178^96.654^^^^37.175^1.004^^^^297.398^^^^^185.874^.743^.056
;;^UTILITY(U,$J,112,7653,2)
;;=.126^1.859^^^^^^^31.599^.743^^0
;;^UTILITY(U,$J,112,7653,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7654,0)
;;=ENTREES,SALISBURY STEAK W/SCE & VEGETABLES,LEAN CUISINE^BC-00927^9.5-oz.^269
;;^UTILITY(U,$J,112,7654,1)
;;=9.294^4.833^5.204^100.372^^^^55.762^1.004^^^252.788^260.223^^^^^185.874^2.23^.056
;;^UTILITY(U,$J,112,7654,2)
;;=.097^1.859^^^^^^^35.316^1.859^^.372
;;^UTILITY(U,$J,112,7654,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7655,0)
;;=ENTREES,TURKEY W/GRAVY,DRESSING & POTATOES,SWANSON^BC-00928^9-oz.^255
;;^UTILITY(U,$J,112,7655,1)
;;=6.98^4^11.373^109.412^^^^18.039^.863^^^174.118^390.196^^^^^7.451^1.569^.059
;;^UTILITY(U,$J,112,7655,2)
;;=.078^2.706
;;^UTILITY(U,$J,112,7655,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7656,0)
;;=ENTREES,TURKEY,WHITE MEAT W/GRAVY & VEG,LE MENU^BC-00929^10-oz.^284
;;^UTILITY(U,$J,112,7656,1)
;;=7.57^1.514^6.901^71.479^^^^22.535^.458^^^201.761^189.437^^^^^1303.873^14.085^.049
;;^UTILITY(U,$J,112,7656,2)
;;=.049^2.183^^^^^^^10.211^.352^^.352
;;^UTILITY(U,$J,112,7656,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7657,0)
;;=ENTREES,VEAL PARMIGIANA & PASTA ALFREDO,STOUFFERS^BC-00930^9.2-oz.^262
;;^UTILITY(U,$J,112,7657,1)
;;=10.687^5.725^9.924^133.588^^^^^^^^^404.58
;;^UTILITY(U,$J,112,7657,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7658,0)
;;=ENTREES,VEAL PARMIGIANA & SPAGHETTI IN TOMATO SCE,STOUFFERS^BC-00931^10-oz.^284
;;^UTILITY(U,$J,112,7658,1)
;;=6.69^4.366^11.796^113.38^^^^36.62^1.127^^^135.915^339.085^^^^^200^3.169^.077
;;^UTILITY(U,$J,112,7658,2)
;;=.095^1.866
;;^UTILITY(U,$J,112,7658,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7659,0)
;;=PIZZA,BACON,TOTINO'S PARTY^BC-00932^5-oz.^142
;;^UTILITY(U,$J,112,7659,1)
;;=7.394^14.014^24.366^261.268^49.507^^^152.817^1.803^^223.239^157.042^728.873^^^^^283.803^2.817^.261
;;^UTILITY(U,$J,112,7659,2)
;;=.19^2.535
;;^UTILITY(U,$J,112,7659,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7660,0)
;;=PIZZA,CANADIAN BACON,JENO'S CRISP 'N TASTY^BC-00933^3.85-oz.^109
;;^UTILITY(U,$J,112,7660,1)
;;=10^10.367^25.046^232.11^52.294^^^154.128^1.798^^234.862^136.697^803.67^^^^^219.266^4.587^.303
;;^UTILITY(U,$J,112,7660,2)
;;=.174^1.284
;;^UTILITY(U,$J,112,7660,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7661,0)
;;=PIZZA,CHEESE,CELESTE^BC-00934^4.5-oz.^126
;;^UTILITY(U,$J,112,7661,1)
;;=11.27^13.175^22.063^251.587^49.286^^^161.905^.794^23.81^211.111^212.698^611.111^2.381^.111^0^^618.254^0^.063
;;^UTILITY(U,$J,112,7661,2)
;;=.31^.873^0^.079^11.111^.794^^^15.873^5.556^2.381^.794^^^^^1.746
;;^UTILITY(U,$J,112,7661,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7662,0)
;;=PIZZA,CHEESE,CELESTE PIZZA-FOR-ONE^BC-00935^6.49-oz.^184
;;^UTILITY(U,$J,112,7662,1)
;;=11.522^13.315^26.087^270.109^45.87^^^203.804^.739^26.087^209.783^185.87^581.522^2.174^.13^0^^503.804^0^.082
;;^UTILITY(U,$J,112,7662,2)
;;=.239^.652^0^.082^19.022^1.087^^^21.739^5.978^2.717^1.087^^^^^1.957
;;^UTILITY(U,$J,112,7662,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7663,0)
;;=PIZZA,CHEESE,JENO'S CRISP 'N TASTY^BC-00936^3.7-oz.^105
;;^UTILITY(U,$J,112,7663,1)
;;=9.429^13.048^26.286^259.048^49.048^^^186.667^1.505^^263.81^134.286^733.333^^^^^420.952^2.857^.2
;;^UTILITY(U,$J,112,7663,2)
;;=.2^2
;;^UTILITY(U,$J,112,7663,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7664,0)
;;=PIZZA,CHEESE,JOHN'S^BC-00937^3.5-oz.^100
;;^UTILITY(U,$J,112,7664,1)
;;=9.7^12^26.2^249^50^^^212^1.8^^266^94^630^^^^^222^2^.2
;;^UTILITY(U,$J,112,7664,2)
;;=.17^1.9
;;^UTILITY(U,$J,112,7664,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7665,0)
;;=PIZZA,CHEESE,LEAN CUISINE^BC-00938^5.1-oz.^145
;;^UTILITY(U,$J,112,7665,1)
;;=11.724^6.207^26.897^213.793^^^^241.379^2.483^^^206.897^572.414^^^^^206.897^4.138^.31
;;^UTILITY(U,$J,112,7665,2)
;;=.297^2.069^^^^^^^6.897^2.069^^1.379
;;^UTILITY(U,$J,112,7665,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7666,0)
;;=PIZZA,CHEESE,LEAN CUISINE EXTRA CHEESE^BC-00939^5.5-oz.^155
FHINI0BQ ; ; 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,7653,0)
+2 ;;=ENTREES,SALISBURY STEAK W/SCALLOPED POTATOES,LEAN CUISINE^BC-00926^9.5-oz.^269
+3 ;;^UTILITY(U,$J,112,7653,1)
+4 ;;=8.178^3.346^8.178^96.654^^^^37.175^1.004^^^^297.398^^^^^185.874^.743^.056
+5 ;;^UTILITY(U,$J,112,7653,2)
+6 ;;=.126^1.859^^^^^^^31.599^.743^^0
+7 ;;^UTILITY(U,$J,112,7653,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7654,0)
+10 ;;=ENTREES,SALISBURY STEAK W/SCE & VEGETABLES,LEAN CUISINE^BC-00927^9.5-oz.^269
+11 ;;^UTILITY(U,$J,112,7654,1)
+12 ;;=9.294^4.833^5.204^100.372^^^^55.762^1.004^^^252.788^260.223^^^^^185.874^2.23^.056
+13 ;;^UTILITY(U,$J,112,7654,2)
+14 ;;=.097^1.859^^^^^^^35.316^1.859^^.372
+15 ;;^UTILITY(U,$J,112,7654,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7655,0)
+18 ;;=ENTREES,TURKEY W/GRAVY,DRESSING & POTATOES,SWANSON^BC-00928^9-oz.^255
+19 ;;^UTILITY(U,$J,112,7655,1)
+20 ;;=6.98^4^11.373^109.412^^^^18.039^.863^^^174.118^390.196^^^^^7.451^1.569^.059
+21 ;;^UTILITY(U,$J,112,7655,2)
+22 ;;=.078^2.706
+23 ;;^UTILITY(U,$J,112,7655,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7656,0)
+26 ;;=ENTREES,TURKEY,WHITE MEAT W/GRAVY & VEG,LE MENU^BC-00929^10-oz.^284
+27 ;;^UTILITY(U,$J,112,7656,1)
+28 ;;=7.57^1.514^6.901^71.479^^^^22.535^.458^^^201.761^189.437^^^^^1303.873^14.085^.049
+29 ;;^UTILITY(U,$J,112,7656,2)
+30 ;;=.049^2.183^^^^^^^10.211^.352^^.352
+31 ;;^UTILITY(U,$J,112,7656,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7657,0)
+34 ;;=ENTREES,VEAL PARMIGIANA & PASTA ALFREDO,STOUFFERS^BC-00930^9.2-oz.^262
+35 ;;^UTILITY(U,$J,112,7657,1)
+36 ;;=10.687^5.725^9.924^133.588^^^^^^^^^404.58
+37 ;;^UTILITY(U,$J,112,7657,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7658,0)
+40 ;;=ENTREES,VEAL PARMIGIANA & SPAGHETTI IN TOMATO SCE,STOUFFERS^BC-00931^10-oz.^284
+41 ;;^UTILITY(U,$J,112,7658,1)
+42 ;;=6.69^4.366^11.796^113.38^^^^36.62^1.127^^^135.915^339.085^^^^^200^3.169^.077
+43 ;;^UTILITY(U,$J,112,7658,2)
+44 ;;=.095^1.866
+45 ;;^UTILITY(U,$J,112,7658,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7659,0)
+48 ;;=PIZZA,BACON,TOTINO'S PARTY^BC-00932^5-oz.^142
+49 ;;^UTILITY(U,$J,112,7659,1)
+50 ;;=7.394^14.014^24.366^261.268^49.507^^^152.817^1.803^^223.239^157.042^728.873^^^^^283.803^2.817^.261
+51 ;;^UTILITY(U,$J,112,7659,2)
+52 ;;=.19^2.535
+53 ;;^UTILITY(U,$J,112,7659,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7660,0)
+56 ;;=PIZZA,CANADIAN BACON,JENO'S CRISP 'N TASTY^BC-00933^3.85-oz.^109
+57 ;;^UTILITY(U,$J,112,7660,1)
+58 ;;=10^10.367^25.046^232.11^52.294^^^154.128^1.798^^234.862^136.697^803.67^^^^^219.266^4.587^.303
+59 ;;^UTILITY(U,$J,112,7660,2)
+60 ;;=.174^1.284
+61 ;;^UTILITY(U,$J,112,7660,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7661,0)
+64 ;;=PIZZA,CHEESE,CELESTE^BC-00934^4.5-oz.^126
+65 ;;^UTILITY(U,$J,112,7661,1)
+66 ;;=11.27^13.175^22.063^251.587^49.286^^^161.905^.794^23.81^211.111^212.698^611.111^2.381^.111^0^^618.254^0^.063
+67 ;;^UTILITY(U,$J,112,7661,2)
+68 ;;=.31^.873^0^.079^11.111^.794^^^15.873^5.556^2.381^.794^^^^^1.746
+69 ;;^UTILITY(U,$J,112,7661,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7662,0)
+72 ;;=PIZZA,CHEESE,CELESTE PIZZA-FOR-ONE^BC-00935^6.49-oz.^184
+73 ;;^UTILITY(U,$J,112,7662,1)
+74 ;;=11.522^13.315^26.087^270.109^45.87^^^203.804^.739^26.087^209.783^185.87^581.522^2.174^.13^0^^503.804^0^.082
+75 ;;^UTILITY(U,$J,112,7662,2)
+76 ;;=.239^.652^0^.082^19.022^1.087^^^21.739^5.978^2.717^1.087^^^^^1.957
+77 ;;^UTILITY(U,$J,112,7662,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7663,0)
+80 ;;=PIZZA,CHEESE,JENO'S CRISP 'N TASTY^BC-00936^3.7-oz.^105
+81 ;;^UTILITY(U,$J,112,7663,1)
+82 ;;=9.429^13.048^26.286^259.048^49.048^^^186.667^1.505^^263.81^134.286^733.333^^^^^420.952^2.857^.2
+83 ;;^UTILITY(U,$J,112,7663,2)
+84 ;;=.2^2
+85 ;;^UTILITY(U,$J,112,7663,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7664,0)
+88 ;;=PIZZA,CHEESE,JOHN'S^BC-00937^3.5-oz.^100
+89 ;;^UTILITY(U,$J,112,7664,1)
+90 ;;=9.7^12^26.2^249^50^^^212^1.8^^266^94^630^^^^^222^2^.2
+91 ;;^UTILITY(U,$J,112,7664,2)
+92 ;;=.17^1.9
+93 ;;^UTILITY(U,$J,112,7664,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7665,0)
+96 ;;=PIZZA,CHEESE,LEAN CUISINE^BC-00938^5.1-oz.^145
+97 ;;^UTILITY(U,$J,112,7665,1)
+98 ;;=11.724^6.207^26.897^213.793^^^^241.379^2.483^^^206.897^572.414^^^^^206.897^4.138^.31
+99 ;;^UTILITY(U,$J,112,7665,2)
+100 ;;=.297^2.069^^^^^^^6.897^2.069^^1.379
+101 ;;^UTILITY(U,$J,112,7665,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7666,0)
+104 ;;=PIZZA,CHEESE,LEAN CUISINE EXTRA CHEESE^BC-00939^5.5-oz.^155
