FHINI06G ; ; 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,2208,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2208,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2208,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2209,0)
;;=BEVERAGE, LEMON-LIME SODA^14-145^fl oz.^30.7^100^N
;;^UTILITY(U,$J,112,2209,1)
;;=0^0^10.4^40^89.5^^^2^.07^1^0^1^11^.05^.012^.013^^0^0^0
;;^UTILITY(U,$J,112,2209,2)
;;=0^.015^0^0^0^0^0^0^0^0^0^0^0^.1^^^0
;;^UTILITY(U,$J,112,2209,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2209,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2209,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2210,0)
;;=COCOA MIX, NO ADDED NUTRIENTS, PREPARED WITH WATER^14-194^fl oz.^34.3^100^N
;;^UTILITY(U,$J,112,2210,1)
;;=1.5^.6^10.9^50^86.4^^^47^.17^12^43^98^72^.22^.045^.038^^2^.2^.013
;;^UTILITY(U,$J,112,2210,2)
;;=.078^.081^.123^.016^0^.18^.016^.001^1^.332^.183^.016^0^.6^^2^1.2
;;^UTILITY(U,$J,112,2210,3)
;;=.021^.063^.079^.127^.103^.03^.014^.069^.065^.093^.058^.035^.052^.116^.278^.038^.119^.073
;;^UTILITY(U,$J,112,2210,4)
;;=^0^.001^.141^.001^.185^.181^^^.4
;;^UTILITY(U,$J,112,2210,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2211,0)
;;=COFFEE, BREWED, PREPARED WITH TAP WATER^14-209^fl oz.^29.6^100^N
;;^UTILITY(U,$J,112,2211,1)
;;=.1^0^.4^2^99.3^^^2^.05^5^1^54^2^.02^.007^.027^^0^0^0
;;^UTILITY(U,$J,112,2211,2)
;;=0^.222^.001^0^.1^0^.002^0^0^.002^0^.002^0^.1^^58^0
;;^UTILITY(U,$J,112,2211,3)
;;=0^.001^.002^.005^.001^0^.002^.003^.002^.003^.001^.002^.003^.005^.02^.004^.004^.001
;;^UTILITY(U,$J,112,2211,4)
;;=^^^.001^^0^0^^10^.1
;;^UTILITY(U,$J,112,2211,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2212,0)
;;=COFFEE, INSTANT, DECAFFEINATED, POWDER^14-218^tsp.^1.8^100^N
;;^UTILITY(U,$J,112,2212,1)
;;=11.6^.2^42.6^224^3.2^^^140^3.8^311^286^3501^23^.11^.069^1.222^^0^0^.008
;;^UTILITY(U,$J,112,2212,2)
;;=1.36^28.075^.097^.029^0^0^.093^.008^0^.101^.021^.101^0^9^^122
;;^UTILITY(U,$J,112,2212,3)
;;=.028^.136^.164^.456^.092^.022^.193^.25^.158^.263^.05^.158^.32^.456^1.937^.421^.335^.121
;;^UTILITY(U,$J,112,2212,4)
;;=^^^.075^^.018^.021
;;^UTILITY(U,$J,112,2212,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2213,0)
;;=COFFEE, INSTANT, DECAFFEINATED, POWDER, PREPARED WITH WATER^14-219^fl oz.^29.8^100^N
;;^UTILITY(U,$J,112,2213,1)
;;=.1^0^.4^2^99^^^3^.04^4^3^35^3^.03^.007^.013^^0^0^0
;;^UTILITY(U,$J,112,2213,2)
;;=.014^.282^.001^0^0^0^.001^0^0^.001^0^.001^0^.1^^1
;;^UTILITY(U,$J,112,2213,3)
;;=0^.001^.002^.005^.001^0^.002^.003^.002^.003^.001^.002^.003^.005^.019^.004^.003^.001
;;^UTILITY(U,$J,112,2213,4)
;;=^^^.001^^0^0
;;^UTILITY(U,$J,112,2213,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2214,0)
;;=COFFEE, INSTANT, WITH CHICORY, POWDER^14-222^tsp.^1.8^100^N
;;^UTILITY(U,$J,112,2214,1)
;;=9.3^.2^74.2^351^4.1^^^103^4.76^213^271^3395^277^.37^.05^1.2^^0^0^0
;;^UTILITY(U,$J,112,2214,2)
;;=.29^21.667^.097^.029^0^0^.065^.005^0^.071^.015^.07^0^7.5^^2063^.5
;;^UTILITY(U,$J,112,2214,3)
;;=.022^.103^.124^.344^.069^.017^.146^.189^.119^.198^.038^.119^.241^.344^1.462^.318^.253^.091
;;^UTILITY(U,$J,112,2214,4)
;;=^^^.052^^.012^.014
;;^UTILITY(U,$J,112,2214,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2215,0)
;;=COFFEE, INSTANT, WITH CHICORY, PREPARED WITH WATER^14-223^fl oz.^29.8^100^N
;;^UTILITY(U,$J,112,2215,1)
;;=.1^0^.7^4^99^^^3^.05^3^3^34^6^.03^.007^.013^^0^0^0
;;^UTILITY(U,$J,112,2215,2)
;;=.003^.218^.001^0^0^0^.001^0^0^.001^0^.001^0^.1^^21
;;^UTILITY(U,$J,112,2215,3)
;;=0^.001^.001^.003^.001^0^.001^.002^.001^.002^0^.001^.002^.003^.015^.003^.003^.001
;;^UTILITY(U,$J,112,2215,4)
;;=^^^.001^^0^0
;;^UTILITY(U,$J,112,2215,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2216,0)
;;=COFFEE, INSTANT, MOCHA FLAVOR, W/ SUGAR, POWDER^14-224^tsp.^5.75^100^N
;;^UTILITY(U,$J,112,2216,1)
;;=4.2^16.3^73.4^441^1.7^^^32^2.03^68^251^1033^267^.96^.435^.445^^0^0^.031
;;^UTILITY(U,$J,112,2216,2)
;;=.028^2.263^.052^0^0^0^.294^^0^14.066^.947^.294^0^3.1^^290^1.2
;;^UTILITY(U,$J,112,2216,3)
;;=.047^.121^.12^.208^.146^.026^.051^.156^.12^.186^.158^.062^.148^.315^.575^.161^.139^.122
;;^UTILITY(U,$J,112,2216,4)
;;=.983^7.259^2.73^1.331^^.452^.947
;;^UTILITY(U,$J,112,2216,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2217,0)
;;=COFFEE SUBSTITUTE, CEREAL GRAIN BEVERAGE, POWDER^14-236^tsp.^2.3^100^N
;;^UTILITY(U,$J,112,2217,1)
;;=5.5^3.4^81^372^4.9^^^52^4.6^244^580^1840^73^.51^.208^1.1^^0^0^.632
;;^UTILITY(U,$J,112,2217,2)
;;=.095^16.896^.752^.884^23.8^0^1.559^.171^0^.633^.374^1.73^0^5.3^^^8.9
FHINI06G ; ; 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,2208,3)
+2 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+3 ;;^UTILITY(U,$J,112,2208,4)
+4 ;;=0^0^0^0^0^0^0^0
+5 ;;^UTILITY(U,$J,112,2208,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2209,0)
+8 ;;=BEVERAGE, LEMON-LIME SODA^14-145^fl oz.^30.7^100^N
+9 ;;^UTILITY(U,$J,112,2209,1)
+10 ;;=0^0^10.4^40^89.5^^^2^.07^1^0^1^11^.05^.012^.013^^0^0^0
+11 ;;^UTILITY(U,$J,112,2209,2)
+12 ;;=0^.015^0^0^0^0^0^0^0^0^0^0^0^.1^^^0
+13 ;;^UTILITY(U,$J,112,2209,3)
+14 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+15 ;;^UTILITY(U,$J,112,2209,4)
+16 ;;=0^0^0^0^0^0^0^0
+17 ;;^UTILITY(U,$J,112,2209,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2210,0)
+20 ;;=COCOA MIX, NO ADDED NUTRIENTS, PREPARED WITH WATER^14-194^fl oz.^34.3^100^N
+21 ;;^UTILITY(U,$J,112,2210,1)
+22 ;;=1.5^.6^10.9^50^86.4^^^47^.17^12^43^98^72^.22^.045^.038^^2^.2^.013
+23 ;;^UTILITY(U,$J,112,2210,2)
+24 ;;=.078^.081^.123^.016^0^.18^.016^.001^1^.332^.183^.016^0^.6^^2^1.2
+25 ;;^UTILITY(U,$J,112,2210,3)
+26 ;;=.021^.063^.079^.127^.103^.03^.014^.069^.065^.093^.058^.035^.052^.116^.278^.038^.119^.073
+27 ;;^UTILITY(U,$J,112,2210,4)
+28 ;;=^0^.001^.141^.001^.185^.181^^^.4
+29 ;;^UTILITY(U,$J,112,2210,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2211,0)
+32 ;;=COFFEE, BREWED, PREPARED WITH TAP WATER^14-209^fl oz.^29.6^100^N
+33 ;;^UTILITY(U,$J,112,2211,1)
+34 ;;=.1^0^.4^2^99.3^^^2^.05^5^1^54^2^.02^.007^.027^^0^0^0
+35 ;;^UTILITY(U,$J,112,2211,2)
+36 ;;=0^.222^.001^0^.1^0^.002^0^0^.002^0^.002^0^.1^^58^0
+37 ;;^UTILITY(U,$J,112,2211,3)
+38 ;;=0^.001^.002^.005^.001^0^.002^.003^.002^.003^.001^.002^.003^.005^.02^.004^.004^.001
+39 ;;^UTILITY(U,$J,112,2211,4)
+40 ;;=^^^.001^^0^0^^10^.1
+41 ;;^UTILITY(U,$J,112,2211,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2212,0)
+44 ;;=COFFEE, INSTANT, DECAFFEINATED, POWDER^14-218^tsp.^1.8^100^N
+45 ;;^UTILITY(U,$J,112,2212,1)
+46 ;;=11.6^.2^42.6^224^3.2^^^140^3.8^311^286^3501^23^.11^.069^1.222^^0^0^.008
+47 ;;^UTILITY(U,$J,112,2212,2)
+48 ;;=1.36^28.075^.097^.029^0^0^.093^.008^0^.101^.021^.101^0^9^^122
+49 ;;^UTILITY(U,$J,112,2212,3)
+50 ;;=.028^.136^.164^.456^.092^.022^.193^.25^.158^.263^.05^.158^.32^.456^1.937^.421^.335^.121
+51 ;;^UTILITY(U,$J,112,2212,4)
+52 ;;=^^^.075^^.018^.021
+53 ;;^UTILITY(U,$J,112,2212,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2213,0)
+56 ;;=COFFEE, INSTANT, DECAFFEINATED, POWDER, PREPARED WITH WATER^14-219^fl oz.^29.8^100^N
+57 ;;^UTILITY(U,$J,112,2213,1)
+58 ;;=.1^0^.4^2^99^^^3^.04^4^3^35^3^.03^.007^.013^^0^0^0
+59 ;;^UTILITY(U,$J,112,2213,2)
+60 ;;=.014^.282^.001^0^0^0^.001^0^0^.001^0^.001^0^.1^^1
+61 ;;^UTILITY(U,$J,112,2213,3)
+62 ;;=0^.001^.002^.005^.001^0^.002^.003^.002^.003^.001^.002^.003^.005^.019^.004^.003^.001
+63 ;;^UTILITY(U,$J,112,2213,4)
+64 ;;=^^^.001^^0^0
+65 ;;^UTILITY(U,$J,112,2213,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2214,0)
+68 ;;=COFFEE, INSTANT, WITH CHICORY, POWDER^14-222^tsp.^1.8^100^N
+69 ;;^UTILITY(U,$J,112,2214,1)
+70 ;;=9.3^.2^74.2^351^4.1^^^103^4.76^213^271^3395^277^.37^.05^1.2^^0^0^0
+71 ;;^UTILITY(U,$J,112,2214,2)
+72 ;;=.29^21.667^.097^.029^0^0^.065^.005^0^.071^.015^.07^0^7.5^^2063^.5
+73 ;;^UTILITY(U,$J,112,2214,3)
+74 ;;=.022^.103^.124^.344^.069^.017^.146^.189^.119^.198^.038^.119^.241^.344^1.462^.318^.253^.091
+75 ;;^UTILITY(U,$J,112,2214,4)
+76 ;;=^^^.052^^.012^.014
+77 ;;^UTILITY(U,$J,112,2214,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2215,0)
+80 ;;=COFFEE, INSTANT, WITH CHICORY, PREPARED WITH WATER^14-223^fl oz.^29.8^100^N
+81 ;;^UTILITY(U,$J,112,2215,1)
+82 ;;=.1^0^.7^4^99^^^3^.05^3^3^34^6^.03^.007^.013^^0^0^0
+83 ;;^UTILITY(U,$J,112,2215,2)
+84 ;;=.003^.218^.001^0^0^0^.001^0^0^.001^0^.001^0^.1^^21
+85 ;;^UTILITY(U,$J,112,2215,3)
+86 ;;=0^.001^.001^.003^.001^0^.001^.002^.001^.002^0^.001^.002^.003^.015^.003^.003^.001
+87 ;;^UTILITY(U,$J,112,2215,4)
+88 ;;=^^^.001^^0^0
+89 ;;^UTILITY(U,$J,112,2215,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2216,0)
+92 ;;=COFFEE, INSTANT, MOCHA FLAVOR, W/ SUGAR, POWDER^14-224^tsp.^5.75^100^N
+93 ;;^UTILITY(U,$J,112,2216,1)
+94 ;;=4.2^16.3^73.4^441^1.7^^^32^2.03^68^251^1033^267^.96^.435^.445^^0^0^.031
+95 ;;^UTILITY(U,$J,112,2216,2)
+96 ;;=.028^2.263^.052^0^0^0^.294^^0^14.066^.947^.294^0^3.1^^290^1.2
+97 ;;^UTILITY(U,$J,112,2216,3)
+98 ;;=.047^.121^.12^.208^.146^.026^.051^.156^.12^.186^.158^.062^.148^.315^.575^.161^.139^.122
+99 ;;^UTILITY(U,$J,112,2216,4)
+100 ;;=.983^7.259^2.73^1.331^^.452^.947
+101 ;;^UTILITY(U,$J,112,2216,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,2217,0)
+104 ;;=COFFEE SUBSTITUTE, CEREAL GRAIN BEVERAGE, POWDER^14-236^tsp.^2.3^100^N
+105 ;;^UTILITY(U,$J,112,2217,1)
+106 ;;=5.5^3.4^81^372^4.9^^^52^4.6^244^580^1840^73^.51^.208^1.1^^0^0^.632
+107 ;;^UTILITY(U,$J,112,2217,2)
+108 ;;=.095^16.896^.752^.884^23.8^0^1.559^.171^0^.633^.374^1.73^0^5.3^^^8.9
