FHINI061 ; ; 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,2076,4)
;;=0^0^.001^.022^.004^.003^.006
;;^UTILITY(U,$J,112,2076,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2077,0)
;;=VEGETABLES, MIXED, CND, W/SALT^11-581^cups^244^100^N
;;^UTILITY(U,$J,112,2077,1)
;;=2.59^.25^9.26^47^87.01^^^27^1.05^16^42^291^149^.41^.073^.568^^11647^5^.046
;;^UTILITY(U,$J,112,2077,2)
;;=.048^.577^.143^.079^23.6^0^.087^.032^0^.051^.016^.119^1165^.89
;;^UTILITY(U,$J,112,2077,3)
;;=.026^.104^.126^.172^.154^.031^.024^.108^.067^.135^.174^.066^.111^.274^.353^.094^.063^.123
;;^UTILITY(U,$J,112,2077,4)
;;=^0^.001^.044^.001^.005^.015^^^.3
;;^UTILITY(U,$J,112,2077,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2078,0)
;;=WATERCHESTNUTS, CHINESE, CND^11-590^cups^124^100^N
;;^UTILITY(U,$J,112,2078,1)
;;=.88^.06^12.43^50^86.42^^^4^.87^5^19^118^8^.38^.1^.161^^4^1.3^.011
;;^UTILITY(U,$J,112,2078,2)
;;=.024^.36^.221^.159^5.8^0^^^0^^^^0^.34^^^2.5
;;^UTILITY(U,$J,112,2078,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2079,0)
;;=YAM, CKD, WO/SALT^11-602^cups^136^100^N
;;^UTILITY(U,$J,112,2079,1)
;;=1.49^.14^27.6^116^70.13^^^14^.52^18^49^670^8^.2^.152^.371^^0^12.1^.095
;;^UTILITY(U,$J,112,2079,2)
;;=.028^.552^.311^.228^16^0^.05^.009^0^.029^.005^.06^0^.66^^^1.1
;;^UTILITY(U,$J,112,2079,3)
;;=.012^.052^.05^.094^.058^.02^.018^.069^.039^.06^.124^.033^.061^.151^.176^.052^.053^.079
;;^UTILITY(U,$J,112,2079,4)
;;=^^^.027^^.003^.005
;;^UTILITY(U,$J,112,2079,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2080,0)
;;=BEETS, HARVARD, CND^11-605^cups^246^100^N
;;^UTILITY(U,$J,112,2080,1)
;;=.84^.06^18.18^73^80.16^^^11^.36^19^17^164^162^.23^.097^.241^^11^2.4^.01
;;^UTILITY(U,$J,112,2080,2)
;;=.05^.084^.15^.055^29^0^.018^.002^0^.009^.011^.019^1^.76
;;^UTILITY(U,$J,112,2080,3)
;;=.01^.025^.025^.035^.03^.01^.01^.024^.02^.029^.022^.011^.031^.06^.222^.016^.022^.031
;;^UTILITY(U,$J,112,2080,4)
;;=^^^.008^^0^.011
;;^UTILITY(U,$J,112,2080,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2081,0)
;;=BEETS, PICKLED, CND^11-609^cups^227^100^N
;;^UTILITY(U,$J,112,2081,1)
;;=.8^.08^16.28^65^81.88^^^11^.41^15^17^148^264^.26^.116^.22^^11^2.3^.01
;;^UTILITY(U,$J,112,2081,2)
;;=.048^.251^.137^.05^26.5^0^.027^.002^0^.013^.016^.029^1^.96
;;^UTILITY(U,$J,112,2081,3)
;;=.009^.024^.024^.034^.029^.009^.01^.023^.019^.028^.021^.011^.03^.057^.212^.015^.021^.029
;;^UTILITY(U,$J,112,2081,4)
;;=^^^.013^^.001^.016
;;^UTILITY(U,$J,112,2081,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2082,0)
;;=BEAN SPROUTS, MUNG, CND^11-626^cups^124^100^N
;;^UTILITY(U,$J,112,2082,1)
;;=1.4^.06^2.15^12^96.1^^^14^.43^9^32^27^140^.28^.157^.073^^23^.3^.03
;;^UTILITY(U,$J,112,2082,2)
;;=.07^.22^.143^.032^9.7^0^.015^.006^0^.016^.008^.02^2^.3^^^.8
;;^UTILITY(U,$J,112,2082,3)
;;=.019^.04^.067^.089^.085^.017^.009^.06^.026^.067^.101^.036^.05^.245^.082^.032^^.017
;;^UTILITY(U,$J,112,2082,4)
;;=^^0^.011^^.003^.008^^^.6
;;^UTILITY(U,$J,112,2082,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2083,0)
;;=PEPPERS, JALAPENO, CND^11-632^cups^136^100^N
;;^UTILITY(U,$J,112,2083,1)
;;=.8^.6^4.9^24^89.9^^^26^2.8^12^17^136^1463^.19^.14^.186^^1700^13^.03
;;^UTILITY(U,$J,112,2083,2)
;;=.05^.5^1.08^.206^13.5^0^.312^.015^0^.062^.034^.327^170^3.8
;;^UTILITY(U,$J,112,2083,3)
;;=.01^.029^.026^.042^.036^.01^.015^.025^.017^.034^.038^.016^.033^.114^.106^.03^.035^.032
;;^UTILITY(U,$J,112,2083,4)
;;=^.001^.004^.046^.001^.008^.032
;;^UTILITY(U,$J,112,2083,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2084,0)
;;=TOMATO SAUCE, SPANISH STYLE, CND^11-649^cups^244^100^N
;;^UTILITY(U,$J,112,2084,1)
;;=1.44^.27^7.24^33^89.08^^^17^3.48^19^48^369^472^.34^.16^.216^^985^8.6^.074
;;^UTILITY(U,$J,112,2084,2)
;;=.062^1.292^.281^.177^13.5^0^.103^.004^0^.038^.04^.108^99^1.98
;;^UTILITY(U,$J,112,2084,3)
;;=.01^.033^.028^.04^.041^.007^.009^.03^.019^.029^.029^.023^.045^.18^.575^.024^.032^.034
;;^UTILITY(U,$J,112,2084,4)
;;=^^0^.027^.001^.01^.039
;;^UTILITY(U,$J,112,2084,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2085,0)
;;=CARROT JUICE, CANNED^11-655^fl. oz.^30.66^100^N
;;^UTILITY(U,$J,112,2085,1)
;;=.95^.15^9.29^40^88.87^^^24^.46^14^42^292^29^.18^.046^.13^^25751^8.5^.092
;;^UTILITY(U,$J,112,2085,2)
;;=.055^.386^.228^.217^3.8^0^.061^.009^0^.027^.007^.071^2575^.75^^^.8
;;^UTILITY(U,$J,112,2085,4)
;;=^.002^.001^.021^.002^.001^.005
;;^UTILITY(U,$J,112,2085,20)
;;=USDA Std. Reference, Release 10
FHINI061 ; ; 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,2076,4)
+2 ;;=0^0^.001^.022^.004^.003^.006
+3 ;;^UTILITY(U,$J,112,2076,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2077,0)
+6 ;;=VEGETABLES, MIXED, CND, W/SALT^11-581^cups^244^100^N
+7 ;;^UTILITY(U,$J,112,2077,1)
+8 ;;=2.59^.25^9.26^47^87.01^^^27^1.05^16^42^291^149^.41^.073^.568^^11647^5^.046
+9 ;;^UTILITY(U,$J,112,2077,2)
+10 ;;=.048^.577^.143^.079^23.6^0^.087^.032^0^.051^.016^.119^1165^.89
+11 ;;^UTILITY(U,$J,112,2077,3)
+12 ;;=.026^.104^.126^.172^.154^.031^.024^.108^.067^.135^.174^.066^.111^.274^.353^.094^.063^.123
+13 ;;^UTILITY(U,$J,112,2077,4)
+14 ;;=^0^.001^.044^.001^.005^.015^^^.3
+15 ;;^UTILITY(U,$J,112,2077,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2078,0)
+18 ;;=WATERCHESTNUTS, CHINESE, CND^11-590^cups^124^100^N
+19 ;;^UTILITY(U,$J,112,2078,1)
+20 ;;=.88^.06^12.43^50^86.42^^^4^.87^5^19^118^8^.38^.1^.161^^4^1.3^.011
+21 ;;^UTILITY(U,$J,112,2078,2)
+22 ;;=.024^.36^.221^.159^5.8^0^^^0^^^^0^.34^^^2.5
+23 ;;^UTILITY(U,$J,112,2078,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,2079,0)
+26 ;;=YAM, CKD, WO/SALT^11-602^cups^136^100^N
+27 ;;^UTILITY(U,$J,112,2079,1)
+28 ;;=1.49^.14^27.6^116^70.13^^^14^.52^18^49^670^8^.2^.152^.371^^0^12.1^.095
+29 ;;^UTILITY(U,$J,112,2079,2)
+30 ;;=.028^.552^.311^.228^16^0^.05^.009^0^.029^.005^.06^0^.66^^^1.1
+31 ;;^UTILITY(U,$J,112,2079,3)
+32 ;;=.012^.052^.05^.094^.058^.02^.018^.069^.039^.06^.124^.033^.061^.151^.176^.052^.053^.079
+33 ;;^UTILITY(U,$J,112,2079,4)
+34 ;;=^^^.027^^.003^.005
+35 ;;^UTILITY(U,$J,112,2079,20)
+36 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+37 ;;^UTILITY(U,$J,112,2080,0)
+38 ;;=BEETS, HARVARD, CND^11-605^cups^246^100^N
+39 ;;^UTILITY(U,$J,112,2080,1)
+40 ;;=.84^.06^18.18^73^80.16^^^11^.36^19^17^164^162^.23^.097^.241^^11^2.4^.01
+41 ;;^UTILITY(U,$J,112,2080,2)
+42 ;;=.05^.084^.15^.055^29^0^.018^.002^0^.009^.011^.019^1^.76
+43 ;;^UTILITY(U,$J,112,2080,3)
+44 ;;=.01^.025^.025^.035^.03^.01^.01^.024^.02^.029^.022^.011^.031^.06^.222^.016^.022^.031
+45 ;;^UTILITY(U,$J,112,2080,4)
+46 ;;=^^^.008^^0^.011
+47 ;;^UTILITY(U,$J,112,2080,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2081,0)
+50 ;;=BEETS, PICKLED, CND^11-609^cups^227^100^N
+51 ;;^UTILITY(U,$J,112,2081,1)
+52 ;;=.8^.08^16.28^65^81.88^^^11^.41^15^17^148^264^.26^.116^.22^^11^2.3^.01
+53 ;;^UTILITY(U,$J,112,2081,2)
+54 ;;=.048^.251^.137^.05^26.5^0^.027^.002^0^.013^.016^.029^1^.96
+55 ;;^UTILITY(U,$J,112,2081,3)
+56 ;;=.009^.024^.024^.034^.029^.009^.01^.023^.019^.028^.021^.011^.03^.057^.212^.015^.021^.029
+57 ;;^UTILITY(U,$J,112,2081,4)
+58 ;;=^^^.013^^.001^.016
+59 ;;^UTILITY(U,$J,112,2081,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2082,0)
+62 ;;=BEAN SPROUTS, MUNG, CND^11-626^cups^124^100^N
+63 ;;^UTILITY(U,$J,112,2082,1)
+64 ;;=1.4^.06^2.15^12^96.1^^^14^.43^9^32^27^140^.28^.157^.073^^23^.3^.03
+65 ;;^UTILITY(U,$J,112,2082,2)
+66 ;;=.07^.22^.143^.032^9.7^0^.015^.006^0^.016^.008^.02^2^.3^^^.8
+67 ;;^UTILITY(U,$J,112,2082,3)
+68 ;;=.019^.04^.067^.089^.085^.017^.009^.06^.026^.067^.101^.036^.05^.245^.082^.032^^.017
+69 ;;^UTILITY(U,$J,112,2082,4)
+70 ;;=^^0^.011^^.003^.008^^^.6
+71 ;;^UTILITY(U,$J,112,2082,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2083,0)
+74 ;;=PEPPERS, JALAPENO, CND^11-632^cups^136^100^N
+75 ;;^UTILITY(U,$J,112,2083,1)
+76 ;;=.8^.6^4.9^24^89.9^^^26^2.8^12^17^136^1463^.19^.14^.186^^1700^13^.03
+77 ;;^UTILITY(U,$J,112,2083,2)
+78 ;;=.05^.5^1.08^.206^13.5^0^.312^.015^0^.062^.034^.327^170^3.8
+79 ;;^UTILITY(U,$J,112,2083,3)
+80 ;;=.01^.029^.026^.042^.036^.01^.015^.025^.017^.034^.038^.016^.033^.114^.106^.03^.035^.032
+81 ;;^UTILITY(U,$J,112,2083,4)
+82 ;;=^.001^.004^.046^.001^.008^.032
+83 ;;^UTILITY(U,$J,112,2083,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,2084,0)
+86 ;;=TOMATO SAUCE, SPANISH STYLE, CND^11-649^cups^244^100^N
+87 ;;^UTILITY(U,$J,112,2084,1)
+88 ;;=1.44^.27^7.24^33^89.08^^^17^3.48^19^48^369^472^.34^.16^.216^^985^8.6^.074
+89 ;;^UTILITY(U,$J,112,2084,2)
+90 ;;=.062^1.292^.281^.177^13.5^0^.103^.004^0^.038^.04^.108^99^1.98
+91 ;;^UTILITY(U,$J,112,2084,3)
+92 ;;=.01^.033^.028^.04^.041^.007^.009^.03^.019^.029^.029^.023^.045^.18^.575^.024^.032^.034
+93 ;;^UTILITY(U,$J,112,2084,4)
+94 ;;=^^0^.027^.001^.01^.039
+95 ;;^UTILITY(U,$J,112,2084,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,2085,0)
+98 ;;=CARROT JUICE, CANNED^11-655^fl. oz.^30.66^100^N
+99 ;;^UTILITY(U,$J,112,2085,1)
+100 ;;=.95^.15^9.29^40^88.87^^^24^.46^14^42^292^29^.18^.046^.13^^25751^8.5^.092
+101 ;;^UTILITY(U,$J,112,2085,2)
+102 ;;=.055^.386^.228^.217^3.8^0^.061^.009^0^.027^.007^.071^2575^.75^^^.8
+103 ;;^UTILITY(U,$J,112,2085,4)
+104 ;;=^.002^.001^.021^.002^.001^.005
+105 ;;^UTILITY(U,$J,112,2085,20)
+106 ;;=USDA Std. Reference, Release 10
