FHINI0GK ; ; 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,10061,2)
;;=.116^.632^.211^.084^24.211^0^^^0^0^^.105^^^^^2
;;^UTILITY(U,$J,112,10061,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10062,0)
;;=CHOP SUEY VEG.,CND,LACHOY^BC-03335^1/2-cup^57
;;^UTILITY(U,$J,112,10062,1)
;;=1.754^0^3.509^17.544^^^^22.807^.351^^^105.263^561.404^^^^^^10.526
;;^UTILITY(U,$J,112,10062,2)
;;=^^^^^^^^0^^^^140.351^^^^0
;;^UTILITY(U,$J,112,10062,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10063,0)
;;=CHOW MEIN STYLE VEG.,FRZN,BIRDS EYE^BC-03336^1/2-cup^95
;;^UTILITY(U,$J,112,10063,1)
;;=1.684^4.421^13.053^93.684^79.474^^^26.316^.663^16.842^37.895^212.632^387.368^.274^.102^^^2889.474^6.316^.063
;;^UTILITY(U,$J,112,10063,2)
;;=.095^.632^.211^.095^21.053^0^^^0^.842^^.842
;;^UTILITY(U,$J,112,10063,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10064,0)
;;=BEANS,GREAT NORTHERN,CND,JOAN OF ARC^BC-03337^1/2-cup^125
;;^UTILITY(U,$J,112,10064,1)
;;=4.64^.48^14.32^62.4^79.04^^^84^1.704^^72^120.8^230.4^^^^^8^0^.032
;;^UTILITY(U,$J,112,10064,2)
;;=.024^.4^^^^^^^0^^^^^^^^4.48
;;^UTILITY(U,$J,112,10064,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10065,0)
;;=GREEN BEAN MUSHROOM CASSEROLE,FROZEN,STOUFFERS^BC-03338^3-oz.^85
;;^UTILITY(U,$J,112,10065,1)
;;=2.706^9.647^11.059^142.353^75.059^^^60^.4^^^160^550.588^^^^^160^1.176^.035
;;^UTILITY(U,$J,112,10065,2)
;;=.141^.353^^^^^^^10.588
;;^UTILITY(U,$J,112,10065,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10066,0)
;;=GREEN BEANS,BAVARIAN STYLE & SPAETZLE,FRZN,BIRDS EYE^BC-03339^1/2-cup^95
;;^UTILITY(U,$J,112,10066,1)
;;=2.526^5.579^12.105^103.158^78.737^^^42.105^.758^14.737^37.895^76.842^375.789^.263^.048^^^602.105^4.211^.042
;;^UTILITY(U,$J,112,10066,2)
;;=.063^.316^.105^.053^13.684^.105^^^14.737^1.053^^1.053
;;^UTILITY(U,$J,112,10066,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10067,0)
;;=BEANS,GREEN,CND,50% LESS SALT,GREEN GIANT^BC-03340^1/2-cup^85
;;^UTILITY(U,$J,112,10067,1)
;;=.941^.118^3.882^20^95.059^^^20^.8^^12.941^87.059^128.235^^^^^283.529^3.529^.047
;;^UTILITY(U,$J,112,10067,2)
;;=.047^.353^^^^^^^^^^^^^^^1.059
;;^UTILITY(U,$J,112,10067,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10068,0)
;;=BEANS,GREEN,CND,FRENCH STYLE,PILLSBURY^BC-03341^1/2-cup^113
;;^UTILITY(U,$J,112,10068,1)
;;=.796^.088^3.274^17.699^95.044^^^20.354^.602^^12.389^88.496^276.991^^^^^185.841^2.655^.018
;;^UTILITY(U,$J,112,10068,2)
;;=.044^.177^^^^^^^0^^^^^^^^.708
;;^UTILITY(U,$J,112,10068,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10069,0)
;;=BEANS,GREEN,FRZN,CUT,BIRDS EYE^BC-03342^1/2-cup^85
;;^UTILITY(U,$J,112,10069,1)
;;=1.647^.118^6.824^29.412^91.059^^^41.176^.859^20^27.059^154.118^3.529^.2^.046^^^535.294^10.588^.059
;;^UTILITY(U,$J,112,10069,2)
;;=.082^.353^.071^.059^12.941^0^^^0^0^^.118^^^^^2.588
;;^UTILITY(U,$J,112,10069,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10070,0)
;;=BEANS,GREEN,FRZN,FRENCH STYLE,BIRDS EYE^BC-03343^1/2-cup^85
;;^UTILITY(U,$J,112,10070,1)
;;=1.647^.235^6.941^30.588^90.706^^^45.882^.941^21.176^24.706^170.588^3.529^.259^.052^^^458.824^9.412^.059
;;^UTILITY(U,$J,112,10070,2)
;;=.082^.353^.106^.047^12.941^0^^^0^0^^.118^^^^^2.588
;;^UTILITY(U,$J,112,10070,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10071,0)
;;=BEANS,GREEN,FROZEN,FRENCH STYLE W/TOASTED ALMONDS,BIRDS EYE^BC-03344^1/2-cup^85
;;^UTILITY(U,$J,112,10071,1)
;;=2.941^1.882^9.882^61.176^83.765^^^42.353^.612^29.412^37.647^196.471^394.118^.329^.082^^^437.647^9.412^.059
;;^UTILITY(U,$J,112,10071,2)
;;=.071^.471^.129^.059^12.941^0^^^0^.235^^.588
;;^UTILITY(U,$J,112,10071,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10072,0)
;;=BEANS,GREEN,FROZEN,ITALIAN,BIRDS EYE^BC-03345^1/2-cup^85
;;^UTILITY(U,$J,112,10072,1)
;;=2.118^.118^8.471^36.471^88.471^^^41.176^.871^22.353^36.471^216.471^3.529^.294^.059^^^440^16.471^.082
;;^UTILITY(U,$J,112,10072,2)
;;=.118^.588^.259^.047^16.471^0^^^0^0^^.118^^^^^3.176
;;^UTILITY(U,$J,112,10072,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10073,0)
;;=BEANS,GREEN,FRZN W/BUTTER SCE,PILLSBURY^BC-03346^5.5-oz.^156
;;^UTILITY(U,$J,112,10073,1)
;;=1.282^1.282^6.41^38.462^^^^^^^^147.436^230.769
;;^UTILITY(U,$J,112,10073,2)
;;=^^^^^^^^3.205^.641^^0
FHINI0GK ; ; 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,10061,2)
+2 ;;=.116^.632^.211^.084^24.211^0^^^0^0^^.105^^^^^2
+3 ;;^UTILITY(U,$J,112,10061,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,10062,0)
+6 ;;=CHOP SUEY VEG.,CND,LACHOY^BC-03335^1/2-cup^57
+7 ;;^UTILITY(U,$J,112,10062,1)
+8 ;;=1.754^0^3.509^17.544^^^^22.807^.351^^^105.263^561.404^^^^^^10.526
+9 ;;^UTILITY(U,$J,112,10062,2)
+10 ;;=^^^^^^^^0^^^^140.351^^^^0
+11 ;;^UTILITY(U,$J,112,10062,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,10063,0)
+14 ;;=CHOW MEIN STYLE VEG.,FRZN,BIRDS EYE^BC-03336^1/2-cup^95
+15 ;;^UTILITY(U,$J,112,10063,1)
+16 ;;=1.684^4.421^13.053^93.684^79.474^^^26.316^.663^16.842^37.895^212.632^387.368^.274^.102^^^2889.474^6.316^.063
+17 ;;^UTILITY(U,$J,112,10063,2)
+18 ;;=.095^.632^.211^.095^21.053^0^^^0^.842^^.842
+19 ;;^UTILITY(U,$J,112,10063,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,10064,0)
+22 ;;=BEANS,GREAT NORTHERN,CND,JOAN OF ARC^BC-03337^1/2-cup^125
+23 ;;^UTILITY(U,$J,112,10064,1)
+24 ;;=4.64^.48^14.32^62.4^79.04^^^84^1.704^^72^120.8^230.4^^^^^8^0^.032
+25 ;;^UTILITY(U,$J,112,10064,2)
+26 ;;=.024^.4^^^^^^^0^^^^^^^^4.48
+27 ;;^UTILITY(U,$J,112,10064,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,10065,0)
+30 ;;=GREEN BEAN MUSHROOM CASSEROLE,FROZEN,STOUFFERS^BC-03338^3-oz.^85
+31 ;;^UTILITY(U,$J,112,10065,1)
+32 ;;=2.706^9.647^11.059^142.353^75.059^^^60^.4^^^160^550.588^^^^^160^1.176^.035
+33 ;;^UTILITY(U,$J,112,10065,2)
+34 ;;=.141^.353^^^^^^^10.588
+35 ;;^UTILITY(U,$J,112,10065,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,10066,0)
+38 ;;=GREEN BEANS,BAVARIAN STYLE & SPAETZLE,FRZN,BIRDS EYE^BC-03339^1/2-cup^95
+39 ;;^UTILITY(U,$J,112,10066,1)
+40 ;;=2.526^5.579^12.105^103.158^78.737^^^42.105^.758^14.737^37.895^76.842^375.789^.263^.048^^^602.105^4.211^.042
+41 ;;^UTILITY(U,$J,112,10066,2)
+42 ;;=.063^.316^.105^.053^13.684^.105^^^14.737^1.053^^1.053
+43 ;;^UTILITY(U,$J,112,10066,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,10067,0)
+46 ;;=BEANS,GREEN,CND,50% LESS SALT,GREEN GIANT^BC-03340^1/2-cup^85
+47 ;;^UTILITY(U,$J,112,10067,1)
+48 ;;=.941^.118^3.882^20^95.059^^^20^.8^^12.941^87.059^128.235^^^^^283.529^3.529^.047
+49 ;;^UTILITY(U,$J,112,10067,2)
+50 ;;=.047^.353^^^^^^^^^^^^^^^1.059
+51 ;;^UTILITY(U,$J,112,10067,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,10068,0)
+54 ;;=BEANS,GREEN,CND,FRENCH STYLE,PILLSBURY^BC-03341^1/2-cup^113
+55 ;;^UTILITY(U,$J,112,10068,1)
+56 ;;=.796^.088^3.274^17.699^95.044^^^20.354^.602^^12.389^88.496^276.991^^^^^185.841^2.655^.018
+57 ;;^UTILITY(U,$J,112,10068,2)
+58 ;;=.044^.177^^^^^^^0^^^^^^^^.708
+59 ;;^UTILITY(U,$J,112,10068,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,10069,0)
+62 ;;=BEANS,GREEN,FRZN,CUT,BIRDS EYE^BC-03342^1/2-cup^85
+63 ;;^UTILITY(U,$J,112,10069,1)
+64 ;;=1.647^.118^6.824^29.412^91.059^^^41.176^.859^20^27.059^154.118^3.529^.2^.046^^^535.294^10.588^.059
+65 ;;^UTILITY(U,$J,112,10069,2)
+66 ;;=.082^.353^.071^.059^12.941^0^^^0^0^^.118^^^^^2.588
+67 ;;^UTILITY(U,$J,112,10069,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,10070,0)
+70 ;;=BEANS,GREEN,FRZN,FRENCH STYLE,BIRDS EYE^BC-03343^1/2-cup^85
+71 ;;^UTILITY(U,$J,112,10070,1)
+72 ;;=1.647^.235^6.941^30.588^90.706^^^45.882^.941^21.176^24.706^170.588^3.529^.259^.052^^^458.824^9.412^.059
+73 ;;^UTILITY(U,$J,112,10070,2)
+74 ;;=.082^.353^.106^.047^12.941^0^^^0^0^^.118^^^^^2.588
+75 ;;^UTILITY(U,$J,112,10070,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,10071,0)
+78 ;;=BEANS,GREEN,FROZEN,FRENCH STYLE W/TOASTED ALMONDS,BIRDS EYE^BC-03344^1/2-cup^85
+79 ;;^UTILITY(U,$J,112,10071,1)
+80 ;;=2.941^1.882^9.882^61.176^83.765^^^42.353^.612^29.412^37.647^196.471^394.118^.329^.082^^^437.647^9.412^.059
+81 ;;^UTILITY(U,$J,112,10071,2)
+82 ;;=.071^.471^.129^.059^12.941^0^^^0^.235^^.588
+83 ;;^UTILITY(U,$J,112,10071,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,10072,0)
+86 ;;=BEANS,GREEN,FROZEN,ITALIAN,BIRDS EYE^BC-03345^1/2-cup^85
+87 ;;^UTILITY(U,$J,112,10072,1)
+88 ;;=2.118^.118^8.471^36.471^88.471^^^41.176^.871^22.353^36.471^216.471^3.529^.294^.059^^^440^16.471^.082
+89 ;;^UTILITY(U,$J,112,10072,2)
+90 ;;=.118^.588^.259^.047^16.471^0^^^0^0^^.118^^^^^3.176
+91 ;;^UTILITY(U,$J,112,10072,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,10073,0)
+94 ;;=BEANS,GREEN,FRZN W/BUTTER SCE,PILLSBURY^BC-03346^5.5-oz.^156
+95 ;;^UTILITY(U,$J,112,10073,1)
+96 ;;=1.282^1.282^6.41^38.462^^^^^^^^147.436^230.769
+97 ;;^UTILITY(U,$J,112,10073,2)
+98 ;;=^^^^^^^^3.205^.641^^0
