FHINI0CA ; ; 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,7917,0)
;;=REFRIG ENTREES,AGNOLOTTI,CONTADINA^BC-01190^4.5-oz.^128
;;^UTILITY(U,$J,112,7917,1)
;;=14.063^7.813^42.188^296.875^^^^207.031^2.773^12.5^234.375^121.094^359.375^.336^.055^^^289.063^.781^.477
;;^UTILITY(U,$J,112,7917,2)
;;=.375^4.219^.164^.039^11.719^.109^^^46.875^3.906^1.563^2.344
;;^UTILITY(U,$J,112,7917,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7918,0)
;;=REFRIG ENTREES,BEEF SIRLOIN TIPS W/GRAVY,NOODLES,CAMPBELL'S^BC-01191^9-oz.^255
;;^UTILITY(U,$J,112,7918,1)
;;=11.373^6.863^14.588^165.49^^^^12.157^1.686^^^90.196^115.686^^^^^0^0^.055
;;^UTILITY(U,$J,112,7918,2)
;;=.129^1.216
;;^UTILITY(U,$J,112,7918,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7919,0)
;;=REFRIG ENTREES,CHKEN FETT W/ALFR SCE & VEG,CAMPBELL'S^BC-01192^10-oz.^284
;;^UTILITY(U,$J,112,7919,1)
;;=14.683^6.127^8.063^146.127^^^^52.113^.951^^^189.789^123.592^^^^^67.958^0^.032
;;^UTILITY(U,$J,112,7919,2)
;;=.088^2.641
;;^UTILITY(U,$J,112,7919,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7920,0)
;;=REFRIG ENTREES,LASAGNA,BEEF,CAMPBELL'S^BC-01193^10-oz.^284
;;^UTILITY(U,$J,112,7920,1)
;;=9.648^7.042^11.585^148.239^^^^123.592^^^^261.972^330.634^1.338^^^^477.817^1.056^.049
;;^UTILITY(U,$J,112,7920,2)
;;=.106^1.268
;;^UTILITY(U,$J,112,7920,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7921,0)
;;=REFRIG ENTREES,LASAGNA,5 CHEESE,CAMPBELL'S^BC-01194^10-oz.^284
;;^UTILITY(U,$J,112,7921,1)
;;=8.099^7.077^10.704^138.732^^^^198.592^.81^^^121.479^377.465^^^^^286.268^0^.025
;;^UTILITY(U,$J,112,7921,2)
;;=.12^.915
;;^UTILITY(U,$J,112,7921,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7922,0)
;;=REFRIG ENTREES,MACARONI & CHEESE,CAMPBELL'S^BC-01195^10-oz.^284
;;^UTILITY(U,$J,112,7922,1)
;;=8.275^7.5^15.845^163.732^^^^179.93^.951^^^50^525.704^^^^^173.592^0^.06
;;^UTILITY(U,$J,112,7922,2)
;;=.134^.669
;;^UTILITY(U,$J,112,7922,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7923,0)
;;=REFRIG ENTREES,PASTA PRIMAVERA,CAMPBELL'S^BC-01196^10-oz.^284
;;^UTILITY(U,$J,112,7923,1)
;;=4.93^7.817^10.88^133.803^^^^93.31^.845^^^28.169^310.563^^^^^359.859^.704^.039
;;^UTILITY(U,$J,112,7923,2)
;;=.099^.739
;;^UTILITY(U,$J,112,7923,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7924,0)
;;=REFRIG ENTREES,PASTA,ROUND,HAMBURGER,TOMATO SCE PAS EXPRESS^BC-01197^10-oz.^284
;;^UTILITY(U,$J,112,7924,1)
;;=4.401^4.93^16.831^129.225^^^^21.127^1.373^^^209.507^399.296^^^^^442.958^5.634^.127
;;^UTILITY(U,$J,112,7924,2)
;;=.067^1.549
;;^UTILITY(U,$J,112,7924,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7925,0)
;;=REFRIG ENTREES,PASTA,ROUND,ITALIAN SAUSAGE,SCE,PAS EXPRESS^BC-01198^10-oz.^284
;;^UTILITY(U,$J,112,7925,1)
;;=5.176^3.732^15.528^116.549^^^^16.549^1.373^^^202.817^354.93^^^^^478.169^5.634^.148
;;^UTILITY(U,$J,112,7925,2)
;;=.07^1.444
;;^UTILITY(U,$J,112,7925,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7926,0)
;;=REFRIG ENTREES,PASTA,ROUND W/TOMATO SCE,PASTA EXPRESS^BC-01199^10-oz.^284
;;^UTILITY(U,$J,112,7926,1)
;;=2.711^1.901^19.049^103.873^^^^23.592^1.162^^^183.803^357.746^^^^^490.493^6.338^.123
;;^UTILITY(U,$J,112,7926,2)
;;=.067^1.232
;;^UTILITY(U,$J,112,7926,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7927,0)
;;=REFRIG ENTREES,PASTA,SHELLS W/MEAT,TACO SCE,PASTA EXPRESS^BC-01200^10-oz.^284
;;^UTILITY(U,$J,112,7927,1)
;;=5.775^2.042^12.5^91.197^^^^14.437^1.127^^^170.07^398.592^^^^^538.028^4.577^.116
;;^UTILITY(U,$J,112,7927,2)
;;=.056^1.444
;;^UTILITY(U,$J,112,7927,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7928,0)
;;=REFRIG ENTREES,PASTA,TWISTS & MEATBALLS W/SCE,BUITONI^BC-01201^7.5-oz.^213
;;^UTILITY(U,$J,112,7928,1)
;;=3.756^3.286^13.146^98.592^^^^^^^^122.066^399.061
;;^UTILITY(U,$J,112,7928,2)
;;=^^^^^^^^9.39^2.347^.469^0
;;^UTILITY(U,$J,112,7928,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7929,0)
;;=REFRIG ENTREES,PASTA,TWISTS W/MEAT SCE,PASTA EXPRESS^BC-01202^10-oz.^284
;;^UTILITY(U,$J,112,7929,1)
;;=5.246^1.796^16.197^101.761^^^^21.831^1.232^^^204.93^475^^^^^474.296^6.338^.137
;;^UTILITY(U,$J,112,7929,2)
;;=.056^1.408
;;^UTILITY(U,$J,112,7929,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7930,0)
;;=REFRIG ENTREES,PASTA,TWISTS W/SCE.BUITONI^BC-01203^7.5-oz.^213
FHINI0CA ; ; 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,7917,0)
+2 ;;=REFRIG ENTREES,AGNOLOTTI,CONTADINA^BC-01190^4.5-oz.^128
+3 ;;^UTILITY(U,$J,112,7917,1)
+4 ;;=14.063^7.813^42.188^296.875^^^^207.031^2.773^12.5^234.375^121.094^359.375^.336^.055^^^289.063^.781^.477
+5 ;;^UTILITY(U,$J,112,7917,2)
+6 ;;=.375^4.219^.164^.039^11.719^.109^^^46.875^3.906^1.563^2.344
+7 ;;^UTILITY(U,$J,112,7917,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7918,0)
+10 ;;=REFRIG ENTREES,BEEF SIRLOIN TIPS W/GRAVY,NOODLES,CAMPBELL'S^BC-01191^9-oz.^255
+11 ;;^UTILITY(U,$J,112,7918,1)
+12 ;;=11.373^6.863^14.588^165.49^^^^12.157^1.686^^^90.196^115.686^^^^^0^0^.055
+13 ;;^UTILITY(U,$J,112,7918,2)
+14 ;;=.129^1.216
+15 ;;^UTILITY(U,$J,112,7918,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7919,0)
+18 ;;=REFRIG ENTREES,CHKEN FETT W/ALFR SCE & VEG,CAMPBELL'S^BC-01192^10-oz.^284
+19 ;;^UTILITY(U,$J,112,7919,1)
+20 ;;=14.683^6.127^8.063^146.127^^^^52.113^.951^^^189.789^123.592^^^^^67.958^0^.032
+21 ;;^UTILITY(U,$J,112,7919,2)
+22 ;;=.088^2.641
+23 ;;^UTILITY(U,$J,112,7919,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7920,0)
+26 ;;=REFRIG ENTREES,LASAGNA,BEEF,CAMPBELL'S^BC-01193^10-oz.^284
+27 ;;^UTILITY(U,$J,112,7920,1)
+28 ;;=9.648^7.042^11.585^148.239^^^^123.592^^^^261.972^330.634^1.338^^^^477.817^1.056^.049
+29 ;;^UTILITY(U,$J,112,7920,2)
+30 ;;=.106^1.268
+31 ;;^UTILITY(U,$J,112,7920,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7921,0)
+34 ;;=REFRIG ENTREES,LASAGNA,5 CHEESE,CAMPBELL'S^BC-01194^10-oz.^284
+35 ;;^UTILITY(U,$J,112,7921,1)
+36 ;;=8.099^7.077^10.704^138.732^^^^198.592^.81^^^121.479^377.465^^^^^286.268^0^.025
+37 ;;^UTILITY(U,$J,112,7921,2)
+38 ;;=.12^.915
+39 ;;^UTILITY(U,$J,112,7921,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,7922,0)
+42 ;;=REFRIG ENTREES,MACARONI & CHEESE,CAMPBELL'S^BC-01195^10-oz.^284
+43 ;;^UTILITY(U,$J,112,7922,1)
+44 ;;=8.275^7.5^15.845^163.732^^^^179.93^.951^^^50^525.704^^^^^173.592^0^.06
+45 ;;^UTILITY(U,$J,112,7922,2)
+46 ;;=.134^.669
+47 ;;^UTILITY(U,$J,112,7922,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,7923,0)
+50 ;;=REFRIG ENTREES,PASTA PRIMAVERA,CAMPBELL'S^BC-01196^10-oz.^284
+51 ;;^UTILITY(U,$J,112,7923,1)
+52 ;;=4.93^7.817^10.88^133.803^^^^93.31^.845^^^28.169^310.563^^^^^359.859^.704^.039
+53 ;;^UTILITY(U,$J,112,7923,2)
+54 ;;=.099^.739
+55 ;;^UTILITY(U,$J,112,7923,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7924,0)
+58 ;;=REFRIG ENTREES,PASTA,ROUND,HAMBURGER,TOMATO SCE PAS EXPRESS^BC-01197^10-oz.^284
+59 ;;^UTILITY(U,$J,112,7924,1)
+60 ;;=4.401^4.93^16.831^129.225^^^^21.127^1.373^^^209.507^399.296^^^^^442.958^5.634^.127
+61 ;;^UTILITY(U,$J,112,7924,2)
+62 ;;=.067^1.549
+63 ;;^UTILITY(U,$J,112,7924,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7925,0)
+66 ;;=REFRIG ENTREES,PASTA,ROUND,ITALIAN SAUSAGE,SCE,PAS EXPRESS^BC-01198^10-oz.^284
+67 ;;^UTILITY(U,$J,112,7925,1)
+68 ;;=5.176^3.732^15.528^116.549^^^^16.549^1.373^^^202.817^354.93^^^^^478.169^5.634^.148
+69 ;;^UTILITY(U,$J,112,7925,2)
+70 ;;=.07^1.444
+71 ;;^UTILITY(U,$J,112,7925,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7926,0)
+74 ;;=REFRIG ENTREES,PASTA,ROUND W/TOMATO SCE,PASTA EXPRESS^BC-01199^10-oz.^284
+75 ;;^UTILITY(U,$J,112,7926,1)
+76 ;;=2.711^1.901^19.049^103.873^^^^23.592^1.162^^^183.803^357.746^^^^^490.493^6.338^.123
+77 ;;^UTILITY(U,$J,112,7926,2)
+78 ;;=.067^1.232
+79 ;;^UTILITY(U,$J,112,7926,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7927,0)
+82 ;;=REFRIG ENTREES,PASTA,SHELLS W/MEAT,TACO SCE,PASTA EXPRESS^BC-01200^10-oz.^284
+83 ;;^UTILITY(U,$J,112,7927,1)
+84 ;;=5.775^2.042^12.5^91.197^^^^14.437^1.127^^^170.07^398.592^^^^^538.028^4.577^.116
+85 ;;^UTILITY(U,$J,112,7927,2)
+86 ;;=.056^1.444
+87 ;;^UTILITY(U,$J,112,7927,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7928,0)
+90 ;;=REFRIG ENTREES,PASTA,TWISTS & MEATBALLS W/SCE,BUITONI^BC-01201^7.5-oz.^213
+91 ;;^UTILITY(U,$J,112,7928,1)
+92 ;;=3.756^3.286^13.146^98.592^^^^^^^^122.066^399.061
+93 ;;^UTILITY(U,$J,112,7928,2)
+94 ;;=^^^^^^^^9.39^2.347^.469^0
+95 ;;^UTILITY(U,$J,112,7928,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7929,0)
+98 ;;=REFRIG ENTREES,PASTA,TWISTS W/MEAT SCE,PASTA EXPRESS^BC-01202^10-oz.^284
+99 ;;^UTILITY(U,$J,112,7929,1)
+100 ;;=5.246^1.796^16.197^101.761^^^^21.831^1.232^^^204.93^475^^^^^474.296^6.338^.137
+101 ;;^UTILITY(U,$J,112,7929,2)
+102 ;;=.056^1.408
+103 ;;^UTILITY(U,$J,112,7929,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7930,0)
+106 ;;=REFRIG ENTREES,PASTA,TWISTS W/SCE.BUITONI^BC-01203^7.5-oz.^213
