FHINI0GI ; ; 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,10037,1)
;;=2.316^4.632^11.158^91.579^80.632^^^36.842^.8^13.684^42.105^172.632^283.158^.284^.056^^^9315.789^23.158^.063
;;^UTILITY(U,$J,112,10037,2)
;;=.074^.632^.168^.126^36.842^0^^^0^.842^^.947
;;^UTILITY(U,$J,112,10037,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10038,0)
;;=BROCCOLI,CARROTS & ROTINI W/CHEESE SCE,FRZN,PILLSBURY^BC-03311^5.5-oz.^156
;;^UTILITY(U,$J,112,10038,1)
;;=2.564^1.923^12.821^76.923^^^^^^^^179.487^352.564
;;^UTILITY(U,$J,112,10038,2)
;;=^^^^^^^^1.282
;;^UTILITY(U,$J,112,10038,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10039,0)
;;=BROCCOLI,CARROTS & WATERCHESTNUTS,FRZN,BIRDS EYE^BC-03312^3/4-cup^113
;;^UTILITY(U,$J,112,10039,1)
;;=2.389^.265^8.319^39.823^88.319^^^43.363^.735^15.929^47.788^246.018^30.088^.327^.077^^^5338.053^37.168^.053
;;^UTILITY(U,$J,112,10039,2)
;;=.097^.619^.265^.177^59.292^0^^^0^0^^.088^^^^^3.097
;;^UTILITY(U,$J,112,10039,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10040,0)
;;=BROCCOLI,CAULIFLOWER & CARROTS,FRZN,BIRDS EYE^BC-03313^3/4-cup^113
;;^UTILITY(U,$J,112,10040,1)
;;=2.124^.265^6.018^29.204^90.973^^^37.168^.726^13.274^42.478^207.08^29.204^.265^.042^^^6921.239^39.823^.053
;;^UTILITY(U,$J,112,10040,2)
;;=.071^.531^.195^.15^53.097^0^^^0^0^^.088^^^^^2.389
;;^UTILITY(U,$J,112,10040,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10041,0)
;;=BROCCOLI,CAULIFLOWER & CARROTS,FRZN,W/BUTTERSCE,PILLSBURY^BC-03314^1/2-cup^85
;;^UTILITY(U,$J,112,10041,1)
;;=2.353^1.412^4.235^35.294^84.824^^^28.235^.482^^30.588^141.176^282.353^^^^^2058.824^24.706^.024
;;^UTILITY(U,$J,112,10041,2)
;;=.059^.706^^^^^^^5.882^^^0
;;^UTILITY(U,$J,112,10041,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10042,0)
;;=BROCCOLI,CAULIFLOWER & CARROTS,FRZN,W/CHEESE SCE,PILLSBURY^BC-03315^5-oz.^142
;;^UTILITY(U,$J,112,10042,1)
;;=2.394^1.69^8.38^52.817^85.634^^^57.042^.303^^145.775^214.085^433.803^^^^^1333.803^10.563^.028
;;^UTILITY(U,$J,112,10042,2)
;;=.148^.282^^^^^^^3.521^^^^^^^^1.62
;;^UTILITY(U,$J,112,10042,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10043,0)
;;=BROCCOLI CORN & RED PEPPERS, FROZEN, BIRDS EYE^BC-03316^2/3-cup^113
;;^UTILITY(U,$J,112,10043,1)
;;=2.832^.442^11.77^52.212^84.248^^^29.204^.681^17.699^58.407^199.115^14.159^.354^.042^^^1488.496^34.513^.062
;;^UTILITY(U,$J,112,10043,2)
;;=.08^1.062^.204^.142^58.407^0^^^0^.088^^.177^^^^^2.566
;;^UTILITY(U,$J,112,10043,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10044,0)
;;=BROCCOLI,GREEN BEANS,PEARL ONIONS&RED PEPPER,FRZN,BIRDS EYE^BC-03317^3/4-cup^113
;;^UTILITY(U,$J,112,10044,1)
;;=2.124^.177^5.841^28.319^91.239^^^45.133^.805^15.929^38.938^176.106^15.929^.257^.046^^^1635.398^37.168^.053
;;^UTILITY(U,$J,112,10044,2)
;;=.08^.531^.168^.106^51.327^0^^^0^0^^.088^^^^^2.566
;;^UTILITY(U,$J,112,10044,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10045,0)
;;=BROCCOLI,PEAS & CARROTS,FROZEN,PILLSBURY^BC-03318^2.7-oz.^80
;;^UTILITY(U,$J,112,10045,1)
;;=3.625^.375^10.5^60^81.75^^^52.5^1.125^^61.25^238.75^71.25^^^^^7540^42.5^.113
;;^UTILITY(U,$J,112,10045,2)
;;=.088^1.125
;;^UTILITY(U,$J,112,10045,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10046,0)
;;=BROCCOLI,PEPPERS,BAMBOO SHOOTS & MUSHRMS,FRZN,BIRDS EYE^BC-03319^3/4-cup^113
;;^UTILITY(U,$J,112,10046,1)
;;=2.478^.265^4.956^25.664^91.681^^^38.053^.717^12.389^47.788^223.894^18.584^.221^.033^^^1976.106^45.133^.062
;;^UTILITY(U,$J,112,10046,2)
;;=.088^.708^.168^.106^58.407^0^^^0^0^^.088^^^^^2.655
;;^UTILITY(U,$J,112,10046,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10047,0)
;;=BROCCOLI W/CHEESE IN PASTRY,FROZEN,CAMPBELL'S^BC-03320^3.6-oz.^103
;;^UTILITY(U,$J,112,10047,1)
;;=5.049^15.049^19.709^233.981^^^^72.816^1.262^^^104.854^368.932^^^^^253.398^13.592^.146
;;^UTILITY(U,$J,112,10047,2)
;;=.146^1.456
;;^UTILITY(U,$J,112,10047,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10048,0)
;;=BRUSSELS SPROUTS,FROZEN,W/BUTTER SCE,PILLSBURY^BC-03321^1/2-cup^94
;;^UTILITY(U,$J,112,10048,1)
;;=3.085^1.064^8.511^42.553^87.128^^^29.787^.479^^52.128^308.511^297.872^^^^^835.106^62.766^.096
;;^UTILITY(U,$J,112,10048,2)
;;=.085^.745^^^^^^^5.319^^^0
;;^UTILITY(U,$J,112,10048,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0GI ; ; 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,10037,1)
+2 ;;=2.316^4.632^11.158^91.579^80.632^^^36.842^.8^13.684^42.105^172.632^283.158^.284^.056^^^9315.789^23.158^.063
+3 ;;^UTILITY(U,$J,112,10037,2)
+4 ;;=.074^.632^.168^.126^36.842^0^^^0^.842^^.947
+5 ;;^UTILITY(U,$J,112,10037,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,10038,0)
+8 ;;=BROCCOLI,CARROTS & ROTINI W/CHEESE SCE,FRZN,PILLSBURY^BC-03311^5.5-oz.^156
+9 ;;^UTILITY(U,$J,112,10038,1)
+10 ;;=2.564^1.923^12.821^76.923^^^^^^^^179.487^352.564
+11 ;;^UTILITY(U,$J,112,10038,2)
+12 ;;=^^^^^^^^1.282
+13 ;;^UTILITY(U,$J,112,10038,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,10039,0)
+16 ;;=BROCCOLI,CARROTS & WATERCHESTNUTS,FRZN,BIRDS EYE^BC-03312^3/4-cup^113
+17 ;;^UTILITY(U,$J,112,10039,1)
+18 ;;=2.389^.265^8.319^39.823^88.319^^^43.363^.735^15.929^47.788^246.018^30.088^.327^.077^^^5338.053^37.168^.053
+19 ;;^UTILITY(U,$J,112,10039,2)
+20 ;;=.097^.619^.265^.177^59.292^0^^^0^0^^.088^^^^^3.097
+21 ;;^UTILITY(U,$J,112,10039,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,10040,0)
+24 ;;=BROCCOLI,CAULIFLOWER & CARROTS,FRZN,BIRDS EYE^BC-03313^3/4-cup^113
+25 ;;^UTILITY(U,$J,112,10040,1)
+26 ;;=2.124^.265^6.018^29.204^90.973^^^37.168^.726^13.274^42.478^207.08^29.204^.265^.042^^^6921.239^39.823^.053
+27 ;;^UTILITY(U,$J,112,10040,2)
+28 ;;=.071^.531^.195^.15^53.097^0^^^0^0^^.088^^^^^2.389
+29 ;;^UTILITY(U,$J,112,10040,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,10041,0)
+32 ;;=BROCCOLI,CAULIFLOWER & CARROTS,FRZN,W/BUTTERSCE,PILLSBURY^BC-03314^1/2-cup^85
+33 ;;^UTILITY(U,$J,112,10041,1)
+34 ;;=2.353^1.412^4.235^35.294^84.824^^^28.235^.482^^30.588^141.176^282.353^^^^^2058.824^24.706^.024
+35 ;;^UTILITY(U,$J,112,10041,2)
+36 ;;=.059^.706^^^^^^^5.882^^^0
+37 ;;^UTILITY(U,$J,112,10041,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,10042,0)
+40 ;;=BROCCOLI,CAULIFLOWER & CARROTS,FRZN,W/CHEESE SCE,PILLSBURY^BC-03315^5-oz.^142
+41 ;;^UTILITY(U,$J,112,10042,1)
+42 ;;=2.394^1.69^8.38^52.817^85.634^^^57.042^.303^^145.775^214.085^433.803^^^^^1333.803^10.563^.028
+43 ;;^UTILITY(U,$J,112,10042,2)
+44 ;;=.148^.282^^^^^^^3.521^^^^^^^^1.62
+45 ;;^UTILITY(U,$J,112,10042,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,10043,0)
+48 ;;=BROCCOLI CORN & RED PEPPERS, FROZEN, BIRDS EYE^BC-03316^2/3-cup^113
+49 ;;^UTILITY(U,$J,112,10043,1)
+50 ;;=2.832^.442^11.77^52.212^84.248^^^29.204^.681^17.699^58.407^199.115^14.159^.354^.042^^^1488.496^34.513^.062
+51 ;;^UTILITY(U,$J,112,10043,2)
+52 ;;=.08^1.062^.204^.142^58.407^0^^^0^.088^^.177^^^^^2.566
+53 ;;^UTILITY(U,$J,112,10043,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,10044,0)
+56 ;;=BROCCOLI,GREEN BEANS,PEARL ONIONS&RED PEPPER,FRZN,BIRDS EYE^BC-03317^3/4-cup^113
+57 ;;^UTILITY(U,$J,112,10044,1)
+58 ;;=2.124^.177^5.841^28.319^91.239^^^45.133^.805^15.929^38.938^176.106^15.929^.257^.046^^^1635.398^37.168^.053
+59 ;;^UTILITY(U,$J,112,10044,2)
+60 ;;=.08^.531^.168^.106^51.327^0^^^0^0^^.088^^^^^2.566
+61 ;;^UTILITY(U,$J,112,10044,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,10045,0)
+64 ;;=BROCCOLI,PEAS & CARROTS,FROZEN,PILLSBURY^BC-03318^2.7-oz.^80
+65 ;;^UTILITY(U,$J,112,10045,1)
+66 ;;=3.625^.375^10.5^60^81.75^^^52.5^1.125^^61.25^238.75^71.25^^^^^7540^42.5^.113
+67 ;;^UTILITY(U,$J,112,10045,2)
+68 ;;=.088^1.125
+69 ;;^UTILITY(U,$J,112,10045,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,10046,0)
+72 ;;=BROCCOLI,PEPPERS,BAMBOO SHOOTS & MUSHRMS,FRZN,BIRDS EYE^BC-03319^3/4-cup^113
+73 ;;^UTILITY(U,$J,112,10046,1)
+74 ;;=2.478^.265^4.956^25.664^91.681^^^38.053^.717^12.389^47.788^223.894^18.584^.221^.033^^^1976.106^45.133^.062
+75 ;;^UTILITY(U,$J,112,10046,2)
+76 ;;=.088^.708^.168^.106^58.407^0^^^0^0^^.088^^^^^2.655
+77 ;;^UTILITY(U,$J,112,10046,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,10047,0)
+80 ;;=BROCCOLI W/CHEESE IN PASTRY,FROZEN,CAMPBELL'S^BC-03320^3.6-oz.^103
+81 ;;^UTILITY(U,$J,112,10047,1)
+82 ;;=5.049^15.049^19.709^233.981^^^^72.816^1.262^^^104.854^368.932^^^^^253.398^13.592^.146
+83 ;;^UTILITY(U,$J,112,10047,2)
+84 ;;=.146^1.456
+85 ;;^UTILITY(U,$J,112,10047,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,10048,0)
+88 ;;=BRUSSELS SPROUTS,FROZEN,W/BUTTER SCE,PILLSBURY^BC-03321^1/2-cup^94
+89 ;;^UTILITY(U,$J,112,10048,1)
+90 ;;=3.085^1.064^8.511^42.553^87.128^^^29.787^.479^^52.128^308.511^297.872^^^^^835.106^62.766^.096
+91 ;;^UTILITY(U,$J,112,10048,2)
+92 ;;=.085^.745^^^^^^^5.319^^^0
+93 ;;^UTILITY(U,$J,112,10048,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
