FHINI0GJ ; ; 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,10049,0)
;;=BRUSSELS SPROUTS,FROZEN,W/CHEESE SCE,BIRDS EYE^BC-03322^1/2-cup^128
;;^UTILITY(U,$J,112,10049,1)
;;=3.906^4.375^9.766^88.281^80.469^^^60.156^.656^16.406^75^280.469^325.781^.313^.022^^^2048.438^43.75^.07
;;^UTILITY(U,$J,112,10049,2)
;;=.148^.469^.297^.102^70.313^.203^^^3.906^1.328^^.703
;;^UTILITY(U,$J,112,10049,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10050,0)
;;=BRUSSELS SPROUTS,CAULIFLOWER & CARROTS,FRZN,BIRDS EYE^BC-03323^3/4-cup^113
;;^UTILITY(U,$J,112,10050,1)
;;=2.655^.265^7.257^35.398^89.027^^^27.434^.717^15.929^46.903^272.566^23.009^.248^.035^^^3581.416^51.327^.071
;;^UTILITY(U,$J,112,10050,2)
;;=.08^.619^.257^.186^76.991^0^^^0^.088^^.177^^^^^3.274
;;^UTILITY(U,$J,112,10050,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10051,0)
;;=BEANS,BUTTER,CND,JOAN OF ARC^BC-03324^1/2-cup^122
;;^UTILITY(U,$J,112,10051,1)
;;=4.672^.328^13.033^62.295^80.41^^^27.869^1^^69.672^242.623^331.967^^^^^22.131^0^.016
;;^UTILITY(U,$J,112,10051,2)
;;=.033^.492^^^^^^^^^^^^^^^3.033
;;^UTILITY(U,$J,112,10051,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10052,0)
;;=BEANS,BUTTER,CND,VAN CAMP'S^BC-03325^cup^227
;;^UTILITY(U,$J,112,10052,1)
;;=4.846^.22^13.216^71.366^79.692^^^18.062^1.665^^^281.498^312.775^^^^^0^0^.04
;;^UTILITY(U,$J,112,10052,2)
;;=.035^.22
;;^UTILITY(U,$J,112,10052,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10053,0)
;;=BEANS,CANNELLINI (WHITE KIDNEY),CND,PROGRESSO^BC-03326^8-oz.^227
;;^UTILITY(U,$J,112,10053,1)
;;=5.286^.441^13.216^79.295^^^^^^^^^315.859
;;^UTILITY(U,$J,112,10053,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10054,0)
;;=CARROTS,PEAS & PEARL ONIONS,FRZN,BIRDS EYE^BC-03327^1/2-cup^95
;;^UTILITY(U,$J,112,10054,1)
;;=2.211^.211^10.632^50.526^86.105^^^30.526^.905^14.737^38.947^190.526^64.211^.368^.071^^^9835.789^9.474^.105
;;^UTILITY(U,$J,112,10054,2)
;;=.053^1.053^.179^.168^23.158^0^^^0^0^^.105^^^^^2.105
;;^UTILITY(U,$J,112,10054,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10055,0)
;;=CAULIFLOWER,FRZN,W/BUTTER SCE,PILSBURY^BC-03328^1/2-cup^88
;;^UTILITY(U,$J,112,10055,1)
;;=1.25^1.364^3.977^34.091^91.023^^^23.864^.398^^27.273^139.773^362.5^^^^^72.727^27.273^.023
;;^UTILITY(U,$J,112,10055,2)
;;=.045^.455
;;^UTILITY(U,$J,112,10055,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10056,0)
;;=CAULIFLOWER,FRZN,W/CHEESE SCE,BIRDS EYE^BC-03329^1/2-cup^142
;;^UTILITY(U,$J,112,10056,1)
;;=2.817^4.296^8.239^80.282^83.239^^^58.451^.352^11.972^61.972^169.014^340.141^.246^.018^^^1618.31^27.465^.042
;;^UTILITY(U,$J,112,10056,2)
;;=.113^.282^.232^.085^29.577^.211^^^4.225^1.338^^.634
;;^UTILITY(U,$J,112,10056,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10057,0)
;;=CAULIFLOWER & CARROTS,FRZN,PILSBURY^BC-03330^1/2-cup^111
;;^UTILITY(U,$J,112,10057,1)
;;=1.982^2.613^6.306^54.054^88.018^^^14.414^.604^^35.135^145.045^258.559^^^^^1337.838^24.324^.099
;;^UTILITY(U,$J,112,10057,2)
;;=.063^.631
;;^UTILITY(U,$J,112,10057,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10058,0)
;;=CAULIFLOWER,CARROTS & SNOW PEAS,FRZN,BIRDS EYE^BC-03331^2/3-cup^113
;;^UTILITY(U,$J,112,10058,1)
;;=1.77^.177^7.168^33.628^90.177^^^29.204^.779^13.274^31.858^201.77^29.204^.23^.035^^^6787.611^29.204^.044
;;^UTILITY(U,$J,112,10058,2)
;;=.062^.619^.23^.159^29.204^0^^^0^0^^.088^^^^^2.566
;;^UTILITY(U,$J,112,10058,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10059,0)
;;=CAULIFLOWER W/CHEESE IN PASTRY,FRZN,CAMPBELL'S^BC-03332^3.6-oz.^103
;;^UTILITY(U,$J,112,10059,1)
;;=4.563^14.854^16.796^219.417^^^^59.223^1.165^^^125.243^428.155^^^^^153.398^13.592^.214
;;^UTILITY(U,$J,112,10059,2)
;;=.184^1.456
;;^UTILITY(U,$J,112,10059,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10060,0)
;;=CHINESE STYLE VEG.,FRZN,BIRDS EYE^BC-03333^1/2-cup^95
;;^UTILITY(U,$J,112,10060,1)
;;=2.316^4.105^8.105^71.579^84.526^^^33.684^.811^25.263^33.684^155.789^314.737^.211^.04^^^1756.842^16.842^.042
;;^UTILITY(U,$J,112,10060,2)
;;=.053^.421^.158^.084^33.684^0^^^0^.737^^.737
;;^UTILITY(U,$J,112,10060,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10061,0)
;;=CHINESE STYLE VEG.,FRZN,STIR FRY,BIRDS EYE^BC-03334^1/2-cup^95
;;^UTILITY(U,$J,112,10061,1)
;;=2.105^.211^8.316^37.895^87.158^^^46.316^1.032^25.263^37.895^246.316^568.421^.284^.092^^^2266.316^16.842^.074
FHINI0GJ ; ; 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,10049,0)
+2 ;;=BRUSSELS SPROUTS,FROZEN,W/CHEESE SCE,BIRDS EYE^BC-03322^1/2-cup^128
+3 ;;^UTILITY(U,$J,112,10049,1)
+4 ;;=3.906^4.375^9.766^88.281^80.469^^^60.156^.656^16.406^75^280.469^325.781^.313^.022^^^2048.438^43.75^.07
+5 ;;^UTILITY(U,$J,112,10049,2)
+6 ;;=.148^.469^.297^.102^70.313^.203^^^3.906^1.328^^.703
+7 ;;^UTILITY(U,$J,112,10049,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,10050,0)
+10 ;;=BRUSSELS SPROUTS,CAULIFLOWER & CARROTS,FRZN,BIRDS EYE^BC-03323^3/4-cup^113
+11 ;;^UTILITY(U,$J,112,10050,1)
+12 ;;=2.655^.265^7.257^35.398^89.027^^^27.434^.717^15.929^46.903^272.566^23.009^.248^.035^^^3581.416^51.327^.071
+13 ;;^UTILITY(U,$J,112,10050,2)
+14 ;;=.08^.619^.257^.186^76.991^0^^^0^.088^^.177^^^^^3.274
+15 ;;^UTILITY(U,$J,112,10050,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,10051,0)
+18 ;;=BEANS,BUTTER,CND,JOAN OF ARC^BC-03324^1/2-cup^122
+19 ;;^UTILITY(U,$J,112,10051,1)
+20 ;;=4.672^.328^13.033^62.295^80.41^^^27.869^1^^69.672^242.623^331.967^^^^^22.131^0^.016
+21 ;;^UTILITY(U,$J,112,10051,2)
+22 ;;=.033^.492^^^^^^^^^^^^^^^3.033
+23 ;;^UTILITY(U,$J,112,10051,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,10052,0)
+26 ;;=BEANS,BUTTER,CND,VAN CAMP'S^BC-03325^cup^227
+27 ;;^UTILITY(U,$J,112,10052,1)
+28 ;;=4.846^.22^13.216^71.366^79.692^^^18.062^1.665^^^281.498^312.775^^^^^0^0^.04
+29 ;;^UTILITY(U,$J,112,10052,2)
+30 ;;=.035^.22
+31 ;;^UTILITY(U,$J,112,10052,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,10053,0)
+34 ;;=BEANS,CANNELLINI (WHITE KIDNEY),CND,PROGRESSO^BC-03326^8-oz.^227
+35 ;;^UTILITY(U,$J,112,10053,1)
+36 ;;=5.286^.441^13.216^79.295^^^^^^^^^315.859
+37 ;;^UTILITY(U,$J,112,10053,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,10054,0)
+40 ;;=CARROTS,PEAS & PEARL ONIONS,FRZN,BIRDS EYE^BC-03327^1/2-cup^95
+41 ;;^UTILITY(U,$J,112,10054,1)
+42 ;;=2.211^.211^10.632^50.526^86.105^^^30.526^.905^14.737^38.947^190.526^64.211^.368^.071^^^9835.789^9.474^.105
+43 ;;^UTILITY(U,$J,112,10054,2)
+44 ;;=.053^1.053^.179^.168^23.158^0^^^0^0^^.105^^^^^2.105
+45 ;;^UTILITY(U,$J,112,10054,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,10055,0)
+48 ;;=CAULIFLOWER,FRZN,W/BUTTER SCE,PILSBURY^BC-03328^1/2-cup^88
+49 ;;^UTILITY(U,$J,112,10055,1)
+50 ;;=1.25^1.364^3.977^34.091^91.023^^^23.864^.398^^27.273^139.773^362.5^^^^^72.727^27.273^.023
+51 ;;^UTILITY(U,$J,112,10055,2)
+52 ;;=.045^.455
+53 ;;^UTILITY(U,$J,112,10055,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,10056,0)
+56 ;;=CAULIFLOWER,FRZN,W/CHEESE SCE,BIRDS EYE^BC-03329^1/2-cup^142
+57 ;;^UTILITY(U,$J,112,10056,1)
+58 ;;=2.817^4.296^8.239^80.282^83.239^^^58.451^.352^11.972^61.972^169.014^340.141^.246^.018^^^1618.31^27.465^.042
+59 ;;^UTILITY(U,$J,112,10056,2)
+60 ;;=.113^.282^.232^.085^29.577^.211^^^4.225^1.338^^.634
+61 ;;^UTILITY(U,$J,112,10056,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,10057,0)
+64 ;;=CAULIFLOWER & CARROTS,FRZN,PILSBURY^BC-03330^1/2-cup^111
+65 ;;^UTILITY(U,$J,112,10057,1)
+66 ;;=1.982^2.613^6.306^54.054^88.018^^^14.414^.604^^35.135^145.045^258.559^^^^^1337.838^24.324^.099
+67 ;;^UTILITY(U,$J,112,10057,2)
+68 ;;=.063^.631
+69 ;;^UTILITY(U,$J,112,10057,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,10058,0)
+72 ;;=CAULIFLOWER,CARROTS & SNOW PEAS,FRZN,BIRDS EYE^BC-03331^2/3-cup^113
+73 ;;^UTILITY(U,$J,112,10058,1)
+74 ;;=1.77^.177^7.168^33.628^90.177^^^29.204^.779^13.274^31.858^201.77^29.204^.23^.035^^^6787.611^29.204^.044
+75 ;;^UTILITY(U,$J,112,10058,2)
+76 ;;=.062^.619^.23^.159^29.204^0^^^0^0^^.088^^^^^2.566
+77 ;;^UTILITY(U,$J,112,10058,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,10059,0)
+80 ;;=CAULIFLOWER W/CHEESE IN PASTRY,FRZN,CAMPBELL'S^BC-03332^3.6-oz.^103
+81 ;;^UTILITY(U,$J,112,10059,1)
+82 ;;=4.563^14.854^16.796^219.417^^^^59.223^1.165^^^125.243^428.155^^^^^153.398^13.592^.214
+83 ;;^UTILITY(U,$J,112,10059,2)
+84 ;;=.184^1.456
+85 ;;^UTILITY(U,$J,112,10059,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,10060,0)
+88 ;;=CHINESE STYLE VEG.,FRZN,BIRDS EYE^BC-03333^1/2-cup^95
+89 ;;^UTILITY(U,$J,112,10060,1)
+90 ;;=2.316^4.105^8.105^71.579^84.526^^^33.684^.811^25.263^33.684^155.789^314.737^.211^.04^^^1756.842^16.842^.042
+91 ;;^UTILITY(U,$J,112,10060,2)
+92 ;;=.053^.421^.158^.084^33.684^0^^^0^.737^^.737
+93 ;;^UTILITY(U,$J,112,10060,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,10061,0)
+96 ;;=CHINESE STYLE VEG.,FRZN,STIR FRY,BIRDS EYE^BC-03334^1/2-cup^95
+97 ;;^UTILITY(U,$J,112,10061,1)
+98 ;;=2.105^.211^8.316^37.895^87.158^^^46.316^1.032^25.263^37.895^246.316^568.421^.284^.092^^^2266.316^16.842^.074
