FHINI06E ; ; 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,2186,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2187,0)
;;=BEEF, CURED, SUMMER SAUSAGE^13-359^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2187,1)
;;=15.78^29.54^.26^335^50.76^^^13^2.54^14^111^271^1242^2.56^.15^.049^^0^20^.15
;;^UTILITY(U,$J,112,2187,2)
;;=.33^4.31^.998^.26^2^5.5^.99^.21^75^12.03^12.97^1.2^0^3.66
;;^UTILITY(U,$J,112,2187,3)
;;=.144^.596^.682^1.159^1.209^.366^.202^.568^.515^.694^.975^.502^1.136^1.545^2.57^1.318^1.136^.636
;;^UTILITY(U,$J,112,2187,4)
;;=.11^.08^.8^6.35^1.76^4.17^11.21^0
;;^UTILITY(U,$J,112,2187,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2188,0)
;;=BEEF, CURED, THIN-SLICED BEEF^13-360^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2188,1)
;;=28.11^3.84^5.71^177^58.1^^^11^2.7^19^168^429^1439^3.98^.034^.038^^0^14.3^.08
;;^UTILITY(U,$J,112,2188,2)
;;=.19^5.27^.59^.34^11^2.57^.17^.02^41^1.65^1.68^.2^0^4.24^^^0
;;^UTILITY(U,$J,112,2188,3)
;;=.229^1.178^1.151^2.1^2.293^.679^.333^1.052^.85^1.291^1.898^.814^1.857^2.496^4.052^2.087^1.529^1.147
;;^UTILITY(U,$J,112,2188,4)
;;=.01^.01^.09^.87^.22^.61^1.46^0
;;^UTILITY(U,$J,112,2188,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2189,0)
;;=BEVERAGE, BEER, LIGHT^14-006^cans^354^100^N
;;^UTILITY(U,$J,112,2189,1)
;;=.2^0^1.3^28^95.2^^^5^.04^5^12^18^3^.03^.024^.016^^0^0^.009
;;^UTILITY(U,$J,112,2189,2)
;;=.03^.392^.036^.034^4.1^.01^0^0^0^0^0^0^0^.1^3.2^^0
;;^UTILITY(U,$J,112,2189,3)
;;=.003^.004^.004^.005^.005^.001^.002^.005^.012^.007^.007^.004^.008^.01^.024^.007^.023^.004
;;^UTILITY(U,$J,112,2189,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2189,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2190,0)
;;=BEVERAGE, BLOODY MARY, PREPARED FROM RECIPE^14-008^fl oz.^29.7^100^N
;;^UTILITY(U,$J,112,2190,1)
;;=.5^.1^3.3^78^86^^^7^.37^8^14^146^224^.09^.069^.049^^343^13.8^.034
;;^UTILITY(U,$J,112,2190,2)
;;=.022^.434^.163^.072^13.3^0^.024^.002^0^.01^.013^.026^34^.7^9.4
;;^UTILITY(U,$J,112,2190,4)
;;=^^0^.007^0^.002^.012
;;^UTILITY(U,$J,112,2190,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2191,0)
;;=BEVERAGE, DAIQUIRI, CANNED^14-009^fl oz.^30.5^100^N
;;^UTILITY(U,$J,112,2191,1)
;;=0^0^15.7^125^74.6^^^0^.01^1^2^11^40^.03^.016^.005^^2^1.3^.001
;;^UTILITY(U,$J,112,2191,2)
;;=.001^.014^.007^.003^.8^0^0^^0^0^^^0^.1^9.6^^0
;;^UTILITY(U,$J,112,2191,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2191,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2192,0)
;;=BEVERAGE, GIN AND TONIC, PREPARED FROM RECIPE^14-011^fl oz.^30^100^N
;;^UTILITY(U,$J,112,2192,1)
;;=0^0^7^76^85.8^^^2^.02^1^1^5^4^.08^.008^.001^^1^.4^.002
;;^UTILITY(U,$J,112,2192,2)
;;=0^.011^.004^.002^.5^0^.003^.002^0^.002^.002^.004^0^.1^7.1
;;^UTILITY(U,$J,112,2192,4)
;;=^^0^.002^0^0^.001
;;^UTILITY(U,$J,112,2192,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2193,0)
;;=BEVERAGE, MANHATTAN, PREPARED FROM RECIPE^14-012^fl oz.^28.5^100^N
;;^UTILITY(U,$J,112,2193,1)
;;=.1^0^3.2^224^66.1^^^2^.09^2^7^26^3^.05^.028^.042^^0^0^.011
;;^UTILITY(U,$J,112,2193,2)
;;=.006^.093^.008^0^.1^0^0^0^0^0^0^0^0^.1^30.6
;;^UTILITY(U,$J,112,2193,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2193,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2194,0)
;;=BEVERAGE, MARTINI, PREPARED FROM RECIPE^14-014^fl oz.^28.2^100^N
;;^UTILITY(U,$J,112,2194,1)
;;=0^0^.3^223^67.6^^^2^.09^2^3^18^3^.02^.006^.025^^0^0^.001
;;^UTILITY(U,$J,112,2194,2)
;;=.003^.015^.006^.005^.2^0^0^0^0^0^0^0^0^.1^32
;;^UTILITY(U,$J,112,2194,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2194,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2195,0)
;;=BEVERAGE, PINA COLADA, CANNED^14-015^fl oz.^32.6^100^N
;;^UTILITY(U,$J,112,2195,1)
;;=.6^7.6^27.6^237^54.9^^^1^.03^6^36^83^71^.2^.087^.319^^24^1.5^.017
;;^UTILITY(U,$J,112,2195,2)
;;=.005^.104^.054^.017^6^0^.137^^0^6.571^.442^.137^2^.3^9^^.1
;;^UTILITY(U,$J,112,2195,4)
;;=.459^3.391^1.275^.622^^.211^.442
;;^UTILITY(U,$J,112,2195,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2196,0)
;;=BEVERAGE, SCREWDRIVER, PREPARED FROM RECIPE^14-018^fl oz.^30.4^100^N
;;^UTILITY(U,$J,112,2196,1)
;;=.5^0^8.6^82^83.8^^^7^.08^8^14^153^1^.04^.037^.011^^63^31.2^.064
;;^UTILITY(U,$J,112,2196,2)
;;=.015^.162^.127^.035^35.1^0^.008^.003^0^.006^.008^.01^6^.3^6.6
;;^UTILITY(U,$J,112,2196,3)
;;=.001^.006^.006^.01^.007^.003^.004^.007^.003^.009^.037^.002^.012^.058^.026^.007^.034^.01
;;^UTILITY(U,$J,112,2196,4)
;;=^^^.006^.001^^.008
;;^UTILITY(U,$J,112,2196,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2197,0)
;;=BEVERAGE, TEQUILA SUNRISE, CANNED^14-019^fl oz.^31.2^100^N
FHINI06E ; ; 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,2186,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,2187,0)
+4 ;;=BEEF, CURED, SUMMER SAUSAGE^13-359^oz.^28.35^100^N
+5 ;;^UTILITY(U,$J,112,2187,1)
+6 ;;=15.78^29.54^.26^335^50.76^^^13^2.54^14^111^271^1242^2.56^.15^.049^^0^20^.15
+7 ;;^UTILITY(U,$J,112,2187,2)
+8 ;;=.33^4.31^.998^.26^2^5.5^.99^.21^75^12.03^12.97^1.2^0^3.66
+9 ;;^UTILITY(U,$J,112,2187,3)
+10 ;;=.144^.596^.682^1.159^1.209^.366^.202^.568^.515^.694^.975^.502^1.136^1.545^2.57^1.318^1.136^.636
+11 ;;^UTILITY(U,$J,112,2187,4)
+12 ;;=.11^.08^.8^6.35^1.76^4.17^11.21^0
+13 ;;^UTILITY(U,$J,112,2187,20)
+14 ;;=USDA Std. Reference, Release 8
+15 ;;^UTILITY(U,$J,112,2188,0)
+16 ;;=BEEF, CURED, THIN-SLICED BEEF^13-360^oz.^28.35^100^N
+17 ;;^UTILITY(U,$J,112,2188,1)
+18 ;;=28.11^3.84^5.71^177^58.1^^^11^2.7^19^168^429^1439^3.98^.034^.038^^0^14.3^.08
+19 ;;^UTILITY(U,$J,112,2188,2)
+20 ;;=.19^5.27^.59^.34^11^2.57^.17^.02^41^1.65^1.68^.2^0^4.24^^^0
+21 ;;^UTILITY(U,$J,112,2188,3)
+22 ;;=.229^1.178^1.151^2.1^2.293^.679^.333^1.052^.85^1.291^1.898^.814^1.857^2.496^4.052^2.087^1.529^1.147
+23 ;;^UTILITY(U,$J,112,2188,4)
+24 ;;=.01^.01^.09^.87^.22^.61^1.46^0
+25 ;;^UTILITY(U,$J,112,2188,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,2189,0)
+28 ;;=BEVERAGE, BEER, LIGHT^14-006^cans^354^100^N
+29 ;;^UTILITY(U,$J,112,2189,1)
+30 ;;=.2^0^1.3^28^95.2^^^5^.04^5^12^18^3^.03^.024^.016^^0^0^.009
+31 ;;^UTILITY(U,$J,112,2189,2)
+32 ;;=.03^.392^.036^.034^4.1^.01^0^0^0^0^0^0^0^.1^3.2^^0
+33 ;;^UTILITY(U,$J,112,2189,3)
+34 ;;=.003^.004^.004^.005^.005^.001^.002^.005^.012^.007^.007^.004^.008^.01^.024^.007^.023^.004
+35 ;;^UTILITY(U,$J,112,2189,4)
+36 ;;=0^0^0^0^0^0^0^0
+37 ;;^UTILITY(U,$J,112,2189,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,2190,0)
+40 ;;=BEVERAGE, BLOODY MARY, PREPARED FROM RECIPE^14-008^fl oz.^29.7^100^N
+41 ;;^UTILITY(U,$J,112,2190,1)
+42 ;;=.5^.1^3.3^78^86^^^7^.37^8^14^146^224^.09^.069^.049^^343^13.8^.034
+43 ;;^UTILITY(U,$J,112,2190,2)
+44 ;;=.022^.434^.163^.072^13.3^0^.024^.002^0^.01^.013^.026^34^.7^9.4
+45 ;;^UTILITY(U,$J,112,2190,4)
+46 ;;=^^0^.007^0^.002^.012
+47 ;;^UTILITY(U,$J,112,2190,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2191,0)
+50 ;;=BEVERAGE, DAIQUIRI, CANNED^14-009^fl oz.^30.5^100^N
+51 ;;^UTILITY(U,$J,112,2191,1)
+52 ;;=0^0^15.7^125^74.6^^^0^.01^1^2^11^40^.03^.016^.005^^2^1.3^.001
+53 ;;^UTILITY(U,$J,112,2191,2)
+54 ;;=.001^.014^.007^.003^.8^0^0^^0^0^^^0^.1^9.6^^0
+55 ;;^UTILITY(U,$J,112,2191,4)
+56 ;;=^^^^^^0
+57 ;;^UTILITY(U,$J,112,2191,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2192,0)
+60 ;;=BEVERAGE, GIN AND TONIC, PREPARED FROM RECIPE^14-011^fl oz.^30^100^N
+61 ;;^UTILITY(U,$J,112,2192,1)
+62 ;;=0^0^7^76^85.8^^^2^.02^1^1^5^4^.08^.008^.001^^1^.4^.002
+63 ;;^UTILITY(U,$J,112,2192,2)
+64 ;;=0^.011^.004^.002^.5^0^.003^.002^0^.002^.002^.004^0^.1^7.1
+65 ;;^UTILITY(U,$J,112,2192,4)
+66 ;;=^^0^.002^0^0^.001
+67 ;;^UTILITY(U,$J,112,2192,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2193,0)
+70 ;;=BEVERAGE, MANHATTAN, PREPARED FROM RECIPE^14-012^fl oz.^28.5^100^N
+71 ;;^UTILITY(U,$J,112,2193,1)
+72 ;;=.1^0^3.2^224^66.1^^^2^.09^2^7^26^3^.05^.028^.042^^0^0^.011
+73 ;;^UTILITY(U,$J,112,2193,2)
+74 ;;=.006^.093^.008^0^.1^0^0^0^0^0^0^0^0^.1^30.6
+75 ;;^UTILITY(U,$J,112,2193,4)
+76 ;;=0^0^0^0^0^0^0^0
+77 ;;^UTILITY(U,$J,112,2193,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2194,0)
+80 ;;=BEVERAGE, MARTINI, PREPARED FROM RECIPE^14-014^fl oz.^28.2^100^N
+81 ;;^UTILITY(U,$J,112,2194,1)
+82 ;;=0^0^.3^223^67.6^^^2^.09^2^3^18^3^.02^.006^.025^^0^0^.001
+83 ;;^UTILITY(U,$J,112,2194,2)
+84 ;;=.003^.015^.006^.005^.2^0^0^0^0^0^0^0^0^.1^32
+85 ;;^UTILITY(U,$J,112,2194,4)
+86 ;;=0^0^0^0^0^0^0^0
+87 ;;^UTILITY(U,$J,112,2194,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2195,0)
+90 ;;=BEVERAGE, PINA COLADA, CANNED^14-015^fl oz.^32.6^100^N
+91 ;;^UTILITY(U,$J,112,2195,1)
+92 ;;=.6^7.6^27.6^237^54.9^^^1^.03^6^36^83^71^.2^.087^.319^^24^1.5^.017
+93 ;;^UTILITY(U,$J,112,2195,2)
+94 ;;=.005^.104^.054^.017^6^0^.137^^0^6.571^.442^.137^2^.3^9^^.1
+95 ;;^UTILITY(U,$J,112,2195,4)
+96 ;;=.459^3.391^1.275^.622^^.211^.442
+97 ;;^UTILITY(U,$J,112,2195,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2196,0)
+100 ;;=BEVERAGE, SCREWDRIVER, PREPARED FROM RECIPE^14-018^fl oz.^30.4^100^N
+101 ;;^UTILITY(U,$J,112,2196,1)
+102 ;;=.5^0^8.6^82^83.8^^^7^.08^8^14^153^1^.04^.037^.011^^63^31.2^.064
+103 ;;^UTILITY(U,$J,112,2196,2)
+104 ;;=.015^.162^.127^.035^35.1^0^.008^.003^0^.006^.008^.01^6^.3^6.6
+105 ;;^UTILITY(U,$J,112,2196,3)
+106 ;;=.001^.006^.006^.01^.007^.003^.004^.007^.003^.009^.037^.002^.012^.058^.026^.007^.034^.01
+107 ;;^UTILITY(U,$J,112,2196,4)
+108 ;;=^^^.006^.001^^.008
+109 ;;^UTILITY(U,$J,112,2196,20)
+110 ;;=USDA Std. Reference, Release 10
+111 ;;^UTILITY(U,$J,112,2197,0)
+112 ;;=BEVERAGE, TEQUILA SUNRISE, CANNED^14-019^fl oz.^31.2^100^N
