FHINI0B6 ; ; 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,7383,2)
;;=.556^8.333
;;^UTILITY(U,$J,112,7383,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7384,0)
;;=ENTREES,BOX,PASTA W/CREAMY GARLIC SCE,LIPTON^BC-00657^1/4-pkg.^36
;;^UTILITY(U,$J,112,7384,1)
;;=13.056^7.5^70.278^400^^^^^3.333^^^^1513.889^^^^^^^.833
;;^UTILITY(U,$J,112,7384,2)
;;=.833^10.556
;;^UTILITY(U,$J,112,7384,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7385,0)
;;=ENTREES,BOX,PASTA W/CREAMY MUSHROOM SCE,LIPTON^BC-00658^1/4-pkg.^36
;;^UTILITY(U,$J,112,7385,1)
;;=14.167^7.222^68.889^397.222^^^^61.111^3.333^52.778^216.667^341.667^1177.778^1.111^.278^.556^^1166.667^2.778^.833
;;^UTILITY(U,$J,112,7385,2)
;;=.556^8.333
;;^UTILITY(U,$J,112,7385,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7386,0)
;;=ENTREES,BOX,PASTA W/HERB TOMATO SCE,LIPTON^BC-00659^1/4-pkg.^35
;;^UTILITY(U,$J,112,7386,1)
;;=14^2.286^74.286^371.429^^^^54.286^3.429^60^194.286^268.571^1017.143^1.143^.286^.857^^1302.857^2.857^1.143
;;^UTILITY(U,$J,112,7386,2)
;;=.571^8.286
;;^UTILITY(U,$J,112,7386,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7387,0)
;;=ENTREES,BOX,PIZZA,CHEESE,CONTADINA THICK CRUST^BC-00660^1/4-pizza^128
;;^UTILITY(U,$J,112,7387,1)
;;=6.875^2.969^43.75^230.469^43.75^^^49.219^3.031^.781^127.344^251.563^640.625^.008^^^^610.938^9.375^.539
;;^UTILITY(U,$J,112,7387,2)
;;=.297^3.75^.031^0^0^.016^^^0^.156^^.547
;;^UTILITY(U,$J,112,7387,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7388,0)
;;=ENTREES,BOX,PIZZA,CHEESE,CONTADINA,THIN CRUST^BC-00661^1/4-pizza^104
;;^UTILITY(U,$J,112,7388,1)
;;=5.962^2.885^37.692^200.962^50.962^^^42.308^2.76^.962^109.615^274.038^625^.01^^^^751.923^11.538
;;^UTILITY(U,$J,112,7388,2)
;;=.25^3.269^.029^0^0^.01^^^0^.192^^.673
;;^UTILITY(U,$J,112,7388,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7389,0)
;;=ENTREES,BOX,RICE W/BEEF FLAVORED SCE,LIPTON^BC-00662^1/4-pkg.^33
;;^UTILITY(U,$J,112,7389,1)
;;=8.788^1.515^78.485^363.636^^^^33.333^4.242^24.242^184.848^^1730.303^.909^.303^.606^^618.182^3.03^.606
;;^UTILITY(U,$J,112,7389,2)
;;=.303^6.97
;;^UTILITY(U,$J,112,7389,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7390,0)
;;=ENTREES,BOX,RICE W/BROCCOLI & CHEDDAR SCE,LIPTON^BC-00663^1/4-pkg.^35
;;^UTILITY(U,$J,112,7390,1)
;;=8^4.857^74.571^374.286^^^^102.857^4^31.429^274.286^368.571^1194.286^1.714^.286^^^388.571^8.571^.857
;;^UTILITY(U,$J,112,7390,2)
;;=.286^0^^^^^^^0
;;^UTILITY(U,$J,112,7390,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7391,0)
;;=ENTREES,BOX,RICE W/CHICKEN BROCCOLI SCE,LIPTON^BC-00664^1/4-pkg.^34
;;^UTILITY(U,$J,112,7391,1)
;;=11.765^4.412^72.941^379.412^^^^58.824^4.118^^^^1455.882^^^^^1497.059^11.765^.882
;;^UTILITY(U,$J,112,7391,2)
;;=.294^9.118^^^^^^^5.882
;;^UTILITY(U,$J,112,7391,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7392,0)
;;=ENTREES,BOX,RICE W/CHICKEN FLAVOR SCE,LIPTON^BC-00665^1/4-pkg.^33
;;^UTILITY(U,$J,112,7392,1)
;;=10^3.333^76.97^378.788^^^^33.333^3.939^21.212^196.97^172.727^1339.394^1.212^.303^.606^^536.364^3.03^.606
;;^UTILITY(U,$J,112,7392,2)
;;=.303^7.273
;;^UTILITY(U,$J,112,7392,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7393,0)
;;=ENTREES,BOX,RICE W/CREAMY CHICKEN SCE,LIPTON^BC-00666^1/4-pkg.^36
;;^UTILITY(U,$J,112,7393,1)
;;=8.333^6.667^74.722^394.444^^^^50^4.722^27.778^197.222^^1158.333^1.111^^^^3061.111^2.778^.833
;;^UTILITY(U,$J,112,7393,2)
;;=.278^7.5^^^^^^^11.111
;;^UTILITY(U,$J,112,7393,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7394,0)
;;=ENTREES,BOX,TUNA HELPER MAIN DISHES,PREP W/CND TUNA^BC-00667^5.2-oz.^184
;;^UTILITY(U,$J,112,7394,1)
;;=7.826^7.609^15.978^163.587^68.587^^^^^^^129.891^497.826
;;^UTILITY(U,$J,112,7394,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7395,0)
;;=ENTREES,CND,BEANS,BAKED W/FRANKS,CAMPBELL'S^BC-00668^8-oz.^227
;;^UTILITY(U,$J,112,7395,1)
;;=6.432^5.991^18.678^154.185^^^^53.744^1.674^^^204.405^508.811^^^^^137.445^2.203^.035
;;^UTILITY(U,$J,112,7395,2)
;;=.048^.969^^^^^^^^^^^^^^^4.714
;;^UTILITY(U,$J,112,7395,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7396,0)
;;=ENTREES,CND,BEEF & VEG STEW,ARMOUR STAR^BC-00669^8-oz.^227
;;^UTILITY(U,$J,112,7396,1)
;;=4.846^5.286^7.048^96.916^^^^^^^^^581.498
FHINI0B6 ; ; 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,7383,2)
+2 ;;=.556^8.333
+3 ;;^UTILITY(U,$J,112,7383,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7384,0)
+6 ;;=ENTREES,BOX,PASTA W/CREAMY GARLIC SCE,LIPTON^BC-00657^1/4-pkg.^36
+7 ;;^UTILITY(U,$J,112,7384,1)
+8 ;;=13.056^7.5^70.278^400^^^^^3.333^^^^1513.889^^^^^^^.833
+9 ;;^UTILITY(U,$J,112,7384,2)
+10 ;;=.833^10.556
+11 ;;^UTILITY(U,$J,112,7384,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7385,0)
+14 ;;=ENTREES,BOX,PASTA W/CREAMY MUSHROOM SCE,LIPTON^BC-00658^1/4-pkg.^36
+15 ;;^UTILITY(U,$J,112,7385,1)
+16 ;;=14.167^7.222^68.889^397.222^^^^61.111^3.333^52.778^216.667^341.667^1177.778^1.111^.278^.556^^1166.667^2.778^.833
+17 ;;^UTILITY(U,$J,112,7385,2)
+18 ;;=.556^8.333
+19 ;;^UTILITY(U,$J,112,7385,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7386,0)
+22 ;;=ENTREES,BOX,PASTA W/HERB TOMATO SCE,LIPTON^BC-00659^1/4-pkg.^35
+23 ;;^UTILITY(U,$J,112,7386,1)
+24 ;;=14^2.286^74.286^371.429^^^^54.286^3.429^60^194.286^268.571^1017.143^1.143^.286^.857^^1302.857^2.857^1.143
+25 ;;^UTILITY(U,$J,112,7386,2)
+26 ;;=.571^8.286
+27 ;;^UTILITY(U,$J,112,7386,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7387,0)
+30 ;;=ENTREES,BOX,PIZZA,CHEESE,CONTADINA THICK CRUST^BC-00660^1/4-pizza^128
+31 ;;^UTILITY(U,$J,112,7387,1)
+32 ;;=6.875^2.969^43.75^230.469^43.75^^^49.219^3.031^.781^127.344^251.563^640.625^.008^^^^610.938^9.375^.539
+33 ;;^UTILITY(U,$J,112,7387,2)
+34 ;;=.297^3.75^.031^0^0^.016^^^0^.156^^.547
+35 ;;^UTILITY(U,$J,112,7387,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7388,0)
+38 ;;=ENTREES,BOX,PIZZA,CHEESE,CONTADINA,THIN CRUST^BC-00661^1/4-pizza^104
+39 ;;^UTILITY(U,$J,112,7388,1)
+40 ;;=5.962^2.885^37.692^200.962^50.962^^^42.308^2.76^.962^109.615^274.038^625^.01^^^^751.923^11.538
+41 ;;^UTILITY(U,$J,112,7388,2)
+42 ;;=.25^3.269^.029^0^0^.01^^^0^.192^^.673
+43 ;;^UTILITY(U,$J,112,7388,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7389,0)
+46 ;;=ENTREES,BOX,RICE W/BEEF FLAVORED SCE,LIPTON^BC-00662^1/4-pkg.^33
+47 ;;^UTILITY(U,$J,112,7389,1)
+48 ;;=8.788^1.515^78.485^363.636^^^^33.333^4.242^24.242^184.848^^1730.303^.909^.303^.606^^618.182^3.03^.606
+49 ;;^UTILITY(U,$J,112,7389,2)
+50 ;;=.303^6.97
+51 ;;^UTILITY(U,$J,112,7389,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7390,0)
+54 ;;=ENTREES,BOX,RICE W/BROCCOLI & CHEDDAR SCE,LIPTON^BC-00663^1/4-pkg.^35
+55 ;;^UTILITY(U,$J,112,7390,1)
+56 ;;=8^4.857^74.571^374.286^^^^102.857^4^31.429^274.286^368.571^1194.286^1.714^.286^^^388.571^8.571^.857
+57 ;;^UTILITY(U,$J,112,7390,2)
+58 ;;=.286^0^^^^^^^0
+59 ;;^UTILITY(U,$J,112,7390,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7391,0)
+62 ;;=ENTREES,BOX,RICE W/CHICKEN BROCCOLI SCE,LIPTON^BC-00664^1/4-pkg.^34
+63 ;;^UTILITY(U,$J,112,7391,1)
+64 ;;=11.765^4.412^72.941^379.412^^^^58.824^4.118^^^^1455.882^^^^^1497.059^11.765^.882
+65 ;;^UTILITY(U,$J,112,7391,2)
+66 ;;=.294^9.118^^^^^^^5.882
+67 ;;^UTILITY(U,$J,112,7391,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7392,0)
+70 ;;=ENTREES,BOX,RICE W/CHICKEN FLAVOR SCE,LIPTON^BC-00665^1/4-pkg.^33
+71 ;;^UTILITY(U,$J,112,7392,1)
+72 ;;=10^3.333^76.97^378.788^^^^33.333^3.939^21.212^196.97^172.727^1339.394^1.212^.303^.606^^536.364^3.03^.606
+73 ;;^UTILITY(U,$J,112,7392,2)
+74 ;;=.303^7.273
+75 ;;^UTILITY(U,$J,112,7392,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7393,0)
+78 ;;=ENTREES,BOX,RICE W/CREAMY CHICKEN SCE,LIPTON^BC-00666^1/4-pkg.^36
+79 ;;^UTILITY(U,$J,112,7393,1)
+80 ;;=8.333^6.667^74.722^394.444^^^^50^4.722^27.778^197.222^^1158.333^1.111^^^^3061.111^2.778^.833
+81 ;;^UTILITY(U,$J,112,7393,2)
+82 ;;=.278^7.5^^^^^^^11.111
+83 ;;^UTILITY(U,$J,112,7393,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7394,0)
+86 ;;=ENTREES,BOX,TUNA HELPER MAIN DISHES,PREP W/CND TUNA^BC-00667^5.2-oz.^184
+87 ;;^UTILITY(U,$J,112,7394,1)
+88 ;;=7.826^7.609^15.978^163.587^68.587^^^^^^^129.891^497.826
+89 ;;^UTILITY(U,$J,112,7394,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7395,0)
+92 ;;=ENTREES,CND,BEANS,BAKED W/FRANKS,CAMPBELL'S^BC-00668^8-oz.^227
+93 ;;^UTILITY(U,$J,112,7395,1)
+94 ;;=6.432^5.991^18.678^154.185^^^^53.744^1.674^^^204.405^508.811^^^^^137.445^2.203^.035
+95 ;;^UTILITY(U,$J,112,7395,2)
+96 ;;=.048^.969^^^^^^^^^^^^^^^4.714
+97 ;;^UTILITY(U,$J,112,7395,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7396,0)
+100 ;;=ENTREES,CND,BEEF & VEG STEW,ARMOUR STAR^BC-00669^8-oz.^227
+101 ;;^UTILITY(U,$J,112,7396,1)
+102 ;;=4.846^5.286^7.048^96.916^^^^^^^^^581.498
