FHINI089 ; ; 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,2863,2)
;;=.106^.922^1.774^.195^40.7^0^15.264^.647^0^5.175^40.265^15.993^13^4^^^6.5
;;^UTILITY(U,$J,112,2863,3)
;;=.205^.26^.331^.535^.301^.191^.215^.421^.292^.397^1.137^.233^.347^.728^1.59^.388^.37^.387
;;^UTILITY(U,$J,112,2863,4)
;;=^^^3.951^.296^.957^39.321
;;^UTILITY(U,$J,112,2863,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2864,0)
;;=PECANS, DRY ROASTED, WO/SALT ADDED^12-143^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2864,1)
;;=7.97^64.6^22.33^659^1.1^^^35^2.18^133^304^370^1^5.68^1.236^4.706^^133^2^.317
;;^UTILITY(U,$J,112,2864,2)
;;=.106^.922^1.774^.195^40.7^0^15.264^.647^0^5.175^40.265^15.993^13^4
;;^UTILITY(U,$J,112,2864,3)
;;=.205^.26^.331^.535^.301^.191^.215^.421^.292^.397^1.137^.233^.347^.728^1.59^.388^.37^.387
;;^UTILITY(U,$J,112,2864,4)
;;=^^^3.951^.296^.957^39.321
;;^UTILITY(U,$J,112,2864,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2865,0)
;;=PECANS, OIL ROASTED, W/SALT ADDED^12-644^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2865,1)
;;=6.95^71.2^16.05^685^4.2^^^34^2.11^129^294^359^756^5.5^1.197^4.558^^129^2^.307
;;^UTILITY(U,$J,112,2865,2)
;;=.103^.893^1.718^.189^39.4^0^16.824^.713^0^5.704^44.379^17.627^13^1.6^^^6.5
;;^UTILITY(U,$J,112,2865,3)
;;=.178^.227^.289^.467^.262^.167^.188^.367^.255^.346^.992^.203^.303^.635^1.387^.338^.323^.337
;;^UTILITY(U,$J,112,2865,4)
;;=^^^4.355^.326^1.055^43.338
;;^UTILITY(U,$J,112,2865,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2866,0)
;;=PECANS, OIL ROASTED, WO/SALT ADDED^12-144^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2866,1)
;;=6.95^71.2^16.05^685^4.2^^^34^2.11^129^294^359^1^5.5^1.197^4.558^^129^2^.307
;;^UTILITY(U,$J,112,2866,2)
;;=.103^.893^1.718^.189^39.4^0^16.824^.713^0^5.704^44.379^17.627^13^1.6
;;^UTILITY(U,$J,112,2866,3)
;;=.178^.227^.289^.467^.262^.167^.188^.367^.255^.346^.992^.203^.303^.635^1.387^.338^.323^.337
;;^UTILITY(U,$J,112,2866,4)
;;=^^^4.355^.326^1.055^43.338
;;^UTILITY(U,$J,112,2866,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2867,0)
;;=PINE NUTS, PIGNOLIA, DRIED^12-147^oz.^28.3^77^N
;;^UTILITY(U,$J,112,2867,1)
;;=24^50.7^14.22^515^6.69^^^26^9.2^233^508^599^4^4.25^1.026^4.298^^29^1.9^.81
;;^UTILITY(U,$J,112,2867,2)
;;=.19^3.57^.208^.11^57.3^0^20.689^.654^0^7.797^19.076^21.343^3^4.4^^^4.5
;;^UTILITY(U,$J,112,2867,3)
;;=.303^.761^.933^1.73^.901^.43^.435^.919^.878^1.241^4.668^.575^1.254^2.187^4.084^1.223^1.29^1.019
;;^UTILITY(U,$J,112,2867,4)
;;=^^^3.672^.208^1.672^17.9
;;^UTILITY(U,$J,112,2867,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2868,0)
;;=PINE NUTS, PINYON, DRIED^12-149^oz.^28.3^57^N
;;^UTILITY(U,$J,112,2868,1)
;;=11.57^60.98^19.3^568^5.9^^^8^3.06^234^35^628^72^4.28^1.035^4.333^^29^2^1.243
;;^UTILITY(U,$J,112,2868,2)
;;=.223^4.37^.21^.111^57.8^0^24.882^.787^0^9.377^22.942^25.668^3^2.26^^^10.7
;;^UTILITY(U,$J,112,2868,3)
;;=.146^.367^.45^.834^.434^.207^.21^.443^.424^.598^2.251^.277^.605^1.054^1.969^.589^.622^.491
;;^UTILITY(U,$J,112,2868,4)
;;=^^^4.416^.25^2.011^21.528
;;^UTILITY(U,$J,112,2868,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2869,0)
;;=OAT BRAN, COOKED^20-034^cups^220^100^N
;;^UTILITY(U,$J,112,2869,1)
;;=3.21^.86^11.44^40^84^^^10^.88^40^119^92^1^.53^.066^.964^^0^0^.16
;;^UTILITY(U,$J,112,2869,2)
;;=.034^.144^.217^.025^6^0^.324^.015^^.163^.291^.339^0^.49^^^1.8
;;^UTILITY(U,$J,112,2869,3)
;;=.057^.086^.114^.235^.13^.057^.099^.155^.114^.165^.219^.07^.149^.27^.642^.162^.168^.152
;;^UTILITY(U,$J,112,2869,4)
;;=^.003^.002^.138^.002^.009^.29
;;^UTILITY(U,$J,112,2869,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2870,0)
;;=OAT BRAN, RAW^20-033^cups^93^100^N
;;^UTILITY(U,$J,112,2870,1)
;;=17.3^7.03^66.22^246^6.55^^^58^5.41^235^734^566^4^3.11^.403^5.63^^0^0^1.17
;;^UTILITY(U,$J,112,2870,2)
;;=.22^.934^1.494^.165^52^0^2.645^.121^0^1.328^2.376^2.766^0^2.89^^^14.4
;;^UTILITY(U,$J,112,2870,3)
;;=.335^.502^.668^1.374^.76^.335^.576^.908^.668^.964^1.279^.41^.872^1.576^3.748^.947^.982^.89
;;^UTILITY(U,$J,112,2870,4)
;;=^.026^.016^1.128^.014^.071^2.362^^^45.2
;;^UTILITY(U,$J,112,2870,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2871,0)
;;=OATS^20-038^cups^156^100^N
;;^UTILITY(U,$J,112,2871,1)
;;=16.89^6.9^66.27^389^8.22^^^54^4.72^177^523^429^2^3.97^.626^4.916^1.09^0^0^.763
;;^UTILITY(U,$J,112,2871,2)
;;=.139^.961^1.349^.119^56^0^2.424^.111^0^1.217^2.178^2.535^0^1.72
;;^UTILITY(U,$J,112,2871,3)
;;=.234^.575^.694^1.284^.701^.312^.408^.895^.573^.937^1.192^.405^.881^1.448^3.712^.841^.934^.75
FHINI089 ; ; 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,2863,2)
+2 ;;=.106^.922^1.774^.195^40.7^0^15.264^.647^0^5.175^40.265^15.993^13^4^^^6.5
+3 ;;^UTILITY(U,$J,112,2863,3)
+4 ;;=.205^.26^.331^.535^.301^.191^.215^.421^.292^.397^1.137^.233^.347^.728^1.59^.388^.37^.387
+5 ;;^UTILITY(U,$J,112,2863,4)
+6 ;;=^^^3.951^.296^.957^39.321
+7 ;;^UTILITY(U,$J,112,2863,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2864,0)
+10 ;;=PECANS, DRY ROASTED, WO/SALT ADDED^12-143^oz.^28.3^100^N
+11 ;;^UTILITY(U,$J,112,2864,1)
+12 ;;=7.97^64.6^22.33^659^1.1^^^35^2.18^133^304^370^1^5.68^1.236^4.706^^133^2^.317
+13 ;;^UTILITY(U,$J,112,2864,2)
+14 ;;=.106^.922^1.774^.195^40.7^0^15.264^.647^0^5.175^40.265^15.993^13^4
+15 ;;^UTILITY(U,$J,112,2864,3)
+16 ;;=.205^.26^.331^.535^.301^.191^.215^.421^.292^.397^1.137^.233^.347^.728^1.59^.388^.37^.387
+17 ;;^UTILITY(U,$J,112,2864,4)
+18 ;;=^^^3.951^.296^.957^39.321
+19 ;;^UTILITY(U,$J,112,2864,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2865,0)
+22 ;;=PECANS, OIL ROASTED, W/SALT ADDED^12-644^oz.^28.3^100^N
+23 ;;^UTILITY(U,$J,112,2865,1)
+24 ;;=6.95^71.2^16.05^685^4.2^^^34^2.11^129^294^359^756^5.5^1.197^4.558^^129^2^.307
+25 ;;^UTILITY(U,$J,112,2865,2)
+26 ;;=.103^.893^1.718^.189^39.4^0^16.824^.713^0^5.704^44.379^17.627^13^1.6^^^6.5
+27 ;;^UTILITY(U,$J,112,2865,3)
+28 ;;=.178^.227^.289^.467^.262^.167^.188^.367^.255^.346^.992^.203^.303^.635^1.387^.338^.323^.337
+29 ;;^UTILITY(U,$J,112,2865,4)
+30 ;;=^^^4.355^.326^1.055^43.338
+31 ;;^UTILITY(U,$J,112,2865,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2866,0)
+34 ;;=PECANS, OIL ROASTED, WO/SALT ADDED^12-144^oz.^28.3^100^N
+35 ;;^UTILITY(U,$J,112,2866,1)
+36 ;;=6.95^71.2^16.05^685^4.2^^^34^2.11^129^294^359^1^5.5^1.197^4.558^^129^2^.307
+37 ;;^UTILITY(U,$J,112,2866,2)
+38 ;;=.103^.893^1.718^.189^39.4^0^16.824^.713^0^5.704^44.379^17.627^13^1.6
+39 ;;^UTILITY(U,$J,112,2866,3)
+40 ;;=.178^.227^.289^.467^.262^.167^.188^.367^.255^.346^.992^.203^.303^.635^1.387^.338^.323^.337
+41 ;;^UTILITY(U,$J,112,2866,4)
+42 ;;=^^^4.355^.326^1.055^43.338
+43 ;;^UTILITY(U,$J,112,2866,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2867,0)
+46 ;;=PINE NUTS, PIGNOLIA, DRIED^12-147^oz.^28.3^77^N
+47 ;;^UTILITY(U,$J,112,2867,1)
+48 ;;=24^50.7^14.22^515^6.69^^^26^9.2^233^508^599^4^4.25^1.026^4.298^^29^1.9^.81
+49 ;;^UTILITY(U,$J,112,2867,2)
+50 ;;=.19^3.57^.208^.11^57.3^0^20.689^.654^0^7.797^19.076^21.343^3^4.4^^^4.5
+51 ;;^UTILITY(U,$J,112,2867,3)
+52 ;;=.303^.761^.933^1.73^.901^.43^.435^.919^.878^1.241^4.668^.575^1.254^2.187^4.084^1.223^1.29^1.019
+53 ;;^UTILITY(U,$J,112,2867,4)
+54 ;;=^^^3.672^.208^1.672^17.9
+55 ;;^UTILITY(U,$J,112,2867,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2868,0)
+58 ;;=PINE NUTS, PINYON, DRIED^12-149^oz.^28.3^57^N
+59 ;;^UTILITY(U,$J,112,2868,1)
+60 ;;=11.57^60.98^19.3^568^5.9^^^8^3.06^234^35^628^72^4.28^1.035^4.333^^29^2^1.243
+61 ;;^UTILITY(U,$J,112,2868,2)
+62 ;;=.223^4.37^.21^.111^57.8^0^24.882^.787^0^9.377^22.942^25.668^3^2.26^^^10.7
+63 ;;^UTILITY(U,$J,112,2868,3)
+64 ;;=.146^.367^.45^.834^.434^.207^.21^.443^.424^.598^2.251^.277^.605^1.054^1.969^.589^.622^.491
+65 ;;^UTILITY(U,$J,112,2868,4)
+66 ;;=^^^4.416^.25^2.011^21.528
+67 ;;^UTILITY(U,$J,112,2868,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2869,0)
+70 ;;=OAT BRAN, COOKED^20-034^cups^220^100^N
+71 ;;^UTILITY(U,$J,112,2869,1)
+72 ;;=3.21^.86^11.44^40^84^^^10^.88^40^119^92^1^.53^.066^.964^^0^0^.16
+73 ;;^UTILITY(U,$J,112,2869,2)
+74 ;;=.034^.144^.217^.025^6^0^.324^.015^^.163^.291^.339^0^.49^^^1.8
+75 ;;^UTILITY(U,$J,112,2869,3)
+76 ;;=.057^.086^.114^.235^.13^.057^.099^.155^.114^.165^.219^.07^.149^.27^.642^.162^.168^.152
+77 ;;^UTILITY(U,$J,112,2869,4)
+78 ;;=^.003^.002^.138^.002^.009^.29
+79 ;;^UTILITY(U,$J,112,2869,20)
+80 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+81 ;;^UTILITY(U,$J,112,2870,0)
+82 ;;=OAT BRAN, RAW^20-033^cups^93^100^N
+83 ;;^UTILITY(U,$J,112,2870,1)
+84 ;;=17.3^7.03^66.22^246^6.55^^^58^5.41^235^734^566^4^3.11^.403^5.63^^0^0^1.17
+85 ;;^UTILITY(U,$J,112,2870,2)
+86 ;;=.22^.934^1.494^.165^52^0^2.645^.121^0^1.328^2.376^2.766^0^2.89^^^14.4
+87 ;;^UTILITY(U,$J,112,2870,3)
+88 ;;=.335^.502^.668^1.374^.76^.335^.576^.908^.668^.964^1.279^.41^.872^1.576^3.748^.947^.982^.89
+89 ;;^UTILITY(U,$J,112,2870,4)
+90 ;;=^.026^.016^1.128^.014^.071^2.362^^^45.2
+91 ;;^UTILITY(U,$J,112,2870,20)
+92 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+93 ;;^UTILITY(U,$J,112,2871,0)
+94 ;;=OATS^20-038^cups^156^100^N
+95 ;;^UTILITY(U,$J,112,2871,1)
+96 ;;=16.89^6.9^66.27^389^8.22^^^54^4.72^177^523^429^2^3.97^.626^4.916^1.09^0^0^.763
+97 ;;^UTILITY(U,$J,112,2871,2)
+98 ;;=.139^.961^1.349^.119^56^0^2.424^.111^0^1.217^2.178^2.535^0^1.72
+99 ;;^UTILITY(U,$J,112,2871,3)
+100 ;;=.234^.575^.694^1.284^.701^.312^.408^.895^.573^.937^1.192^.405^.881^1.448^3.712^.841^.934^.75