FHINI0G8 ; ; 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,9892,2)
;;=9.696^8.929^4.464^.75^178.571^2.679^^^0^9.643^15.714^1.786^^^^^0
;;^UTILITY(U,$J,112,9892,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9893,0)
;;=SLENDER BARS,CARNATION,VANILLA^BC-03166^2-bars^56
;;^UTILITY(U,$J,112,9893,1)
;;=22.679^26.429^41.071^482.143^2.857^^^446.429^8.036^178.571^446.429^542.857^571.429^6.696^.893^.132^^2232.143^26.786^.679
;;^UTILITY(U,$J,112,9893,2)
;;=9.696^8.929^4.464^.75^178.571^2.679^^^0^9.821^16.071^.536
;;^UTILITY(U,$J,112,9893,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9894,0)
;;=SLENDER INST. DRY,CHOC^BC-03167^1.06-oz.^30
;;^UTILITY(U,$J,112,9894,1)
;;=15.667^2.333^74^346.667^3^^^166.667^15^266.667^333.333^1043.333^363.333^12.5^1.667^.013^^3333.333^50^1
;;^UTILITY(U,$J,112,9894,2)
;;=.3^16.667^6.667^1.333^333.333^.3^^^6.667^1.333^.667^.333^^^^^5
;;^UTILITY(U,$J,112,9894,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9895,0)
;;=SLENDER INST. DRY,DUTCH CHOC^BC-03168^1.06-oz.^30
;;^UTILITY(U,$J,112,9895,1)
;;=15.667^3^73.667^343.333^2.667^^^166.667^15^266.667^333.333^1140^360^12.5^1.667^.01^^3333.333^50^1
;;^UTILITY(U,$J,112,9895,2)
;;=.3^16.667^6.667^1.333^333.333^.3^^^6.667^1.667^1^.333^^^^^5.333
;;^UTILITY(U,$J,112,9895,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9896,0)
;;=SLENDER INST. DRY,FRENCH VANILLA^BC-03169^1.04-oz.^30
;;^UTILITY(U,$J,112,9896,1)
;;=16^.667^74^350^3^^^166.667^15^266.667^333.333^800^326.667^12.5^1.667^.013^^3333.333^50^1
;;^UTILITY(U,$J,112,9896,2)
;;=.3^16.667^6.667^1.333^333.333^.3^^^10^0^0^0^^^^^4.667
;;^UTILITY(U,$J,112,9896,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9897,0)
;;=BUTTER BUDS^BC-03170^2-tsp dry^4
;;^UTILITY(U,$J,112,9897,1)
;;=0^2.5^72.5^300^^^^^^^^75^4250^^^^^175
;;^UTILITY(U,$J,112,9897,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,9897,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9898,0)
;;=GARLIC SALT,MORTON^BC-03171^tsp.^4
;;^UTILITY(U,$J,112,9898,1)
;;=10^0^10^75^^^^250^^^^250^32500
;;^UTILITY(U,$J,112,9898,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9899,0)
;;=BUTTER,MOLLY MCBUTTER FLAVOR SPRINKLES^BC-03172^1/2-tsp.^1
;;^UTILITY(U,$J,112,9899,1)
;;=0^0^100^300^^^^^^^0^0^9000
;;^UTILITY(U,$J,112,9899,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9899,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9900,0)
;;=CHEESE,MOLLY MCBUTTER FLAVOR SPRINKLES^BC-03173^1/2-tsp.^1
;;^UTILITY(U,$J,112,9900,1)
;;=0^0^100^400^^^^^^^500^0^6000
;;^UTILITY(U,$J,112,9900,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9900,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9901,0)
;;=SOUR CREAM & BUTTER,MOLLY MCBUTTER FLAVOR SPRINKLES^BC-03174^1/2-tsp.^1
;;^UTILITY(U,$J,112,9901,1)
;;=0^0^100^400^^^^^^^500^1000^7000
;;^UTILITY(U,$J,112,9901,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9901,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9902,0)
;;=SALT-FREE SEASONING BLEND,MRS. DASH,EXTRA SPICY^BC-03175^tsp.^3
;;^UTILITY(U,$J,112,9902,1)
;;=0^0^100^400^^^^^^133.333^266.667^1333.333^0
;;^UTILITY(U,$J,112,9902,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9902,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9903,0)
;;=SALT-FREE SEASONING BLEND,MRS. DASH,LEMON & HERB^BC-03176^tsp.^3
;;^UTILITY(U,$J,112,9903,1)
;;=0^0^100^400^^^^^^133.333^333.333^1666.667^0
;;^UTILITY(U,$J,112,9903,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9903,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9904,0)
;;=SALT-FREE SEASONING BLEND,MRS. DASH LOW PEPPER NO GARLIC^BC-03177^tsp.^3
;;^UTILITY(U,$J,112,9904,1)
;;=0^0^100^400^^^^^^133.333^333.333^1666.667^0
;;^UTILITY(U,$J,112,9904,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9904,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9905,0)
;;=SALT FREE SEASONING BLEND,MRS. DASH,ORIGINAL^BC-03178^tsp.^3
;;^UTILITY(U,$J,112,9905,1)
;;=0^0^66.667^400^^^^^^133.333^266.667^1333.333^0
;;^UTILITY(U,$J,112,9905,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9905,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9906,0)
;;=SALT-FREE SEASONING BLEND,MRS. DASH,TABLE^BC-03179^tsp.^3
;;^UTILITY(U,$J,112,9906,1)
;;=0^0^100^400^^^^^^133.333^266.667^^0
;;^UTILITY(U,$J,112,9906,2)
;;=^^^^^^^^0^0^0^0^^^^^0
FHINI0G8 ; ; 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,9892,2)
+2 ;;=9.696^8.929^4.464^.75^178.571^2.679^^^0^9.643^15.714^1.786^^^^^0
+3 ;;^UTILITY(U,$J,112,9892,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9893,0)
+6 ;;=SLENDER BARS,CARNATION,VANILLA^BC-03166^2-bars^56
+7 ;;^UTILITY(U,$J,112,9893,1)
+8 ;;=22.679^26.429^41.071^482.143^2.857^^^446.429^8.036^178.571^446.429^542.857^571.429^6.696^.893^.132^^2232.143^26.786^.679
+9 ;;^UTILITY(U,$J,112,9893,2)
+10 ;;=9.696^8.929^4.464^.75^178.571^2.679^^^0^9.821^16.071^.536
+11 ;;^UTILITY(U,$J,112,9893,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9894,0)
+14 ;;=SLENDER INST. DRY,CHOC^BC-03167^1.06-oz.^30
+15 ;;^UTILITY(U,$J,112,9894,1)
+16 ;;=15.667^2.333^74^346.667^3^^^166.667^15^266.667^333.333^1043.333^363.333^12.5^1.667^.013^^3333.333^50^1
+17 ;;^UTILITY(U,$J,112,9894,2)
+18 ;;=.3^16.667^6.667^1.333^333.333^.3^^^6.667^1.333^.667^.333^^^^^5
+19 ;;^UTILITY(U,$J,112,9894,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9895,0)
+22 ;;=SLENDER INST. DRY,DUTCH CHOC^BC-03168^1.06-oz.^30
+23 ;;^UTILITY(U,$J,112,9895,1)
+24 ;;=15.667^3^73.667^343.333^2.667^^^166.667^15^266.667^333.333^1140^360^12.5^1.667^.01^^3333.333^50^1
+25 ;;^UTILITY(U,$J,112,9895,2)
+26 ;;=.3^16.667^6.667^1.333^333.333^.3^^^6.667^1.667^1^.333^^^^^5.333
+27 ;;^UTILITY(U,$J,112,9895,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9896,0)
+30 ;;=SLENDER INST. DRY,FRENCH VANILLA^BC-03169^1.04-oz.^30
+31 ;;^UTILITY(U,$J,112,9896,1)
+32 ;;=16^.667^74^350^3^^^166.667^15^266.667^333.333^800^326.667^12.5^1.667^.013^^3333.333^50^1
+33 ;;^UTILITY(U,$J,112,9896,2)
+34 ;;=.3^16.667^6.667^1.333^333.333^.3^^^10^0^0^0^^^^^4.667
+35 ;;^UTILITY(U,$J,112,9896,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9897,0)
+38 ;;=BUTTER BUDS^BC-03170^2-tsp dry^4
+39 ;;^UTILITY(U,$J,112,9897,1)
+40 ;;=0^2.5^72.5^300^^^^^^^^75^4250^^^^^175
+41 ;;^UTILITY(U,$J,112,9897,2)
+42 ;;=^^^^^^^^0
+43 ;;^UTILITY(U,$J,112,9897,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9898,0)
+46 ;;=GARLIC SALT,MORTON^BC-03171^tsp.^4
+47 ;;^UTILITY(U,$J,112,9898,1)
+48 ;;=10^0^10^75^^^^250^^^^250^32500
+49 ;;^UTILITY(U,$J,112,9898,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9899,0)
+52 ;;=BUTTER,MOLLY MCBUTTER FLAVOR SPRINKLES^BC-03172^1/2-tsp.^1
+53 ;;^UTILITY(U,$J,112,9899,1)
+54 ;;=0^0^100^300^^^^^^^0^0^9000
+55 ;;^UTILITY(U,$J,112,9899,2)
+56 ;;=^^^^^^^^0^0^0^0^^^^^0
+57 ;;^UTILITY(U,$J,112,9899,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9900,0)
+60 ;;=CHEESE,MOLLY MCBUTTER FLAVOR SPRINKLES^BC-03173^1/2-tsp.^1
+61 ;;^UTILITY(U,$J,112,9900,1)
+62 ;;=0^0^100^400^^^^^^^500^0^6000
+63 ;;^UTILITY(U,$J,112,9900,2)
+64 ;;=^^^^^^^^0^0^0^0^^^^^0
+65 ;;^UTILITY(U,$J,112,9900,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9901,0)
+68 ;;=SOUR CREAM & BUTTER,MOLLY MCBUTTER FLAVOR SPRINKLES^BC-03174^1/2-tsp.^1
+69 ;;^UTILITY(U,$J,112,9901,1)
+70 ;;=0^0^100^400^^^^^^^500^1000^7000
+71 ;;^UTILITY(U,$J,112,9901,2)
+72 ;;=^^^^^^^^0^0^0^0^^^^^0
+73 ;;^UTILITY(U,$J,112,9901,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9902,0)
+76 ;;=SALT-FREE SEASONING BLEND,MRS. DASH,EXTRA SPICY^BC-03175^tsp.^3
+77 ;;^UTILITY(U,$J,112,9902,1)
+78 ;;=0^0^100^400^^^^^^133.333^266.667^1333.333^0
+79 ;;^UTILITY(U,$J,112,9902,2)
+80 ;;=^^^^^^^^0^0^0^0^^^^^0
+81 ;;^UTILITY(U,$J,112,9902,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9903,0)
+84 ;;=SALT-FREE SEASONING BLEND,MRS. DASH,LEMON & HERB^BC-03176^tsp.^3
+85 ;;^UTILITY(U,$J,112,9903,1)
+86 ;;=0^0^100^400^^^^^^133.333^333.333^1666.667^0
+87 ;;^UTILITY(U,$J,112,9903,2)
+88 ;;=^^^^^^^^0^0^0^0^^^^^0
+89 ;;^UTILITY(U,$J,112,9903,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9904,0)
+92 ;;=SALT-FREE SEASONING BLEND,MRS. DASH LOW PEPPER NO GARLIC^BC-03177^tsp.^3
+93 ;;^UTILITY(U,$J,112,9904,1)
+94 ;;=0^0^100^400^^^^^^133.333^333.333^1666.667^0
+95 ;;^UTILITY(U,$J,112,9904,2)
+96 ;;=^^^^^^^^0^0^0^0^^^^^0
+97 ;;^UTILITY(U,$J,112,9904,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9905,0)
+100 ;;=SALT FREE SEASONING BLEND,MRS. DASH,ORIGINAL^BC-03178^tsp.^3
+101 ;;^UTILITY(U,$J,112,9905,1)
+102 ;;=0^0^66.667^400^^^^^^133.333^266.667^1333.333^0
+103 ;;^UTILITY(U,$J,112,9905,2)
+104 ;;=^^^^^^^^0^0^0^0^^^^^0
+105 ;;^UTILITY(U,$J,112,9905,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,9906,0)
+108 ;;=SALT-FREE SEASONING BLEND,MRS. DASH,TABLE^BC-03179^tsp.^3
+109 ;;^UTILITY(U,$J,112,9906,1)
+110 ;;=0^0^100^400^^^^^^133.333^266.667^^0
+111 ;;^UTILITY(U,$J,112,9906,2)
+112 ;;=^^^^^^^^0^0^0^0^^^^^0
