FHINI064 ; ; 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,2103,3)
;;=.021^.085^.086^.126^.084^.042^.014^.103^.07^.112^.08^.032^.094^.293^.168^.078^.075^.089
;;^UTILITY(U,$J,112,2103,4)
;;=^^^.024^^.003^.005
;;^UTILITY(U,$J,112,2103,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2104,0)
;;=TURNIPS, FRZ, CKD, W/SALT^11-890^cups^156^100^N
;;^UTILITY(U,$J,112,2104,1)
;;=1.53^.24^4.35^23^93.6^^^32^.98^14^26^182^272^.2^.063^.1^^25^3.9^.035
;;^UTILITY(U,$J,112,2104,2)
;;=.028^.56^.141^.067^8^0^.028^.094^0^.025^.015^.125^2^.28
;;^UTILITY(U,$J,112,2104,3)
;;=.015^.042^.062^.057^.061^.019^.009^.03^.023^.051^.041^.024^.059^.108^.221^.042^.045^.049
;;^UTILITY(U,$J,112,2104,4)
;;=^^^.023^.001^.002^.013
;;^UTILITY(U,$J,112,2104,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2105,0)
;;=TURNIP GREENS AND TURNIPS, FRZ, CKD, W/SALT^11-893^cups^190^100^N
;;^UTILITY(U,$J,112,2105,1)
;;=2.08^.16^2.88^17^94.19^^^91^1.33^12^17^62^251^.13^.041^.177^^5161^9.4^.03
;;^UTILITY(U,$J,112,2105,2)
;;=.07^.295^.096^.058^21.5^0^.019^.054^0^.027^.01^.074^516^.7
;;^UTILITY(U,$J,112,2105,3)
;;=.031^.097^.101^.156^.12^.041^.02^.102^.066^.12^.108^.045^.124^.198^.288^.105^.087^.079
;;^UTILITY(U,$J,112,2105,4)
;;=0^0^.001^.022^.004^.003^.006
;;^UTILITY(U,$J,112,2105,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2106,0)
;;=YAM, CKD, W/SALT^11-897^cups^136^100^N
;;^UTILITY(U,$J,112,2106,1)
;;=1.49^.14^27.6^116^70.13^^^14^.52^18^49^670^244^.2^.152^.371^^0^12.1^.095
;;^UTILITY(U,$J,112,2106,2)
;;=.028^.552^.311^.228^16^0^.05^.009^0^.029^.005^.06^0^.66^^^3.9
;;^UTILITY(U,$J,112,2106,3)
;;=.012^.052^.05^.094^.058^.02^.018^.069^.039^.06^.124^.033^.061^.151^.176^.052^.053^.079
;;^UTILITY(U,$J,112,2106,4)
;;=^^^.027^^.003^.005
;;^UTILITY(U,$J,112,2106,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2107,0)
;;=POTATO CHIPS, WO/SALT ADDED^11-920^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2107,1)
;;=6.42^35.38^51.86^523^2.53^^^24^1.19^59^153^1298^8^1.06^.201^.441^^0^41.6^.145
;;^UTILITY(U,$J,112,2107,2)
;;=.02^4.194^.402^.508^45.2^0^18.031^.07^0^9.067^6.232^18.171^0^3.81^^^4.8
;;^UTILITY(U,$J,112,2107,4)
;;=^^.28^7.947^.28^.805^5.952^.035
;;^UTILITY(U,$J,112,2107,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2108,0)
;;=SUNFLOWER SEEDS, DRY ROASTED, WO/SALT^12-037^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2108,1)
;;=19.33^49.8^24.07^582^1.2^^^70^3.8^129^1155^850^3^5.29^1.83^2.11^^0^1.4^.106
;;^UTILITY(U,$J,112,2108,2)
;;=.246^7.042^7.042^.804^237.4^0^32.782^.069^0^5.219^9.505^32.884^0^5.6^^^9
;;^UTILITY(U,$J,112,2108,3)
;;=.295^.788^.967^1.408^.795^.42^.383^.992^.565^1.116^2.039^.536^.948^2.076^4.735^1.24^1.003^.912
;;^UTILITY(U,$J,112,2108,4)
;;=^^.051^2.808^.049^2.212^9.399
;;^UTILITY(U,$J,112,2108,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2109,0)
;;=SUNFLOWER SEEDS, OIL ROASTED, WO/SALT^12-038^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2109,1)
;;=21.36^57.45^14.73^615^2.6^^^56^6.7^127^1139^483^3^5.21^1.804^2.08^^51^1.4^.32
;;^UTILITY(U,$J,112,2109,2)
;;=.28^4.13^6.942^.792^234^0^37.818^.08^0^6.021^10.965^37.936^5^3.87^^^6.8
;;^UTILITY(U,$J,112,2109,3)
;;=.326^.87^1.068^1.556^.879^.463^.423^1.096^.625^1.233^2.253^.592^1.048^2.293^5.231^1.37^1.108^1.008
;;^UTILITY(U,$J,112,2109,4)
;;=^^.059^3.239^.057^2.551^10.843^^^78.2
;;^UTILITY(U,$J,112,2109,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2110,0)
;;=ALMONDS, DRY ROASTED, WO/SALT^12-063^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2110,1)
;;=16.33^51.6^24.17^587^3^^^282^3.8^304^548^770^11^4.9^1.225^1.977^^0^.7^.13
;;^UTILITY(U,$J,112,2110,2)
;;=.599^2.817^.254^.074^63.8^0^10.372^.369^0^4.891^33.504^10.828^0^4.9^^^13.7
;;^UTILITY(U,$J,112,2110,3)
;;=.293^.605^.709^1.27^.545^.186^.293^.911^.577^.842^2.042^.457^.772^1.923^4.857^1.012^1.028^.738
;;^UTILITY(U,$J,112,2110,4)
;;=^.005^.294^3.414^.3^1.009^32.885
;;^UTILITY(U,$J,112,2110,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2111,0)
;;=CASHEW NUTS, DRY ROASTED, WO/SALT^12-085^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2111,1)
;;=15.31^46.35^32.69^574^1.7^^^45^6^260^490^565^16^5.6^2.22^.826^^0^0^.2
;;^UTILITY(U,$J,112,2111,2)
;;=.2^1.4^1.217^.256^69.2^0^7.66^.161^0^9.157^27.317^7.836^0^3.95^^^3
;;^UTILITY(U,$J,112,2111,3)
;;=.237^.592^.731^1.285^.817^.274^.283^.791^.491^1.04^1.741^.399^.702^1.505^3.624^.803^.69^.849
;;^UTILITY(U,$J,112,2111,4)
;;=.132^.784^.347^4.351^.318^2.972^26.808
;;^UTILITY(U,$J,112,2111,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2112,0)
;;=MIXED NUTS, WITH PEANUTS, DRY ROASTED, WO/SALT^12-135^oz.^28.3^100^N
FHINI064 ; ; 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,2103,3)
+2 ;;=.021^.085^.086^.126^.084^.042^.014^.103^.07^.112^.08^.032^.094^.293^.168^.078^.075^.089
+3 ;;^UTILITY(U,$J,112,2103,4)
+4 ;;=^^^.024^^.003^.005
+5 ;;^UTILITY(U,$J,112,2103,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2104,0)
+8 ;;=TURNIPS, FRZ, CKD, W/SALT^11-890^cups^156^100^N
+9 ;;^UTILITY(U,$J,112,2104,1)
+10 ;;=1.53^.24^4.35^23^93.6^^^32^.98^14^26^182^272^.2^.063^.1^^25^3.9^.035
+11 ;;^UTILITY(U,$J,112,2104,2)
+12 ;;=.028^.56^.141^.067^8^0^.028^.094^0^.025^.015^.125^2^.28
+13 ;;^UTILITY(U,$J,112,2104,3)
+14 ;;=.015^.042^.062^.057^.061^.019^.009^.03^.023^.051^.041^.024^.059^.108^.221^.042^.045^.049
+15 ;;^UTILITY(U,$J,112,2104,4)
+16 ;;=^^^.023^.001^.002^.013
+17 ;;^UTILITY(U,$J,112,2104,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2105,0)
+20 ;;=TURNIP GREENS AND TURNIPS, FRZ, CKD, W/SALT^11-893^cups^190^100^N
+21 ;;^UTILITY(U,$J,112,2105,1)
+22 ;;=2.08^.16^2.88^17^94.19^^^91^1.33^12^17^62^251^.13^.041^.177^^5161^9.4^.03
+23 ;;^UTILITY(U,$J,112,2105,2)
+24 ;;=.07^.295^.096^.058^21.5^0^.019^.054^0^.027^.01^.074^516^.7
+25 ;;^UTILITY(U,$J,112,2105,3)
+26 ;;=.031^.097^.101^.156^.12^.041^.02^.102^.066^.12^.108^.045^.124^.198^.288^.105^.087^.079
+27 ;;^UTILITY(U,$J,112,2105,4)
+28 ;;=0^0^.001^.022^.004^.003^.006
+29 ;;^UTILITY(U,$J,112,2105,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2106,0)
+32 ;;=YAM, CKD, W/SALT^11-897^cups^136^100^N
+33 ;;^UTILITY(U,$J,112,2106,1)
+34 ;;=1.49^.14^27.6^116^70.13^^^14^.52^18^49^670^244^.2^.152^.371^^0^12.1^.095
+35 ;;^UTILITY(U,$J,112,2106,2)
+36 ;;=.028^.552^.311^.228^16^0^.05^.009^0^.029^.005^.06^0^.66^^^3.9
+37 ;;^UTILITY(U,$J,112,2106,3)
+38 ;;=.012^.052^.05^.094^.058^.02^.018^.069^.039^.06^.124^.033^.061^.151^.176^.052^.053^.079
+39 ;;^UTILITY(U,$J,112,2106,4)
+40 ;;=^^^.027^^.003^.005
+41 ;;^UTILITY(U,$J,112,2106,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2107,0)
+44 ;;=POTATO CHIPS, WO/SALT ADDED^11-920^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,2107,1)
+46 ;;=6.42^35.38^51.86^523^2.53^^^24^1.19^59^153^1298^8^1.06^.201^.441^^0^41.6^.145
+47 ;;^UTILITY(U,$J,112,2107,2)
+48 ;;=.02^4.194^.402^.508^45.2^0^18.031^.07^0^9.067^6.232^18.171^0^3.81^^^4.8
+49 ;;^UTILITY(U,$J,112,2107,4)
+50 ;;=^^.28^7.947^.28^.805^5.952^.035
+51 ;;^UTILITY(U,$J,112,2107,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2108,0)
+54 ;;=SUNFLOWER SEEDS, DRY ROASTED, WO/SALT^12-037^oz.^28.3^100^N
+55 ;;^UTILITY(U,$J,112,2108,1)
+56 ;;=19.33^49.8^24.07^582^1.2^^^70^3.8^129^1155^850^3^5.29^1.83^2.11^^0^1.4^.106
+57 ;;^UTILITY(U,$J,112,2108,2)
+58 ;;=.246^7.042^7.042^.804^237.4^0^32.782^.069^0^5.219^9.505^32.884^0^5.6^^^9
+59 ;;^UTILITY(U,$J,112,2108,3)
+60 ;;=.295^.788^.967^1.408^.795^.42^.383^.992^.565^1.116^2.039^.536^.948^2.076^4.735^1.24^1.003^.912
+61 ;;^UTILITY(U,$J,112,2108,4)
+62 ;;=^^.051^2.808^.049^2.212^9.399
+63 ;;^UTILITY(U,$J,112,2108,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2109,0)
+66 ;;=SUNFLOWER SEEDS, OIL ROASTED, WO/SALT^12-038^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,2109,1)
+68 ;;=21.36^57.45^14.73^615^2.6^^^56^6.7^127^1139^483^3^5.21^1.804^2.08^^51^1.4^.32
+69 ;;^UTILITY(U,$J,112,2109,2)
+70 ;;=.28^4.13^6.942^.792^234^0^37.818^.08^0^6.021^10.965^37.936^5^3.87^^^6.8
+71 ;;^UTILITY(U,$J,112,2109,3)
+72 ;;=.326^.87^1.068^1.556^.879^.463^.423^1.096^.625^1.233^2.253^.592^1.048^2.293^5.231^1.37^1.108^1.008
+73 ;;^UTILITY(U,$J,112,2109,4)
+74 ;;=^^.059^3.239^.057^2.551^10.843^^^78.2
+75 ;;^UTILITY(U,$J,112,2109,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2110,0)
+78 ;;=ALMONDS, DRY ROASTED, WO/SALT^12-063^oz.^28.3^100^N
+79 ;;^UTILITY(U,$J,112,2110,1)
+80 ;;=16.33^51.6^24.17^587^3^^^282^3.8^304^548^770^11^4.9^1.225^1.977^^0^.7^.13
+81 ;;^UTILITY(U,$J,112,2110,2)
+82 ;;=.599^2.817^.254^.074^63.8^0^10.372^.369^0^4.891^33.504^10.828^0^4.9^^^13.7
+83 ;;^UTILITY(U,$J,112,2110,3)
+84 ;;=.293^.605^.709^1.27^.545^.186^.293^.911^.577^.842^2.042^.457^.772^1.923^4.857^1.012^1.028^.738
+85 ;;^UTILITY(U,$J,112,2110,4)
+86 ;;=^.005^.294^3.414^.3^1.009^32.885
+87 ;;^UTILITY(U,$J,112,2110,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2111,0)
+90 ;;=CASHEW NUTS, DRY ROASTED, WO/SALT^12-085^oz.^28.3^100^N
+91 ;;^UTILITY(U,$J,112,2111,1)
+92 ;;=15.31^46.35^32.69^574^1.7^^^45^6^260^490^565^16^5.6^2.22^.826^^0^0^.2
+93 ;;^UTILITY(U,$J,112,2111,2)
+94 ;;=.2^1.4^1.217^.256^69.2^0^7.66^.161^0^9.157^27.317^7.836^0^3.95^^^3
+95 ;;^UTILITY(U,$J,112,2111,3)
+96 ;;=.237^.592^.731^1.285^.817^.274^.283^.791^.491^1.04^1.741^.399^.702^1.505^3.624^.803^.69^.849
+97 ;;^UTILITY(U,$J,112,2111,4)
+98 ;;=.132^.784^.347^4.351^.318^2.972^26.808
+99 ;;^UTILITY(U,$J,112,2111,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,2112,0)
+102 ;;=MIXED NUTS, WITH PEANUTS, DRY ROASTED, WO/SALT^12-135^oz.^28.3^100^N
