FHINI08J ; ; 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,2954,3)
;;=.162^.664^.785^1.28^1.447^.352^.281^.623^.613^.871^1.13^.495^.984^1.602^2.161^1.203^.891^.645
;;^UTILITY(U,$J,112,2954,4)
;;=.02^.02^.3^4.63^.83^2.65^9.11^0
;;^UTILITY(U,$J,112,2954,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2955,0)
;;=SAUSAGE, MEATLESS^16-107^links^25^100^N
;;^UTILITY(U,$J,112,2955,1)
;;=18.53^18.16^9.85^256^50.4^^^63^3.72^36^225^231^888^1.46^.25^.725^^640^0^2.343
;;^UTILITY(U,$J,112,2955,2)
;;=.402^11.195^.323^.828^26^0^8.209^1.07^0^2.926^4.498^9.279^64^3.07^^^2.8
;;^UTILITY(U,$J,112,2955,3)
;;=.279^.785^.97^1.587^1.262^.253^.305^1.061^.694^1.029^1.519^.519^.853^2.307^4.215^.821^1.116^1.087
;;^UTILITY(U,$J,112,2955,4)
;;=^.217^.067^1.856^^.786^4.498
;;^UTILITY(U,$J,112,2955,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2956,0)
;;=SAUSAGE, PEPPERONI^7-057^oz.^25.3^100^N
;;^UTILITY(U,$J,112,2956,1)
;;=20.97^43.97^2.84^497^27.06^^^10^1.4^16^119^347^2040^2.5^.07^.038^^0^0^.32
;;^UTILITY(U,$J,112,2956,2)
;;=.25^4.96^1.87^.25^4^2.51^3.74^.41^79^16.13^21.11^4.37^0^5.17^^^0
;;^UTILITY(U,$J,112,2956,3)
;;=.2^.848^.908^1.578^1.635^.536^.247^.785^.669^.978^1.346^.664^1.403^1.97^3.245^1.577^1.225^.86
;;^UTILITY(U,$J,112,2956,4)
;;=0^0^.86^10.29^1.77^4.69^18.92^.14
;;^UTILITY(U,$J,112,2956,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2957,0)
;;=SAUSAGE, THURINGER^7-078^slices^23^100^N
;;^UTILITY(U,$J,112,2957,1)
;;=15.78^29.54^.26^335^50.76^^^13^2.54^14^111^271^1242^2.56^.15^.049^^0^20^.15
;;^UTILITY(U,$J,112,2957,2)
;;=.33^4.31^.998^.26^2^5.5^.99^.21^75^12.03^12.97^1.2^0^3.66^^^0
;;^UTILITY(U,$J,112,2957,3)
;;=.144^.596^.682^1.159^1.209^.366^.202^.568^.515^.694^.975^.502^1.136^1.545^2.57^1.318^1.136^.636
;;^UTILITY(U,$J,112,2957,4)
;;=.11^.08^.8^6.35^1.76^4.17^11.21^0
;;^UTILITY(U,$J,112,2957,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2958,0)
;;=SAUSAGE, VIENNA, CND^7-083^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2958,1)
;;=10.29^25.2^2.04^279^59.93^^^10^.88^7^49^101^953^1.6^.03^.029^^0^0^.087
;;^UTILITY(U,$J,112,2958,2)
;;=.107^1.613^.35^.12^4^1.02^1.29^.39^52^9.28^12.55^1.68^0^2.53^^^0
;;^UTILITY(U,$J,112,2958,3)
;;=.109^.357^.557^.797^.791^.265^.175^.425^.341^.573^.707^.273^.651^1.005^1.304^1.013^.606^.432
;;^UTILITY(U,$J,112,2958,4)
;;=.03^.02^.59^5.44^1.52^3.2^11.02^0
;;^UTILITY(U,$J,112,2958,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2959,0)
;;=SCALLOP, IMITATION, MADE FROM SURIMI^15-174^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2959,1)
;;=12.77^.41^10.62^99^73.82^^^8^.31^43^282^103^795^.33^.032^.011^^66^0^.01
;;^UTILITY(U,$J,112,2959,2)
;;=.016^.31^.07^.03^1.6^1.6^^^22^.08^.06^.21^20^2.37^^^0
;;^UTILITY(U,$J,112,2959,3)
;;=.078^.617^.597^1.011^1.167^.433^.137^.501^.515^.648^.848^.294^.75^1.277^2.016^.494^.476^.558
;;^UTILITY(U,$J,112,2959,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2960,0)
;;=SEA BASS, COOKED, DRY HEAT^15-092^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2960,1)
;;=23.63^2.56^0^124^72.14^^^13^.37^53^248^328^87^.52^.024^.02^^213^0^.13
;;^UTILITY(U,$J,112,2960,2)
;;=.15^1.9^.87^.46^5.8^.3^.031^^53^.655^.544^.953^64^1.4^^^0
;;^UTILITY(U,$J,112,2960,3)
;;=.265^1.036^1.089^1.921^2.17^.699^.253^.923^.798^1.217^1.414^.696^1.429^2.42^3.528^1.134^.836^.964
;;^UTILITY(U,$J,112,2960,4)
;;=^^.063^.413^.167^.177^.377
;;^UTILITY(U,$J,112,2960,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2961,0)
;;=TURTLE, GREEN, CND^2361-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2961,1)
;;=23.4^.7^0^106^75^^^118^1.4^^180^230^68^^^^^100^0^.12
;;^UTILITY(U,$J,112,2961,2)
;;=.15^1.1^^^^^0^^50^0^^^^.9
;;^UTILITY(U,$J,112,2961,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2961,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2962,0)
;;=WHALE MEAT, RAW^2429-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2962,1)
;;=20.6^7.5^0^156^70.9^^^12^1^^144^22^78^^^^^1860^6^.09
;;^UTILITY(U,$J,112,2962,2)
;;=.08^8.2^^^^^.2^^50^1.3^4.1^1.6^^1
;;^UTILITY(U,$J,112,2962,4)
;;=^^^^^^1.2
;;^UTILITY(U,$J,112,2962,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2963,0)
;;=SEAWEED, AGAR, DRIED^11-663^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2963,1)
;;=6.21^.3^80.89^306^8.68^^^625^21.4^770^52^1125^102^5.8^.61^4.3^^0^0^.01
;;^UTILITY(U,$J,112,2963,2)
;;=.222^.202^3.018^.303^580.2^0^.004^.001^0^.061^.027^.102^0^3.93^^^7.7
;;^UTILITY(U,$J,112,2963,4)
;;=^^.003^.055^.009^.003^.009^.01
;;^UTILITY(U,$J,112,2963,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2964,0)
;;=SEAWEED, AGAR, RAW^11-442^oz.^28.3^100^N
FHINI08J ; ; 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,2954,3)
+2 ;;=.162^.664^.785^1.28^1.447^.352^.281^.623^.613^.871^1.13^.495^.984^1.602^2.161^1.203^.891^.645
+3 ;;^UTILITY(U,$J,112,2954,4)
+4 ;;=.02^.02^.3^4.63^.83^2.65^9.11^0
+5 ;;^UTILITY(U,$J,112,2954,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2955,0)
+8 ;;=SAUSAGE, MEATLESS^16-107^links^25^100^N
+9 ;;^UTILITY(U,$J,112,2955,1)
+10 ;;=18.53^18.16^9.85^256^50.4^^^63^3.72^36^225^231^888^1.46^.25^.725^^640^0^2.343
+11 ;;^UTILITY(U,$J,112,2955,2)
+12 ;;=.402^11.195^.323^.828^26^0^8.209^1.07^0^2.926^4.498^9.279^64^3.07^^^2.8
+13 ;;^UTILITY(U,$J,112,2955,3)
+14 ;;=.279^.785^.97^1.587^1.262^.253^.305^1.061^.694^1.029^1.519^.519^.853^2.307^4.215^.821^1.116^1.087
+15 ;;^UTILITY(U,$J,112,2955,4)
+16 ;;=^.217^.067^1.856^^.786^4.498
+17 ;;^UTILITY(U,$J,112,2955,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2956,0)
+20 ;;=SAUSAGE, PEPPERONI^7-057^oz.^25.3^100^N
+21 ;;^UTILITY(U,$J,112,2956,1)
+22 ;;=20.97^43.97^2.84^497^27.06^^^10^1.4^16^119^347^2040^2.5^.07^.038^^0^0^.32
+23 ;;^UTILITY(U,$J,112,2956,2)
+24 ;;=.25^4.96^1.87^.25^4^2.51^3.74^.41^79^16.13^21.11^4.37^0^5.17^^^0
+25 ;;^UTILITY(U,$J,112,2956,3)
+26 ;;=.2^.848^.908^1.578^1.635^.536^.247^.785^.669^.978^1.346^.664^1.403^1.97^3.245^1.577^1.225^.86
+27 ;;^UTILITY(U,$J,112,2956,4)
+28 ;;=0^0^.86^10.29^1.77^4.69^18.92^.14
+29 ;;^UTILITY(U,$J,112,2956,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2957,0)
+32 ;;=SAUSAGE, THURINGER^7-078^slices^23^100^N
+33 ;;^UTILITY(U,$J,112,2957,1)
+34 ;;=15.78^29.54^.26^335^50.76^^^13^2.54^14^111^271^1242^2.56^.15^.049^^0^20^.15
+35 ;;^UTILITY(U,$J,112,2957,2)
+36 ;;=.33^4.31^.998^.26^2^5.5^.99^.21^75^12.03^12.97^1.2^0^3.66^^^0
+37 ;;^UTILITY(U,$J,112,2957,3)
+38 ;;=.144^.596^.682^1.159^1.209^.366^.202^.568^.515^.694^.975^.502^1.136^1.545^2.57^1.318^1.136^.636
+39 ;;^UTILITY(U,$J,112,2957,4)
+40 ;;=.11^.08^.8^6.35^1.76^4.17^11.21^0
+41 ;;^UTILITY(U,$J,112,2957,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2958,0)
+44 ;;=SAUSAGE, VIENNA, CND^7-083^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,2958,1)
+46 ;;=10.29^25.2^2.04^279^59.93^^^10^.88^7^49^101^953^1.6^.03^.029^^0^0^.087
+47 ;;^UTILITY(U,$J,112,2958,2)
+48 ;;=.107^1.613^.35^.12^4^1.02^1.29^.39^52^9.28^12.55^1.68^0^2.53^^^0
+49 ;;^UTILITY(U,$J,112,2958,3)
+50 ;;=.109^.357^.557^.797^.791^.265^.175^.425^.341^.573^.707^.273^.651^1.005^1.304^1.013^.606^.432
+51 ;;^UTILITY(U,$J,112,2958,4)
+52 ;;=.03^.02^.59^5.44^1.52^3.2^11.02^0
+53 ;;^UTILITY(U,$J,112,2958,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2959,0)
+56 ;;=SCALLOP, IMITATION, MADE FROM SURIMI^15-174^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,2959,1)
+58 ;;=12.77^.41^10.62^99^73.82^^^8^.31^43^282^103^795^.33^.032^.011^^66^0^.01
+59 ;;^UTILITY(U,$J,112,2959,2)
+60 ;;=.016^.31^.07^.03^1.6^1.6^^^22^.08^.06^.21^20^2.37^^^0
+61 ;;^UTILITY(U,$J,112,2959,3)
+62 ;;=.078^.617^.597^1.011^1.167^.433^.137^.501^.515^.648^.848^.294^.75^1.277^2.016^.494^.476^.558
+63 ;;^UTILITY(U,$J,112,2959,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2960,0)
+66 ;;=SEA BASS, COOKED, DRY HEAT^15-092^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,2960,1)
+68 ;;=23.63^2.56^0^124^72.14^^^13^.37^53^248^328^87^.52^.024^.02^^213^0^.13
+69 ;;^UTILITY(U,$J,112,2960,2)
+70 ;;=.15^1.9^.87^.46^5.8^.3^.031^^53^.655^.544^.953^64^1.4^^^0
+71 ;;^UTILITY(U,$J,112,2960,3)
+72 ;;=.265^1.036^1.089^1.921^2.17^.699^.253^.923^.798^1.217^1.414^.696^1.429^2.42^3.528^1.134^.836^.964
+73 ;;^UTILITY(U,$J,112,2960,4)
+74 ;;=^^.063^.413^.167^.177^.377
+75 ;;^UTILITY(U,$J,112,2960,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2961,0)
+78 ;;=TURTLE, GREEN, CND^2361-0^oz.^28.3^100^N
+79 ;;^UTILITY(U,$J,112,2961,1)
+80 ;;=23.4^.7^0^106^75^^^118^1.4^^180^230^68^^^^^100^0^.12
+81 ;;^UTILITY(U,$J,112,2961,2)
+82 ;;=.15^1.1^^^^^0^^50^0^^^^.9
+83 ;;^UTILITY(U,$J,112,2961,4)
+84 ;;=^^^^^^0
+85 ;;^UTILITY(U,$J,112,2961,20)
+86 ;;=USDA Std. Reference, Release 8
+87 ;;^UTILITY(U,$J,112,2962,0)
+88 ;;=WHALE MEAT, RAW^2429-0^oz.^28.3^100^N
+89 ;;^UTILITY(U,$J,112,2962,1)
+90 ;;=20.6^7.5^0^156^70.9^^^12^1^^144^22^78^^^^^1860^6^.09
+91 ;;^UTILITY(U,$J,112,2962,2)
+92 ;;=.08^8.2^^^^^.2^^50^1.3^4.1^1.6^^1
+93 ;;^UTILITY(U,$J,112,2962,4)
+94 ;;=^^^^^^1.2
+95 ;;^UTILITY(U,$J,112,2962,20)
+96 ;;=USDA Std. Reference, Release 8
+97 ;;^UTILITY(U,$J,112,2963,0)
+98 ;;=SEAWEED, AGAR, DRIED^11-663^oz.^28.3^100^N
+99 ;;^UTILITY(U,$J,112,2963,1)
+100 ;;=6.21^.3^80.89^306^8.68^^^625^21.4^770^52^1125^102^5.8^.61^4.3^^0^0^.01
+101 ;;^UTILITY(U,$J,112,2963,2)
+102 ;;=.222^.202^3.018^.303^580.2^0^.004^.001^0^.061^.027^.102^0^3.93^^^7.7
+103 ;;^UTILITY(U,$J,112,2963,4)
+104 ;;=^^.003^.055^.009^.003^.009^.01
+105 ;;^UTILITY(U,$J,112,2963,20)
+106 ;;=USDA Std. Reference, Release 10
+107 ;;^UTILITY(U,$J,112,2964,0)
+108 ;;=SEAWEED, AGAR, RAW^11-442^oz.^28.3^100^N
