FHINI05F ; ; 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,1842,1)
;;=3.2^3.9^7.5^76^83.4^^^85^.4^^74^166^516^^^^^240^0^.04
;;^UTILITY(U,$J,112,1842,2)
;;=.11^.2^^^^^0^^13^2^^^^2
;;^UTILITY(U,$J,112,1842,4)
;;=^^^^^^1
;;^UTILITY(U,$J,112,1842,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1843,0)
;;=SOUP, CREAM OF SHRIMP, FRZ, PREP W/EQ VOL WATER^2130-0^cups^244^100^N
;;^UTILITY(U,$J,112,1843,1)
;;=2^5^3.5^66^88.3^^^16^.2^^20^24^430^^^^^50^0^.02
;;^UTILITY(U,$J,112,1843,2)
;;=.02^.2^^^^^0^^10^3^^^^1.2
;;^UTILITY(U,$J,112,1843,4)
;;=^^^^^^2
;;^UTILITY(U,$J,112,1843,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1845,0)
;;=SOUP, VEGETABLE W/BEEF, FRZ, PREP W/EQ VOL WATER^2133-0^cups^244^100^N
;;^UTILITY(U,$J,112,1845,1)
;;=2.7^1.2^3.4^35^91.4^^^11^.4^^32^72^396^^^^^1100^0^.02
;;^UTILITY(U,$J,112,1845,2)
;;=.04^.8^^^^^0^^12^0^^^^1.3
;;^UTILITY(U,$J,112,1845,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1845,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1846,0)
;;=SOYBEANS, BOILED WO/SALT^11-451^cups^94^100^N
;;^UTILITY(U,$J,112,1846,1)
;;=12.35^6.4^11.05^141^68.6^^^145^2.5^60^158^539^14^.91^.117^.502^^156^17^.26
;;^UTILITY(U,$J,112,1846,2)
;;=.155^1.25^.128^.06^111^0^2.657^.354^0^.74^1.209^3.011^16^1.6^^^4.2
;;^UTILITY(U,$J,112,1846,3)
;;=.15^.492^.543^.883^.739^.15^.113^.559^.443^.549^.994^.332^.555^1.439^2.32^.514^.579^.688
;;^UTILITY(U,$J,112,1846,4)
;;=^^.005^.537^.01^.198^1.188
;;^UTILITY(U,$J,112,1846,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1849,0)
;;=SOYBEAN SPROUTS, BOILED^2144-0^cups^125^100^N
;;^UTILITY(U,$J,112,1849,1)
;;=5.3^1.4^3.7^38^89^^^43^.7^^50^156^4^^^^^80^4^.16
;;^UTILITY(U,$J,112,1849,2)
;;=.15^.7^^^^^0^^0^0^^^^.6
;;^UTILITY(U,$J,112,1849,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1849,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1850,0)
;;=SOYBEAN CURD, (TOFU)^16-127^pieces^120^99^N
;;^UTILITY(U,$J,112,1850,1)
;;=8.08^4.78^1.88^76^84.55^^^105^5.36^103^97^121^7^.8^.193^.605^^85^.1^.081
;;^UTILITY(U,$J,112,1850,2)
;;=.052^.195^.068^.047^15^0^2.38^.319^0^.691^1.056^2.699^9^.72^^^1.2
;;^UTILITY(U,$J,112,1850,3)
;;=.126^.33^.4^.614^.532^.103^.112^.393^.27^.408^.538^.235^.331^.893^1.397^.316^.436^.381
;;^UTILITY(U,$J,112,1850,4)
;;=^^.013^.507^.013^.171^1.043^^2^8.9
;;^UTILITY(U,$J,112,1850,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1851,0)
;;=SOYBEAN MILK, FLUID^16-120^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1851,1)
;;=2.75^1.91^1.81^33^93.27^^^4^.58^19^49^141^12^.23^.12^.17^^32^0^.161
;;^UTILITY(U,$J,112,1851,2)
;;=.07^.147^.048^.041^1.5^0^.735^.098^0^.214^.326^.833^3^.27^^^1.3
;;^UTILITY(U,$J,112,1851,3)
;;=.043^.113^.144^.241^.179^.04^.047^.151^.112^.141^.214^.071^.122^.341^.55^.12^.162^.144
;;^UTILITY(U,$J,112,1851,4)
;;=^^.004^.157^.004^.053^.322^^3
;;^UTILITY(U,$J,112,1851,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1855,0)
;;=SPAGHETTI, ENR, DRY^20-120^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1855,1)
;;=12.78^1.58^74.69^371^10.25^^^18^3.86^48^150^162^7^1.21^.254^.694^^0^0^1.029
;;^UTILITY(U,$J,112,1855,2)
;;=.444^7.508^.431^.106^18^0^.591^.056^0^.225^.186^.647^0^.7^^^3.1
;;^UTILITY(U,$J,112,1855,3)
;;=.164^.338^.494^.874^.245^.199^.361^.621^.336^.545^.471^.259^.375^.522^4.609^.404^1.406^.602
;;^UTILITY(U,$J,112,1855,4)
;;=^^.003^.197^^.025^.186^^.2^62.2
;;^UTILITY(U,$J,112,1855,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1856,0)
;;=SPAGHETTI, ENR, FIRM STAGE, AL DENTE(8-10 MIN)^20-121^cups^130^294^N
;;^UTILITY(U,$J,112,1856,1)
;;=4.77^.67^28.34^141^65.99^^^7^1.4^18^54^31^1^.53^.098^.285^^^0^.204
;;^UTILITY(U,$J,112,1856,2)
;;=.098^1.672^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24^^^1.3
;;^UTILITY(U,$J,112,1856,3)
;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
;;^UTILITY(U,$J,112,1856,4)
;;=^^.001^.083^^.011^.079^^^21.3
;;^UTILITY(U,$J,112,1856,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1857,0)
;;=SPAGHETTI, COOKED, UNENRICHED, WITHOUT ADDED SALT^20-421^cups^140^294^N
;;^UTILITY(U,$J,112,1857,1)
;;=4.77^.67^28.34^141^65.99^^^7^.5^18^54^31^1^.53^.098^.285^^^0^.02
;;^UTILITY(U,$J,112,1857,2)
;;=.02^.4^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24
;;^UTILITY(U,$J,112,1857,3)
;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
;;^UTILITY(U,$J,112,1857,4)
;;=^^.001^.083^^.011^.079
;;^UTILITY(U,$J,112,1857,20)
;;=USDA Std. Reference, Release 10
FHINI05F ; ; 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,1842,1)
+2 ;;=3.2^3.9^7.5^76^83.4^^^85^.4^^74^166^516^^^^^240^0^.04
+3 ;;^UTILITY(U,$J,112,1842,2)
+4 ;;=.11^.2^^^^^0^^13^2^^^^2
+5 ;;^UTILITY(U,$J,112,1842,4)
+6 ;;=^^^^^^1
+7 ;;^UTILITY(U,$J,112,1842,20)
+8 ;;=USDA Std. Reference, Release 8
+9 ;;^UTILITY(U,$J,112,1843,0)
+10 ;;=SOUP, CREAM OF SHRIMP, FRZ, PREP W/EQ VOL WATER^2130-0^cups^244^100^N
+11 ;;^UTILITY(U,$J,112,1843,1)
+12 ;;=2^5^3.5^66^88.3^^^16^.2^^20^24^430^^^^^50^0^.02
+13 ;;^UTILITY(U,$J,112,1843,2)
+14 ;;=.02^.2^^^^^0^^10^3^^^^1.2
+15 ;;^UTILITY(U,$J,112,1843,4)
+16 ;;=^^^^^^2
+17 ;;^UTILITY(U,$J,112,1843,20)
+18 ;;=USDA Std. Reference, Release 8
+19 ;;^UTILITY(U,$J,112,1845,0)
+20 ;;=SOUP, VEGETABLE W/BEEF, FRZ, PREP W/EQ VOL WATER^2133-0^cups^244^100^N
+21 ;;^UTILITY(U,$J,112,1845,1)
+22 ;;=2.7^1.2^3.4^35^91.4^^^11^.4^^32^72^396^^^^^1100^0^.02
+23 ;;^UTILITY(U,$J,112,1845,2)
+24 ;;=.04^.8^^^^^0^^12^0^^^^1.3
+25 ;;^UTILITY(U,$J,112,1845,4)
+26 ;;=^^^^^^0
+27 ;;^UTILITY(U,$J,112,1845,20)
+28 ;;=USDA Std. Reference, Release 8
+29 ;;^UTILITY(U,$J,112,1846,0)
+30 ;;=SOYBEANS, BOILED WO/SALT^11-451^cups^94^100^N
+31 ;;^UTILITY(U,$J,112,1846,1)
+32 ;;=12.35^6.4^11.05^141^68.6^^^145^2.5^60^158^539^14^.91^.117^.502^^156^17^.26
+33 ;;^UTILITY(U,$J,112,1846,2)
+34 ;;=.155^1.25^.128^.06^111^0^2.657^.354^0^.74^1.209^3.011^16^1.6^^^4.2
+35 ;;^UTILITY(U,$J,112,1846,3)
+36 ;;=.15^.492^.543^.883^.739^.15^.113^.559^.443^.549^.994^.332^.555^1.439^2.32^.514^.579^.688
+37 ;;^UTILITY(U,$J,112,1846,4)
+38 ;;=^^.005^.537^.01^.198^1.188
+39 ;;^UTILITY(U,$J,112,1846,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1849,0)
+42 ;;=SOYBEAN SPROUTS, BOILED^2144-0^cups^125^100^N
+43 ;;^UTILITY(U,$J,112,1849,1)
+44 ;;=5.3^1.4^3.7^38^89^^^43^.7^^50^156^4^^^^^80^4^.16
+45 ;;^UTILITY(U,$J,112,1849,2)
+46 ;;=.15^.7^^^^^0^^0^0^^^^.6
+47 ;;^UTILITY(U,$J,112,1849,4)
+48 ;;=^^^^^^0
+49 ;;^UTILITY(U,$J,112,1849,20)
+50 ;;=USDA Std. Reference, Release 8
+51 ;;^UTILITY(U,$J,112,1850,0)
+52 ;;=SOYBEAN CURD, (TOFU)^16-127^pieces^120^99^N
+53 ;;^UTILITY(U,$J,112,1850,1)
+54 ;;=8.08^4.78^1.88^76^84.55^^^105^5.36^103^97^121^7^.8^.193^.605^^85^.1^.081
+55 ;;^UTILITY(U,$J,112,1850,2)
+56 ;;=.052^.195^.068^.047^15^0^2.38^.319^0^.691^1.056^2.699^9^.72^^^1.2
+57 ;;^UTILITY(U,$J,112,1850,3)
+58 ;;=.126^.33^.4^.614^.532^.103^.112^.393^.27^.408^.538^.235^.331^.893^1.397^.316^.436^.381
+59 ;;^UTILITY(U,$J,112,1850,4)
+60 ;;=^^.013^.507^.013^.171^1.043^^2^8.9
+61 ;;^UTILITY(U,$J,112,1850,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,1851,0)
+64 ;;=SOYBEAN MILK, FLUID^16-120^oz.^28.3^100^N
+65 ;;^UTILITY(U,$J,112,1851,1)
+66 ;;=2.75^1.91^1.81^33^93.27^^^4^.58^19^49^141^12^.23^.12^.17^^32^0^.161
+67 ;;^UTILITY(U,$J,112,1851,2)
+68 ;;=.07^.147^.048^.041^1.5^0^.735^.098^0^.214^.326^.833^3^.27^^^1.3
+69 ;;^UTILITY(U,$J,112,1851,3)
+70 ;;=.043^.113^.144^.241^.179^.04^.047^.151^.112^.141^.214^.071^.122^.341^.55^.12^.162^.144
+71 ;;^UTILITY(U,$J,112,1851,4)
+72 ;;=^^.004^.157^.004^.053^.322^^3
+73 ;;^UTILITY(U,$J,112,1851,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,1855,0)
+76 ;;=SPAGHETTI, ENR, DRY^20-120^oz.^28.3^100^N
+77 ;;^UTILITY(U,$J,112,1855,1)
+78 ;;=12.78^1.58^74.69^371^10.25^^^18^3.86^48^150^162^7^1.21^.254^.694^^0^0^1.029
+79 ;;^UTILITY(U,$J,112,1855,2)
+80 ;;=.444^7.508^.431^.106^18^0^.591^.056^0^.225^.186^.647^0^.7^^^3.1
+81 ;;^UTILITY(U,$J,112,1855,3)
+82 ;;=.164^.338^.494^.874^.245^.199^.361^.621^.336^.545^.471^.259^.375^.522^4.609^.404^1.406^.602
+83 ;;^UTILITY(U,$J,112,1855,4)
+84 ;;=^^.003^.197^^.025^.186^^.2^62.2
+85 ;;^UTILITY(U,$J,112,1855,20)
+86 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+87 ;;^UTILITY(U,$J,112,1856,0)
+88 ;;=SPAGHETTI, ENR, FIRM STAGE, AL DENTE(8-10 MIN)^20-121^cups^130^294^N
+89 ;;^UTILITY(U,$J,112,1856,1)
+90 ;;=4.77^.67^28.34^141^65.99^^^7^1.4^18^54^31^1^.53^.098^.285^^^0^.204
+91 ;;^UTILITY(U,$J,112,1856,2)
+92 ;;=.098^1.672^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24^^^1.3
+93 ;;^UTILITY(U,$J,112,1856,3)
+94 ;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
+95 ;;^UTILITY(U,$J,112,1856,4)
+96 ;;=^^.001^.083^^.011^.079^^^21.3
+97 ;;^UTILITY(U,$J,112,1856,20)
+98 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+99 ;;^UTILITY(U,$J,112,1857,0)
+100 ;;=SPAGHETTI, COOKED, UNENRICHED, WITHOUT ADDED SALT^20-421^cups^140^294^N
+101 ;;^UTILITY(U,$J,112,1857,1)
+102 ;;=4.77^.67^28.34^141^65.99^^^7^.5^18^54^31^1^.53^.098^.285^^^0^.02
+103 ;;^UTILITY(U,$J,112,1857,2)
+104 ;;=.02^.4^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24
+105 ;;^UTILITY(U,$J,112,1857,3)
+106 ;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
+107 ;;^UTILITY(U,$J,112,1857,4)
+108 ;;=^^.001^.083^^.011^.079
+109 ;;^UTILITY(U,$J,112,1857,20)
+110 ;;=USDA Std. Reference, Release 10
