FHINI0G9 ; ; 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,9906,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9907,0)
;;=SALT,KOSHER,MORTON^BC-03180^tsp.^5
;;^UTILITY(U,$J,112,9907,1)
;;=0^0^0^0^^^^^^^^^36000
;;^UTILITY(U,$J,112,9907,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9908,0)
;;=SALT,SEASONED,MORTON^BC-03181^tsp.^4
;;^UTILITY(U,$J,112,9908,1)
;;=12.5^0^12.5^100^^^^300^^^^275^32500
;;^UTILITY(U,$J,112,9908,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9909,0)
;;=SALT SUB,MORTON LITE^BC-03182^tsp.^6
;;^UTILITY(U,$J,112,9909,1)
;;=0^0^0^0^^^^0^^66.667^^25000^18333.333
;;^UTILITY(U,$J,112,9909,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,9909,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9910,0)
;;=SALT SUB,MORTON SALT SUBSTITUTE^BC-03183^tsp.^6
;;^UTILITY(U,$J,112,9910,1)
;;=0^0^1.667^0^^^^500^^0^466.667^46666.667^0
;;^UTILITY(U,$J,112,9910,2)
;;=^^^^^^^^0^0^^0^^^^^0
;;^UTILITY(U,$J,112,9910,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9911,0)
;;=SALT SUB,MORTON SEASONED SALT SUBSTITUTE^BC-03184^tsp.^5
;;^UTILITY(U,$J,112,9911,1)
;;=0^0^10^40^^^^^^^^42000^0
;;^UTILITY(U,$J,112,9911,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9912,0)
;;=SALT SUB,NO SALT SALT ALTERNATIVE,SEASONED^BC-03185^tsp.^4.5
;;^UTILITY(U,$J,112,9912,1)
;;=0^0^20^88.889^^^^^^^^29555.556^44.444
;;^UTILITY(U,$J,112,9912,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,9912,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9913,0)
;;=SALT SUB,NU SALT^BC-03186^tsp.^1
;;^UTILITY(U,$J,112,9913,1)
;;=^^^^^^^0^^0^^52800^0
;;^UTILITY(U,$J,112,9913,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9914,0)
;;=SALT,SEASONING BLEND,NATURE'S SEASONS,MORTON^BC-03187^tsp.^4
;;^UTILITY(U,$J,112,9914,1)
;;=0^0^12.5^75^^^^125^^^^250^35000
;;^UTILITY(U,$J,112,9914,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9915,0)
;;=BUTTER,VEG-OIL,BUTTER BLEND,STICK/SOFT,BLUE BONNET^BC-03188^tbsp.^14
;;^UTILITY(U,$J,112,9915,1)
;;=0^78.571^0^642.857^^^^^^^^71.429^678.571
;;^UTILITY(U,$J,112,9915,2)
;;=^^^^^^^^35.714^14.286^^35.714
;;^UTILITY(U,$J,112,9915,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9916,0)
;;=BUTTER,VEG-OIL,BUTTERMATCH BLEND,SHEDD'S^BC-03189^tbsp.^14
;;^UTILITY(U,$J,112,9916,1)
;;=0^71.429^0^642.857
;;^UTILITY(U,$J,112,9916,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9917,0)
;;=BUTTER,VEG-OIL,BUTTERMATCH BLEND,WHIPPED,SHEDD'S^BC-03190^tbsp.^10
;;^UTILITY(U,$J,112,9917,1)
;;=0^70^0^600
;;^UTILITY(U,$J,112,9917,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9918,0)
;;=BUTTER,VEG-OIL,BUTTERY BLEND,LIQUID,MRS. FILBERTS^BC-03191^tbsp.^14
;;^UTILITY(U,$J,112,9918,1)
;;=0^100^0^857.143^^^^^^^^^428.571
;;^UTILITY(U,$J,112,9918,2)
;;=^^^^^^^^0^21.429^^28.571
;;^UTILITY(U,$J,112,9918,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9919,0)
;;=BUTTER,VEG-OIL,LAND O LAKES SWEET CREAM SPREAD^BC-03192^tbsp.^14
;;^UTILITY(U,$J,112,9919,1)
;;=0^60^0^542.857^^^^7.143^0^^7.143^42.857^550^^^^^3600^0^0
;;^UTILITY(U,$J,112,9919,2)
;;=0^0^^^^^^^7.143^10.714^22.857^25
;;^UTILITY(U,$J,112,9919,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9920,0)
;;=MARGARINE,BLUE BONNET SOFT^BC-03193^tbsp.^13
;;^UTILITY(U,$J,112,9920,1)
;;=0^84.615^0^769.231^^^^^^^^38.462^730.769
;;^UTILITY(U,$J,112,9920,2)
;;=^^^^^^^^0^15.385^^30.769
;;^UTILITY(U,$J,112,9920,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9921,0)
;;=MARGARINE,BLUE BONND,STICK^BC-03194^tbsp.^14
;;^UTILITY(U,$J,112,9921,1)
;;=0^78.571^0^714.286^^^^^^^^35.714^678.571
;;^UTILITY(U,$J,112,9921,2)
;;=^^^^^^^^0^14.286^^21.429
;;^UTILITY(U,$J,112,9921,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9922,0)
;;=MARGARINE,BLUE BONNET WHIPPED,SOFT^BC-03195^tbsp.^11
;;^UTILITY(U,$J,112,9922,1)
;;=0^63.636^0^636.364^^^^^^^^45.455^636.364
;;^UTILITY(U,$J,112,9922,2)
;;=^^^^^^^^0^18.182^^18.182
;;^UTILITY(U,$J,112,9922,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9923,0)
;;=MARGARINE,FLEISCHMANN'S SOFT^BC-03196^tbsp.^13
;;^UTILITY(U,$J,112,9923,1)
;;=0^84.615^0^769.231^^^^^^^^38.462^730.769
;;^UTILITY(U,$J,112,9923,2)
;;=^^^^^^^^0^15.385^^38.462
FHINI0G9 ; ; 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,9906,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9907,0)
+4 ;;=SALT,KOSHER,MORTON^BC-03180^tsp.^5
+5 ;;^UTILITY(U,$J,112,9907,1)
+6 ;;=0^0^0^0^^^^^^^^^36000
+7 ;;^UTILITY(U,$J,112,9907,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9908,0)
+10 ;;=SALT,SEASONED,MORTON^BC-03181^tsp.^4
+11 ;;^UTILITY(U,$J,112,9908,1)
+12 ;;=12.5^0^12.5^100^^^^300^^^^275^32500
+13 ;;^UTILITY(U,$J,112,9908,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9909,0)
+16 ;;=SALT SUB,MORTON LITE^BC-03182^tsp.^6
+17 ;;^UTILITY(U,$J,112,9909,1)
+18 ;;=0^0^0^0^^^^0^^66.667^^25000^18333.333
+19 ;;^UTILITY(U,$J,112,9909,2)
+20 ;;=^^^^^^^^0^0^^0
+21 ;;^UTILITY(U,$J,112,9909,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9910,0)
+24 ;;=SALT SUB,MORTON SALT SUBSTITUTE^BC-03183^tsp.^6
+25 ;;^UTILITY(U,$J,112,9910,1)
+26 ;;=0^0^1.667^0^^^^500^^0^466.667^46666.667^0
+27 ;;^UTILITY(U,$J,112,9910,2)
+28 ;;=^^^^^^^^0^0^^0^^^^^0
+29 ;;^UTILITY(U,$J,112,9910,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9911,0)
+32 ;;=SALT SUB,MORTON SEASONED SALT SUBSTITUTE^BC-03184^tsp.^5
+33 ;;^UTILITY(U,$J,112,9911,1)
+34 ;;=0^0^10^40^^^^^^^^42000^0
+35 ;;^UTILITY(U,$J,112,9911,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9912,0)
+38 ;;=SALT SUB,NO SALT SALT ALTERNATIVE,SEASONED^BC-03185^tsp.^4.5
+39 ;;^UTILITY(U,$J,112,9912,1)
+40 ;;=0^0^20^88.889^^^^^^^^29555.556^44.444
+41 ;;^UTILITY(U,$J,112,9912,2)
+42 ;;=^^^^^^^^0
+43 ;;^UTILITY(U,$J,112,9912,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9913,0)
+46 ;;=SALT SUB,NU SALT^BC-03186^tsp.^1
+47 ;;^UTILITY(U,$J,112,9913,1)
+48 ;;=^^^^^^^0^^0^^52800^0
+49 ;;^UTILITY(U,$J,112,9913,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9914,0)
+52 ;;=SALT,SEASONING BLEND,NATURE'S SEASONS,MORTON^BC-03187^tsp.^4
+53 ;;^UTILITY(U,$J,112,9914,1)
+54 ;;=0^0^12.5^75^^^^125^^^^250^35000
+55 ;;^UTILITY(U,$J,112,9914,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9915,0)
+58 ;;=BUTTER,VEG-OIL,BUTTER BLEND,STICK/SOFT,BLUE BONNET^BC-03188^tbsp.^14
+59 ;;^UTILITY(U,$J,112,9915,1)
+60 ;;=0^78.571^0^642.857^^^^^^^^71.429^678.571
+61 ;;^UTILITY(U,$J,112,9915,2)
+62 ;;=^^^^^^^^35.714^14.286^^35.714
+63 ;;^UTILITY(U,$J,112,9915,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9916,0)
+66 ;;=BUTTER,VEG-OIL,BUTTERMATCH BLEND,SHEDD'S^BC-03189^tbsp.^14
+67 ;;^UTILITY(U,$J,112,9916,1)
+68 ;;=0^71.429^0^642.857
+69 ;;^UTILITY(U,$J,112,9916,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9917,0)
+72 ;;=BUTTER,VEG-OIL,BUTTERMATCH BLEND,WHIPPED,SHEDD'S^BC-03190^tbsp.^10
+73 ;;^UTILITY(U,$J,112,9917,1)
+74 ;;=0^70^0^600
+75 ;;^UTILITY(U,$J,112,9917,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9918,0)
+78 ;;=BUTTER,VEG-OIL,BUTTERY BLEND,LIQUID,MRS. FILBERTS^BC-03191^tbsp.^14
+79 ;;^UTILITY(U,$J,112,9918,1)
+80 ;;=0^100^0^857.143^^^^^^^^^428.571
+81 ;;^UTILITY(U,$J,112,9918,2)
+82 ;;=^^^^^^^^0^21.429^^28.571
+83 ;;^UTILITY(U,$J,112,9918,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9919,0)
+86 ;;=BUTTER,VEG-OIL,LAND O LAKES SWEET CREAM SPREAD^BC-03192^tbsp.^14
+87 ;;^UTILITY(U,$J,112,9919,1)
+88 ;;=0^60^0^542.857^^^^7.143^0^^7.143^42.857^550^^^^^3600^0^0
+89 ;;^UTILITY(U,$J,112,9919,2)
+90 ;;=0^0^^^^^^^7.143^10.714^22.857^25
+91 ;;^UTILITY(U,$J,112,9919,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9920,0)
+94 ;;=MARGARINE,BLUE BONNET SOFT^BC-03193^tbsp.^13
+95 ;;^UTILITY(U,$J,112,9920,1)
+96 ;;=0^84.615^0^769.231^^^^^^^^38.462^730.769
+97 ;;^UTILITY(U,$J,112,9920,2)
+98 ;;=^^^^^^^^0^15.385^^30.769
+99 ;;^UTILITY(U,$J,112,9920,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9921,0)
+102 ;;=MARGARINE,BLUE BONND,STICK^BC-03194^tbsp.^14
+103 ;;^UTILITY(U,$J,112,9921,1)
+104 ;;=0^78.571^0^714.286^^^^^^^^35.714^678.571
+105 ;;^UTILITY(U,$J,112,9921,2)
+106 ;;=^^^^^^^^0^14.286^^21.429
+107 ;;^UTILITY(U,$J,112,9921,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9922,0)
+110 ;;=MARGARINE,BLUE BONNET WHIPPED,SOFT^BC-03195^tbsp.^11
+111 ;;^UTILITY(U,$J,112,9922,1)
+112 ;;=0^63.636^0^636.364^^^^^^^^45.455^636.364
+113 ;;^UTILITY(U,$J,112,9922,2)
+114 ;;=^^^^^^^^0^18.182^^18.182
+115 ;;^UTILITY(U,$J,112,9922,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,9923,0)
+118 ;;=MARGARINE,FLEISCHMANN'S SOFT^BC-03196^tbsp.^13
+119 ;;^UTILITY(U,$J,112,9923,1)
+120 ;;=0^84.615^0^769.231^^^^^^^^38.462^730.769
+121 ;;^UTILITY(U,$J,112,9923,2)
+122 ;;=^^^^^^^^0^15.385^^38.462
