- 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