FHINI06R ; ; 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,2312,0)
;;=BEANS, LIMA, BABY, BOILED, W/SALT^16-375^cups^182^100^N
;;^UTILITY(U,$J,112,2312,1)
;;=8.04^.38^23.31^126^67.15^^^29^2.4^53^127^401^239^1.03^.215^.585^^0^0^.161
;;^UTILITY(U,$J,112,2312,2)
;;=.055^.66^.472^.078^149.9^0^.117^.052^0^.088^.034^.169^0^1.12
;;^UTILITY(U,$J,112,2312,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,2312,4)
;;=^0^.001^.065^.002^.017^.028
;;^UTILITY(U,$J,112,2312,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2313,0)
;;=PEAS, SPLIT, BOILED, W/SALT^16-386^cups^196^100^N
;;^UTILITY(U,$J,112,2313,1)
;;=8.34^.39^21.11^118^69.49^^^14^1.29^36^99^362^238^1^.181^.396^^7^.4^.19
;;^UTILITY(U,$J,112,2313,2)
;;=.056^.89^.595^.048^64.9^0^.137^.028^0^.054^.081^.165^1^.68
;;^UTILITY(U,$J,112,2313,3)
;;=.093^.296^.344^.598^.602^.085^.127^.384^.242^.394^.744^.203^.367^.984^1.426^.371^.344^.367
;;^UTILITY(U,$J,112,2313,4)
;;=^.001^.001^.042^^.01^.077
;;^UTILITY(U,$J,112,2313,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2314,0)
;;=PEANUTS, OIL-ROASTED, WO/SALT^16-389^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2314,1)
;;=26.35^49.3^18.93^581^1.95^^^88^1.83^185^517^682^6^6.63^1.3^2.062^^0^0^.253
;;^UTILITY(U,$J,112,2314,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,2314,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,2314,4)
;;=^^.025^5.161^.009^1.101^23.788
;;^UTILITY(U,$J,112,2314,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2315,0)
;;=PEANUTS, DRY-ROASTED, WO/SALT^16-390^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2315,1)
;;=23.68^49.66^21.51^585^1.55^^^54^2.26^176^358^658^6^3.31^.671^2.083^^0^0^.438
;;^UTILITY(U,$J,112,2315,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,2315,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,2315,4)
;;=^^.025^5.198^.009^1.109^23.961
;;^UTILITY(U,$J,112,2315,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2316,0)
;;=PEANUTS, SPANISH, OIL-ROASTED, WO/SALT^16-392^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2316,1)
;;=28.01^49.04^17.45^579^1.78^^^100^2.28^168^387^776^6^2^.661^2.355^^0^0^.317
;;^UTILITY(U,$J,112,2316,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,2316,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,2316,4)
;;=^^.028^5.609^.044^1.273^21.509
;;^UTILITY(U,$J,112,2316,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2317,0)
;;=PEANUT BUTTER, CHUNK STYLE, WO/SALT^16-397^tbsp.^16^100^N
;;^UTILITY(U,$J,112,2317,1)
;;=24.05^49.94^21.59^589^1.13^^^41^1.9^159^317^747^17^2.78^.515^1.865^^0^0^.125
;;^UTILITY(U,$J,112,2317,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,2317,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
;;^UTILITY(U,$J,112,2317,4)
;;=^.022^.05^5.496^^2.141^22.943^.187
;;^UTILITY(U,$J,112,2317,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2318,0)
;;=PEANUT BUTTER, SMOOTH STYLE, WO/SALT^16-398^tbsp.^16^100^N
;;^UTILITY(U,$J,112,2318,1)
;;=24.59^49.98^20.71^588^1.42^^^34^1.67^157^323^721^17^2.51^.556^1.536^^0^0^.136
;;^UTILITY(U,$J,112,2318,2)
;;=.099^13.09^.92^.378^78.2^0^14.098^.078^0^9.589^23.582^14.364^0^3.29
;;^UTILITY(U,$J,112,2318,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,2318,4)
;;=^.022^.05^5.501^^2.143^22.964^.187
;;^UTILITY(U,$J,112,2318,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2319,0)
;;=SOYBEANS, BOILED, W/SALT^16-409^cups^172^100^N
;;^UTILITY(U,$J,112,2319,1)
;;=16.64^8.97^9.92^173^62.55^^^102^5.14^86^245^515^237^1.15^.407^.824^^9^1.7^.155
;;^UTILITY(U,$J,112,2319,2)
;;=.285^.399^.179^.234^53.8^0^4.465^.598^0^1.297^1.981^5.064^1^1.91
;;^UTILITY(U,$J,112,2319,3)
;;=.242^.723^.807^1.355^1.108^.224^.268^.869^.63^.831^1.291^.449^.784^2.093^3.224^.77^.974^.965
;;^UTILITY(U,$J,112,2319,4)
;;=^^.025^.952^.025^.32^1.956
;;^UTILITY(U,$J,112,2319,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2320,0)
;;=ACEROLA JUICE, RAW^9-002^floz.^30.2^100^N
;;^UTILITY(U,$J,112,2320,1)
;;=.4^.3^4.8^21^94.3^^^10^.5^12^9^97^3^^^^^509^1600^.02
FHINI06R ; ; 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,2312,0)
+2 ;;=BEANS, LIMA, BABY, BOILED, W/SALT^16-375^cups^182^100^N
+3 ;;^UTILITY(U,$J,112,2312,1)
+4 ;;=8.04^.38^23.31^126^67.15^^^29^2.4^53^127^401^239^1.03^.215^.585^^0^0^.161
+5 ;;^UTILITY(U,$J,112,2312,2)
+6 ;;=.055^.66^.472^.078^149.9^0^.117^.052^0^.088^.034^.169^0^1.12
+7 ;;^UTILITY(U,$J,112,2312,3)
+8 ;;=.095^.347^.423^.694^.539^.102^.089^.463^.284^.484^.493^.246^.411^1.037^1.139^.34^.366^.535
+9 ;;^UTILITY(U,$J,112,2312,4)
+10 ;;=^0^.001^.065^.002^.017^.028
+11 ;;^UTILITY(U,$J,112,2312,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,2313,0)
+14 ;;=PEAS, SPLIT, BOILED, W/SALT^16-386^cups^196^100^N
+15 ;;^UTILITY(U,$J,112,2313,1)
+16 ;;=8.34^.39^21.11^118^69.49^^^14^1.29^36^99^362^238^1^.181^.396^^7^.4^.19
+17 ;;^UTILITY(U,$J,112,2313,2)
+18 ;;=.056^.89^.595^.048^64.9^0^.137^.028^0^.054^.081^.165^1^.68
+19 ;;^UTILITY(U,$J,112,2313,3)
+20 ;;=.093^.296^.344^.598^.602^.085^.127^.384^.242^.394^.744^.203^.367^.984^1.426^.371^.344^.367
+21 ;;^UTILITY(U,$J,112,2313,4)
+22 ;;=^.001^.001^.042^^.01^.077
+23 ;;^UTILITY(U,$J,112,2313,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,2314,0)
+26 ;;=PEANUTS, OIL-ROASTED, WO/SALT^16-389^oz.^28.3^100^N
+27 ;;^UTILITY(U,$J,112,2314,1)
+28 ;;=26.35^49.3^18.93^581^1.95^^^88^1.83^185^517^682^6^6.63^1.3^2.062^^0^0^.253
+29 ;;^UTILITY(U,$J,112,2314,2)
+30 ;;=.108^14.277^1.39^.255^125.7^0^15.576^.003^0^6.843^24.462^15.58^0^3.48^^^9.2
+31 ;;^UTILITY(U,$J,112,2314,3)
+32 ;;=.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
+33 ;;^UTILITY(U,$J,112,2314,4)
+34 ;;=^^.025^5.161^.009^1.101^23.788
+35 ;;^UTILITY(U,$J,112,2314,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,2315,0)
+38 ;;=PEANUTS, DRY-ROASTED, WO/SALT^16-390^oz.^28.3^100^N
+39 ;;^UTILITY(U,$J,112,2315,1)
+40 ;;=23.68^49.66^21.51^585^1.55^^^54^2.26^176^358^658^6^3.31^.671^2.083^^0^0^.438
+41 ;;^UTILITY(U,$J,112,2315,2)
+42 ;;=.098^13.525^1.395^.256^145.3^0^15.69^.003^0^6.893^24.64^15.694^0^3.6^^^8
+43 ;;^UTILITY(U,$J,112,2315,3)
+44 ;;=.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
+45 ;;^UTILITY(U,$J,112,2315,4)
+46 ;;=^^.025^5.198^.009^1.109^23.961
+47 ;;^UTILITY(U,$J,112,2315,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2316,0)
+50 ;;=PEANUTS, SPANISH, OIL-ROASTED, WO/SALT^16-392^oz.^28.3^100^N
+51 ;;^UTILITY(U,$J,112,2316,1)
+52 ;;=28.01^49.04^17.45^579^1.78^^^100^2.28^168^387^776^6^2^.661^2.355^^0^0^.317
+53 ;;^UTILITY(U,$J,112,2316,2)
+54 ;;=.085^14.933^1.392^.256^125.9^0^16.996^.01^0^7.555^22.073^17.008^0^3.72
+55 ;;^UTILITY(U,$J,112,2316,3)
+56 ;;=.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
+57 ;;^UTILITY(U,$J,112,2316,4)
+58 ;;=^^.028^5.609^.044^1.273^21.509
+59 ;;^UTILITY(U,$J,112,2316,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2317,0)
+62 ;;=PEANUT BUTTER, CHUNK STYLE, WO/SALT^16-397^tbsp.^16^100^N
+63 ;;^UTILITY(U,$J,112,2317,1)
+64 ;;=24.05^49.94^21.59^589^1.13^^^41^1.9^159^317^747^17^2.78^.515^1.865^^0^0^.125
+65 ;;^UTILITY(U,$J,112,2317,2)
+66 ;;=.112^13.689^.964^.45^92^0^14.085^.078^0^9.58^23.56^14.35^0^3.3^^^6.6
+67 ;;^UTILITY(U,$J,112,2317,3)
+68 ;;=.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
+69 ;;^UTILITY(U,$J,112,2317,4)
+70 ;;=^.022^.05^5.496^^2.141^22.943^.187
+71 ;;^UTILITY(U,$J,112,2317,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2318,0)
+74 ;;=PEANUT BUTTER, SMOOTH STYLE, WO/SALT^16-398^tbsp.^16^100^N
+75 ;;^UTILITY(U,$J,112,2318,1)
+76 ;;=24.59^49.98^20.71^588^1.42^^^34^1.67^157^323^721^17^2.51^.556^1.536^^0^0^.136
+77 ;;^UTILITY(U,$J,112,2318,2)
+78 ;;=.099^13.09^.92^.378^78.2^0^14.098^.078^0^9.589^23.582^14.364^0^3.29
+79 ;;^UTILITY(U,$J,112,2318,3)
+80 ;;=.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
+81 ;;^UTILITY(U,$J,112,2318,4)
+82 ;;=^.022^.05^5.501^^2.143^22.964^.187
+83 ;;^UTILITY(U,$J,112,2318,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,2319,0)
+86 ;;=SOYBEANS, BOILED, W/SALT^16-409^cups^172^100^N
+87 ;;^UTILITY(U,$J,112,2319,1)
+88 ;;=16.64^8.97^9.92^173^62.55^^^102^5.14^86^245^515^237^1.15^.407^.824^^9^1.7^.155
+89 ;;^UTILITY(U,$J,112,2319,2)
+90 ;;=.285^.399^.179^.234^53.8^0^4.465^.598^0^1.297^1.981^5.064^1^1.91
+91 ;;^UTILITY(U,$J,112,2319,3)
+92 ;;=.242^.723^.807^1.355^1.108^.224^.268^.869^.63^.831^1.291^.449^.784^2.093^3.224^.77^.974^.965
+93 ;;^UTILITY(U,$J,112,2319,4)
+94 ;;=^^.025^.952^.025^.32^1.956
+95 ;;^UTILITY(U,$J,112,2319,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,2320,0)
+98 ;;=ACEROLA JUICE, RAW^9-002^floz.^30.2^100^N
+99 ;;^UTILITY(U,$J,112,2320,1)
+100 ;;=.4^.3^4.8^21^94.3^^^10^.5^12^9^97^3^^^^^509^1600^.02
