FHINI0GH ; ; 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,10025,1)
;;=6.195^2.655^18.584^115.044^^^^39.823^1.77^^^389.381^442.478^^^^^^3.54^.168
;;^UTILITY(U,$J,112,10025,2)
;;=.088^.531^^^^^^^12.389^.796^^.354^22.124^^^^5.31
;;^UTILITY(U,$J,112,10025,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10026,0)
;;=BEANS,REFRIED,CND,W/GREEN CHILIES,ROSARITA^BC-03299^4-oz.^113
;;^UTILITY(U,$J,112,10026,1)
;;=5.31^1.77^17.699^106.195^^^^37.168^1.77^^^371.681^380.531^^^^^^9.735^.15
;;^UTILITY(U,$J,112,10026,2)
;;=.071^.442^^^^^^^1.77^.619^^.265^7.08^^^^5.31
;;^UTILITY(U,$J,112,10026,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10027,0)
;;=BEANS,REFRIED,CND,W/NACHO CHEESE,ROSARITA^BC-03300^4-oz.^113
;;^UTILITY(U,$J,112,10027,1)
;;=6.195^1.77^19.469^123.894^^^^46.018^1.77^^^415.929^433.628^^^^^^5.31^.177
;;^UTILITY(U,$J,112,10027,2)
;;=.088^.619^^^^^^^1.77^.796^^.265^29.204^^^^5.31
;;^UTILITY(U,$J,112,10027,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10028,0)
;;=BEANS,REFRIED,CND,W/ONIONS,ROSARITA^BC-03301^4-oz.^113
;;^UTILITY(U,$J,112,10028,1)
;;=6.195^1.77^19.469^115.044^^^^40.708^1.77^^^407.08^442.478^^^^^^3.54^.186
;;^UTILITY(U,$J,112,10028,2)
;;=.071^.531^^^^^^^1.77^.708^^.265^26.549^^^^5.31
;;^UTILITY(U,$J,112,10028,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10029,0)
;;=BROCCOLI,FRZN,CUTS W/CHEESE SCE,PILLSBURY^BC-03302^5-oz.^142
;;^UTILITY(U,$J,112,10029,1)
;;=2.817^1.901^7.817^52.817^85.493^^^64.085^.401^^173.239^230.986^468.31^^^^^945.775^31.69^.042
;;^UTILITY(U,$J,112,10029,2)
;;=.169^.493^^^^^^^1.408^^^^^^^^1.972
;;^UTILITY(U,$J,112,10029,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10030,0)
;;=BROCCOLI,FRZN,SPEARS W/BUTTER SCE,PILLSBURY^BC-03303^1/2-cup^104
;;^UTILITY(U,$J,112,10030,1)
;;=2.019^1.923^5.673^38.462^90.673^^^36.538^.375^^45.192^240.385^336.538^^^^^235.577^29.808^.019
;;^UTILITY(U,$J,112,10030,2)
;;=.067^.385^^^^^^^4.808^^^0
;;^UTILITY(U,$J,112,10030,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10031,0)
;;=BROCCOLI,FROZEN,W/CHEESE SCE,BIRDS EYE^BC-03304^1/2-cup^142
;;^UTILITY(U,$J,112,10031,1)
;;=3.38^4.366^8.169^81.69^82.676^^^76.761^.535^14.085^72.535^175.352^343.662^.331^.028^^^2457.746^30.282^.042
;;^UTILITY(U,$J,112,10031,2)
;;=.134^.352^.296^.092^47.887^.211^^^4.225^1.338^^.634
;;^UTILITY(U,$J,112,10031,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10032,0)
;;=BROCCOLI,FRZN,W/CREARMY ITALIAN CHEESE SCE,BIRDS EYE^BC-03305^1/2-cup^128
;;^UTILITY(U,$J,112,10032,1)
;;=3.906^4.375^5.156^70.313^85.234^^^72.656^.711^13.281^67.188^175.781^305.469^.336^.028^^^1516.406^36.719^.047
;;^UTILITY(U,$J,112,10032,2)
;;=.117^.391^.25^.102^57.813^.195^^^10.938^2.344^^.313
;;^UTILITY(U,$J,112,10032,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10033,0)
;;=BROCCOLI & CARROTS,FRZN,PILLSBURY^BC-03306^1/2-cup^74
;;^UTILITY(U,$J,112,10033,1)
;;=1.757^.135^4.189^27.027^90^^^28.378^.5^^33.784^213.514^36.486^^^^^2235.135^31.081^.041
;;^UTILITY(U,$J,112,10033,2)
;;=.014^.676
;;^UTILITY(U,$J,112,10033,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10034,0)
;;=BROCCOLI & CAULIFLOWER,FRZN,MEDLEY,VALLEY COMBINATIONS^BC-03307^1/2-cup^113
;;^UTILITY(U,$J,112,10034,1)
;;=2.035^.973^9.027^43.363^86.991^^^26.549^.398^^43.363^166.372^230.973^^^^^1305.31^19.469^.062
;;^UTILITY(U,$J,112,10034,2)
;;=.044^.796^^^^^^^0^^^^^^^^2.743
;;^UTILITY(U,$J,112,10034,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10035,0)
;;=BROCCOLI & CAULIFLOWER,FRZN,W/CREAMY ITAL CHEESE,BIRDS EYE^BC-03308^1/2-cup^128
;;^UTILITY(U,$J,112,10035,1)
;;=3.594^4.297^5.234^69.531^85.625^^^61.719^.602^11.719^60.938^171.875^303.125^.281^.023^^^846.875^35.156^.039
;;^UTILITY(U,$J,112,10035,2)
;;=.109^.313^.219^.094^46.875^.195^^^10.938^2.344^^.313
;;^UTILITY(U,$J,112,10035,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10036,0)
;;=BROCCOLI CARROT FANFARE,FROZEN,VALLEY COMB^BC-03309^1/2-cup^76
;;^UTILITY(U,$J,112,10036,1)
;;=1.842^.263^6.974^26.316^90^^^28.947^.5^^34.211^215.789^36.842^^^^^2235.526^31.579^.039
;;^UTILITY(U,$J,112,10036,2)
;;=.013^.658^^^^^^^0^^^^^^^^2.763
;;^UTILITY(U,$J,112,10036,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10037,0)
;;=BROCCOLI CARROTS & PASTA W/LIGHTLY SEASONED SCE,BIRDS EYE^BC-03310^2/3-cup^95
FHINI0GH ; ; 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,10025,1)
+2 ;;=6.195^2.655^18.584^115.044^^^^39.823^1.77^^^389.381^442.478^^^^^^3.54^.168
+3 ;;^UTILITY(U,$J,112,10025,2)
+4 ;;=.088^.531^^^^^^^12.389^.796^^.354^22.124^^^^5.31
+5 ;;^UTILITY(U,$J,112,10025,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,10026,0)
+8 ;;=BEANS,REFRIED,CND,W/GREEN CHILIES,ROSARITA^BC-03299^4-oz.^113
+9 ;;^UTILITY(U,$J,112,10026,1)
+10 ;;=5.31^1.77^17.699^106.195^^^^37.168^1.77^^^371.681^380.531^^^^^^9.735^.15
+11 ;;^UTILITY(U,$J,112,10026,2)
+12 ;;=.071^.442^^^^^^^1.77^.619^^.265^7.08^^^^5.31
+13 ;;^UTILITY(U,$J,112,10026,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,10027,0)
+16 ;;=BEANS,REFRIED,CND,W/NACHO CHEESE,ROSARITA^BC-03300^4-oz.^113
+17 ;;^UTILITY(U,$J,112,10027,1)
+18 ;;=6.195^1.77^19.469^123.894^^^^46.018^1.77^^^415.929^433.628^^^^^^5.31^.177
+19 ;;^UTILITY(U,$J,112,10027,2)
+20 ;;=.088^.619^^^^^^^1.77^.796^^.265^29.204^^^^5.31
+21 ;;^UTILITY(U,$J,112,10027,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,10028,0)
+24 ;;=BEANS,REFRIED,CND,W/ONIONS,ROSARITA^BC-03301^4-oz.^113
+25 ;;^UTILITY(U,$J,112,10028,1)
+26 ;;=6.195^1.77^19.469^115.044^^^^40.708^1.77^^^407.08^442.478^^^^^^3.54^.186
+27 ;;^UTILITY(U,$J,112,10028,2)
+28 ;;=.071^.531^^^^^^^1.77^.708^^.265^26.549^^^^5.31
+29 ;;^UTILITY(U,$J,112,10028,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,10029,0)
+32 ;;=BROCCOLI,FRZN,CUTS W/CHEESE SCE,PILLSBURY^BC-03302^5-oz.^142
+33 ;;^UTILITY(U,$J,112,10029,1)
+34 ;;=2.817^1.901^7.817^52.817^85.493^^^64.085^.401^^173.239^230.986^468.31^^^^^945.775^31.69^.042
+35 ;;^UTILITY(U,$J,112,10029,2)
+36 ;;=.169^.493^^^^^^^1.408^^^^^^^^1.972
+37 ;;^UTILITY(U,$J,112,10029,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,10030,0)
+40 ;;=BROCCOLI,FRZN,SPEARS W/BUTTER SCE,PILLSBURY^BC-03303^1/2-cup^104
+41 ;;^UTILITY(U,$J,112,10030,1)
+42 ;;=2.019^1.923^5.673^38.462^90.673^^^36.538^.375^^45.192^240.385^336.538^^^^^235.577^29.808^.019
+43 ;;^UTILITY(U,$J,112,10030,2)
+44 ;;=.067^.385^^^^^^^4.808^^^0
+45 ;;^UTILITY(U,$J,112,10030,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,10031,0)
+48 ;;=BROCCOLI,FROZEN,W/CHEESE SCE,BIRDS EYE^BC-03304^1/2-cup^142
+49 ;;^UTILITY(U,$J,112,10031,1)
+50 ;;=3.38^4.366^8.169^81.69^82.676^^^76.761^.535^14.085^72.535^175.352^343.662^.331^.028^^^2457.746^30.282^.042
+51 ;;^UTILITY(U,$J,112,10031,2)
+52 ;;=.134^.352^.296^.092^47.887^.211^^^4.225^1.338^^.634
+53 ;;^UTILITY(U,$J,112,10031,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,10032,0)
+56 ;;=BROCCOLI,FRZN,W/CREARMY ITALIAN CHEESE SCE,BIRDS EYE^BC-03305^1/2-cup^128
+57 ;;^UTILITY(U,$J,112,10032,1)
+58 ;;=3.906^4.375^5.156^70.313^85.234^^^72.656^.711^13.281^67.188^175.781^305.469^.336^.028^^^1516.406^36.719^.047
+59 ;;^UTILITY(U,$J,112,10032,2)
+60 ;;=.117^.391^.25^.102^57.813^.195^^^10.938^2.344^^.313
+61 ;;^UTILITY(U,$J,112,10032,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,10033,0)
+64 ;;=BROCCOLI & CARROTS,FRZN,PILLSBURY^BC-03306^1/2-cup^74
+65 ;;^UTILITY(U,$J,112,10033,1)
+66 ;;=1.757^.135^4.189^27.027^90^^^28.378^.5^^33.784^213.514^36.486^^^^^2235.135^31.081^.041
+67 ;;^UTILITY(U,$J,112,10033,2)
+68 ;;=.014^.676
+69 ;;^UTILITY(U,$J,112,10033,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,10034,0)
+72 ;;=BROCCOLI & CAULIFLOWER,FRZN,MEDLEY,VALLEY COMBINATIONS^BC-03307^1/2-cup^113
+73 ;;^UTILITY(U,$J,112,10034,1)
+74 ;;=2.035^.973^9.027^43.363^86.991^^^26.549^.398^^43.363^166.372^230.973^^^^^1305.31^19.469^.062
+75 ;;^UTILITY(U,$J,112,10034,2)
+76 ;;=.044^.796^^^^^^^0^^^^^^^^2.743
+77 ;;^UTILITY(U,$J,112,10034,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,10035,0)
+80 ;;=BROCCOLI & CAULIFLOWER,FRZN,W/CREAMY ITAL CHEESE,BIRDS EYE^BC-03308^1/2-cup^128
+81 ;;^UTILITY(U,$J,112,10035,1)
+82 ;;=3.594^4.297^5.234^69.531^85.625^^^61.719^.602^11.719^60.938^171.875^303.125^.281^.023^^^846.875^35.156^.039
+83 ;;^UTILITY(U,$J,112,10035,2)
+84 ;;=.109^.313^.219^.094^46.875^.195^^^10.938^2.344^^.313
+85 ;;^UTILITY(U,$J,112,10035,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,10036,0)
+88 ;;=BROCCOLI CARROT FANFARE,FROZEN,VALLEY COMB^BC-03309^1/2-cup^76
+89 ;;^UTILITY(U,$J,112,10036,1)
+90 ;;=1.842^.263^6.974^26.316^90^^^28.947^.5^^34.211^215.789^36.842^^^^^2235.526^31.579^.039
+91 ;;^UTILITY(U,$J,112,10036,2)
+92 ;;=.013^.658^^^^^^^0^^^^^^^^2.763
+93 ;;^UTILITY(U,$J,112,10036,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,10037,0)
+96 ;;=BROCCOLI CARROTS & PASTA W/LIGHTLY SEASONED SCE,BIRDS EYE^BC-03310^2/3-cup^95
