FHINI0CB ; ; 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,7930,1)
;;=2.347^1.878^11.268^70.423^^^^^^^^107.981^286.385
;;^UTILITY(U,$J,112,7930,2)
;;=^^^^^^^^0^.469^.469^.939
;;^UTILITY(U,$J,112,7930,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7931,0)
;;=REFRIG ENTREES,RAVIOLI,CHEESE,CONTADINA^BC-01204^4.5-oz.^128
;;^UTILITY(U,$J,112,7931,1)
;;=14.063^11.719^30.469^289.063^^^^265.625^1.117^26.563^250^93.75^421.875^.891^.002^^^402.344^0^.125
;;^UTILITY(U,$J,112,7931,2)
;;=.188^.938^.32^.078^10.156^.422^^^85.938^7.813^3.906^0
;;^UTILITY(U,$J,112,7931,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7932,0)
;;=REFRIG ENTREES,RAVIOLI,CHEESE W/SCE,BUITONI^BC-01205^7.5-oz.^213
;;^UTILITY(U,$J,112,7932,1)
;;=3.286^2.817^12.676^89.202^^^^^^^^65.728^370.892
;;^UTILITY(U,$J,112,7932,2)
;;=^^^^^^^^2.347^.939^.469^.939
;;^UTILITY(U,$J,112,7932,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7933,0)
;;=REFRIG ENTREES,RAVIOLI,MEAT,CONTADINA^BC-01206^4.5-oz.^128
;;^UTILITY(U,$J,112,7933,1)
;;=14.063^8.594^29.688^265.625^^^^62.5^1.969^11.719^167.969^148.438^382.813^.242^.005^^^281.25^.781^.133
;;^UTILITY(U,$J,112,7933,2)
;;=.148^2.031^.219^.023^10.938^.203^^^78.125^3.906^3.906^.781
;;^UTILITY(U,$J,112,7933,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7934,0)
;;=REFRIG ENTREES,RAVIOLI,MEAT SCE,BUITONI^BC-01207^7.5-oz.^213
;;^UTILITY(U,$J,112,7934,1)
;;=3.286^1.878^13.146^84.507^^^^^^^^159.624^417.84
;;^UTILITY(U,$J,112,7934,2)
;;=^^^^^^^^2.347^.469^.469^.939
;;^UTILITY(U,$J,112,7934,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7935,0)
;;=REFRIG ENTREES,RAVIOLI,MEAT SCE,PASTA EXPRESS^BC-01208^10-oz.^284
;;^UTILITY(U,$J,112,7935,1)
;;=4.93^4.93^16.162^128.873^^^^22.887^1.162^^^200^434.859^^^^^500.352^5.634^.085
;;^UTILITY(U,$J,112,7935,2)
;;=.046^1.162
;;^UTILITY(U,$J,112,7935,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7936,0)
;;=REFRIG ENTREES,RAVIOLI (SPINACH),CHEESE,CONTADINA^BC-01209^4.5-oz.^128
;;^UTILITY(U,$J,112,7936,1)
;;=14.063^11.719^28.125^281.25^^^^281.25^1.539^26.563^250^179.688^437.5^.891^.002^^^402.344^0^.125
;;^UTILITY(U,$J,112,7936,2)
;;=.211^1.016^.32^.078^10.156^.422^^^89.844^7.813^3.906^0
;;^UTILITY(U,$J,112,7936,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7937,0)
;;=REFRIG ENTREES,RINGS & MEATBALLS W/SCE,BUITONI^BC-01210^7.5-oz.^213
;;^UTILITY(U,$J,112,7937,1)
;;=3.756^3.286^13.146^98.592^^^^^^^^98.592^399.061
;;^UTILITY(U,$J,112,7937,2)
;;=^^^^^^^^9.39^2.347^.469^0
;;^UTILITY(U,$J,112,7937,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7938,0)
;;=REFRIG ENTREES,RINGS W/SCE,BUITONI^BC-01211^7.5-oz.^213
;;^UTILITY(U,$J,112,7938,1)
;;=2.347^1.878^11.268^70.423^^^^^^^^70.423^305.164
;;^UTILITY(U,$J,112,7938,2)
;;=^^^^^^^^2.347^.469^.469^.939
;;^UTILITY(U,$J,112,7938,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7939,0)
;;=REFRIG ENTREES,SHELLS,STUFFED,BUITONI^BC-01212^9-oz.^255
;;^UTILITY(U,$J,112,7939,1)
;;=7.059^5.098^18.039^180.392^^^^^^^^243.137^329.412
;;^UTILITY(U,$J,112,7939,2)
;;=^^^^^^^^31.373^2.745^1.961^.392
;;^UTILITY(U,$J,112,7939,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7940,0)
;;=REFRIG ENTREES,SPAGHETTI & MEATBALLS W/SCE,BUITONI^BC-01213^7.5-oz.^213
;;^UTILITY(U,$J,112,7940,1)
;;=4.225^3.756^9.859^89.202^^^^^^^^126.761^441.315
;;^UTILITY(U,$J,112,7940,2)
;;=^^^^^^^^9.39^2.817^.469^.469
;;^UTILITY(U,$J,112,7940,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7941,0)
;;=REFRIG ENTREES,SPAGHETTI & MEATBALLS W/SCE,PASTA EXPRESS^BC-01214^10-oz.^284
;;^UTILITY(U,$J,112,7941,1)
;;=5.106^2.324^16.866^108.803^^^^34.507^1.021^^^207.746^353.169^^^^^144.366^3.169^.07
;;^UTILITY(U,$J,112,7941,2)
;;=.127^.951
;;^UTILITY(U,$J,112,7941,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7942,0)
;;=REFRIG ENTREES,TORTELLINI,CHEESE,CONTADINA^BC-01215^4.5-oz.^128
;;^UTILITY(U,$J,112,7942,1)
;;=14.063^6.25^42.969^289.063^^^^218.75^2.813^7.031^234.375^97.656^453.125^.266^.002^^^207.031^0^.578
;;^UTILITY(U,$J,112,7942,2)
;;=.438^5^.141^.016^5.469^.125^^^50.781^3.125^2.344^.781
;;^UTILITY(U,$J,112,7942,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7943,0)
;;=REFRIG ENTREES,TORTELLINI,CHICKEN & PROSCIUTTO,CONTADINA^BC-01216^4.5-oz.^128
FHINI0CB ; ; 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,7930,1)
+2 ;;=2.347^1.878^11.268^70.423^^^^^^^^107.981^286.385
+3 ;;^UTILITY(U,$J,112,7930,2)
+4 ;;=^^^^^^^^0^.469^.469^.939
+5 ;;^UTILITY(U,$J,112,7930,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7931,0)
+8 ;;=REFRIG ENTREES,RAVIOLI,CHEESE,CONTADINA^BC-01204^4.5-oz.^128
+9 ;;^UTILITY(U,$J,112,7931,1)
+10 ;;=14.063^11.719^30.469^289.063^^^^265.625^1.117^26.563^250^93.75^421.875^.891^.002^^^402.344^0^.125
+11 ;;^UTILITY(U,$J,112,7931,2)
+12 ;;=.188^.938^.32^.078^10.156^.422^^^85.938^7.813^3.906^0
+13 ;;^UTILITY(U,$J,112,7931,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7932,0)
+16 ;;=REFRIG ENTREES,RAVIOLI,CHEESE W/SCE,BUITONI^BC-01205^7.5-oz.^213
+17 ;;^UTILITY(U,$J,112,7932,1)
+18 ;;=3.286^2.817^12.676^89.202^^^^^^^^65.728^370.892
+19 ;;^UTILITY(U,$J,112,7932,2)
+20 ;;=^^^^^^^^2.347^.939^.469^.939
+21 ;;^UTILITY(U,$J,112,7932,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7933,0)
+24 ;;=REFRIG ENTREES,RAVIOLI,MEAT,CONTADINA^BC-01206^4.5-oz.^128
+25 ;;^UTILITY(U,$J,112,7933,1)
+26 ;;=14.063^8.594^29.688^265.625^^^^62.5^1.969^11.719^167.969^148.438^382.813^.242^.005^^^281.25^.781^.133
+27 ;;^UTILITY(U,$J,112,7933,2)
+28 ;;=.148^2.031^.219^.023^10.938^.203^^^78.125^3.906^3.906^.781
+29 ;;^UTILITY(U,$J,112,7933,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7934,0)
+32 ;;=REFRIG ENTREES,RAVIOLI,MEAT SCE,BUITONI^BC-01207^7.5-oz.^213
+33 ;;^UTILITY(U,$J,112,7934,1)
+34 ;;=3.286^1.878^13.146^84.507^^^^^^^^159.624^417.84
+35 ;;^UTILITY(U,$J,112,7934,2)
+36 ;;=^^^^^^^^2.347^.469^.469^.939
+37 ;;^UTILITY(U,$J,112,7934,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7935,0)
+40 ;;=REFRIG ENTREES,RAVIOLI,MEAT SCE,PASTA EXPRESS^BC-01208^10-oz.^284
+41 ;;^UTILITY(U,$J,112,7935,1)
+42 ;;=4.93^4.93^16.162^128.873^^^^22.887^1.162^^^200^434.859^^^^^500.352^5.634^.085
+43 ;;^UTILITY(U,$J,112,7935,2)
+44 ;;=.046^1.162
+45 ;;^UTILITY(U,$J,112,7935,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7936,0)
+48 ;;=REFRIG ENTREES,RAVIOLI (SPINACH),CHEESE,CONTADINA^BC-01209^4.5-oz.^128
+49 ;;^UTILITY(U,$J,112,7936,1)
+50 ;;=14.063^11.719^28.125^281.25^^^^281.25^1.539^26.563^250^179.688^437.5^.891^.002^^^402.344^0^.125
+51 ;;^UTILITY(U,$J,112,7936,2)
+52 ;;=.211^1.016^.32^.078^10.156^.422^^^89.844^7.813^3.906^0
+53 ;;^UTILITY(U,$J,112,7936,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7937,0)
+56 ;;=REFRIG ENTREES,RINGS & MEATBALLS W/SCE,BUITONI^BC-01210^7.5-oz.^213
+57 ;;^UTILITY(U,$J,112,7937,1)
+58 ;;=3.756^3.286^13.146^98.592^^^^^^^^98.592^399.061
+59 ;;^UTILITY(U,$J,112,7937,2)
+60 ;;=^^^^^^^^9.39^2.347^.469^0
+61 ;;^UTILITY(U,$J,112,7937,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7938,0)
+64 ;;=REFRIG ENTREES,RINGS W/SCE,BUITONI^BC-01211^7.5-oz.^213
+65 ;;^UTILITY(U,$J,112,7938,1)
+66 ;;=2.347^1.878^11.268^70.423^^^^^^^^70.423^305.164
+67 ;;^UTILITY(U,$J,112,7938,2)
+68 ;;=^^^^^^^^2.347^.469^.469^.939
+69 ;;^UTILITY(U,$J,112,7938,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7939,0)
+72 ;;=REFRIG ENTREES,SHELLS,STUFFED,BUITONI^BC-01212^9-oz.^255
+73 ;;^UTILITY(U,$J,112,7939,1)
+74 ;;=7.059^5.098^18.039^180.392^^^^^^^^243.137^329.412
+75 ;;^UTILITY(U,$J,112,7939,2)
+76 ;;=^^^^^^^^31.373^2.745^1.961^.392
+77 ;;^UTILITY(U,$J,112,7939,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7940,0)
+80 ;;=REFRIG ENTREES,SPAGHETTI & MEATBALLS W/SCE,BUITONI^BC-01213^7.5-oz.^213
+81 ;;^UTILITY(U,$J,112,7940,1)
+82 ;;=4.225^3.756^9.859^89.202^^^^^^^^126.761^441.315
+83 ;;^UTILITY(U,$J,112,7940,2)
+84 ;;=^^^^^^^^9.39^2.817^.469^.469
+85 ;;^UTILITY(U,$J,112,7940,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7941,0)
+88 ;;=REFRIG ENTREES,SPAGHETTI & MEATBALLS W/SCE,PASTA EXPRESS^BC-01214^10-oz.^284
+89 ;;^UTILITY(U,$J,112,7941,1)
+90 ;;=5.106^2.324^16.866^108.803^^^^34.507^1.021^^^207.746^353.169^^^^^144.366^3.169^.07
+91 ;;^UTILITY(U,$J,112,7941,2)
+92 ;;=.127^.951
+93 ;;^UTILITY(U,$J,112,7941,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7942,0)
+96 ;;=REFRIG ENTREES,TORTELLINI,CHEESE,CONTADINA^BC-01215^4.5-oz.^128
+97 ;;^UTILITY(U,$J,112,7942,1)
+98 ;;=14.063^6.25^42.969^289.063^^^^218.75^2.813^7.031^234.375^97.656^453.125^.266^.002^^^207.031^0^.578
+99 ;;^UTILITY(U,$J,112,7942,2)
+100 ;;=.438^5^.141^.016^5.469^.125^^^50.781^3.125^2.344^.781
+101 ;;^UTILITY(U,$J,112,7942,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7943,0)
+104 ;;=REFRIG ENTREES,TORTELLINI,CHICKEN & PROSCIUTTO,CONTADINA^BC-01216^4.5-oz.^128
