FHINI06N ; ; 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,2278,4)
;;=^0^0^.028^.001^.008^.012
;;^UTILITY(U,$J,112,2278,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2279,0)
;;=BEANS, LIMA, BABY, BOILED, WO/SALT^16-075^cups^182^100^N
;;^UTILITY(U,$J,112,2279,1)
;;=8.04^.38^23.31^126^67.15^^^29^2.4^53^127^401^3^1.03^.215^.585^^0^0^.161
;;^UTILITY(U,$J,112,2279,2)
;;=.055^.66^.472^.078^149.9^0^.117^.052^0^.088^.034^.169^0^1.12^^^7.7
;;^UTILITY(U,$J,112,2279,3)
;;=.095^.347^.423^.694^.539^.102^.089^.463^.284^.484^.493^.246^.411^1.037^1.139^.34^.366^.535
;;^UTILITY(U,$J,112,2279,4)
;;=^0^.001^.065^.002^.017^.028
;;^UTILITY(U,$J,112,2279,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2280,0)
;;=BEANS, MUNG, BOILED, WO/SALT^16-081^cups^202^100^N
;;^UTILITY(U,$J,112,2280,1)
;;=7.02^.38^19.14^105^72.66^^^27^1.4^48^99^266^2^.84^.156^.298^^24^1^.164
;;^UTILITY(U,$J,112,2280,2)
;;=.061^.577^.41^.067^158.8^0^.119^.009^0^.116^.054^.128^2^.79^^^3.3
;;^UTILITY(U,$J,112,2280,3)
;;=.076^.23^.297^.544^.49^.084^.062^.425^.21^.364^.492^.205^.309^.812^1.256^.281^.323^.346
;;^UTILITY(U,$J,112,2280,4)
;;=^^^.083^^.024^.054
;;^UTILITY(U,$J,112,2280,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2281,0)
;;=PEANUTS, RAW^16-087^cups^146^100^N
;;^UTILITY(U,$J,112,2281,1)
;;=25.8^49.24^16.14^567^6.5^^^92^4.58^168^376^705^18^3.27^1.144^1.934^8.33^0^0^.64
;;^UTILITY(U,$J,112,2281,2)
;;=.135^12.066^1.767^.348^239.8^0^15.555^.003^0^6.834^24.429^15.559^0^2.33^^^7
;;^UTILITY(U,$J,112,2281,3)
;;=.25^.883^.907^1.672^.926^.317^.331^1.337^1.049^1.082^3.085^.652^1.025^3.146^5.39^1.554^1.138^1.271
;;^UTILITY(U,$J,112,2281,4)
;;=^^.025^5.154^.009^1.1^23.756^^.2
;;^UTILITY(U,$J,112,2281,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2282,0)
;;=PEANUTS, OIL-ROASTED, W/SALT^16-089^oz.^28^100^N
;;^UTILITY(U,$J,112,2282,1)
;;=26.35^49.3^18.93^581^1.95^^^88^1.83^185^517^682^433^6.63^1.3^2.062^6.94^0^0^.253
;;^UTILITY(U,$J,112,2282,2)
;;=.108^14.277^1.39^.255^125.7^0^15.576^.003^0^6.843^24.462^15.58^0^3.48^^^9.2
;;^UTILITY(U,$J,112,2282,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,2282,4)
;;=^^.025^5.161^.009^1.101^23.788^^^7.5
;;^UTILITY(U,$J,112,2282,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2283,0)
;;=PEANUTS, DRY-ROASTED, W/SALT^16-090^oz.^28^100^N
;;^UTILITY(U,$J,112,2283,1)
;;=23.68^49.66^21.51^585^1.55^^^54^2.26^176^358^658^813^3.31^.671^2.083^7.8^0^0^.438
;;^UTILITY(U,$J,112,2283,2)
;;=.098^13.525^1.395^.256^145.3^0^15.69^.003^0^6.893^24.64^15.694^0^3.6^^^8
;;^UTILITY(U,$J,112,2283,3)
;;=.23^.811^.833^1.535^.85^.291^.304^1.227^.963^.993^2.832^.599^.941^2.888^4.949^1.427^1.045^1.167
;;^UTILITY(U,$J,112,2283,4)
;;=^^.025^5.198^.009^1.109^23.961^^^7.5
;;^UTILITY(U,$J,112,2283,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2284,0)
;;=PEANUTS, SPANISH, RAW^16-091^oz.^28^100^N
;;^UTILITY(U,$J,112,2284,1)
;;=26.15^49.6^15.82^570^6.39^^^106^3.91^188^388^744^22^2.12^.9^2.64^^0^0^.675
;;^UTILITY(U,$J,112,2284,2)
;;=.135^15.925^1.769^.348^240^0^17.192^.01^0^7.642^22.328^17.204^0^2.03^^^9.5
;;^UTILITY(U,$J,112,2284,3)
;;=.254^.896^.92^1.696^.939^.321^.335^1.356^1.063^1.097^3.128^.661^1.039^3.19^5.465^1.576^1.154^1.289
;;^UTILITY(U,$J,112,2284,4)
;;=^^.028^5.674^.045^1.288^21.757
;;^UTILITY(U,$J,112,2284,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2285,0)
;;=PEANUTS, SPANISH, OIL-ROASTED, W/SALT^16-092^oz.^28^100^N
;;^UTILITY(U,$J,112,2285,1)
;;=28.01^49.04^17.45^579^1.78^^^100^2.28^168^387^776^433^2^.661^2.355^^0^0^.317
;;^UTILITY(U,$J,112,2285,2)
;;=.085^14.933^1.392^.256^125.9^0^16.996^.01^0^7.555^22.073^17.008^0^3.72
;;^UTILITY(U,$J,112,2285,3)
;;=.272^.959^.985^1.816^1.005^.344^.359^1.452^1.139^1.175^3.349^.708^1.113^3.416^5.852^1.687^1.236^1.38
;;^UTILITY(U,$J,112,2285,4)
;;=^^.028^5.609^.044^1.273^21.509
;;^UTILITY(U,$J,112,2285,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2286,0)
;;=PEANUT BUTTER, CHUNK STYLE, W/SALT^16-097^tbsp.^16^100^N
;;^UTILITY(U,$J,112,2286,1)
;;=24.05^49.94^21.59^589^1.13^^^41^1.9^159^317^747^486^2.78^.515^1.865^^0^0^.125
;;^UTILITY(U,$J,112,2286,2)
;;=.112^13.689^.964^.45^92^0^14.085^.078^0^9.58^23.56^14.35^0^3.3^^^6.6
;;^UTILITY(U,$J,112,2286,3)
;;=.233^.823^.845^1.559^.863^.295^.308^1.246^.977^1.008^2.875^.608^.955^2.932^5.024^1.449^1.061^1.184
FHINI06N ; ; 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,2278,4)
+2 ;;=^0^0^.028^.001^.008^.012
+3 ;;^UTILITY(U,$J,112,2278,20)
+4 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+5 ;;^UTILITY(U,$J,112,2279,0)
+6 ;;=BEANS, LIMA, BABY, BOILED, WO/SALT^16-075^cups^182^100^N
+7 ;;^UTILITY(U,$J,112,2279,1)
+8 ;;=8.04^.38^23.31^126^67.15^^^29^2.4^53^127^401^3^1.03^.215^.585^^0^0^.161
+9 ;;^UTILITY(U,$J,112,2279,2)
+10 ;;=.055^.66^.472^.078^149.9^0^.117^.052^0^.088^.034^.169^0^1.12^^^7.7
+11 ;;^UTILITY(U,$J,112,2279,3)
+12 ;;=.095^.347^.423^.694^.539^.102^.089^.463^.284^.484^.493^.246^.411^1.037^1.139^.34^.366^.535
+13 ;;^UTILITY(U,$J,112,2279,4)
+14 ;;=^0^.001^.065^.002^.017^.028
+15 ;;^UTILITY(U,$J,112,2279,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2280,0)
+18 ;;=BEANS, MUNG, BOILED, WO/SALT^16-081^cups^202^100^N
+19 ;;^UTILITY(U,$J,112,2280,1)
+20 ;;=7.02^.38^19.14^105^72.66^^^27^1.4^48^99^266^2^.84^.156^.298^^24^1^.164
+21 ;;^UTILITY(U,$J,112,2280,2)
+22 ;;=.061^.577^.41^.067^158.8^0^.119^.009^0^.116^.054^.128^2^.79^^^3.3
+23 ;;^UTILITY(U,$J,112,2280,3)
+24 ;;=.076^.23^.297^.544^.49^.084^.062^.425^.21^.364^.492^.205^.309^.812^1.256^.281^.323^.346
+25 ;;^UTILITY(U,$J,112,2280,4)
+26 ;;=^^^.083^^.024^.054
+27 ;;^UTILITY(U,$J,112,2280,20)
+28 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+29 ;;^UTILITY(U,$J,112,2281,0)
+30 ;;=PEANUTS, RAW^16-087^cups^146^100^N
+31 ;;^UTILITY(U,$J,112,2281,1)
+32 ;;=25.8^49.24^16.14^567^6.5^^^92^4.58^168^376^705^18^3.27^1.144^1.934^8.33^0^0^.64
+33 ;;^UTILITY(U,$J,112,2281,2)
+34 ;;=.135^12.066^1.767^.348^239.8^0^15.555^.003^0^6.834^24.429^15.559^0^2.33^^^7
+35 ;;^UTILITY(U,$J,112,2281,3)
+36 ;;=.25^.883^.907^1.672^.926^.317^.331^1.337^1.049^1.082^3.085^.652^1.025^3.146^5.39^1.554^1.138^1.271
+37 ;;^UTILITY(U,$J,112,2281,4)
+38 ;;=^^.025^5.154^.009^1.1^23.756^^.2
+39 ;;^UTILITY(U,$J,112,2281,20)
+40 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+41 ;;^UTILITY(U,$J,112,2282,0)
+42 ;;=PEANUTS, OIL-ROASTED, W/SALT^16-089^oz.^28^100^N
+43 ;;^UTILITY(U,$J,112,2282,1)
+44 ;;=26.35^49.3^18.93^581^1.95^^^88^1.83^185^517^682^433^6.63^1.3^2.062^6.94^0^0^.253
+45 ;;^UTILITY(U,$J,112,2282,2)
+46 ;;=.108^14.277^1.39^.255^125.7^0^15.576^.003^0^6.843^24.462^15.58^0^3.48^^^9.2
+47 ;;^UTILITY(U,$J,112,2282,3)
+48 ;;=.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
+49 ;;^UTILITY(U,$J,112,2282,4)
+50 ;;=^^.025^5.161^.009^1.101^23.788^^^7.5
+51 ;;^UTILITY(U,$J,112,2282,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2283,0)
+54 ;;=PEANUTS, DRY-ROASTED, W/SALT^16-090^oz.^28^100^N
+55 ;;^UTILITY(U,$J,112,2283,1)
+56 ;;=23.68^49.66^21.51^585^1.55^^^54^2.26^176^358^658^813^3.31^.671^2.083^7.8^0^0^.438
+57 ;;^UTILITY(U,$J,112,2283,2)
+58 ;;=.098^13.525^1.395^.256^145.3^0^15.69^.003^0^6.893^24.64^15.694^0^3.6^^^8
+59 ;;^UTILITY(U,$J,112,2283,3)
+60 ;;=.23^.811^.833^1.535^.85^.291^.304^1.227^.963^.993^2.832^.599^.941^2.888^4.949^1.427^1.045^1.167
+61 ;;^UTILITY(U,$J,112,2283,4)
+62 ;;=^^.025^5.198^.009^1.109^23.961^^^7.5
+63 ;;^UTILITY(U,$J,112,2283,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2284,0)
+66 ;;=PEANUTS, SPANISH, RAW^16-091^oz.^28^100^N
+67 ;;^UTILITY(U,$J,112,2284,1)
+68 ;;=26.15^49.6^15.82^570^6.39^^^106^3.91^188^388^744^22^2.12^.9^2.64^^0^0^.675
+69 ;;^UTILITY(U,$J,112,2284,2)
+70 ;;=.135^15.925^1.769^.348^240^0^17.192^.01^0^7.642^22.328^17.204^0^2.03^^^9.5
+71 ;;^UTILITY(U,$J,112,2284,3)
+72 ;;=.254^.896^.92^1.696^.939^.321^.335^1.356^1.063^1.097^3.128^.661^1.039^3.19^5.465^1.576^1.154^1.289
+73 ;;^UTILITY(U,$J,112,2284,4)
+74 ;;=^^.028^5.674^.045^1.288^21.757
+75 ;;^UTILITY(U,$J,112,2284,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2285,0)
+78 ;;=PEANUTS, SPANISH, OIL-ROASTED, W/SALT^16-092^oz.^28^100^N
+79 ;;^UTILITY(U,$J,112,2285,1)
+80 ;;=28.01^49.04^17.45^579^1.78^^^100^2.28^168^387^776^433^2^.661^2.355^^0^0^.317
+81 ;;^UTILITY(U,$J,112,2285,2)
+82 ;;=.085^14.933^1.392^.256^125.9^0^16.996^.01^0^7.555^22.073^17.008^0^3.72
+83 ;;^UTILITY(U,$J,112,2285,3)
+84 ;;=.272^.959^.985^1.816^1.005^.344^.359^1.452^1.139^1.175^3.349^.708^1.113^3.416^5.852^1.687^1.236^1.38
+85 ;;^UTILITY(U,$J,112,2285,4)
+86 ;;=^^.028^5.609^.044^1.273^21.509
+87 ;;^UTILITY(U,$J,112,2285,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2286,0)
+90 ;;=PEANUT BUTTER, CHUNK STYLE, W/SALT^16-097^tbsp.^16^100^N
+91 ;;^UTILITY(U,$J,112,2286,1)
+92 ;;=24.05^49.94^21.59^589^1.13^^^41^1.9^159^317^747^486^2.78^.515^1.865^^0^0^.125
+93 ;;^UTILITY(U,$J,112,2286,2)
+94 ;;=.112^13.689^.964^.45^92^0^14.085^.078^0^9.58^23.56^14.35^0^3.3^^^6.6
+95 ;;^UTILITY(U,$J,112,2286,3)
+96 ;;=.233^.823^.845^1.559^.863^.295^.308^1.246^.977^1.008^2.875^.608^.955^2.932^5.024^1.449^1.061^1.184
