FHINI0GL ; ; 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,10073,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10074,0)
;;=GREEN BEAN SALAD,GERMAN STYLE,CND,JOAN OF ARC^BC-03347^1/2-cup^132
;;^UTILITY(U,$J,112,10074,1)
;;=1.364^3.03^11.667^80.303^80^^^33.333^.902^^22.727^105.303^406.818^^^^^231.061^2.273^.03
;;^UTILITY(U,$J,112,10074,2)
;;=.061^.606^^^^^^^^^^^^^^^1.591
;;^UTILITY(U,$J,112,10074,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10075,0)
;;=GREEN BEANS W/MUSHROOM SCE IN PASTRY,FRZN,CAMPBELL'S^BC-03348^3.6-oz.^103
;;^UTILITY(U,$J,112,10075,1)
;;=4.272^16.505^19.806^244.66^^^^56.311^1.165^^^125.243^298.058^^^^^141.748^1.942^.194
;;^UTILITY(U,$J,112,10075,2)
;;=.175^1.165
;;^UTILITY(U,$J,112,10075,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10076,0)
;;=BEANS,HOMINY,CND,WHITE,VAN CAMP'S^BC-03349^cup^246
;;^UTILITY(U,$J,112,10076,1)
;;=.813^.285^12.195^56.098^86.748^^^4.065^.585^^^15.041^287.805^^^^^0^^.008
;;^UTILITY(U,$J,112,10076,2)
;;=.024^.041
;;^UTILITY(U,$J,112,10076,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10077,0)
;;=BEANS,HOMINY,YELLOW W/RED & GREEN PEPPERS,VAN CAMP'S^BC-03350^cup^242
;;^UTILITY(U,$J,112,10077,1)
;;=1.074^.207^11.777^53.306^87.025^^^4.132^.603^^^19.008^283.058^^^^^168.595^^.004
;;^UTILITY(U,$J,112,10077,2)
;;=.029^.083
;;^UTILITY(U,$J,112,10077,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10078,0)
;;=VEGETABLE,ITALIAN STYLE,FRZN,BIRDS EYE^BC-03351^1/2-cup^95
;;^UTILITY(U,$J,112,10078,1)
;;=2.211^5.789^11.684^107.368^78.632^^^40^.653^15.789^34.737^107.368^514.737^.179^.06^^^774.737^28.421^.042
;;^UTILITY(U,$J,112,10078,2)
;;=.084^.421^.116^.084^16.842^.011^^^0^1.053^^1.053
;;^UTILITY(U,$J,112,10078,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10079,0)
;;=VEGETABLE,ITALIAN STYLE,FRZN,PILLSBURY^BC-03352^1/2-cup^110
;;^UTILITY(U,$J,112,10079,1)
;;=2^2^4.545^33.636^90^^^38.182^.7^^46.364^160^199.091^^^^^387.273^38.182^.036
;;^UTILITY(U,$J,112,10079,2)
;;=.082^.364^^^^^^^^^^^^^^^2.364
;;^UTILITY(U,$J,112,10079,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10080,0)
;;=VEGETABLE,JAPANESE STYLE,FRZN,BIRDS EYE^BC-03353^1/2-cup^95
;;^UTILITY(U,$J,112,10080,1)
;;=2.105^5.263^10.526^93.684^80.632^^^32.632^.6^16.842^38.947^141.053^448.421^.242^.051^^^814.737^18.947^.042
;;^UTILITY(U,$J,112,10080,2)
;;=.063^.211^.116^.084^27.368^.011^^^0^.947^^1.053
;;^UTILITY(U,$J,112,10080,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10081,0)
;;=VEGETABLE,JAPANESE STYLE,FRZN,PILLSBURY^BC-03354^1/2-cup^110
;;^UTILITY(U,$J,112,10081,1)
;;=1.818^.818^6.545^40.909^^^^30^.7^^30.909^157.273^368.182^^^^^1122.727^20.909^.027
;;^UTILITY(U,$J,112,10081,2)
;;=.055^.364
;;^UTILITY(U,$J,112,10081,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10082,0)
;;=VEGETABLE,JAPANESE STYLE,FRZN,STIR FRY,BIRDS EYE^BC-03355^1/2-cup^95
;;^UTILITY(U,$J,112,10082,1)
;;=1.684^.211^6.947^31.579^89.368^^^29.474^.737^12.632^36.842^165.263^543.158^.211^.078^^^965.263^25.263^.053
;;^UTILITY(U,$J,112,10082,2)
;;=.095^.074^.295^.095^30.526^0^^^0^0^^.105
;;^UTILITY(U,$J,112,10082,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10083,0)
;;=BEANS,KIDNEY,RED,DARK,CND,VAN CAMP'S^BC-03356^cup^227
;;^UTILITY(U,$J,112,10083,1)
;;=5.154^.22^15.419^80.176^77.753^^^22.907^1.458^^^241.85^365.639^^^^^0^0^.07
;;^UTILITY(U,$J,112,10083,2)
;;=.044^.441
;;^UTILITY(U,$J,112,10083,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10084,0)
;;=BEANS,KIDNEY,LIGHT,CND,VAN CAMP'S^BC-03357^cup^227
;;^UTILITY(U,$J,112,10084,1)
;;=5.066^.22^15.859^81.057^77.621^^^24.229^1.304^^^217.621^286.344^^^^^0^0^.075
;;^UTILITY(U,$J,112,10084,2)
;;=.048^.396
;;^UTILITY(U,$J,112,10084,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10085,0)
;;=BEANS,KIDNEY,RED,NEW ORLEANS STYLE,CND,VAN CAMP'S^BC-03358^cup^227
;;^UTILITY(U,$J,112,10085,1)
;;=5.33^.264^14.978^78.414^78.15^^^26.432^1.366^^^258.15^281.938^^^^^0^0^.07
;;^UTILITY(U,$J,112,10085,2)
;;=.044^.529
;;^UTILITY(U,$J,112,10085,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10086,0)
;;=VEGETABLE,LE SUEUR STYLE,FRZN,PILLSBURY^BC-03359^1/2-cup^113
;;^UTILITY(U,$J,112,10086,1)
;;=3.982^2.035^10.973^56.637^82.035^^^27.434^1.301^^61.947^123.009^292.92^^^^^352.212^29.204^.133
FHINI0GL ; ; 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,10073,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,10074,0)
+4 ;;=GREEN BEAN SALAD,GERMAN STYLE,CND,JOAN OF ARC^BC-03347^1/2-cup^132
+5 ;;^UTILITY(U,$J,112,10074,1)
+6 ;;=1.364^3.03^11.667^80.303^80^^^33.333^.902^^22.727^105.303^406.818^^^^^231.061^2.273^.03
+7 ;;^UTILITY(U,$J,112,10074,2)
+8 ;;=.061^.606^^^^^^^^^^^^^^^1.591
+9 ;;^UTILITY(U,$J,112,10074,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,10075,0)
+12 ;;=GREEN BEANS W/MUSHROOM SCE IN PASTRY,FRZN,CAMPBELL'S^BC-03348^3.6-oz.^103
+13 ;;^UTILITY(U,$J,112,10075,1)
+14 ;;=4.272^16.505^19.806^244.66^^^^56.311^1.165^^^125.243^298.058^^^^^141.748^1.942^.194
+15 ;;^UTILITY(U,$J,112,10075,2)
+16 ;;=.175^1.165
+17 ;;^UTILITY(U,$J,112,10075,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,10076,0)
+20 ;;=BEANS,HOMINY,CND,WHITE,VAN CAMP'S^BC-03349^cup^246
+21 ;;^UTILITY(U,$J,112,10076,1)
+22 ;;=.813^.285^12.195^56.098^86.748^^^4.065^.585^^^15.041^287.805^^^^^0^^.008
+23 ;;^UTILITY(U,$J,112,10076,2)
+24 ;;=.024^.041
+25 ;;^UTILITY(U,$J,112,10076,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,10077,0)
+28 ;;=BEANS,HOMINY,YELLOW W/RED & GREEN PEPPERS,VAN CAMP'S^BC-03350^cup^242
+29 ;;^UTILITY(U,$J,112,10077,1)
+30 ;;=1.074^.207^11.777^53.306^87.025^^^4.132^.603^^^19.008^283.058^^^^^168.595^^.004
+31 ;;^UTILITY(U,$J,112,10077,2)
+32 ;;=.029^.083
+33 ;;^UTILITY(U,$J,112,10077,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,10078,0)
+36 ;;=VEGETABLE,ITALIAN STYLE,FRZN,BIRDS EYE^BC-03351^1/2-cup^95
+37 ;;^UTILITY(U,$J,112,10078,1)
+38 ;;=2.211^5.789^11.684^107.368^78.632^^^40^.653^15.789^34.737^107.368^514.737^.179^.06^^^774.737^28.421^.042
+39 ;;^UTILITY(U,$J,112,10078,2)
+40 ;;=.084^.421^.116^.084^16.842^.011^^^0^1.053^^1.053
+41 ;;^UTILITY(U,$J,112,10078,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,10079,0)
+44 ;;=VEGETABLE,ITALIAN STYLE,FRZN,PILLSBURY^BC-03352^1/2-cup^110
+45 ;;^UTILITY(U,$J,112,10079,1)
+46 ;;=2^2^4.545^33.636^90^^^38.182^.7^^46.364^160^199.091^^^^^387.273^38.182^.036
+47 ;;^UTILITY(U,$J,112,10079,2)
+48 ;;=.082^.364^^^^^^^^^^^^^^^2.364
+49 ;;^UTILITY(U,$J,112,10079,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,10080,0)
+52 ;;=VEGETABLE,JAPANESE STYLE,FRZN,BIRDS EYE^BC-03353^1/2-cup^95
+53 ;;^UTILITY(U,$J,112,10080,1)
+54 ;;=2.105^5.263^10.526^93.684^80.632^^^32.632^.6^16.842^38.947^141.053^448.421^.242^.051^^^814.737^18.947^.042
+55 ;;^UTILITY(U,$J,112,10080,2)
+56 ;;=.063^.211^.116^.084^27.368^.011^^^0^.947^^1.053
+57 ;;^UTILITY(U,$J,112,10080,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,10081,0)
+60 ;;=VEGETABLE,JAPANESE STYLE,FRZN,PILLSBURY^BC-03354^1/2-cup^110
+61 ;;^UTILITY(U,$J,112,10081,1)
+62 ;;=1.818^.818^6.545^40.909^^^^30^.7^^30.909^157.273^368.182^^^^^1122.727^20.909^.027
+63 ;;^UTILITY(U,$J,112,10081,2)
+64 ;;=.055^.364
+65 ;;^UTILITY(U,$J,112,10081,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,10082,0)
+68 ;;=VEGETABLE,JAPANESE STYLE,FRZN,STIR FRY,BIRDS EYE^BC-03355^1/2-cup^95
+69 ;;^UTILITY(U,$J,112,10082,1)
+70 ;;=1.684^.211^6.947^31.579^89.368^^^29.474^.737^12.632^36.842^165.263^543.158^.211^.078^^^965.263^25.263^.053
+71 ;;^UTILITY(U,$J,112,10082,2)
+72 ;;=.095^.074^.295^.095^30.526^0^^^0^0^^.105
+73 ;;^UTILITY(U,$J,112,10082,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,10083,0)
+76 ;;=BEANS,KIDNEY,RED,DARK,CND,VAN CAMP'S^BC-03356^cup^227
+77 ;;^UTILITY(U,$J,112,10083,1)
+78 ;;=5.154^.22^15.419^80.176^77.753^^^22.907^1.458^^^241.85^365.639^^^^^0^0^.07
+79 ;;^UTILITY(U,$J,112,10083,2)
+80 ;;=.044^.441
+81 ;;^UTILITY(U,$J,112,10083,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,10084,0)
+84 ;;=BEANS,KIDNEY,LIGHT,CND,VAN CAMP'S^BC-03357^cup^227
+85 ;;^UTILITY(U,$J,112,10084,1)
+86 ;;=5.066^.22^15.859^81.057^77.621^^^24.229^1.304^^^217.621^286.344^^^^^0^0^.075
+87 ;;^UTILITY(U,$J,112,10084,2)
+88 ;;=.048^.396
+89 ;;^UTILITY(U,$J,112,10084,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,10085,0)
+92 ;;=BEANS,KIDNEY,RED,NEW ORLEANS STYLE,CND,VAN CAMP'S^BC-03358^cup^227
+93 ;;^UTILITY(U,$J,112,10085,1)
+94 ;;=5.33^.264^14.978^78.414^78.15^^^26.432^1.366^^^258.15^281.938^^^^^0^0^.07
+95 ;;^UTILITY(U,$J,112,10085,2)
+96 ;;=.044^.529
+97 ;;^UTILITY(U,$J,112,10085,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,10086,0)
+100 ;;=VEGETABLE,LE SUEUR STYLE,FRZN,PILLSBURY^BC-03359^1/2-cup^113
+101 ;;^UTILITY(U,$J,112,10086,1)
+102 ;;=3.982^2.035^10.973^56.637^82.035^^^27.434^1.301^^61.947^123.009^292.92^^^^^352.212^29.204^.133
