FHINI049 ; ; 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,1403,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1406,0)
;;=PEANUTS, BOILED^16-088^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1406,1)
;;=13.5^22.01^21.26^318^41.78^^^55^1.01^102^198^180^751^1.83^.499^1.023^^0^0^.259
;;^UTILITY(U,$J,112,1406,2)
;;=.063^5.259^.825^.152^74.6^0^6.954^.001^0^3.055^10.921^6.956^0^1.45^^^8.8
;;^UTILITY(U,$J,112,1406,3)
;;=.131^.462^.475^.875^.485^.166^.173^.7^.549^.566^1.615^.341^.537^1.647^2.822^.814^.596^.665
;;^UTILITY(U,$J,112,1406,4)
;;=^^.011^2.304^.004^.492^10.62
;;^UTILITY(U,$J,112,1406,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1407,0)
;;=PEANUTS, ROASTED, W/SKINS, WO/SALT^12-181^tbsp.^9^^N
;;^UTILITY(U,$J,112,1407,1)
;;=26.78^49.19^18.48^580^1.99^^^86^1.92^188^506^703^15^6.62^1.273^1.235^^0^0^.293
;;^UTILITY(U,$J,112,1407,2)
;;=.101^14.796^2.092^.398^105.6^0^15.593^.003^0^6.851^24.488^15.597^^^^^7
;;^UTILITY(U,$J,112,1407,20)
;;=USDA Std. Reference, Release 8;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1408,0)
;;=PEANUTS, ROASTED, SALTED^12-681^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1408,1)
;;=26.35^49.3^18.93^581^1.95^^^88^1.83^185^517^682^433^6.63^1.3^2.062^^0^0^.253
;;^UTILITY(U,$J,112,1408,2)
;;=.108^14.277^1.39^.255^125.7^0^15.576^.003^0^6.843^24.462^15.58^0^3.48^^^8.8
;;^UTILITY(U,$J,112,1408,3)
;;=.256^.902^.926^1.708^.946^.323^.338^1.365^1.071^1.105^3.151^.666^1.047^3.213^5.505^1.587^1.163^1.298
;;^UTILITY(U,$J,112,1408,4)
;;=^^.025^5.161^.009^1.101^23.788
;;^UTILITY(U,$J,112,1408,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1409,0)
;;=PEANUT BUTTER, W/SALT^12-692^tbsp.^16^100^N
;;^UTILITY(U,$J,112,1409,1)
;;=24.59^49.98^20.71^588^1.42^^^34^1.67^157^323^721^478^2.51^.556^1.536^^0^0^.136
;;^UTILITY(U,$J,112,1409,2)
;;=.099^13.09^.92^.378^78.2^0^14.098^.078^0^9.589^23.582^14.364^0^3.29^^^5.8
;;^UTILITY(U,$J,112,1409,3)
;;=.239^.842^.865^1.594^.883^.302^.315^1.275^1^1.031^2.941^.622^.977^3^5.139^1.482^1.085^1.212
;;^UTILITY(U,$J,112,1409,4)
;;=^.022^.05^5.501^^2.143^22.964^.187
;;^UTILITY(U,$J,112,1409,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1410,0)
;;=PEANUT SPREAD^1500-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1410,1)
;;=20.3^52.1^22^601^2.2^^^50^1.5^^322^530^597^^^^^0^0^.1
;;^UTILITY(U,$J,112,1410,2)
;;=.1^12.4^^^^^14^^0^9^^^^3.4
;;^UTILITY(U,$J,112,1410,4)
;;=^^^^^^25
;;^UTILITY(U,$J,112,1410,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1411,0)
;;=PEAS, CHINESE (SNOW), RAW^11-300^cups^145^94^N
;;^UTILITY(U,$J,112,1411,1)
;;=2.8^.2^7.56^42^88.89^^^43^2.08^24^53^200^4^.27^.079^.244^^145^60^.15
;;^UTILITY(U,$J,112,1411,2)
;;=.08^.6^.75^.16^41.7^0^.075^.013^0^.039^.021^.089^14^.56^^^2.6
;;^UTILITY(U,$J,112,1411,3)
;;=.027^.099^.161^.228^.202^.011^.032^.09^.099^.273^.134^.017^.058^.228^.448^.072^.063^.125
;;^UTILITY(U,$J,112,1411,4)
;;=^^.002^.033^0^.003^.021^^25
;;^UTILITY(U,$J,112,1411,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1412,0)
;;=PEAS, CHINESE (SNOW), BOILED, WO/SALT^11-301^cups^160^100^N
;;^UTILITY(U,$J,112,1412,1)
;;=3.27^.23^7.05^42^88.91^^^42^1.97^26^55^240^4^.37^.077^.168^^131^47.9^.128
;;^UTILITY(U,$J,112,1412,2)
;;=.076^.539^.673^.144^29.1^0^.085^.015^0^.044^.023^.1^13^.54^^^1.8
;;^UTILITY(U,$J,112,1412,3)
;;=.032^.115^.188^.267^.235^.013^.037^.105^.115^.319^.157^.02^.068^.267^.523^.084^.073^.146
;;^UTILITY(U,$J,112,1412,4)
;;=^^.002^.038^0^.003^.023
;;^UTILITY(U,$J,112,1412,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1413,0)
;;=PEAS, GREEN, EARLY, CKD WO/SALT^11-305^cups^160^100^N
;;^UTILITY(U,$J,112,1413,1)
;;=5.36^.22^15.64^84^77.87^^^27^1.54^39^117^271^3^1.19^.173^.525^^597^14.2^.259
;;^UTILITY(U,$J,112,1413,2)
;;=.149^2.021^.153^.216^63.3^0^.082^.019^0^.039^.019^.102^60^.92^^^3
;;^UTILITY(U,$J,112,1413,3)
;;=.037^.201^.193^.32^.314^.081^.032^.198^.112^.232^.423^.105^.237^.49^.733^.182^.171^.179
;;^UTILITY(U,$J,112,1413,4)
;;=^^^.035^^.004^.019^^23
;;^UTILITY(U,$J,112,1413,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1414,0)
;;=PEAS, GREEN, EARLY, CKD W/SALT^11-811^cups^160^100^N
;;^UTILITY(U,$J,112,1414,1)
;;=5.36^.22^15.64^84^77.87^^^27^1.54^39^117^271^239^1.19^.173^.525^^597^14.2^.259
;;^UTILITY(U,$J,112,1414,2)
;;=.149^2.021^.153^.216^63.3^0^.082^.019^0^.039^.019^.102^60^.92
;;^UTILITY(U,$J,112,1414,3)
;;=.037^.201^.193^.32^.314^.081^.032^.198^.112^.232^.423^.105^.237^.49^.733^.182^.171^.179
FHINI049 ; ; 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,1403,20)
+2 ;;=USDA Std. Reference, Release 8
+3 ;;^UTILITY(U,$J,112,1406,0)
+4 ;;=PEANUTS, BOILED^16-088^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,1406,1)
+6 ;;=13.5^22.01^21.26^318^41.78^^^55^1.01^102^198^180^751^1.83^.499^1.023^^0^0^.259
+7 ;;^UTILITY(U,$J,112,1406,2)
+8 ;;=.063^5.259^.825^.152^74.6^0^6.954^.001^0^3.055^10.921^6.956^0^1.45^^^8.8
+9 ;;^UTILITY(U,$J,112,1406,3)
+10 ;;=.131^.462^.475^.875^.485^.166^.173^.7^.549^.566^1.615^.341^.537^1.647^2.822^.814^.596^.665
+11 ;;^UTILITY(U,$J,112,1406,4)
+12 ;;=^^.011^2.304^.004^.492^10.62
+13 ;;^UTILITY(U,$J,112,1406,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,1407,0)
+16 ;;=PEANUTS, ROASTED, W/SKINS, WO/SALT^12-181^tbsp.^9^^N
+17 ;;^UTILITY(U,$J,112,1407,1)
+18 ;;=26.78^49.19^18.48^580^1.99^^^86^1.92^188^506^703^15^6.62^1.273^1.235^^0^0^.293
+19 ;;^UTILITY(U,$J,112,1407,2)
+20 ;;=.101^14.796^2.092^.398^105.6^0^15.593^.003^0^6.851^24.488^15.597^^^^^7
+21 ;;^UTILITY(U,$J,112,1407,20)
+22 ;;=USDA Std. Reference, Release 8;HCF Nutrition Research Foundation, Inc, 1990
+23 ;;^UTILITY(U,$J,112,1408,0)
+24 ;;=PEANUTS, ROASTED, SALTED^12-681^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,1408,1)
+26 ;;=26.35^49.3^18.93^581^1.95^^^88^1.83^185^517^682^433^6.63^1.3^2.062^^0^0^.253
+27 ;;^UTILITY(U,$J,112,1408,2)
+28 ;;=.108^14.277^1.39^.255^125.7^0^15.576^.003^0^6.843^24.462^15.58^0^3.48^^^8.8
+29 ;;^UTILITY(U,$J,112,1408,3)
+30 ;;=.256^.902^.926^1.708^.946^.323^.338^1.365^1.071^1.105^3.151^.666^1.047^3.213^5.505^1.587^1.163^1.298
+31 ;;^UTILITY(U,$J,112,1408,4)
+32 ;;=^^.025^5.161^.009^1.101^23.788
+33 ;;^UTILITY(U,$J,112,1408,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1409,0)
+36 ;;=PEANUT BUTTER, W/SALT^12-692^tbsp.^16^100^N
+37 ;;^UTILITY(U,$J,112,1409,1)
+38 ;;=24.59^49.98^20.71^588^1.42^^^34^1.67^157^323^721^478^2.51^.556^1.536^^0^0^.136
+39 ;;^UTILITY(U,$J,112,1409,2)
+40 ;;=.099^13.09^.92^.378^78.2^0^14.098^.078^0^9.589^23.582^14.364^0^3.29^^^5.8
+41 ;;^UTILITY(U,$J,112,1409,3)
+42 ;;=.239^.842^.865^1.594^.883^.302^.315^1.275^1^1.031^2.941^.622^.977^3^5.139^1.482^1.085^1.212
+43 ;;^UTILITY(U,$J,112,1409,4)
+44 ;;=^.022^.05^5.501^^2.143^22.964^.187
+45 ;;^UTILITY(U,$J,112,1409,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1410,0)
+48 ;;=PEANUT SPREAD^1500-0^oz.^28.3^100^N
+49 ;;^UTILITY(U,$J,112,1410,1)
+50 ;;=20.3^52.1^22^601^2.2^^^50^1.5^^322^530^597^^^^^0^0^.1
+51 ;;^UTILITY(U,$J,112,1410,2)
+52 ;;=.1^12.4^^^^^14^^0^9^^^^3.4
+53 ;;^UTILITY(U,$J,112,1410,4)
+54 ;;=^^^^^^25
+55 ;;^UTILITY(U,$J,112,1410,20)
+56 ;;=USDA Std. Reference, Release 8
+57 ;;^UTILITY(U,$J,112,1411,0)
+58 ;;=PEAS, CHINESE (SNOW), RAW^11-300^cups^145^94^N
+59 ;;^UTILITY(U,$J,112,1411,1)
+60 ;;=2.8^.2^7.56^42^88.89^^^43^2.08^24^53^200^4^.27^.079^.244^^145^60^.15
+61 ;;^UTILITY(U,$J,112,1411,2)
+62 ;;=.08^.6^.75^.16^41.7^0^.075^.013^0^.039^.021^.089^14^.56^^^2.6
+63 ;;^UTILITY(U,$J,112,1411,3)
+64 ;;=.027^.099^.161^.228^.202^.011^.032^.09^.099^.273^.134^.017^.058^.228^.448^.072^.063^.125
+65 ;;^UTILITY(U,$J,112,1411,4)
+66 ;;=^^.002^.033^0^.003^.021^^25
+67 ;;^UTILITY(U,$J,112,1411,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1412,0)
+70 ;;=PEAS, CHINESE (SNOW), BOILED, WO/SALT^11-301^cups^160^100^N
+71 ;;^UTILITY(U,$J,112,1412,1)
+72 ;;=3.27^.23^7.05^42^88.91^^^42^1.97^26^55^240^4^.37^.077^.168^^131^47.9^.128
+73 ;;^UTILITY(U,$J,112,1412,2)
+74 ;;=.076^.539^.673^.144^29.1^0^.085^.015^0^.044^.023^.1^13^.54^^^1.8
+75 ;;^UTILITY(U,$J,112,1412,3)
+76 ;;=.032^.115^.188^.267^.235^.013^.037^.105^.115^.319^.157^.02^.068^.267^.523^.084^.073^.146
+77 ;;^UTILITY(U,$J,112,1412,4)
+78 ;;=^^.002^.038^0^.003^.023
+79 ;;^UTILITY(U,$J,112,1412,20)
+80 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+81 ;;^UTILITY(U,$J,112,1413,0)
+82 ;;=PEAS, GREEN, EARLY, CKD WO/SALT^11-305^cups^160^100^N
+83 ;;^UTILITY(U,$J,112,1413,1)
+84 ;;=5.36^.22^15.64^84^77.87^^^27^1.54^39^117^271^3^1.19^.173^.525^^597^14.2^.259
+85 ;;^UTILITY(U,$J,112,1413,2)
+86 ;;=.149^2.021^.153^.216^63.3^0^.082^.019^0^.039^.019^.102^60^.92^^^3
+87 ;;^UTILITY(U,$J,112,1413,3)
+88 ;;=.037^.201^.193^.32^.314^.081^.032^.198^.112^.232^.423^.105^.237^.49^.733^.182^.171^.179
+89 ;;^UTILITY(U,$J,112,1413,4)
+90 ;;=^^^.035^^.004^.019^^23
+91 ;;^UTILITY(U,$J,112,1413,20)
+92 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+93 ;;^UTILITY(U,$J,112,1414,0)
+94 ;;=PEAS, GREEN, EARLY, CKD W/SALT^11-811^cups^160^100^N
+95 ;;^UTILITY(U,$J,112,1414,1)
+96 ;;=5.36^.22^15.64^84^77.87^^^27^1.54^39^117^271^239^1.19^.173^.525^^597^14.2^.259
+97 ;;^UTILITY(U,$J,112,1414,2)
+98 ;;=.149^2.021^.153^.216^63.3^0^.082^.019^0^.039^.019^.102^60^.92
+99 ;;^UTILITY(U,$J,112,1414,3)
+100 ;;=.037^.201^.193^.32^.314^.081^.032^.198^.112^.232^.423^.105^.237^.49^.733^.182^.171^.179
