FHINI0BN ; ; 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,7611,2)
;;=.091^2.091^^^^^^^36.585^.348^^1.045
;;^UTILITY(U,$J,112,7611,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7612,0)
;;=ENTREES,SIRLOIN TIPS W/NOODLES,SWANSON^BC-00885^7-oz.^198
;;^UTILITY(U,$J,112,7612,1)
;;=9.545^5.152^11.414^130.303^^^^15.152^1.717^^^96.465^286.364^^^^^373.232^.505^.101
;;^UTILITY(U,$J,112,7612,2)
;;=.126^1.566
;;^UTILITY(U,$J,112,7612,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7613,0)
;;=ENTREES,SPAGHETTI & BEEF,DINING LITE^BC-00886^9-oz.^255
;;^UTILITY(U,$J,112,7613,1)
;;=4.706^3.137^9.804^86.275^^^^31.373^1.176^^^223.529^172.549^^^^^437.255^4.706^.086
;;^UTILITY(U,$J,112,7613,2)
;;=.09^1.02^^^^^^^7.843
;;^UTILITY(U,$J,112,7613,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7614,0)
;;=ENTREES,SPAGHETTI BEEF & MUSHROOMS,LEAN CUISINE^BC-00887^11.5-oz.^326
;;^UTILITY(U,$J,112,7614,1)
;;=4.601^2.147^11.656^85.89^^^^18.405^.828^^^180.982^349.693^^^^^153.374^1.84^.046
;;^UTILITY(U,$J,112,7614,2)
;;=.052^1.227^^^^^^^7.669^.613^^.307
;;^UTILITY(U,$J,112,7614,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7615,0)
;;=ENTREES,SPAGHETTI W/MEAT SCE,BANQUET CASSEROLE^BC-00888^8-oz.^227
;;^UTILITY(U,$J,112,7615,1)
;;=6.167^3.524^15.419^118.943^^^^12.775^1.322^^^185.463^550.661^^^^^395.595^6.167^.053
;;^UTILITY(U,$J,112,7615,2)
;;=.053^1.41
;;^UTILITY(U,$J,112,7615,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7616,0)
;;=ENTREES,SPAGHETTI W/MEAT SCE,HEALTHY CHOICE^BC-00889^10-oz.^284
;;^UTILITY(U,$J,112,7616,1)
;;=5.634^2.113^16.901^109.155^^^^25.352^1.056^^58.099^179.577^154.93^^^^^335.211^1.761^.134
;;^UTILITY(U,$J,112,7616,2)
;;=.099^.951^^^^^^^5.282^.704^^.704
;;^UTILITY(U,$J,112,7616,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7617,0)
;;=ENTREES,SPAGHETTI W/MEAT SCE,LE MENU LIGHTSTYLE^BC-00890^9.5-oz.^269
;;^UTILITY(U,$J,112,7617,1)
;;=4.684^2.268^16.58^105.576^^^^16.729^1.45^^^183.643^150.929^^^^^272.119^11.896^.074
;;^UTILITY(U,$J,112,7617,2)
;;=.112^1.115^^^^^^^5.204^.446^^.483
;;^UTILITY(U,$J,112,7617,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7618,0)
;;=ENTREES,TORTELLINI,BEEF W/EGG PASTA,STOUFFERS^BC-00891^4.5-oz.^128
;;^UTILITY(U,$J,112,7618,1)
;;=12.031^6.484^20^185.938^61.016^^^54.688^1.297^^^114.844^220.313^^^^^25^.781^.078
;;^UTILITY(U,$J,112,7618,2)
;;=.148^1.719^^^^^^^64.844
;;^UTILITY(U,$J,112,7618,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7619,0)
;;=ENTREES,TORTELLINI,BEEF W/SPINACH PASTA,STOUFFERS^BC-00892^4.5-oz.^128
;;^UTILITY(U,$J,112,7619,1)
;;=12.969^7.188^20^196.875^58.984^^^75^1.297^^^150^250^^^^^64.844^.781^.078
;;^UTILITY(U,$J,112,7619,2)
;;=.188^1.797^^^^^^^70.313
;;^UTILITY(U,$J,112,7619,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7620,0)
;;=ENTREES,TORTELLINI,CHEESE,STOUFFERS^BC-00893^4.5-oz.^128
;;^UTILITY(U,$J,112,7620,1)
;;=12.031^8.516^21.016^209.375^57.031^^^189.844^.797^^^74.219^254.688^^^^^29.688^.781^.07
;;^UTILITY(U,$J,112,7620,2)
;;=.156^.938^^^^^^^60.156
;;^UTILITY(U,$J,112,7620,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7621,0)
;;=ENTREES,TORTELLINI,CHEESE MARINARA,PILSBURY^BC-00894^5.5-oz.^156
;;^UTILITY(U,$J,112,7621,1)
;;=5.128^5.769^23.718^166.667^^^^^^^^198.718^596.154
;;^UTILITY(U,$J,112,7621,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7622,0)
;;=ENTREES,TORTELLINI,CHEESE W/SPINACH PASTA,STOUFFERS^BC-00895^4.5-oz.^128
;;^UTILITY(U,$J,112,7622,1)
;;=12.031^9.219^21.016^201.563^56.016^^^229.688^.797^^^100^309.375^^^^^89.844^.781^.07
;;^UTILITY(U,$J,112,7622,2)
;;=.211^.938^^^^^^^70.313
;;^UTILITY(U,$J,112,7622,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7623,0)
;;=ENTREES,TORTELLINI,CHICKEN,STOUFFERS^BC-00896^4.5-oz.^128
;;^UTILITY(U,$J,112,7623,1)
;;=12.031^5.781^22.031^188.281^58.984^^^28.125^1.203^^^135.156^220.313^^^^^350^.781^.156
;;^UTILITY(U,$J,112,7623,2)
;;=.172^2.891^^^^^^^63.281
;;^UTILITY(U,$J,112,7623,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7624,0)
;;=ENTREES,TUNA NOODLE CASSEROLE,STOUFFERS^BC-00897^6-oz.^170
;;^UTILITY(U,$J,112,7624,1)
;;=6.706^5.529^9.294^114.118^77^^^60^.6^^^140^430^^^^^40^0^.059
;;^UTILITY(U,$J,112,7624,2)
;;=.153^2^^^^^^^15.882
;;^UTILITY(U,$J,112,7624,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0BN ; ; 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,7611,2)
+2 ;;=.091^2.091^^^^^^^36.585^.348^^1.045
+3 ;;^UTILITY(U,$J,112,7611,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7612,0)
+6 ;;=ENTREES,SIRLOIN TIPS W/NOODLES,SWANSON^BC-00885^7-oz.^198
+7 ;;^UTILITY(U,$J,112,7612,1)
+8 ;;=9.545^5.152^11.414^130.303^^^^15.152^1.717^^^96.465^286.364^^^^^373.232^.505^.101
+9 ;;^UTILITY(U,$J,112,7612,2)
+10 ;;=.126^1.566
+11 ;;^UTILITY(U,$J,112,7612,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7613,0)
+14 ;;=ENTREES,SPAGHETTI & BEEF,DINING LITE^BC-00886^9-oz.^255
+15 ;;^UTILITY(U,$J,112,7613,1)
+16 ;;=4.706^3.137^9.804^86.275^^^^31.373^1.176^^^223.529^172.549^^^^^437.255^4.706^.086
+17 ;;^UTILITY(U,$J,112,7613,2)
+18 ;;=.09^1.02^^^^^^^7.843
+19 ;;^UTILITY(U,$J,112,7613,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7614,0)
+22 ;;=ENTREES,SPAGHETTI BEEF & MUSHROOMS,LEAN CUISINE^BC-00887^11.5-oz.^326
+23 ;;^UTILITY(U,$J,112,7614,1)
+24 ;;=4.601^2.147^11.656^85.89^^^^18.405^.828^^^180.982^349.693^^^^^153.374^1.84^.046
+25 ;;^UTILITY(U,$J,112,7614,2)
+26 ;;=.052^1.227^^^^^^^7.669^.613^^.307
+27 ;;^UTILITY(U,$J,112,7614,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7615,0)
+30 ;;=ENTREES,SPAGHETTI W/MEAT SCE,BANQUET CASSEROLE^BC-00888^8-oz.^227
+31 ;;^UTILITY(U,$J,112,7615,1)
+32 ;;=6.167^3.524^15.419^118.943^^^^12.775^1.322^^^185.463^550.661^^^^^395.595^6.167^.053
+33 ;;^UTILITY(U,$J,112,7615,2)
+34 ;;=.053^1.41
+35 ;;^UTILITY(U,$J,112,7615,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7616,0)
+38 ;;=ENTREES,SPAGHETTI W/MEAT SCE,HEALTHY CHOICE^BC-00889^10-oz.^284
+39 ;;^UTILITY(U,$J,112,7616,1)
+40 ;;=5.634^2.113^16.901^109.155^^^^25.352^1.056^^58.099^179.577^154.93^^^^^335.211^1.761^.134
+41 ;;^UTILITY(U,$J,112,7616,2)
+42 ;;=.099^.951^^^^^^^5.282^.704^^.704
+43 ;;^UTILITY(U,$J,112,7616,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7617,0)
+46 ;;=ENTREES,SPAGHETTI W/MEAT SCE,LE MENU LIGHTSTYLE^BC-00890^9.5-oz.^269
+47 ;;^UTILITY(U,$J,112,7617,1)
+48 ;;=4.684^2.268^16.58^105.576^^^^16.729^1.45^^^183.643^150.929^^^^^272.119^11.896^.074
+49 ;;^UTILITY(U,$J,112,7617,2)
+50 ;;=.112^1.115^^^^^^^5.204^.446^^.483
+51 ;;^UTILITY(U,$J,112,7617,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7618,0)
+54 ;;=ENTREES,TORTELLINI,BEEF W/EGG PASTA,STOUFFERS^BC-00891^4.5-oz.^128
+55 ;;^UTILITY(U,$J,112,7618,1)
+56 ;;=12.031^6.484^20^185.938^61.016^^^54.688^1.297^^^114.844^220.313^^^^^25^.781^.078
+57 ;;^UTILITY(U,$J,112,7618,2)
+58 ;;=.148^1.719^^^^^^^64.844
+59 ;;^UTILITY(U,$J,112,7618,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7619,0)
+62 ;;=ENTREES,TORTELLINI,BEEF W/SPINACH PASTA,STOUFFERS^BC-00892^4.5-oz.^128
+63 ;;^UTILITY(U,$J,112,7619,1)
+64 ;;=12.969^7.188^20^196.875^58.984^^^75^1.297^^^150^250^^^^^64.844^.781^.078
+65 ;;^UTILITY(U,$J,112,7619,2)
+66 ;;=.188^1.797^^^^^^^70.313
+67 ;;^UTILITY(U,$J,112,7619,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7620,0)
+70 ;;=ENTREES,TORTELLINI,CHEESE,STOUFFERS^BC-00893^4.5-oz.^128
+71 ;;^UTILITY(U,$J,112,7620,1)
+72 ;;=12.031^8.516^21.016^209.375^57.031^^^189.844^.797^^^74.219^254.688^^^^^29.688^.781^.07
+73 ;;^UTILITY(U,$J,112,7620,2)
+74 ;;=.156^.938^^^^^^^60.156
+75 ;;^UTILITY(U,$J,112,7620,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7621,0)
+78 ;;=ENTREES,TORTELLINI,CHEESE MARINARA,PILSBURY^BC-00894^5.5-oz.^156
+79 ;;^UTILITY(U,$J,112,7621,1)
+80 ;;=5.128^5.769^23.718^166.667^^^^^^^^198.718^596.154
+81 ;;^UTILITY(U,$J,112,7621,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7622,0)
+84 ;;=ENTREES,TORTELLINI,CHEESE W/SPINACH PASTA,STOUFFERS^BC-00895^4.5-oz.^128
+85 ;;^UTILITY(U,$J,112,7622,1)
+86 ;;=12.031^9.219^21.016^201.563^56.016^^^229.688^.797^^^100^309.375^^^^^89.844^.781^.07
+87 ;;^UTILITY(U,$J,112,7622,2)
+88 ;;=.211^.938^^^^^^^70.313
+89 ;;^UTILITY(U,$J,112,7622,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7623,0)
+92 ;;=ENTREES,TORTELLINI,CHICKEN,STOUFFERS^BC-00896^4.5-oz.^128
+93 ;;^UTILITY(U,$J,112,7623,1)
+94 ;;=12.031^5.781^22.031^188.281^58.984^^^28.125^1.203^^^135.156^220.313^^^^^350^.781^.156
+95 ;;^UTILITY(U,$J,112,7623,2)
+96 ;;=.172^2.891^^^^^^^63.281
+97 ;;^UTILITY(U,$J,112,7623,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7624,0)
+100 ;;=ENTREES,TUNA NOODLE CASSEROLE,STOUFFERS^BC-00897^6-oz.^170
+101 ;;^UTILITY(U,$J,112,7624,1)
+102 ;;=6.706^5.529^9.294^114.118^77^^^60^.6^^^140^430^^^^^40^0^.059
+103 ;;^UTILITY(U,$J,112,7624,2)
+104 ;;=.153^2^^^^^^^15.882
+105 ;;^UTILITY(U,$J,112,7624,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
