FHINI06F ; ; 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,2197,1)
;;=.3^.1^11.3^110^78.8^^^0^.02^7^10^10^57^.6^.042^.014^^97^19.3^.038
;;^UTILITY(U,$J,112,2197,2)
;;=.016^.19^.088^.05^10.6^0^.021^^0^.013^^^10^.1^9.4^^0
;;^UTILITY(U,$J,112,2197,4)
;;=^^^^^^.003
;;^UTILITY(U,$J,112,2197,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2198,0)
;;=BEVERAGE, TOM COLLINS, PREPARED FROM RECIPE^14-023^fl oz.^29.6^100^N
;;^UTILITY(U,$J,112,2198,1)
;;=0^0^1.3^55^91.4^^^4^.01^1^1^8^17^.08^.008^.002^^1^1.7^.003
;;^UTILITY(U,$J,112,2198,2)
;;=.001^.014^.006^.003^.7^0^.004^.002^0^.003^.001^.006^0^.1^7.2
;;^UTILITY(U,$J,112,2198,4)
;;=^^0^.002^0^0^.001
;;^UTILITY(U,$J,112,2198,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2199,0)
;;=BEVERAGE, WHISKEY SOUR, PREPARED FROM RECIPE^14-032^fl oz.^29.9^100^N
;;^UTILITY(U,$J,112,2199,1)
;;=.2^.1^5.6^136^77.1^^^6^.08^4^7^53^11^.05^.03^.017^^8^12.6^.213
;;^UTILITY(U,$J,112,2199,2)
;;=.005^.123^.046^.022^5.2^0^.031^.012^0^.019^.006^.044^1^.2^16.8
;;^UTILITY(U,$J,112,2199,4)
;;=^^.001^.017^.001^.001^.006
;;^UTILITY(U,$J,112,2199,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2200,0)
;;=BEVERAGE, CREME DE MENTHE, 72 PROOF^14-034^fl oz.^33.6^100^N
;;^UTILITY(U,$J,112,2200,1)
;;=0^.3^41.6^371^28.3^^^0^.07^0^0^0^5^.04^.08^.04^^0^0^0
;;^UTILITY(U,$J,112,2200,2)
;;=0^.003^0^0^0^0^.058^.109^0^.014^.015^.167^0^0^29.8^^0
;;^UTILITY(U,$J,112,2200,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2200,4)
;;=^^^.01^^.003^.015
;;^UTILITY(U,$J,112,2200,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2201,0)
;;=BEVERAGE, GIN, 90 PROOF^14-049^fl oz.^27.7^100^N
;;^UTILITY(U,$J,112,2201,1)
;;=0^0^0^263^62.1^^^0^0^0^0^0^2^0^.004^0^^0^0^0
;;^UTILITY(U,$J,112,2201,2)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^37.9^^0
;;^UTILITY(U,$J,112,2201,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2201,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2201,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2202,0)
;;=BEVERAGE, RUM, 80 PROOF^14-050^fl oz.^27.8^100^N
;;^UTILITY(U,$J,112,2202,1)
;;=0^0^0^231^66.6^^^0^.12^0^5^2^1^.07^.05^.018^^0^0^.008
;;^UTILITY(U,$J,112,2202,2)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^33.4^^0
;;^UTILITY(U,$J,112,2202,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2202,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2202,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2203,0)
;;=BEVERAGE, VODKA, 80 PROOF^14-051^fl oz.^27.8^100^N
;;^UTILITY(U,$J,112,2203,1)
;;=0^0^0^231^66.6^^^0^.01^0^5^1^1^0^.01^0^^0^0^.005
;;^UTILITY(U,$J,112,2203,2)
;;=.007^0^0^0^0^0^0^0^0^0^0^0^0^0^33.4
;;^UTILITY(U,$J,112,2203,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2203,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2203,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2204,0)
;;=BEVERAGE, WHISKEY, 86 PROOF^14-052^fl oz.^27.8^100^N
;;^UTILITY(U,$J,112,2204,1)
;;=0^0^.1^250^63.9^^^0^.03^0^5^2^1^.05^.022^.015^^0^0^.008
;;^UTILITY(U,$J,112,2204,2)
;;=.001^.05^0^0^0^0^0^0^0^0^0^0^0^0^36
;;^UTILITY(U,$J,112,2204,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2204,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2204,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2205,0)
;;=BEVERAGE, WINE, TABLE, RED^14-096^fl oz.^29.5^100^N
;;^UTILITY(U,$J,112,2205,1)
;;=.2^0^1.7^72^88.5^^^8^.43^13^14^112^5^.09^.02^.597^^0^0^.005
;;^UTILITY(U,$J,112,2205,2)
;;=.028^.081^.035^.034^2^.01^0^0^0^0^0^0^0^.3^9.3
;;^UTILITY(U,$J,112,2205,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2205,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2206,0)
;;=BEVERAGE, WINE, TABLE, ROSE^14-104^fl oz.^29.5^100^N
;;^UTILITY(U,$J,112,2206,1)
;;=.2^0^1.4^71^88.9^^^8^.38^10^15^99^5^.06^.052^.105^^0^0^.004
;;^UTILITY(U,$J,112,2206,2)
;;=.016^.074^.028^.024^1.1^.01^0^0^0^0^0^0^0^.2^9.3
;;^UTILITY(U,$J,112,2206,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2206,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2207,0)
;;=BEVERAGE, WINE, TABLE, WHITE^14-106^fl oz.^29.5^100^N
;;^UTILITY(U,$J,112,2207,1)
;;=.1^0^.8^68^89.6^^^9^.32^10^14^80^5^.07^.021^.459^^0^0^.004
;;^UTILITY(U,$J,112,2207,2)
;;=.005^.067^.021^.014^.2^0^0^0^0^0^0^0^0^.2^9.3
;;^UTILITY(U,$J,112,2207,4)
;;=0^0^0^0^0^0^0^0^^.2
;;^UTILITY(U,$J,112,2207,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2208,0)
;;=BEVERAGE, GRAPE SODA^14-142^fl oz.^31^100^N
;;^UTILITY(U,$J,112,2208,1)
;;=0^0^11.2^43^88.8^^^3^.08^1^0^1^15^.07^.022^.013^^0^0^0
;;^UTILITY(U,$J,112,2208,2)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^.1^^^0
FHINI06F ; ; 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,2197,1)
+2 ;;=.3^.1^11.3^110^78.8^^^0^.02^7^10^10^57^.6^.042^.014^^97^19.3^.038
+3 ;;^UTILITY(U,$J,112,2197,2)
+4 ;;=.016^.19^.088^.05^10.6^0^.021^^0^.013^^^10^.1^9.4^^0
+5 ;;^UTILITY(U,$J,112,2197,4)
+6 ;;=^^^^^^.003
+7 ;;^UTILITY(U,$J,112,2197,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2198,0)
+10 ;;=BEVERAGE, TOM COLLINS, PREPARED FROM RECIPE^14-023^fl oz.^29.6^100^N
+11 ;;^UTILITY(U,$J,112,2198,1)
+12 ;;=0^0^1.3^55^91.4^^^4^.01^1^1^8^17^.08^.008^.002^^1^1.7^.003
+13 ;;^UTILITY(U,$J,112,2198,2)
+14 ;;=.001^.014^.006^.003^.7^0^.004^.002^0^.003^.001^.006^0^.1^7.2
+15 ;;^UTILITY(U,$J,112,2198,4)
+16 ;;=^^0^.002^0^0^.001
+17 ;;^UTILITY(U,$J,112,2198,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2199,0)
+20 ;;=BEVERAGE, WHISKEY SOUR, PREPARED FROM RECIPE^14-032^fl oz.^29.9^100^N
+21 ;;^UTILITY(U,$J,112,2199,1)
+22 ;;=.2^.1^5.6^136^77.1^^^6^.08^4^7^53^11^.05^.03^.017^^8^12.6^.213
+23 ;;^UTILITY(U,$J,112,2199,2)
+24 ;;=.005^.123^.046^.022^5.2^0^.031^.012^0^.019^.006^.044^1^.2^16.8
+25 ;;^UTILITY(U,$J,112,2199,4)
+26 ;;=^^.001^.017^.001^.001^.006
+27 ;;^UTILITY(U,$J,112,2199,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2200,0)
+30 ;;=BEVERAGE, CREME DE MENTHE, 72 PROOF^14-034^fl oz.^33.6^100^N
+31 ;;^UTILITY(U,$J,112,2200,1)
+32 ;;=0^.3^41.6^371^28.3^^^0^.07^0^0^0^5^.04^.08^.04^^0^0^0
+33 ;;^UTILITY(U,$J,112,2200,2)
+34 ;;=0^.003^0^0^0^0^.058^.109^0^.014^.015^.167^0^0^29.8^^0
+35 ;;^UTILITY(U,$J,112,2200,3)
+36 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+37 ;;^UTILITY(U,$J,112,2200,4)
+38 ;;=^^^.01^^.003^.015
+39 ;;^UTILITY(U,$J,112,2200,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2201,0)
+42 ;;=BEVERAGE, GIN, 90 PROOF^14-049^fl oz.^27.7^100^N
+43 ;;^UTILITY(U,$J,112,2201,1)
+44 ;;=0^0^0^263^62.1^^^0^0^0^0^0^2^0^.004^0^^0^0^0
+45 ;;^UTILITY(U,$J,112,2201,2)
+46 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^37.9^^0
+47 ;;^UTILITY(U,$J,112,2201,3)
+48 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+49 ;;^UTILITY(U,$J,112,2201,4)
+50 ;;=0^0^0^0^0^0^0^0
+51 ;;^UTILITY(U,$J,112,2201,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2202,0)
+54 ;;=BEVERAGE, RUM, 80 PROOF^14-050^fl oz.^27.8^100^N
+55 ;;^UTILITY(U,$J,112,2202,1)
+56 ;;=0^0^0^231^66.6^^^0^.12^0^5^2^1^.07^.05^.018^^0^0^.008
+57 ;;^UTILITY(U,$J,112,2202,2)
+58 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^33.4^^0
+59 ;;^UTILITY(U,$J,112,2202,3)
+60 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+61 ;;^UTILITY(U,$J,112,2202,4)
+62 ;;=0^0^0^0^0^0^0^0
+63 ;;^UTILITY(U,$J,112,2202,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2203,0)
+66 ;;=BEVERAGE, VODKA, 80 PROOF^14-051^fl oz.^27.8^100^N
+67 ;;^UTILITY(U,$J,112,2203,1)
+68 ;;=0^0^0^231^66.6^^^0^.01^0^5^1^1^0^.01^0^^0^0^.005
+69 ;;^UTILITY(U,$J,112,2203,2)
+70 ;;=.007^0^0^0^0^0^0^0^0^0^0^0^0^0^33.4
+71 ;;^UTILITY(U,$J,112,2203,3)
+72 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+73 ;;^UTILITY(U,$J,112,2203,4)
+74 ;;=0^0^0^0^0^0^0^0
+75 ;;^UTILITY(U,$J,112,2203,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2204,0)
+78 ;;=BEVERAGE, WHISKEY, 86 PROOF^14-052^fl oz.^27.8^100^N
+79 ;;^UTILITY(U,$J,112,2204,1)
+80 ;;=0^0^.1^250^63.9^^^0^.03^0^5^2^1^.05^.022^.015^^0^0^.008
+81 ;;^UTILITY(U,$J,112,2204,2)
+82 ;;=.001^.05^0^0^0^0^0^0^0^0^0^0^0^0^36
+83 ;;^UTILITY(U,$J,112,2204,3)
+84 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+85 ;;^UTILITY(U,$J,112,2204,4)
+86 ;;=0^0^0^0^0^0^0^0
+87 ;;^UTILITY(U,$J,112,2204,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2205,0)
+90 ;;=BEVERAGE, WINE, TABLE, RED^14-096^fl oz.^29.5^100^N
+91 ;;^UTILITY(U,$J,112,2205,1)
+92 ;;=.2^0^1.7^72^88.5^^^8^.43^13^14^112^5^.09^.02^.597^^0^0^.005
+93 ;;^UTILITY(U,$J,112,2205,2)
+94 ;;=.028^.081^.035^.034^2^.01^0^0^0^0^0^0^0^.3^9.3
+95 ;;^UTILITY(U,$J,112,2205,4)
+96 ;;=0^0^0^0^0^0^0^0
+97 ;;^UTILITY(U,$J,112,2205,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2206,0)
+100 ;;=BEVERAGE, WINE, TABLE, ROSE^14-104^fl oz.^29.5^100^N
+101 ;;^UTILITY(U,$J,112,2206,1)
+102 ;;=.2^0^1.4^71^88.9^^^8^.38^10^15^99^5^.06^.052^.105^^0^0^.004
+103 ;;^UTILITY(U,$J,112,2206,2)
+104 ;;=.016^.074^.028^.024^1.1^.01^0^0^0^0^0^0^0^.2^9.3
+105 ;;^UTILITY(U,$J,112,2206,4)
+106 ;;=0^0^0^0^0^0^0^0
+107 ;;^UTILITY(U,$J,112,2206,20)
+108 ;;=USDA Std. Reference, Release 10
+109 ;;^UTILITY(U,$J,112,2207,0)
+110 ;;=BEVERAGE, WINE, TABLE, WHITE^14-106^fl oz.^29.5^100^N
+111 ;;^UTILITY(U,$J,112,2207,1)
+112 ;;=.1^0^.8^68^89.6^^^9^.32^10^14^80^5^.07^.021^.459^^0^0^.004
+113 ;;^UTILITY(U,$J,112,2207,2)
+114 ;;=.005^.067^.021^.014^.2^0^0^0^0^0^0^0^0^.2^9.3
+115 ;;^UTILITY(U,$J,112,2207,4)
+116 ;;=0^0^0^0^0^0^0^0^^.2
+117 ;;^UTILITY(U,$J,112,2207,20)
+118 ;;=USDA Std. Reference, Release 10
+119 ;;^UTILITY(U,$J,112,2208,0)
+120 ;;=BEVERAGE, GRAPE SODA^14-142^fl oz.^31^100^N
+121 ;;^UTILITY(U,$J,112,2208,1)
+122 ;;=0^0^11.2^43^88.8^^^3^.08^1^0^1^15^.07^.022^.013^^0^0^0
+123 ;;^UTILITY(U,$J,112,2208,2)
+124 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^.1^^^0
