FHINI0DL ; ; 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,8595,0)
;;=MUFFINS,BLUEBERRY,STREUSEL MIX,GENERAL MILLS BAKE^BC-01868^muffin^48
;;^UTILITY(U,$J,112,8595,1)
;;=6.25^16.667^64.583^437.5^^^^^^^^135.417^479.167
;;^UTILITY(U,$J,112,8595,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8596,0)
;;=MUFFINS,BRAN,W/RAISINS,PEPPERIDGE FARMS^BC-01869^2-oz.^58
;;^UTILITY(U,$J,112,8596,1)
;;=6.724^8.448^53.276^315.517^^^^113.793^4.828^^^386.207^537.931^^^^^0^0^.086
;;^UTILITY(U,$J,112,8596,2)
;;=.155^2.759^^^^^^^^^^^^^^^6.724
;;^UTILITY(U,$J,112,8596,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8597,0)
;;=MUFFINS,CARROT NUT MIX,GENERAL MILLS^BC-01870^muffin^30
;;^UTILITY(U,$J,112,8597,1)
;;=10^16.667^73.333^500^^^^^^^^400^533.333
;;^UTILITY(U,$J,112,8597,2)
;;=^^^^^^^^83.333^3.333^6.667^6.667
;;^UTILITY(U,$J,112,8597,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8598,0)
;;=MUFFINS,CHOC CHIP MIX,GENERAL MILLS^BC-01871^muffin^30
;;^UTILITY(U,$J,112,8598,1)
;;=6.667^20^73.333^500^^^^^^^^233.333^600
;;^UTILITY(U,$J,112,8598,2)
;;=^^^^^^^^66.667^6.667^10^3.333
;;^UTILITY(U,$J,112,8598,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8599,0)
;;=MUFFINS,CINN STREUSEL MIX,GENERAL MILLS^BC-01872^muffin^38
;;^UTILITY(U,$J,112,8599,1)
;;=7.895^23.684^71.053^526.316^^^^^^^^210.526^631.579
;;^UTILITY(U,$J,112,8599,2)
;;=^^^^^^^^78.947^5.263^13.158^5.263
;;^UTILITY(U,$J,112,8599,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8600,0)
;;=MUFFINS,CINN SWIRL MIX,DUNCAN HINES^BC-01873^muffin^45
;;^UTILITY(U,$J,112,8600,1)
;;=4.444^13.333^71.111^422.222^5.556^^^33.333^2^15.556^255.556^^533.333^.444^.111^^^^^.222
;;^UTILITY(U,$J,112,8600,2)
;;=.2^3.111^^^^^^^0^2.222^8.889^2.222
;;^UTILITY(U,$J,112,8600,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8601,0)
;;=MUFFINS,CRANBERRY ORANGE NUT MIX,DUNCAN HINES^BC-01874^muffin^54
;;^UTILITY(U,$J,112,8601,1)
;;=5.556^12.963^53.704^351.852^14.63^^^29.63^2.222^25.926^231.481^^388.889^.741^.37^^^^^.37
;;^UTILITY(U,$J,112,8601,2)
;;=.185^2.778^^^^^^^0^1.852^7.407^3.704
;;^UTILITY(U,$J,112,8601,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8602,0)
;;=MUFFINS,ENGLISH^BC-01875^muffin^57
;;^UTILITY(U,$J,112,8602,1)
;;=7.895^1.93^45.965^236.842^41.93^^^161.404^2.825^19.298^112.281^559.649^638.596^.719^.311^^^0^0^.456
;;^UTILITY(U,$J,112,8602,2)
;;=.316^3.684^.509^.035^31.579^0^^^0
;;^UTILITY(U,$J,112,8602,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8603,0)
;;=MUFFINS,ENGLISH,PEPPERIDGE FARMS^BC-01876^2-oz.^57
;;^UTILITY(U,$J,112,8603,1)
;;=6.667^2.982^49.123^249.123^^^^49.123^2.632^^^196.491^^^^^^0^0^.333
;;^UTILITY(U,$J,112,8603,2)
;;=.193^3.158
;;^UTILITY(U,$J,112,8603,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8604,0)
;;=MUFFINS,ENGLISH,THOMAS^BC-01877^muffin^57
;;^UTILITY(U,$J,112,8604,1)
;;=7.544^2.281^44.561^228.07^44.211^^^124.561^1.825^^^84.211^361.404^^^^^45.614^0^.421
;;^UTILITY(U,$J,112,8604,2)
;;=.228^3.684
;;^UTILITY(U,$J,112,8604,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8605,0)
;;=MUFFINS,ENGLISH,CINN RAISIN,PEPPERIDGE FARMS^BC-01878^2-oz.^57
;;^UTILITY(U,$J,112,8605,1)
;;=7.368^2.982^51.404^261.404^^^^50.877^2.807^^^175.439^343.86^^^^^0^0^.421
;;^UTILITY(U,$J,112,8605,2)
;;=.263^3.158
;;^UTILITY(U,$J,112,8605,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8606,0)
;;=MUFFINS,ENGLISH,HONEY & OAT BRAN,ROMAN MEAL^BC-01879^muffin^62
;;^UTILITY(U,$J,112,8606,1)
;;=7.903^4.355^47.258^259.677^^^^177.419^2.323^^^180.645^367.742^^^^^^^.387
;;^UTILITY(U,$J,112,8606,2)
;;=.323^2.581^^^^^^^0^.484^^1.452^^^^^3.548
;;^UTILITY(U,$J,112,8606,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8607,0)
;;=MUFFINS,ENGLISH,OAT BRAN,THOMAS^BC-01880^2-oz.^57
;;^UTILITY(U,$J,112,8607,1)
;;=7.368^2.105^45.439^203.509^42.982^^^115.789^1.298^^^^336.842^^^^^^^.281
;;^UTILITY(U,$J,112,8607,2)
;;=.246^2.982^^^^^^^0^^^^^^^^5.088
;;^UTILITY(U,$J,112,8607,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8608,0)
;;=MUFFINS,ENGLISH,SOURDOUGH,PEPPERIDGE FARMS^BC-01881^2-oz.^57
;;^UTILITY(U,$J,112,8608,1)
;;=7.719^1.579^47.544^236.842^^^^43.86^3.333^^^178.947^454.386^^^^^0^0^.439
;;^UTILITY(U,$J,112,8608,2)
;;=.298^3.333
;;^UTILITY(U,$J,112,8608,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0DL ; ; 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,8595,0)
+2 ;;=MUFFINS,BLUEBERRY,STREUSEL MIX,GENERAL MILLS BAKE^BC-01868^muffin^48
+3 ;;^UTILITY(U,$J,112,8595,1)
+4 ;;=6.25^16.667^64.583^437.5^^^^^^^^135.417^479.167
+5 ;;^UTILITY(U,$J,112,8595,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8596,0)
+8 ;;=MUFFINS,BRAN,W/RAISINS,PEPPERIDGE FARMS^BC-01869^2-oz.^58
+9 ;;^UTILITY(U,$J,112,8596,1)
+10 ;;=6.724^8.448^53.276^315.517^^^^113.793^4.828^^^386.207^537.931^^^^^0^0^.086
+11 ;;^UTILITY(U,$J,112,8596,2)
+12 ;;=.155^2.759^^^^^^^^^^^^^^^6.724
+13 ;;^UTILITY(U,$J,112,8596,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8597,0)
+16 ;;=MUFFINS,CARROT NUT MIX,GENERAL MILLS^BC-01870^muffin^30
+17 ;;^UTILITY(U,$J,112,8597,1)
+18 ;;=10^16.667^73.333^500^^^^^^^^400^533.333
+19 ;;^UTILITY(U,$J,112,8597,2)
+20 ;;=^^^^^^^^83.333^3.333^6.667^6.667
+21 ;;^UTILITY(U,$J,112,8597,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8598,0)
+24 ;;=MUFFINS,CHOC CHIP MIX,GENERAL MILLS^BC-01871^muffin^30
+25 ;;^UTILITY(U,$J,112,8598,1)
+26 ;;=6.667^20^73.333^500^^^^^^^^233.333^600
+27 ;;^UTILITY(U,$J,112,8598,2)
+28 ;;=^^^^^^^^66.667^6.667^10^3.333
+29 ;;^UTILITY(U,$J,112,8598,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8599,0)
+32 ;;=MUFFINS,CINN STREUSEL MIX,GENERAL MILLS^BC-01872^muffin^38
+33 ;;^UTILITY(U,$J,112,8599,1)
+34 ;;=7.895^23.684^71.053^526.316^^^^^^^^210.526^631.579
+35 ;;^UTILITY(U,$J,112,8599,2)
+36 ;;=^^^^^^^^78.947^5.263^13.158^5.263
+37 ;;^UTILITY(U,$J,112,8599,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8600,0)
+40 ;;=MUFFINS,CINN SWIRL MIX,DUNCAN HINES^BC-01873^muffin^45
+41 ;;^UTILITY(U,$J,112,8600,1)
+42 ;;=4.444^13.333^71.111^422.222^5.556^^^33.333^2^15.556^255.556^^533.333^.444^.111^^^^^.222
+43 ;;^UTILITY(U,$J,112,8600,2)
+44 ;;=.2^3.111^^^^^^^0^2.222^8.889^2.222
+45 ;;^UTILITY(U,$J,112,8600,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8601,0)
+48 ;;=MUFFINS,CRANBERRY ORANGE NUT MIX,DUNCAN HINES^BC-01874^muffin^54
+49 ;;^UTILITY(U,$J,112,8601,1)
+50 ;;=5.556^12.963^53.704^351.852^14.63^^^29.63^2.222^25.926^231.481^^388.889^.741^.37^^^^^.37
+51 ;;^UTILITY(U,$J,112,8601,2)
+52 ;;=.185^2.778^^^^^^^0^1.852^7.407^3.704
+53 ;;^UTILITY(U,$J,112,8601,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8602,0)
+56 ;;=MUFFINS,ENGLISH^BC-01875^muffin^57
+57 ;;^UTILITY(U,$J,112,8602,1)
+58 ;;=7.895^1.93^45.965^236.842^41.93^^^161.404^2.825^19.298^112.281^559.649^638.596^.719^.311^^^0^0^.456
+59 ;;^UTILITY(U,$J,112,8602,2)
+60 ;;=.316^3.684^.509^.035^31.579^0^^^0
+61 ;;^UTILITY(U,$J,112,8602,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8603,0)
+64 ;;=MUFFINS,ENGLISH,PEPPERIDGE FARMS^BC-01876^2-oz.^57
+65 ;;^UTILITY(U,$J,112,8603,1)
+66 ;;=6.667^2.982^49.123^249.123^^^^49.123^2.632^^^196.491^^^^^^0^0^.333
+67 ;;^UTILITY(U,$J,112,8603,2)
+68 ;;=.193^3.158
+69 ;;^UTILITY(U,$J,112,8603,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8604,0)
+72 ;;=MUFFINS,ENGLISH,THOMAS^BC-01877^muffin^57
+73 ;;^UTILITY(U,$J,112,8604,1)
+74 ;;=7.544^2.281^44.561^228.07^44.211^^^124.561^1.825^^^84.211^361.404^^^^^45.614^0^.421
+75 ;;^UTILITY(U,$J,112,8604,2)
+76 ;;=.228^3.684
+77 ;;^UTILITY(U,$J,112,8604,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8605,0)
+80 ;;=MUFFINS,ENGLISH,CINN RAISIN,PEPPERIDGE FARMS^BC-01878^2-oz.^57
+81 ;;^UTILITY(U,$J,112,8605,1)
+82 ;;=7.368^2.982^51.404^261.404^^^^50.877^2.807^^^175.439^343.86^^^^^0^0^.421
+83 ;;^UTILITY(U,$J,112,8605,2)
+84 ;;=.263^3.158
+85 ;;^UTILITY(U,$J,112,8605,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8606,0)
+88 ;;=MUFFINS,ENGLISH,HONEY & OAT BRAN,ROMAN MEAL^BC-01879^muffin^62
+89 ;;^UTILITY(U,$J,112,8606,1)
+90 ;;=7.903^4.355^47.258^259.677^^^^177.419^2.323^^^180.645^367.742^^^^^^^.387
+91 ;;^UTILITY(U,$J,112,8606,2)
+92 ;;=.323^2.581^^^^^^^0^.484^^1.452^^^^^3.548
+93 ;;^UTILITY(U,$J,112,8606,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8607,0)
+96 ;;=MUFFINS,ENGLISH,OAT BRAN,THOMAS^BC-01880^2-oz.^57
+97 ;;^UTILITY(U,$J,112,8607,1)
+98 ;;=7.368^2.105^45.439^203.509^42.982^^^115.789^1.298^^^^336.842^^^^^^^.281
+99 ;;^UTILITY(U,$J,112,8607,2)
+100 ;;=.246^2.982^^^^^^^0^^^^^^^^5.088
+101 ;;^UTILITY(U,$J,112,8607,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8608,0)
+104 ;;=MUFFINS,ENGLISH,SOURDOUGH,PEPPERIDGE FARMS^BC-01881^2-oz.^57
+105 ;;^UTILITY(U,$J,112,8608,1)
+106 ;;=7.719^1.579^47.544^236.842^^^^43.86^3.333^^^178.947^454.386^^^^^0^0^.439
+107 ;;^UTILITY(U,$J,112,8608,2)
+108 ;;=.298^3.333
+109 ;;^UTILITY(U,$J,112,8608,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
