FHINI06H ; ; 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,2217,3)
;;=.066^.193^.233^.374^.204^.083^.109^.27^.188^.28^.274^.113^.251^.362^1.194^.252^.522^.24
;;^UTILITY(U,$J,112,2217,4)
;;=^^.038^.57^.013^.025^.361
;;^UTILITY(U,$J,112,2217,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2218,0)
;;=COFFEE SUBSTITUTE, CEREAL GRAIN BEVERAGE, PREP W/ WATER^14-237^fl oz.^30^100^N
;;^UTILITY(U,$J,112,2218,1)
;;=.1^0^1^5^98.7^^^3^.06^4^7^24^4^.03^.009^.015^^0^0^.008
;;^UTILITY(U,$J,112,2218,2)
;;=.001^.216^.009^.011^.3^0^.02^.002^0^.008^.005^.022^0^.1^^0^0
;;^UTILITY(U,$J,112,2218,3)
;;=.001^.002^.003^.005^.003^.001^.001^.003^.002^.004^.004^.001^.003^.005^.015^.003^.007^.003
;;^UTILITY(U,$J,112,2218,4)
;;=^^.001^.007^0^0^.005
;;^UTILITY(U,$J,112,2218,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2219,0)
;;=CRANBERRY-APPLE JUICE DRINK, BOTTLED^14-238^fl oz.^30.6^100^N
;;^UTILITY(U,$J,112,2219,1)
;;=.1^0^17.1^67^82.8^^^7^.06^2^3^27^2^.04^.007^.18^^3^32^.005
;;^UTILITY(U,$J,112,2219,2)
;;=.02^.06^.056^.021^.2^0^0^^0^0^^^0^0^^^.1
;;^UTILITY(U,$J,112,2219,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2219,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2220,0)
;;=CRANBERRY-APRICOT JUICE DRINK, BOTTLED^14-240^fl oz.^30.6^100^N
;;^UTILITY(U,$J,112,2220,1)
;;=.2^0^16.2^64^83.5^^^9^.15^3^5^61^2^.04^.015^.125^^463^0^.005
;;^UTILITY(U,$J,112,2220,2)
;;=.01^.12^.036^.02^.6^0^0^^0^0^^^46^.1^^^.1
;;^UTILITY(U,$J,112,2220,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2220,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2221,0)
;;=CRANBERRY-GRAPE JUICE DRINK, BOTTLED^14-241^fl oz.^30.6^100^N
;;^UTILITY(U,$J,112,2221,1)
;;=.2^.1^14^56^85.6^^^8^.01^3^4^24^3^.04^.007^.158^^5^32^.01
;;^UTILITY(U,$J,112,2221,2)
;;=.018^.12^.053^.028^.7^0^.023^^0^.033^^^0^.1^^^.1
;;^UTILITY(U,$J,112,2221,4)
;;=^^^^^^.004
;;^UTILITY(U,$J,112,2221,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2223,0)
;;=CRANBERRY JUICE COCKTAIL, BOTTLED, LOW CAL^14-243^fl oz.^29.6^100^N
;;^UTILITY(U,$J,112,2223,1)
;;=0^0^4.7^19^95.2^^^9^.04^2^1^22^3^.02^.014^.171^^4^32.2^.009
;;^UTILITY(U,$J,112,2223,2)
;;=.009^.035^.056^.019^.2^0^0^0^0^0^0^0^0^.1^^^0
;;^UTILITY(U,$J,112,2223,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2223,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2223,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2224,0)
;;=EGGNOG FLAVOR MIX, POWDER^14-244^heap tsp.^14.2^100^N
;;^UTILITY(U,$J,112,2224,1)
;;=.4^1^97.4^390^.5^^^3^.9^0^9^5^155^.06^.023^0^^34^0^.004
;;^UTILITY(U,$J,112,2224,2)
;;=.008^.155^6.141^.005^2.1^.07^.108^.003^24^.291^.388^.126^10^.7^^^3.1
;;^UTILITY(U,$J,112,2224,3)
;;=.006^.022^.023^.034^.027^.01^.007^.017^.017^.024^.028^.01^.02^.033^.049^.012^.017^.033
;;^UTILITY(U,$J,112,2224,4)
;;=^^.003^.214^.032^.075^.355^.008
;;^UTILITY(U,$J,112,2224,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2225,0)
;;=CITRUS FRUIT JUICE DRINK, FRZ CONCENTRATE, PREP W/ WATER^14-263^fl oz.^31^100^N
;;^UTILITY(U,$J,112,2225,1)
;;=.3^0^11.5^46^87.8^^^9^1.12^6^10^112^3^.05^.032^.073^^42^27.1^.014
;;^UTILITY(U,$J,112,2225,2)
;;=.011^.18^.132^.024^2^0^.003^.001^0^.002^.002^.004^4^.3
;;^UTILITY(U,$J,112,2225,4)
;;=^^0^.002^0^0^.001
;;^UTILITY(U,$J,112,2225,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2226,0)
;;=FRUIT PUNCH FLAVOR DRINK, POWDER, W/ ADD NA, PREP W/ WATER^14-266^fl oz.^32.7^100^N
;;^UTILITY(U,$J,112,2226,1)
;;=0^0^9.5^37^90.4^^^16^.05^1^20^1^14^.03^.018^.003^^0^11.8^0
;;^UTILITY(U,$J,112,2226,2)
;;=.002^.001^0^0^.1^0^.001^0^0^.006^.001^.001^0^.1
;;^UTILITY(U,$J,112,2226,4)
;;=0^.003^.001^.001^0^0^.001
;;^UTILITY(U,$J,112,2226,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2227,0)
;;=FRUIT PUNCH DRINK, CANNED^14-267^fl oz.^31^100^N
;;^UTILITY(U,$J,112,2227,1)
;;=0^0^11.9^47^88^^^8^.21^2^1^25^22^.12^.051^.2^^14^29.6^.022
;;^UTILITY(U,$J,112,2227,2)
;;=.023^.021^.014^0^1.3^0^.002^.001^0^.002^.002^.003^1^.1^^^.1
;;^UTILITY(U,$J,112,2227,4)
;;=^^0^.001^0^0^.001^^^0
;;^UTILITY(U,$J,112,2227,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2228,0)
;;=FRUIT PUNCH DRINK, PREPARED WITH WATER FROM FROZEN^14-269^fl oz.^30.9^100^N
;;^UTILITY(U,$J,112,2228,1)
;;=0^0^11.7^46^88.2^^^4^.09^2^1^13^4^.04^.03^.102^^11^43.9^.01
;;^UTILITY(U,$J,112,2228,2)
;;=.013^.021^.008^.006^.9^0^.001^.001^0^.001^.001^.002^1^.1
;;^UTILITY(U,$J,112,2228,4)
;;=^^0^.001^0^0^.001
;;^UTILITY(U,$J,112,2228,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2229,0)
;;=GELATIN, DRINKING, ORANGE FLAVOR, POWDER^14-271^pkt.^17.4^100^N
FHINI06H ; ; 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,2217,3)
+2 ;;=.066^.193^.233^.374^.204^.083^.109^.27^.188^.28^.274^.113^.251^.362^1.194^.252^.522^.24
+3 ;;^UTILITY(U,$J,112,2217,4)
+4 ;;=^^.038^.57^.013^.025^.361
+5 ;;^UTILITY(U,$J,112,2217,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2218,0)
+8 ;;=COFFEE SUBSTITUTE, CEREAL GRAIN BEVERAGE, PREP W/ WATER^14-237^fl oz.^30^100^N
+9 ;;^UTILITY(U,$J,112,2218,1)
+10 ;;=.1^0^1^5^98.7^^^3^.06^4^7^24^4^.03^.009^.015^^0^0^.008
+11 ;;^UTILITY(U,$J,112,2218,2)
+12 ;;=.001^.216^.009^.011^.3^0^.02^.002^0^.008^.005^.022^0^.1^^0^0
+13 ;;^UTILITY(U,$J,112,2218,3)
+14 ;;=.001^.002^.003^.005^.003^.001^.001^.003^.002^.004^.004^.001^.003^.005^.015^.003^.007^.003
+15 ;;^UTILITY(U,$J,112,2218,4)
+16 ;;=^^.001^.007^0^0^.005
+17 ;;^UTILITY(U,$J,112,2218,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2219,0)
+20 ;;=CRANBERRY-APPLE JUICE DRINK, BOTTLED^14-238^fl oz.^30.6^100^N
+21 ;;^UTILITY(U,$J,112,2219,1)
+22 ;;=.1^0^17.1^67^82.8^^^7^.06^2^3^27^2^.04^.007^.18^^3^32^.005
+23 ;;^UTILITY(U,$J,112,2219,2)
+24 ;;=.02^.06^.056^.021^.2^0^0^^0^0^^^0^0^^^.1
+25 ;;^UTILITY(U,$J,112,2219,4)
+26 ;;=^^^^^^0
+27 ;;^UTILITY(U,$J,112,2219,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2220,0)
+30 ;;=CRANBERRY-APRICOT JUICE DRINK, BOTTLED^14-240^fl oz.^30.6^100^N
+31 ;;^UTILITY(U,$J,112,2220,1)
+32 ;;=.2^0^16.2^64^83.5^^^9^.15^3^5^61^2^.04^.015^.125^^463^0^.005
+33 ;;^UTILITY(U,$J,112,2220,2)
+34 ;;=.01^.12^.036^.02^.6^0^0^^0^0^^^46^.1^^^.1
+35 ;;^UTILITY(U,$J,112,2220,4)
+36 ;;=^^^^^^0
+37 ;;^UTILITY(U,$J,112,2220,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,2221,0)
+40 ;;=CRANBERRY-GRAPE JUICE DRINK, BOTTLED^14-241^fl oz.^30.6^100^N
+41 ;;^UTILITY(U,$J,112,2221,1)
+42 ;;=.2^.1^14^56^85.6^^^8^.01^3^4^24^3^.04^.007^.158^^5^32^.01
+43 ;;^UTILITY(U,$J,112,2221,2)
+44 ;;=.018^.12^.053^.028^.7^0^.023^^0^.033^^^0^.1^^^.1
+45 ;;^UTILITY(U,$J,112,2221,4)
+46 ;;=^^^^^^.004
+47 ;;^UTILITY(U,$J,112,2221,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2223,0)
+50 ;;=CRANBERRY JUICE COCKTAIL, BOTTLED, LOW CAL^14-243^fl oz.^29.6^100^N
+51 ;;^UTILITY(U,$J,112,2223,1)
+52 ;;=0^0^4.7^19^95.2^^^9^.04^2^1^22^3^.02^.014^.171^^4^32.2^.009
+53 ;;^UTILITY(U,$J,112,2223,2)
+54 ;;=.009^.035^.056^.019^.2^0^0^0^0^0^0^0^0^.1^^^0
+55 ;;^UTILITY(U,$J,112,2223,3)
+56 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+57 ;;^UTILITY(U,$J,112,2223,4)
+58 ;;=0^0^0^0^0^0^0^0
+59 ;;^UTILITY(U,$J,112,2223,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2224,0)
+62 ;;=EGGNOG FLAVOR MIX, POWDER^14-244^heap tsp.^14.2^100^N
+63 ;;^UTILITY(U,$J,112,2224,1)
+64 ;;=.4^1^97.4^390^.5^^^3^.9^0^9^5^155^.06^.023^0^^34^0^.004
+65 ;;^UTILITY(U,$J,112,2224,2)
+66 ;;=.008^.155^6.141^.005^2.1^.07^.108^.003^24^.291^.388^.126^10^.7^^^3.1
+67 ;;^UTILITY(U,$J,112,2224,3)
+68 ;;=.006^.022^.023^.034^.027^.01^.007^.017^.017^.024^.028^.01^.02^.033^.049^.012^.017^.033
+69 ;;^UTILITY(U,$J,112,2224,4)
+70 ;;=^^.003^.214^.032^.075^.355^.008
+71 ;;^UTILITY(U,$J,112,2224,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2225,0)
+74 ;;=CITRUS FRUIT JUICE DRINK, FRZ CONCENTRATE, PREP W/ WATER^14-263^fl oz.^31^100^N
+75 ;;^UTILITY(U,$J,112,2225,1)
+76 ;;=.3^0^11.5^46^87.8^^^9^1.12^6^10^112^3^.05^.032^.073^^42^27.1^.014
+77 ;;^UTILITY(U,$J,112,2225,2)
+78 ;;=.011^.18^.132^.024^2^0^.003^.001^0^.002^.002^.004^4^.3
+79 ;;^UTILITY(U,$J,112,2225,4)
+80 ;;=^^0^.002^0^0^.001
+81 ;;^UTILITY(U,$J,112,2225,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2226,0)
+84 ;;=FRUIT PUNCH FLAVOR DRINK, POWDER, W/ ADD NA, PREP W/ WATER^14-266^fl oz.^32.7^100^N
+85 ;;^UTILITY(U,$J,112,2226,1)
+86 ;;=0^0^9.5^37^90.4^^^16^.05^1^20^1^14^.03^.018^.003^^0^11.8^0
+87 ;;^UTILITY(U,$J,112,2226,2)
+88 ;;=.002^.001^0^0^.1^0^.001^0^0^.006^.001^.001^0^.1
+89 ;;^UTILITY(U,$J,112,2226,4)
+90 ;;=0^.003^.001^.001^0^0^.001
+91 ;;^UTILITY(U,$J,112,2226,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,2227,0)
+94 ;;=FRUIT PUNCH DRINK, CANNED^14-267^fl oz.^31^100^N
+95 ;;^UTILITY(U,$J,112,2227,1)
+96 ;;=0^0^11.9^47^88^^^8^.21^2^1^25^22^.12^.051^.2^^14^29.6^.022
+97 ;;^UTILITY(U,$J,112,2227,2)
+98 ;;=.023^.021^.014^0^1.3^0^.002^.001^0^.002^.002^.003^1^.1^^^.1
+99 ;;^UTILITY(U,$J,112,2227,4)
+100 ;;=^^0^.001^0^0^.001^^^0
+101 ;;^UTILITY(U,$J,112,2227,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,2228,0)
+104 ;;=FRUIT PUNCH DRINK, PREPARED WITH WATER FROM FROZEN^14-269^fl oz.^30.9^100^N
+105 ;;^UTILITY(U,$J,112,2228,1)
+106 ;;=0^0^11.7^46^88.2^^^4^.09^2^1^13^4^.04^.03^.102^^11^43.9^.01
+107 ;;^UTILITY(U,$J,112,2228,2)
+108 ;;=.013^.021^.008^.006^.9^0^.001^.001^0^.001^.001^.002^1^.1
+109 ;;^UTILITY(U,$J,112,2228,4)
+110 ;;=^^0^.001^0^0^.001
+111 ;;^UTILITY(U,$J,112,2228,20)
+112 ;;=USDA Std. Reference, Release 10
+113 ;;^UTILITY(U,$J,112,2229,0)
+114 ;;=GELATIN, DRINKING, ORANGE FLAVOR, POWDER^14-271^pkt.^17.4^100^N
