FHINI0BH ; ; 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,7531,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7532,0)
;;=ENTREES,LASAGNA,VEG,STOUFFERS^BC-00805^8-oz.^227
;;^UTILITY(U,$J,112,7532,1)
;;=8.502^7.313^12.379^148.899^70^^^200^.401^^^110.132^289.868^^^^^1000^.881^.062
;;^UTILITY(U,$J,112,7532,2)
;;=.172^.396^^^^^^^17.181
;;^UTILITY(U,$J,112,7532,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7533,0)
;;=ENTREES,LASAGNA,VERDE,STOUFFERS^BC-00806^8-oz.^227
;;^UTILITY(U,$J,112,7533,1)
;;=9.295^8.194^9.295^148.018^71.013^^^159.912^.401^^^129.956^459.912^^^^^500^^.048
;;^UTILITY(U,$J,112,7533,2)
;;=.159^1.586^^^^^^^19.824
;;^UTILITY(U,$J,112,7533,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7534,0)
;;=ENTREES,LASAGNA W/MEAT SCE,BANQUET (FAM)^BC-00807^7-oz.^198
;;^UTILITY(U,$J,112,7534,1)
;;=7.576^5.051^15.152^136.364^^^^123.232^1.212^^^171.717^505.051^^^^^652.02^.505^.253
;;^UTILITY(U,$J,112,7534,2)
;;=.152^1.616
;;^UTILITY(U,$J,112,7534,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7535,0)
;;=ENTREES,LASAGNA W/MEAT SCE,DINING LITE^BC-00808^9-oz.^255
;;^UTILITY(U,$J,112,7535,1)
;;=5.098^1.961^14.118^94.118^^^^53.725^1.176^^^250.98^313.725^^^^^534.51^2.745^.094
;;^UTILITY(U,$J,112,7535,2)
;;=.078^.784^^^^^^^9.804
;;^UTILITY(U,$J,112,7535,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7536,0)
;;=ENTREES,LASAGNA W/MEAT SCE,HEALTHY CHOICE^BC-00809^9-oz.^255
;;^UTILITY(U,$J,112,7536,1)
;;=7.059^1.961^14.51^101.961^^^^43.137^.784^^82.745^196.078^164.706^^^^^321.569^1.176^.122
;;^UTILITY(U,$J,112,7536,2)
;;=.125^1.02^^^^^^^19.608
;;^UTILITY(U,$J,112,7536,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7537,0)
;;=ENTREES,LASAGNA W/MEAT SCE,LEAN CUISINE^BC-00810^10.3-oz.^291
;;^UTILITY(U,$J,112,7537,1)
;;=9.278^2.749^8.247^96.22^^^^85.911^.495^^^185.567^343.643^^^^^687.285^1.718^.309
;;^UTILITY(U,$J,112,7537,2)
;;=.148^1.375^^^^^^^24.055^1.031^^0
;;^UTILITY(U,$J,112,7537,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7538,0)
;;=ENTREES,LASAGNA W/MEAT SCE,LE MENU LIGHTSTYLE^BC-00811^10-oz.^284
;;^UTILITY(U,$J,112,7538,1)
;;=6.549^2.711^12.711^101.408^^^^59.155^1.268^^^219.718^178.169^^^^^460.915^6.69^.067
;;^UTILITY(U,$J,112,7538,2)
;;=.102^1.761^^^^^^^10.563^.81^^.387
;;^UTILITY(U,$J,112,7538,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7539,0)
;;=ENTREES,LASAGNA W/MEAT SCE,STOUFFERS^BC-00812^8-oz.^227
;;^UTILITY(U,$J,112,7539,1)
;;=9.78^5.198^11.982^133.04^71.982^^^119.824^.599^^^159.912^389.868^^^^^180.176^2.203^.048
;;^UTILITY(U,$J,112,7539,2)
;;=.132^.881^^^^^^^14.978
;;^UTILITY(U,$J,112,7539,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7540,0)
;;=ENTREES,LASAGNA W/MEAT SCE,SWANSON^BC-00813^10.5-oz.^298
;;^UTILITY(U,$J,112,7540,1)
;;=8.691^5.034^13.188^132.55^^^^167.114^1.007^^^160.738^360.403^^^^^343.624^2.685^.087
;;^UTILITY(U,$J,112,7540,2)
;;=.111^.94
;;^UTILITY(U,$J,112,7540,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7541,0)
;;=ENTREES,LASAGNA,ZUCCHINI,LEAN CUISINE^BC-00814^11-oz.^311
;;^UTILITY(U,$J,112,7541,1)
;;=6.752^2.251^9.003^83.601^^^^96.463^.579^^^192.926^313.505^^^^^803.859^1.929^.039
;;^UTILITY(U,$J,112,7541,2)
;;=.084^.643^^^^^^^6.431^.643^^0
;;^UTILITY(U,$J,112,7541,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7542,0)
;;=ENTREES,LINGUINI W/CLAM SCE,LEAN CUISINE^BC-00815^9.6-oz.^272
;;^UTILITY(U,$J,112,7542,1)
;;=5.882^2.574^11.765^95.588^^^^7.353^.662^^^36.765^294.118^^^^^0^0^.022
;;^UTILITY(U,$J,112,7542,2)
;;=.037^.441^^^^^^^11.029^.368^^.735
;;^UTILITY(U,$J,112,7542,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7543,0)
;;=ENTREES,LINGUINI W/SHRIMP & CLAM,MRS. PAUL'S LIGHT^BC-00816^10-oz.^284
;;^UTILITY(U,$J,112,7543,1)
;;=4.789^2.923^13.944^101.408^^^^11.972^1.056^^^33.099^212.324^^^^^33.099^3.169^.042
;;^UTILITY(U,$J,112,7543,2)
;;=.042^.599
;;^UTILITY(U,$J,112,7543,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7544,0)
;;=ENTREES,LINGUINI W/SHRIMP,HEALTHY CHOICE^BC-00817^9.5-oz.^269
;;^UTILITY(U,$J,112,7544,1)
;;=4.461^.743^14.87^85.502^^^^31.227^1.487^^47.955^104.089^144.981^^^^^150.929^2.602^.115
;;^UTILITY(U,$J,112,7544,2)
;;=.086^.632^^^^^^^20.446
;;^UTILITY(U,$J,112,7544,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0BH ; ; 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,7531,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7532,0)
+4 ;;=ENTREES,LASAGNA,VEG,STOUFFERS^BC-00805^8-oz.^227
+5 ;;^UTILITY(U,$J,112,7532,1)
+6 ;;=8.502^7.313^12.379^148.899^70^^^200^.401^^^110.132^289.868^^^^^1000^.881^.062
+7 ;;^UTILITY(U,$J,112,7532,2)
+8 ;;=.172^.396^^^^^^^17.181
+9 ;;^UTILITY(U,$J,112,7532,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7533,0)
+12 ;;=ENTREES,LASAGNA,VERDE,STOUFFERS^BC-00806^8-oz.^227
+13 ;;^UTILITY(U,$J,112,7533,1)
+14 ;;=9.295^8.194^9.295^148.018^71.013^^^159.912^.401^^^129.956^459.912^^^^^500^^.048
+15 ;;^UTILITY(U,$J,112,7533,2)
+16 ;;=.159^1.586^^^^^^^19.824
+17 ;;^UTILITY(U,$J,112,7533,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7534,0)
+20 ;;=ENTREES,LASAGNA W/MEAT SCE,BANQUET (FAM)^BC-00807^7-oz.^198
+21 ;;^UTILITY(U,$J,112,7534,1)
+22 ;;=7.576^5.051^15.152^136.364^^^^123.232^1.212^^^171.717^505.051^^^^^652.02^.505^.253
+23 ;;^UTILITY(U,$J,112,7534,2)
+24 ;;=.152^1.616
+25 ;;^UTILITY(U,$J,112,7534,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7535,0)
+28 ;;=ENTREES,LASAGNA W/MEAT SCE,DINING LITE^BC-00808^9-oz.^255
+29 ;;^UTILITY(U,$J,112,7535,1)
+30 ;;=5.098^1.961^14.118^94.118^^^^53.725^1.176^^^250.98^313.725^^^^^534.51^2.745^.094
+31 ;;^UTILITY(U,$J,112,7535,2)
+32 ;;=.078^.784^^^^^^^9.804
+33 ;;^UTILITY(U,$J,112,7535,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7536,0)
+36 ;;=ENTREES,LASAGNA W/MEAT SCE,HEALTHY CHOICE^BC-00809^9-oz.^255
+37 ;;^UTILITY(U,$J,112,7536,1)
+38 ;;=7.059^1.961^14.51^101.961^^^^43.137^.784^^82.745^196.078^164.706^^^^^321.569^1.176^.122
+39 ;;^UTILITY(U,$J,112,7536,2)
+40 ;;=.125^1.02^^^^^^^19.608
+41 ;;^UTILITY(U,$J,112,7536,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7537,0)
+44 ;;=ENTREES,LASAGNA W/MEAT SCE,LEAN CUISINE^BC-00810^10.3-oz.^291
+45 ;;^UTILITY(U,$J,112,7537,1)
+46 ;;=9.278^2.749^8.247^96.22^^^^85.911^.495^^^185.567^343.643^^^^^687.285^1.718^.309
+47 ;;^UTILITY(U,$J,112,7537,2)
+48 ;;=.148^1.375^^^^^^^24.055^1.031^^0
+49 ;;^UTILITY(U,$J,112,7537,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7538,0)
+52 ;;=ENTREES,LASAGNA W/MEAT SCE,LE MENU LIGHTSTYLE^BC-00811^10-oz.^284
+53 ;;^UTILITY(U,$J,112,7538,1)
+54 ;;=6.549^2.711^12.711^101.408^^^^59.155^1.268^^^219.718^178.169^^^^^460.915^6.69^.067
+55 ;;^UTILITY(U,$J,112,7538,2)
+56 ;;=.102^1.761^^^^^^^10.563^.81^^.387
+57 ;;^UTILITY(U,$J,112,7538,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7539,0)
+60 ;;=ENTREES,LASAGNA W/MEAT SCE,STOUFFERS^BC-00812^8-oz.^227
+61 ;;^UTILITY(U,$J,112,7539,1)
+62 ;;=9.78^5.198^11.982^133.04^71.982^^^119.824^.599^^^159.912^389.868^^^^^180.176^2.203^.048
+63 ;;^UTILITY(U,$J,112,7539,2)
+64 ;;=.132^.881^^^^^^^14.978
+65 ;;^UTILITY(U,$J,112,7539,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,7540,0)
+68 ;;=ENTREES,LASAGNA W/MEAT SCE,SWANSON^BC-00813^10.5-oz.^298
+69 ;;^UTILITY(U,$J,112,7540,1)
+70 ;;=8.691^5.034^13.188^132.55^^^^167.114^1.007^^^160.738^360.403^^^^^343.624^2.685^.087
+71 ;;^UTILITY(U,$J,112,7540,2)
+72 ;;=.111^.94
+73 ;;^UTILITY(U,$J,112,7540,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,7541,0)
+76 ;;=ENTREES,LASAGNA,ZUCCHINI,LEAN CUISINE^BC-00814^11-oz.^311
+77 ;;^UTILITY(U,$J,112,7541,1)
+78 ;;=6.752^2.251^9.003^83.601^^^^96.463^.579^^^192.926^313.505^^^^^803.859^1.929^.039
+79 ;;^UTILITY(U,$J,112,7541,2)
+80 ;;=.084^.643^^^^^^^6.431^.643^^0
+81 ;;^UTILITY(U,$J,112,7541,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7542,0)
+84 ;;=ENTREES,LINGUINI W/CLAM SCE,LEAN CUISINE^BC-00815^9.6-oz.^272
+85 ;;^UTILITY(U,$J,112,7542,1)
+86 ;;=5.882^2.574^11.765^95.588^^^^7.353^.662^^^36.765^294.118^^^^^0^0^.022
+87 ;;^UTILITY(U,$J,112,7542,2)
+88 ;;=.037^.441^^^^^^^11.029^.368^^.735
+89 ;;^UTILITY(U,$J,112,7542,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7543,0)
+92 ;;=ENTREES,LINGUINI W/SHRIMP & CLAM,MRS. PAUL'S LIGHT^BC-00816^10-oz.^284
+93 ;;^UTILITY(U,$J,112,7543,1)
+94 ;;=4.789^2.923^13.944^101.408^^^^11.972^1.056^^^33.099^212.324^^^^^33.099^3.169^.042
+95 ;;^UTILITY(U,$J,112,7543,2)
+96 ;;=.042^.599
+97 ;;^UTILITY(U,$J,112,7543,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7544,0)
+100 ;;=ENTREES,LINGUINI W/SHRIMP,HEALTHY CHOICE^BC-00817^9.5-oz.^269
+101 ;;^UTILITY(U,$J,112,7544,1)
+102 ;;=4.461^.743^14.87^85.502^^^^31.227^1.487^^47.955^104.089^144.981^^^^^150.929^2.602^.115
+103 ;;^UTILITY(U,$J,112,7544,2)
+104 ;;=.086^.632^^^^^^^20.446
+105 ;;^UTILITY(U,$J,112,7544,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
