FHINI0BG ; ; 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,7518,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7519,0)
;;=ENTREES,FETTUCINI,PRIMAVERA,GARDEN GOURMET^BC-00792^9.5-oz.^269
;;^UTILITY(U,$J,112,7519,1)
;;=6.208^4.796^9.294^95.911^77.993^^^100^1.071^^153.16^104.089^236.059^^^^^428.996^15.242^.045
;;^UTILITY(U,$J,112,7519,2)
;;=.112^.595^^^^^^^^^^^^^^^2.119
;;^UTILITY(U,$J,112,7519,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7520,0)
;;=ENTREES,FETTUCINI W/BROCCOLI,DINING LITE^BC-00793^9-oz.^255
;;^UTILITY(U,$J,112,7520,1)
;;=4.706^4.706^12.941^113.725^^^^83.137^.784^^^98.039^400^^^^^119.216^8.627^.102
;;^UTILITY(U,$J,112,7520,2)
;;=.137^.627^^^^^^^13.725
;;^UTILITY(U,$J,112,7520,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7521,0)
;;=ENTREES,FILLET OF FISH,DIVAN,LEAN CUISINE^BC-00794^12.3-oz.^350
;;^UTILITY(U,$J,112,7521,1)
;;=8.857^2.571^4.857^77.143^^^^57.143^.309^^^242.857^200^^^^^214.286^8.571^.066
;;^UTILITY(U,$J,112,7521,2)
;;=.097^.571^^^^^^^25.714^.571^^.286
;;^UTILITY(U,$J,112,7521,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7522,0)
;;=ENTREES,FILLET OF FISH FLORENTINE,LEAN CUISINE^BC-00795^9-oz.^255
;;^UTILITY(U,$J,112,7522,1)
;;=10.588^3.529^5.098^94.118^^^^58.824^.424^^^235.294^274.51^^^^^294.118^0^.059
;;^UTILITY(U,$J,112,7522,2)
;;=.102^.784^^^^^^^39.216^.784^^.784
;;^UTILITY(U,$J,112,7522,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7523,0)
;;=ENTREES,FILLET OF FISH,JARDINIERE,LEAN CUISINE^BC-00796^11.2-oz.^318
;;^UTILITY(U,$J,112,7523,1)
;;=9.434^3.145^5.66^88.05^^^^62.893^.113^^^267.296^264.151^^^^^314.465^0^.028
;;^UTILITY(U,$J,112,7523,2)
;;=.082^.629^^^^^^^31.447^1.258^^0
;;^UTILITY(U,$J,112,7523,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7524,0)
;;=ENTREES,GREEN PEPPER STEAK,BEEF,STOUFFERS^BC-00797^3-oz.^85
;;^UTILITY(U,$J,112,7524,1)
;;=9.059^5.176^4.471^101.176^79.059^^^16.471^1^^^200^620^^^^^160^8.235^.047
;;^UTILITY(U,$J,112,7524,2)
;;=.106^1.765^^^^^^^22.353
;;^UTILITY(U,$J,112,7524,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7525,0)
;;=ENTREES,GREEN PEPPER,STUFFED W/BEEF,STOUFFERS^BC-00798^3.8-oz.^108
;;^UTILITY(U,$J,112,7525,1)
;;=6.944^4.537^9.444^105.556^77.963^^^14.815^1.296^^^170.37^460.185^^^^^89.815^39.815^.102
;;^UTILITY(U,$J,112,7525,2)
;;=.102^1.667^^^^^^^22.222
;;^UTILITY(U,$J,112,7525,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7526,0)
;;=ENTREES,GREEN PEPPER,STUFFED W/BEEF,RICE & SCE,STOUFFERS^BC-00799^7.8-oz.^221
;;^UTILITY(U,$J,112,7526,1)
;;=4.615^3.891^8.416^86.878^81.991^^^14.932^.701^^^180.09^485.068^^^^^180.09^5.882^.059
;;^UTILITY(U,$J,112,7526,2)
;;=.068^1.222^^^^^^^9.955
;;^UTILITY(U,$J,112,7526,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7527,0)
;;=ENTREES,HAM & CHEESE CASSEROLE,PILSBURY^BC-00800^3.5-oz.^100
;;^UTILITY(U,$J,112,7527,1)
;;=6.8^11^12.9^179^66.3^^^75^1.1^^103^156^494^^^^^710^7^.19
;;^UTILITY(U,$J,112,7527,2)
;;=.17^1.6^^^^^^^^^^^^^^^1
;;^UTILITY(U,$J,112,7527,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7528,0)
;;=ENTREES,HEARTLAND MEDLEY,STOUFFERS^BC-00801^8-oz.^227
;;^UTILITY(U,$J,112,7528,1)
;;=5.022^1.498^6.3^58.15^85.991^^^18.062^.63^^^211.013^85.463^^^^^985.903^1.762^.048
;;^UTILITY(U,$J,112,7528,2)
;;=.07^1.013^^^^^^^11.454^.264^.352^.308^^^^^1.013
;;^UTILITY(U,$J,112,7528,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7529,0)
;;=ENTREES,LASAGNA,CHEESE,DINING LITE^BC-00802^9-oz.^225
;;^UTILITY(U,$J,112,7529,1)
;;=6.222^2.667^16^115.556^^^^136.444^.889^^^342.222^355.556^^^^^883.556^3.111^.111
;;^UTILITY(U,$J,112,7529,2)
;;=.116^.844
;;^UTILITY(U,$J,112,7529,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7530,0)
;;=ENTREES,LASAGNA,GARDEN VEG,LE MENU LIGHTSTYLE^BC-00803^10.5-oz.^298
;;^UTILITY(U,$J,112,7530,1)
;;=4.161^2.483^11.409^84.564^^^^58.389^.94^^^178.188^155.034^^^^^616.779^14.765^.077
;;^UTILITY(U,$J,112,7530,2)
;;=.131^.94^^^^^^^8.054^.906^^.503
;;^UTILITY(U,$J,112,7530,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7531,0)
;;=ENTREES,LASAGNA,TUNA,LEAN CUISINE^BC-00804^9.7-oz.^276
;;^UTILITY(U,$J,112,7531,1)
;;=6.884^3.623^10.145^101.449^^^^90.58^.522^^^159.42^358.696^^^^^1086.957^1.449^.054
;;^UTILITY(U,$J,112,7531,2)
;;=.123^1.449^^^^^^^9.058^.725^^.725
FHINI0BG ; ; 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,7518,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7519,0)
+4 ;;=ENTREES,FETTUCINI,PRIMAVERA,GARDEN GOURMET^BC-00792^9.5-oz.^269
+5 ;;^UTILITY(U,$J,112,7519,1)
+6 ;;=6.208^4.796^9.294^95.911^77.993^^^100^1.071^^153.16^104.089^236.059^^^^^428.996^15.242^.045
+7 ;;^UTILITY(U,$J,112,7519,2)
+8 ;;=.112^.595^^^^^^^^^^^^^^^2.119
+9 ;;^UTILITY(U,$J,112,7519,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7520,0)
+12 ;;=ENTREES,FETTUCINI W/BROCCOLI,DINING LITE^BC-00793^9-oz.^255
+13 ;;^UTILITY(U,$J,112,7520,1)
+14 ;;=4.706^4.706^12.941^113.725^^^^83.137^.784^^^98.039^400^^^^^119.216^8.627^.102
+15 ;;^UTILITY(U,$J,112,7520,2)
+16 ;;=.137^.627^^^^^^^13.725
+17 ;;^UTILITY(U,$J,112,7520,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7521,0)
+20 ;;=ENTREES,FILLET OF FISH,DIVAN,LEAN CUISINE^BC-00794^12.3-oz.^350
+21 ;;^UTILITY(U,$J,112,7521,1)
+22 ;;=8.857^2.571^4.857^77.143^^^^57.143^.309^^^242.857^200^^^^^214.286^8.571^.066
+23 ;;^UTILITY(U,$J,112,7521,2)
+24 ;;=.097^.571^^^^^^^25.714^.571^^.286
+25 ;;^UTILITY(U,$J,112,7521,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7522,0)
+28 ;;=ENTREES,FILLET OF FISH FLORENTINE,LEAN CUISINE^BC-00795^9-oz.^255
+29 ;;^UTILITY(U,$J,112,7522,1)
+30 ;;=10.588^3.529^5.098^94.118^^^^58.824^.424^^^235.294^274.51^^^^^294.118^0^.059
+31 ;;^UTILITY(U,$J,112,7522,2)
+32 ;;=.102^.784^^^^^^^39.216^.784^^.784
+33 ;;^UTILITY(U,$J,112,7522,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7523,0)
+36 ;;=ENTREES,FILLET OF FISH,JARDINIERE,LEAN CUISINE^BC-00796^11.2-oz.^318
+37 ;;^UTILITY(U,$J,112,7523,1)
+38 ;;=9.434^3.145^5.66^88.05^^^^62.893^.113^^^267.296^264.151^^^^^314.465^0^.028
+39 ;;^UTILITY(U,$J,112,7523,2)
+40 ;;=.082^.629^^^^^^^31.447^1.258^^0
+41 ;;^UTILITY(U,$J,112,7523,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7524,0)
+44 ;;=ENTREES,GREEN PEPPER STEAK,BEEF,STOUFFERS^BC-00797^3-oz.^85
+45 ;;^UTILITY(U,$J,112,7524,1)
+46 ;;=9.059^5.176^4.471^101.176^79.059^^^16.471^1^^^200^620^^^^^160^8.235^.047
+47 ;;^UTILITY(U,$J,112,7524,2)
+48 ;;=.106^1.765^^^^^^^22.353
+49 ;;^UTILITY(U,$J,112,7524,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7525,0)
+52 ;;=ENTREES,GREEN PEPPER,STUFFED W/BEEF,STOUFFERS^BC-00798^3.8-oz.^108
+53 ;;^UTILITY(U,$J,112,7525,1)
+54 ;;=6.944^4.537^9.444^105.556^77.963^^^14.815^1.296^^^170.37^460.185^^^^^89.815^39.815^.102
+55 ;;^UTILITY(U,$J,112,7525,2)
+56 ;;=.102^1.667^^^^^^^22.222
+57 ;;^UTILITY(U,$J,112,7525,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7526,0)
+60 ;;=ENTREES,GREEN PEPPER,STUFFED W/BEEF,RICE & SCE,STOUFFERS^BC-00799^7.8-oz.^221
+61 ;;^UTILITY(U,$J,112,7526,1)
+62 ;;=4.615^3.891^8.416^86.878^81.991^^^14.932^.701^^^180.09^485.068^^^^^180.09^5.882^.059
+63 ;;^UTILITY(U,$J,112,7526,2)
+64 ;;=.068^1.222^^^^^^^9.955
+65 ;;^UTILITY(U,$J,112,7526,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,7527,0)
+68 ;;=ENTREES,HAM & CHEESE CASSEROLE,PILSBURY^BC-00800^3.5-oz.^100
+69 ;;^UTILITY(U,$J,112,7527,1)
+70 ;;=6.8^11^12.9^179^66.3^^^75^1.1^^103^156^494^^^^^710^7^.19
+71 ;;^UTILITY(U,$J,112,7527,2)
+72 ;;=.17^1.6^^^^^^^^^^^^^^^1
+73 ;;^UTILITY(U,$J,112,7527,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,7528,0)
+76 ;;=ENTREES,HEARTLAND MEDLEY,STOUFFERS^BC-00801^8-oz.^227
+77 ;;^UTILITY(U,$J,112,7528,1)
+78 ;;=5.022^1.498^6.3^58.15^85.991^^^18.062^.63^^^211.013^85.463^^^^^985.903^1.762^.048
+79 ;;^UTILITY(U,$J,112,7528,2)
+80 ;;=.07^1.013^^^^^^^11.454^.264^.352^.308^^^^^1.013
+81 ;;^UTILITY(U,$J,112,7528,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7529,0)
+84 ;;=ENTREES,LASAGNA,CHEESE,DINING LITE^BC-00802^9-oz.^225
+85 ;;^UTILITY(U,$J,112,7529,1)
+86 ;;=6.222^2.667^16^115.556^^^^136.444^.889^^^342.222^355.556^^^^^883.556^3.111^.111
+87 ;;^UTILITY(U,$J,112,7529,2)
+88 ;;=.116^.844
+89 ;;^UTILITY(U,$J,112,7529,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7530,0)
+92 ;;=ENTREES,LASAGNA,GARDEN VEG,LE MENU LIGHTSTYLE^BC-00803^10.5-oz.^298
+93 ;;^UTILITY(U,$J,112,7530,1)
+94 ;;=4.161^2.483^11.409^84.564^^^^58.389^.94^^^178.188^155.034^^^^^616.779^14.765^.077
+95 ;;^UTILITY(U,$J,112,7530,2)
+96 ;;=.131^.94^^^^^^^8.054^.906^^.503
+97 ;;^UTILITY(U,$J,112,7530,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7531,0)
+100 ;;=ENTREES,LASAGNA,TUNA,LEAN CUISINE^BC-00804^9.7-oz.^276
+101 ;;^UTILITY(U,$J,112,7531,1)
+102 ;;=6.884^3.623^10.145^101.449^^^^90.58^.522^^^159.42^358.696^^^^^1086.957^1.449^.054
+103 ;;^UTILITY(U,$J,112,7531,2)
+104 ;;=.123^1.449^^^^^^^9.058^.725^^.725
