FHINI01A ; ; 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,275,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,276,0)
;;=FENNEL SEED^2-018^tsp.^2.0^100^N
;;^UTILITY(U,$J,112,276,1)
;;=15.802^14.868^52.293^344.877^8.813^^^1196.35^18.536^384.975^487.4^1693.833^87.8^3.7^1.067^6.533^^135^^.408
;;^UTILITY(U,$J,112,276,2)
;;=.353^6.05^^^^0^1.69^^0^.48^9.91^1.69^13.5^8.224
;;^UTILITY(U,$J,112,276,3)
;;=.253^.602^.695^.996^.758^.301^.222^.647^.41^.915^.68^.331^.789^1.833^2.956^1.107^.9^.9
;;^UTILITY(U,$J,112,276,4)
;;=^^^.48^^^9.91
;;^UTILITY(U,$J,112,276,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,277,0)
;;=FENUGREEK SEED^2-019^tsp.^3.7^100^N
;;^UTILITY(U,$J,112,277,1)
;;=22.999^6.408^58.348^323.072^8.843^^^175.636^33.528^190.633^296.223^769.8^67.25^2.5^1.11^1.228^^^3^.322
;;^UTILITY(U,$J,112,277,2)
;;=.366^1.64^^^57^0^^^0^^^^^3.402
;;^UTILITY(U,$J,112,277,3)
;;=.391^.898^1.241^1.757^1.684^.338^.369^1.089^.764^1.102^2.465^.668^1.02^2.708^3.988^1.306^1.198^1.215
;;^UTILITY(U,$J,112,277,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,278,0)
;;=GARLIC POWDER^2-020^tsp.^2.8^100^N
;;^UTILITY(U,$J,112,278,1)
;;=16.798^.759^72.711^332.261^6.446^^^79.5^2.748^58.333^416.667^1101.25^26.333^2.625^.147^.545^^0^^.466
;;^UTILITY(U,$J,112,278,2)
;;=.152^.692^^^^0^^^0^^^^0^3.286^^^1.9
;;^UTILITY(U,$J,112,278,3)
;;=.215^.468^.648^1.027^.578^.336^.172^.484^.215^.712^1.674^.309^.349^1.29^2.126^.527^.263^.503
;;^UTILITY(U,$J,112,278,4)
;;=^^^^^^^^.72
;;^UTILITY(U,$J,112,278,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,279,0)
;;=GINGER, GROUND^2-021^tsp.^1.8^100^N
;;^UTILITY(U,$J,112,279,1)
;;=9.122^5.949^70.787^346.974^9.377^^^116^11.517^184^147.5^1342.5^32.462^4.717^.48^26.5^^147^^.046
;;^UTILITY(U,$J,112,279,2)
;;=.185^5.155^^^^0^1.02^.29^0^1.94^1^1.31^14.7^4.765^^^12.5
;;^UTILITY(U,$J,112,279,3)
;;=.063^.187^.266^.387^.299^.067^.042^.236^.102^.382^.226^.158^.163^1.09^.848^.226^.216^.236
;;^UTILITY(U,$J,112,279,4)
;;=.18^.33^.15^1.02^^.14^1
;;^UTILITY(U,$J,112,279,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,280,0)
;;=MACE, GROUND^2-022^tsp.^1.7^100^N
;;^UTILITY(U,$J,112,280,1)
;;=6.71^32.382^50.502^475.39^8.172^^^252.333^13.9^163.333^110^462.833^80.125^2.3^2.467^1.5^^800^^.312
;;^UTILITY(U,$J,112,280,2)
;;=.448^1.35^^^^0^4.31^.08^0^9.51^11.17^4.39^80^2.234^^^20.2
;;^UTILITY(U,$J,112,280,4)
;;=^^.93^7.69^.58^.43^10.59
;;^UTILITY(U,$J,112,280,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,281,0)
;;=MARJORAM, DRIED^2-023^tsp.^0.6^100^N
;;^UTILITY(U,$J,112,281,1)
;;=12.664^7.036^60.557^271.462^7.641^^^1989.8^82.712^345.862^305.986^1522^77.039^3.6^1.133^5.433^^8068^51.43^.289
;;^UTILITY(U,$J,112,281,2)
;;=.316^4.12^^^^0^^^0^^^^806.8^12.102^^^18.1
;;^UTILITY(U,$J,112,281,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,282,0)
;;=MUSTARD SEED, YELLOW^2-024^tsp.^3.3^100^N
;;^UTILITY(U,$J,112,282,1)
;;=24.939^28.759^34.938^469.448^6.858^^^521.199^9.975^298.404^840.667^682.389^4.55^5.7^.41^1.767^^62^^.543
;;^UTILITY(U,$J,112,282,2)
;;=.381^7.89^^^^0^2.59^2.68^0^1.46^19.83^5.39^6.2^4.506^^^6.6
;;^UTILITY(U,$J,112,282,3)
;;=.526^1.095^1.081^1.783^1.519^.48^.582^1.067^.744^1.325^1.75^.762^1.187^1.967^4.979^1.312^1.944^1.081
;;^UTILITY(U,$J,112,282,4)
;;=^^^.77^.06^.25^5.9^^.3
;;^UTILITY(U,$J,112,282,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,283,0)
;;=NUTMEG, GROUND^2-025^tsp.^2.2^100^N
;;^UTILITY(U,$J,112,283,1)
;;=5.836^36.307^49.289^524.746^6.228^^^184.4^3.04^183.333^212.5^349.6^16.2^2.15^1.027^2.9^^102^^.346
;;^UTILITY(U,$J,112,283,2)
;;=.057^1.299^^^^0^.35^^0^25.94^3.22^.35^10.2^2.34^^^20.8
;;^UTILITY(U,$J,112,283,4)
;;=^.37^22.83^2.26^1.4^.17^1.59
;;^UTILITY(U,$J,112,283,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,284,0)
;;=ONION POWDER^2-026^tsp.^2.1^100^N
;;^UTILITY(U,$J,112,284,1)
;;=10.124^1.052^80.666^346.707^5.005^^^363^2.558^121.5^340^943.333^53.571^2.325^.177^.374^^0^14.69^.418
;;^UTILITY(U,$J,112,284,2)
;;=.056^.647^^^^0^^^0^^^^0^3.153^^^5.7
;;^UTILITY(U,$J,112,284,3)
;;=.12^.199^.293^.327^.467^.086^.181^.249^.232^.238^1.338^.136^.22^.509^1.884^.334^.405^.246
;;^UTILITY(U,$J,112,284,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,285,0)
;;=OREGANO, GROUND^2-027^tsp.^1.5^100^N
;;^UTILITY(U,$J,112,285,1)
;;=11.003^10.25^64.43^305.93^7.164^^^1576.25^44^270^200^1668.75^14.7^4.433^.943^4.667^^6903^^.341
;;^UTILITY(U,$J,112,285,2)
;;=^6.22^^^^0^1.05^4.18^0^2.66^.67^5.23^690.3^7.153^^^15
;;^UTILITY(U,$J,112,285,4)
;;=.04^.02^.17^1.7^.16^.58^.51
FHINI01A ; ; 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,275,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,276,0)
+4 ;;=FENNEL SEED^2-018^tsp.^2.0^100^N
+5 ;;^UTILITY(U,$J,112,276,1)
+6 ;;=15.802^14.868^52.293^344.877^8.813^^^1196.35^18.536^384.975^487.4^1693.833^87.8^3.7^1.067^6.533^^135^^.408
+7 ;;^UTILITY(U,$J,112,276,2)
+8 ;;=.353^6.05^^^^0^1.69^^0^.48^9.91^1.69^13.5^8.224
+9 ;;^UTILITY(U,$J,112,276,3)
+10 ;;=.253^.602^.695^.996^.758^.301^.222^.647^.41^.915^.68^.331^.789^1.833^2.956^1.107^.9^.9
+11 ;;^UTILITY(U,$J,112,276,4)
+12 ;;=^^^.48^^^9.91
+13 ;;^UTILITY(U,$J,112,276,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,277,0)
+16 ;;=FENUGREEK SEED^2-019^tsp.^3.7^100^N
+17 ;;^UTILITY(U,$J,112,277,1)
+18 ;;=22.999^6.408^58.348^323.072^8.843^^^175.636^33.528^190.633^296.223^769.8^67.25^2.5^1.11^1.228^^^3^.322
+19 ;;^UTILITY(U,$J,112,277,2)
+20 ;;=.366^1.64^^^57^0^^^0^^^^^3.402
+21 ;;^UTILITY(U,$J,112,277,3)
+22 ;;=.391^.898^1.241^1.757^1.684^.338^.369^1.089^.764^1.102^2.465^.668^1.02^2.708^3.988^1.306^1.198^1.215
+23 ;;^UTILITY(U,$J,112,277,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,278,0)
+26 ;;=GARLIC POWDER^2-020^tsp.^2.8^100^N
+27 ;;^UTILITY(U,$J,112,278,1)
+28 ;;=16.798^.759^72.711^332.261^6.446^^^79.5^2.748^58.333^416.667^1101.25^26.333^2.625^.147^.545^^0^^.466
+29 ;;^UTILITY(U,$J,112,278,2)
+30 ;;=.152^.692^^^^0^^^0^^^^0^3.286^^^1.9
+31 ;;^UTILITY(U,$J,112,278,3)
+32 ;;=.215^.468^.648^1.027^.578^.336^.172^.484^.215^.712^1.674^.309^.349^1.29^2.126^.527^.263^.503
+33 ;;^UTILITY(U,$J,112,278,4)
+34 ;;=^^^^^^^^.72
+35 ;;^UTILITY(U,$J,112,278,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,279,0)
+38 ;;=GINGER, GROUND^2-021^tsp.^1.8^100^N
+39 ;;^UTILITY(U,$J,112,279,1)
+40 ;;=9.122^5.949^70.787^346.974^9.377^^^116^11.517^184^147.5^1342.5^32.462^4.717^.48^26.5^^147^^.046
+41 ;;^UTILITY(U,$J,112,279,2)
+42 ;;=.185^5.155^^^^0^1.02^.29^0^1.94^1^1.31^14.7^4.765^^^12.5
+43 ;;^UTILITY(U,$J,112,279,3)
+44 ;;=.063^.187^.266^.387^.299^.067^.042^.236^.102^.382^.226^.158^.163^1.09^.848^.226^.216^.236
+45 ;;^UTILITY(U,$J,112,279,4)
+46 ;;=.18^.33^.15^1.02^^.14^1
+47 ;;^UTILITY(U,$J,112,279,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,280,0)
+50 ;;=MACE, GROUND^2-022^tsp.^1.7^100^N
+51 ;;^UTILITY(U,$J,112,280,1)
+52 ;;=6.71^32.382^50.502^475.39^8.172^^^252.333^13.9^163.333^110^462.833^80.125^2.3^2.467^1.5^^800^^.312
+53 ;;^UTILITY(U,$J,112,280,2)
+54 ;;=.448^1.35^^^^0^4.31^.08^0^9.51^11.17^4.39^80^2.234^^^20.2
+55 ;;^UTILITY(U,$J,112,280,4)
+56 ;;=^^.93^7.69^.58^.43^10.59
+57 ;;^UTILITY(U,$J,112,280,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,281,0)
+60 ;;=MARJORAM, DRIED^2-023^tsp.^0.6^100^N
+61 ;;^UTILITY(U,$J,112,281,1)
+62 ;;=12.664^7.036^60.557^271.462^7.641^^^1989.8^82.712^345.862^305.986^1522^77.039^3.6^1.133^5.433^^8068^51.43^.289
+63 ;;^UTILITY(U,$J,112,281,2)
+64 ;;=.316^4.12^^^^0^^^0^^^^806.8^12.102^^^18.1
+65 ;;^UTILITY(U,$J,112,281,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,282,0)
+68 ;;=MUSTARD SEED, YELLOW^2-024^tsp.^3.3^100^N
+69 ;;^UTILITY(U,$J,112,282,1)
+70 ;;=24.939^28.759^34.938^469.448^6.858^^^521.199^9.975^298.404^840.667^682.389^4.55^5.7^.41^1.767^^62^^.543
+71 ;;^UTILITY(U,$J,112,282,2)
+72 ;;=.381^7.89^^^^0^2.59^2.68^0^1.46^19.83^5.39^6.2^4.506^^^6.6
+73 ;;^UTILITY(U,$J,112,282,3)
+74 ;;=.526^1.095^1.081^1.783^1.519^.48^.582^1.067^.744^1.325^1.75^.762^1.187^1.967^4.979^1.312^1.944^1.081
+75 ;;^UTILITY(U,$J,112,282,4)
+76 ;;=^^^.77^.06^.25^5.9^^.3
+77 ;;^UTILITY(U,$J,112,282,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,283,0)
+80 ;;=NUTMEG, GROUND^2-025^tsp.^2.2^100^N
+81 ;;^UTILITY(U,$J,112,283,1)
+82 ;;=5.836^36.307^49.289^524.746^6.228^^^184.4^3.04^183.333^212.5^349.6^16.2^2.15^1.027^2.9^^102^^.346
+83 ;;^UTILITY(U,$J,112,283,2)
+84 ;;=.057^1.299^^^^0^.35^^0^25.94^3.22^.35^10.2^2.34^^^20.8
+85 ;;^UTILITY(U,$J,112,283,4)
+86 ;;=^.37^22.83^2.26^1.4^.17^1.59
+87 ;;^UTILITY(U,$J,112,283,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,284,0)
+90 ;;=ONION POWDER^2-026^tsp.^2.1^100^N
+91 ;;^UTILITY(U,$J,112,284,1)
+92 ;;=10.124^1.052^80.666^346.707^5.005^^^363^2.558^121.5^340^943.333^53.571^2.325^.177^.374^^0^14.69^.418
+93 ;;^UTILITY(U,$J,112,284,2)
+94 ;;=.056^.647^^^^0^^^0^^^^0^3.153^^^5.7
+95 ;;^UTILITY(U,$J,112,284,3)
+96 ;;=.12^.199^.293^.327^.467^.086^.181^.249^.232^.238^1.338^.136^.22^.509^1.884^.334^.405^.246
+97 ;;^UTILITY(U,$J,112,284,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,285,0)
+100 ;;=OREGANO, GROUND^2-027^tsp.^1.5^100^N
+101 ;;^UTILITY(U,$J,112,285,1)
+102 ;;=11.003^10.25^64.43^305.93^7.164^^^1576.25^44^270^200^1668.75^14.7^4.433^.943^4.667^^6903^^.341
+103 ;;^UTILITY(U,$J,112,285,2)
+104 ;;=^6.22^^^^0^1.05^4.18^0^2.66^.67^5.23^690.3^7.153^^^15
+105 ;;^UTILITY(U,$J,112,285,4)
+106 ;;=.04^.02^.17^1.7^.16^.58^.51
