FHINI08H ; ; 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,2936,3)
;;=.031^.081^.105^.196^.075^.052^.054^.131^.09^.137^.166^.057^.12^.187^.657^.102^.181^.128
;;^UTILITY(U,$J,112,2936,4)
;;=^^.007^.371^.001^.161^1.118
;;^UTILITY(U,$J,112,2936,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2937,0)
;;=RYE FLOUR, DARK^20-063^cups^128^100^N
;;^UTILITY(U,$J,112,2937,1)
;;=14.03^2.69^68.74^324^11.07^^^56^6.45^248^632^730^1^5.62^.75^6.73^1.41^0^0^.316
;;^UTILITY(U,$J,112,2937,2)
;;=.251^4.27^1.456^.443^60^0^1.031^.169^0^.309^.326^1.2^0^3.47^^^22.6
;;^UTILITY(U,$J,112,2937,3)
;;=.159^.486^.541^.97^.486^.209^.277^.71^.277^.703^.635^.313^.58^.965^3.915^.534^1.501^.763
;;^UTILITY(U,$J,112,2937,4)
;;=^^.003^.292^.011^.01^.301
;;^UTILITY(U,$J,112,2937,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2938,0)
;;=RYE FLOUR, LIGHT^20-065^cups^102^100^N
;;^UTILITY(U,$J,112,2938,1)
;;=8.39^1.36^80.23^367^8.78^^^21^1.8^70^194^233^2^1.75^.25^1.97^.43^0^0^.331
;;^UTILITY(U,$J,112,2938,2)
;;=.09^.8^.665^.234^22^0^.485^.08^0^.145^.153^.565^0^1.24^^^14.6
;;^UTILITY(U,$J,112,2938,3)
;;=.095^.291^.324^.58^.291^.125^.165^.424^.165^.42^.38^.187^.347^.577^2.34^.319^.898^.456
;;^UTILITY(U,$J,112,2938,4)
;;=^^.001^.137^.005^.005^.142
;;^UTILITY(U,$J,112,2938,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2939,0)
;;=SABLEFISH, SMOKED^15-075^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2939,1)
;;=17.65^20.14^0^257^60.14^^^50^1.69^74^222^471^737^.43^.036^.02^^408^0^.13
;;^UTILITY(U,$J,112,2939,2)
;;=.12^5.3^.99^.39^19.7^2^.217^.125^64^4.213^10.605^2.688^122^1.38^^^0
;;^UTILITY(U,$J,112,2939,3)
;;=.198^.774^.814^1.435^1.622^.523^.189^.689^.596^.91^1.057^.52^1.068^1.808^2.636^.848^.624^.72
;;^UTILITY(U,$J,112,2939,4)
;;=^.012^.946^2.703^1.609^.537^5.361^.137
;;^UTILITY(U,$J,112,2939,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2940,0)
;;=SALAD DRESSING, MAYONNAISE, IMITATION, MILK CREAM^4-028^cups^240^100^N
;;^UTILITY(U,$J,112,2940,1)
;;=2.1^5.1^11.1^96.6^79.6^^^72^.5^7^57^97^504^.25^^^.4^13^.346^.024
;;^UTILITY(U,$J,112,2940,2)
;;=.097^.054^.194^.021^2.88^.234^.2^.1^43^2.8^1.7^.3^3^2.1^^^0^5
;;^UTILITY(U,$J,112,2940,3)
;;=.03^.095^.127^.206^.166^.053^.019^.101^.101^.141^.076^.057^.072^.159^.439^.049^.203^.114
;;^UTILITY(U,$J,112,2940,4)
;;=0^.1^.4^1.2^0^1^1.7^0
;;^UTILITY(U,$J,112,2940,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2941,0)
;;=SALAD DRESSING, IMITATION MAYONNAISE, SOYBEAN WO/CHOLESTEROL^4-029^cups^225^100^N
;;^UTILITY(U,$J,112,2941,1)
;;=.1^47.7^15.8^481.9^34.6^^^.02^.01^.01^.12^10^353^.11^^^5^0^0^0
;;^UTILITY(U,$J,112,2941,2)
;;=0^0^0^0^0^0^23^4.6^0^7.5^10.5^27.6^0^1.8^^^0^44
;;^UTILITY(U,$J,112,2941,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,2941,4)
;;=0^0^0^5.5^0^2^10.5^0
;;^UTILITY(U,$J,112,2941,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2942,0)
;;=SALAMI, TURKEY, COOKED^7-070^slices^28.3^100^N
;;^UTILITY(U,$J,112,2942,1)
;;=16.37^13.8^.55^196^65.86^^^20^1.61^15^106^244^1004^1.81^.05^.012^^0^0^.065
;;^UTILITY(U,$J,112,2942,2)
;;=.175^3.527^.51^.24^4^.21^2.93^.16^82^4.02^4.55^3.52^0^3.42^^^0
;;^UTILITY(U,$J,112,2942,3)
;;=.181^.711^.818^1.267^1.482^.457^.184^.638^.619^.849^1.15^.489^1.039^1.57^2.603^.983^.758^.719
;;^UTILITY(U,$J,112,2942,4)
;;=0^.02^.1^2.46^.75^.99^3.69^.28
;;^UTILITY(U,$J,112,2942,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2943,0)
;;=SALMON, CHINOOK, SMOKED, (LOX), REGULAR^15-179^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2943,1)
;;=18.28^4.32^0^117^72^^^11^.85^18^164^175^2000^.31^.23^.017^^88^0^.023
;;^UTILITY(U,$J,112,2943,2)
;;=.101^4.72^.87^.278^1.9^3.26^.472^^23^.929^2.023^.995^26^2.62^^^0
;;^UTILITY(U,$J,112,2943,3)
;;=.205^.801^.842^1.486^1.679^.541^.196^.714^.617^.942^1.094^.538^1.106^1.872^2.729^.878^.646^.746
;;^UTILITY(U,$J,112,2943,4)
;;=^^.183^.56^.305^.186^.949
;;^UTILITY(U,$J,112,2943,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2944,0)
;;=SALMON, CHUM, CANNED, WO/SALT, DRAINED SOLIDS WITH BONE^15-180^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2944,1)
;;=21.43^5.5^0^141^70.77^^^249^.7^30^354^300^75^1^.1^.02^^61^0^.02
;;^UTILITY(U,$J,112,2944,2)
;;=.16^7^.56^.38^20^4.4^.057^.049^39^1.486^1.919^1.517^18^2.47^^^0
;;^UTILITY(U,$J,112,2944,3)
;;=.24^.94^.988^1.742^1.968^.634^.23^.837^.724^1.104^1.282^.631^1.296^2.195^3.199^1.029^.758^.874
;;^UTILITY(U,$J,112,2944,4)
;;=^^.482^.816^.237^.188^1.159^.073
;;^UTILITY(U,$J,112,2944,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2945,0)
;;=SALMON, CHUM, DRAINED SOLIDS WITH BONE^15-080^oz.^28.3^100^N
FHINI08H ; ; 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,2936,3)
+2 ;;=.031^.081^.105^.196^.075^.052^.054^.131^.09^.137^.166^.057^.12^.187^.657^.102^.181^.128
+3 ;;^UTILITY(U,$J,112,2936,4)
+4 ;;=^^.007^.371^.001^.161^1.118
+5 ;;^UTILITY(U,$J,112,2936,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2937,0)
+8 ;;=RYE FLOUR, DARK^20-063^cups^128^100^N
+9 ;;^UTILITY(U,$J,112,2937,1)
+10 ;;=14.03^2.69^68.74^324^11.07^^^56^6.45^248^632^730^1^5.62^.75^6.73^1.41^0^0^.316
+11 ;;^UTILITY(U,$J,112,2937,2)
+12 ;;=.251^4.27^1.456^.443^60^0^1.031^.169^0^.309^.326^1.2^0^3.47^^^22.6
+13 ;;^UTILITY(U,$J,112,2937,3)
+14 ;;=.159^.486^.541^.97^.486^.209^.277^.71^.277^.703^.635^.313^.58^.965^3.915^.534^1.501^.763
+15 ;;^UTILITY(U,$J,112,2937,4)
+16 ;;=^^.003^.292^.011^.01^.301
+17 ;;^UTILITY(U,$J,112,2937,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2938,0)
+20 ;;=RYE FLOUR, LIGHT^20-065^cups^102^100^N
+21 ;;^UTILITY(U,$J,112,2938,1)
+22 ;;=8.39^1.36^80.23^367^8.78^^^21^1.8^70^194^233^2^1.75^.25^1.97^.43^0^0^.331
+23 ;;^UTILITY(U,$J,112,2938,2)
+24 ;;=.09^.8^.665^.234^22^0^.485^.08^0^.145^.153^.565^0^1.24^^^14.6
+25 ;;^UTILITY(U,$J,112,2938,3)
+26 ;;=.095^.291^.324^.58^.291^.125^.165^.424^.165^.42^.38^.187^.347^.577^2.34^.319^.898^.456
+27 ;;^UTILITY(U,$J,112,2938,4)
+28 ;;=^^.001^.137^.005^.005^.142
+29 ;;^UTILITY(U,$J,112,2938,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2939,0)
+32 ;;=SABLEFISH, SMOKED^15-075^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,2939,1)
+34 ;;=17.65^20.14^0^257^60.14^^^50^1.69^74^222^471^737^.43^.036^.02^^408^0^.13
+35 ;;^UTILITY(U,$J,112,2939,2)
+36 ;;=.12^5.3^.99^.39^19.7^2^.217^.125^64^4.213^10.605^2.688^122^1.38^^^0
+37 ;;^UTILITY(U,$J,112,2939,3)
+38 ;;=.198^.774^.814^1.435^1.622^.523^.189^.689^.596^.91^1.057^.52^1.068^1.808^2.636^.848^.624^.72
+39 ;;^UTILITY(U,$J,112,2939,4)
+40 ;;=^.012^.946^2.703^1.609^.537^5.361^.137
+41 ;;^UTILITY(U,$J,112,2939,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2940,0)
+44 ;;=SALAD DRESSING, MAYONNAISE, IMITATION, MILK CREAM^4-028^cups^240^100^N
+45 ;;^UTILITY(U,$J,112,2940,1)
+46 ;;=2.1^5.1^11.1^96.6^79.6^^^72^.5^7^57^97^504^.25^^^.4^13^.346^.024
+47 ;;^UTILITY(U,$J,112,2940,2)
+48 ;;=.097^.054^.194^.021^2.88^.234^.2^.1^43^2.8^1.7^.3^3^2.1^^^0^5
+49 ;;^UTILITY(U,$J,112,2940,3)
+50 ;;=.03^.095^.127^.206^.166^.053^.019^.101^.101^.141^.076^.057^.072^.159^.439^.049^.203^.114
+51 ;;^UTILITY(U,$J,112,2940,4)
+52 ;;=0^.1^.4^1.2^0^1^1.7^0
+53 ;;^UTILITY(U,$J,112,2940,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2941,0)
+56 ;;=SALAD DRESSING, IMITATION MAYONNAISE, SOYBEAN WO/CHOLESTEROL^4-029^cups^225^100^N
+57 ;;^UTILITY(U,$J,112,2941,1)
+58 ;;=.1^47.7^15.8^481.9^34.6^^^.02^.01^.01^.12^10^353^.11^^^5^0^0^0
+59 ;;^UTILITY(U,$J,112,2941,2)
+60 ;;=0^0^0^0^0^0^23^4.6^0^7.5^10.5^27.6^0^1.8^^^0^44
+61 ;;^UTILITY(U,$J,112,2941,3)
+62 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+63 ;;^UTILITY(U,$J,112,2941,4)
+64 ;;=0^0^0^5.5^0^2^10.5^0
+65 ;;^UTILITY(U,$J,112,2941,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2942,0)
+68 ;;=SALAMI, TURKEY, COOKED^7-070^slices^28.3^100^N
+69 ;;^UTILITY(U,$J,112,2942,1)
+70 ;;=16.37^13.8^.55^196^65.86^^^20^1.61^15^106^244^1004^1.81^.05^.012^^0^0^.065
+71 ;;^UTILITY(U,$J,112,2942,2)
+72 ;;=.175^3.527^.51^.24^4^.21^2.93^.16^82^4.02^4.55^3.52^0^3.42^^^0
+73 ;;^UTILITY(U,$J,112,2942,3)
+74 ;;=.181^.711^.818^1.267^1.482^.457^.184^.638^.619^.849^1.15^.489^1.039^1.57^2.603^.983^.758^.719
+75 ;;^UTILITY(U,$J,112,2942,4)
+76 ;;=0^.02^.1^2.46^.75^.99^3.69^.28
+77 ;;^UTILITY(U,$J,112,2942,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2943,0)
+80 ;;=SALMON, CHINOOK, SMOKED, (LOX), REGULAR^15-179^oz.^28.3^100^N
+81 ;;^UTILITY(U,$J,112,2943,1)
+82 ;;=18.28^4.32^0^117^72^^^11^.85^18^164^175^2000^.31^.23^.017^^88^0^.023
+83 ;;^UTILITY(U,$J,112,2943,2)
+84 ;;=.101^4.72^.87^.278^1.9^3.26^.472^^23^.929^2.023^.995^26^2.62^^^0
+85 ;;^UTILITY(U,$J,112,2943,3)
+86 ;;=.205^.801^.842^1.486^1.679^.541^.196^.714^.617^.942^1.094^.538^1.106^1.872^2.729^.878^.646^.746
+87 ;;^UTILITY(U,$J,112,2943,4)
+88 ;;=^^.183^.56^.305^.186^.949
+89 ;;^UTILITY(U,$J,112,2943,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2944,0)
+92 ;;=SALMON, CHUM, CANNED, WO/SALT, DRAINED SOLIDS WITH BONE^15-180^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,2944,1)
+94 ;;=21.43^5.5^0^141^70.77^^^249^.7^30^354^300^75^1^.1^.02^^61^0^.02
+95 ;;^UTILITY(U,$J,112,2944,2)
+96 ;;=.16^7^.56^.38^20^4.4^.057^.049^39^1.486^1.919^1.517^18^2.47^^^0
+97 ;;^UTILITY(U,$J,112,2944,3)
+98 ;;=.24^.94^.988^1.742^1.968^.634^.23^.837^.724^1.104^1.282^.631^1.296^2.195^3.199^1.029^.758^.874
+99 ;;^UTILITY(U,$J,112,2944,4)
+100 ;;=^^.482^.816^.237^.188^1.159^.073
+101 ;;^UTILITY(U,$J,112,2944,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,2945,0)
+104 ;;=SALMON, CHUM, DRAINED SOLIDS WITH BONE^15-080^oz.^28.3^100^N
