FHINI08R ; ; 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,3028,2)
;;=.145^1.755^.453^.299^225.5^0^12.215^1.496^0^3.168^5.58^12.738^20^4.25
;;^UTILITY(U,$J,112,3028,3)
;;=.564^1.607^1.884^3.013^2.584^.499^.626^1.931^1.469^1.847^3.012^.998^1.829^4.653^7.521^1.711^2.271^2.145
;;^UTILITY(U,$J,112,3028,4)
;;=^^.024^2.266^.048^.91^5.016
;;^UTILITY(U,$J,112,3028,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3029,0)
;;=SOYBEANS, KERNELS, ROASTED AND TOASTED, WO/SALT^12-139^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3029,1)
;;=37^23.95^30.57^453^4.23^^^138^4.45^173^363^1470^4^3.62^1.064^4.216^^200^2.2^.1
;;^UTILITY(U,$J,112,3029,2)
;;=.145^1.755^.453^.299^225.5^0^12.215^1.496^0^3.168^5.58^12.738^20^4.25^^^3.6
;;^UTILITY(U,$J,112,3029,3)
;;=.564^1.607^1.884^3.013^2.584^.499^.626^1.931^1.469^1.847^3.012^.998^1.829^4.653^7.521^1.711^2.271^2.145
;;^UTILITY(U,$J,112,3029,4)
;;=^^.024^2.266^.048^.91^5.016
;;^UTILITY(U,$J,112,3029,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3030,0)
;;=SPAGHETTI, COOKED, ENRICHED, WITH ADDED SALT^20-321^cups^140^294^N
;;^UTILITY(U,$J,112,3030,1)
;;=4.77^.67^28.34^141^65.99^^^7^1.4^18^54^31^100^.53^.098^.285^^^0^.204
;;^UTILITY(U,$J,112,3030,2)
;;=.098^1.672^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24
;;^UTILITY(U,$J,112,3030,3)
;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
;;^UTILITY(U,$J,112,3030,4)
;;=^^.001^.083^^.011^.079
;;^UTILITY(U,$J,112,3030,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3031,0)
;;=SPAGHETTI, COOKED, UNENRICHED, WITH ADDED SALT^20-521^cups^140^294^N
;;^UTILITY(U,$J,112,3031,1)
;;=4.77^.67^28.34^141^65.99^^^7^.5^18^54^31^100^.53^.098^.285^^^0^.02
;;^UTILITY(U,$J,112,3031,2)
;;=.02^.4^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24
;;^UTILITY(U,$J,112,3031,3)
;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
;;^UTILITY(U,$J,112,3031,4)
;;=^^.001^.083^^.011^.079
;;^UTILITY(U,$J,112,3031,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3032,0)
;;=SPAGHETTI, PROTEIN-FORTIFIED, COOKED, ENRICHED(N X 5.70)^20-123^cups^140^248^N
;;^UTILITY(U,$J,112,3032,1)
;;=8.08^.21^31.66^164^59.73^^^10^.72^30^50^42^5^.5^.084^.417^^0^0^.298
;;^UTILITY(U,$J,112,3032,2)
;;=.161^1.837^.286^.064^11^0^.086^.009^0^.032^.026^.095^0^.31^^^1.7
;;^UTILITY(U,$J,112,3032,3)
;;=.103^.228^.319^.557^.191^.129^.22^.391^.22^.354^.315^.169^.259^.367^2.782^.269^.848^.383
;;^UTILITY(U,$J,112,3032,4)
;;=^^0^.028^0^.003^.026
;;^UTILITY(U,$J,112,3032,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3033,0)
;;=SPAGHETTI, PROTEIN-FORTIFIED, COOKED, ENRICHED(N X 6.25)^20-523^cups^140^248^N
;;^UTILITY(U,$J,112,3033,1)
;;=8.86^.21^30.88^164^59.73^^^10^.72^30^50^42^5^.5^.084^.417^^^0^.298
;;^UTILITY(U,$J,112,3033,2)
;;=.161^1.837^.286^.064^11^0^.086^.009^0^.032^.026^.095^^.31
;;^UTILITY(U,$J,112,3033,3)
;;=.103^.228^.319^.557^.191^.129^.22^.391^.22^.354^.315^.169^.259^.367^2.782^.269^.848^.383
;;^UTILITY(U,$J,112,3033,4)
;;=^^0^.028^0^.003^.026
;;^UTILITY(U,$J,112,3033,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3034,0)
;;=SPAGHETTI, SPINACH, COOKED^20-127^cups^140^314^N
;;^UTILITY(U,$J,112,3034,1)
;;=4.58^.63^26.15^130^68.14^^^30^1.04^62^108^58^14^1.08^.205^1.504^^152^0^.097
;;^UTILITY(U,$J,112,3034,2)
;;=.103^1.53^.183^.096^12^0^.227^.03^0^.091^.072^.257^15^.5
;;^UTILITY(U,$J,112,3034,3)
;;=.058^.123^.177^.312^.094^.071^.126^.22^.122^.196^.17^.093^.137^.198^1.619^.146^.488^.218
;;^UTILITY(U,$J,112,3034,4)
;;=^^.002^.078^0^.011^.072
;;^UTILITY(U,$J,112,3034,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3035,0)
;;=SPAGHETTI, WHOLE-WHEAT, COOKED^20-125^cups^140^304^N
;;^UTILITY(U,$J,112,3035,1)
;;=5.33^.54^26.54^124^67.15^^^15^1.06^30^89^44^3^.81^.167^1.379^^0^0^.108
;;^UTILITY(U,$J,112,3035,2)
;;=.045^.707^.419^.079^5^0^.203^.01^0^.099^.075^.213^0^.44^^^3.8
;;^UTILITY(U,$J,112,3035,3)
;;=.069^.143^.207^.364^.118^.086^.111^.265^.139^.231^.188^.125^.166^.24^1.847^.193^.568^.26
;;^UTILITY(U,$J,112,3035,4)
;;=^^.001^.092^.002^.005^.073
;;^UTILITY(U,$J,112,3035,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,3036,0)
;;=SQUASH, ZUCCHINI, FRZ, CKD WO/SALT^11-480^cups^224^100^N
;;^UTILITY(U,$J,112,3036,1)
;;=1.15^.13^3.56^17^94.74^^^17^.48^13^25^194^2^.2^.047^.23^^432^3.7^.041
;;^UTILITY(U,$J,112,3036,2)
;;=.04^.386^.265^.045^7.8^0^.021^.034^0^.027^.01^.055^43^.42
;;^UTILITY(U,$J,112,3036,3)
;;=.01^.028^.041^.067^.064^.016^.012^.04^.031^.052^.048^.025^.06^.14^.123^.043^.036^.047
FHINI08R ; ; 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,3028,2)
+2 ;;=.145^1.755^.453^.299^225.5^0^12.215^1.496^0^3.168^5.58^12.738^20^4.25
+3 ;;^UTILITY(U,$J,112,3028,3)
+4 ;;=.564^1.607^1.884^3.013^2.584^.499^.626^1.931^1.469^1.847^3.012^.998^1.829^4.653^7.521^1.711^2.271^2.145
+5 ;;^UTILITY(U,$J,112,3028,4)
+6 ;;=^^.024^2.266^.048^.91^5.016
+7 ;;^UTILITY(U,$J,112,3028,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,3029,0)
+10 ;;=SOYBEANS, KERNELS, ROASTED AND TOASTED, WO/SALT^12-139^oz.^28.3^100^N
+11 ;;^UTILITY(U,$J,112,3029,1)
+12 ;;=37^23.95^30.57^453^4.23^^^138^4.45^173^363^1470^4^3.62^1.064^4.216^^200^2.2^.1
+13 ;;^UTILITY(U,$J,112,3029,2)
+14 ;;=.145^1.755^.453^.299^225.5^0^12.215^1.496^0^3.168^5.58^12.738^20^4.25^^^3.6
+15 ;;^UTILITY(U,$J,112,3029,3)
+16 ;;=.564^1.607^1.884^3.013^2.584^.499^.626^1.931^1.469^1.847^3.012^.998^1.829^4.653^7.521^1.711^2.271^2.145
+17 ;;^UTILITY(U,$J,112,3029,4)
+18 ;;=^^.024^2.266^.048^.91^5.016
+19 ;;^UTILITY(U,$J,112,3029,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,3030,0)
+22 ;;=SPAGHETTI, COOKED, ENRICHED, WITH ADDED SALT^20-321^cups^140^294^N
+23 ;;^UTILITY(U,$J,112,3030,1)
+24 ;;=4.77^.67^28.34^141^65.99^^^7^1.4^18^54^31^100^.53^.098^.285^^^0^.204
+25 ;;^UTILITY(U,$J,112,3030,2)
+26 ;;=.098^1.672^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24
+27 ;;^UTILITY(U,$J,112,3030,3)
+28 ;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
+29 ;;^UTILITY(U,$J,112,3030,4)
+30 ;;=^^.001^.083^^.011^.079
+31 ;;^UTILITY(U,$J,112,3030,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,3031,0)
+34 ;;=SPAGHETTI, COOKED, UNENRICHED, WITH ADDED SALT^20-521^cups^140^294^N
+35 ;;^UTILITY(U,$J,112,3031,1)
+36 ;;=4.77^.67^28.34^141^65.99^^^7^.5^18^54^31^100^.53^.098^.285^^^0^.02
+37 ;;^UTILITY(U,$J,112,3031,2)
+38 ;;=.02^.4^.112^.035^7^0^.249^.024^0^.095^.079^.273^^.24
+39 ;;^UTILITY(U,$J,112,3031,3)
+40 ;;=.061^.126^.184^.326^.091^.074^.134^.231^.125^.203^.176^.097^.14^.195^1.718^.151^.524^.225
+41 ;;^UTILITY(U,$J,112,3031,4)
+42 ;;=^^.001^.083^^.011^.079
+43 ;;^UTILITY(U,$J,112,3031,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,3032,0)
+46 ;;=SPAGHETTI, PROTEIN-FORTIFIED, COOKED, ENRICHED(N X 5.70)^20-123^cups^140^248^N
+47 ;;^UTILITY(U,$J,112,3032,1)
+48 ;;=8.08^.21^31.66^164^59.73^^^10^.72^30^50^42^5^.5^.084^.417^^0^0^.298
+49 ;;^UTILITY(U,$J,112,3032,2)
+50 ;;=.161^1.837^.286^.064^11^0^.086^.009^0^.032^.026^.095^0^.31^^^1.7
+51 ;;^UTILITY(U,$J,112,3032,3)
+52 ;;=.103^.228^.319^.557^.191^.129^.22^.391^.22^.354^.315^.169^.259^.367^2.782^.269^.848^.383
+53 ;;^UTILITY(U,$J,112,3032,4)
+54 ;;=^^0^.028^0^.003^.026
+55 ;;^UTILITY(U,$J,112,3032,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,3033,0)
+58 ;;=SPAGHETTI, PROTEIN-FORTIFIED, COOKED, ENRICHED(N X 6.25)^20-523^cups^140^248^N
+59 ;;^UTILITY(U,$J,112,3033,1)
+60 ;;=8.86^.21^30.88^164^59.73^^^10^.72^30^50^42^5^.5^.084^.417^^^0^.298
+61 ;;^UTILITY(U,$J,112,3033,2)
+62 ;;=.161^1.837^.286^.064^11^0^.086^.009^0^.032^.026^.095^^.31
+63 ;;^UTILITY(U,$J,112,3033,3)
+64 ;;=.103^.228^.319^.557^.191^.129^.22^.391^.22^.354^.315^.169^.259^.367^2.782^.269^.848^.383
+65 ;;^UTILITY(U,$J,112,3033,4)
+66 ;;=^^0^.028^0^.003^.026
+67 ;;^UTILITY(U,$J,112,3033,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,3034,0)
+70 ;;=SPAGHETTI, SPINACH, COOKED^20-127^cups^140^314^N
+71 ;;^UTILITY(U,$J,112,3034,1)
+72 ;;=4.58^.63^26.15^130^68.14^^^30^1.04^62^108^58^14^1.08^.205^1.504^^152^0^.097
+73 ;;^UTILITY(U,$J,112,3034,2)
+74 ;;=.103^1.53^.183^.096^12^0^.227^.03^0^.091^.072^.257^15^.5
+75 ;;^UTILITY(U,$J,112,3034,3)
+76 ;;=.058^.123^.177^.312^.094^.071^.126^.22^.122^.196^.17^.093^.137^.198^1.619^.146^.488^.218
+77 ;;^UTILITY(U,$J,112,3034,4)
+78 ;;=^^.002^.078^0^.011^.072
+79 ;;^UTILITY(U,$J,112,3034,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,3035,0)
+82 ;;=SPAGHETTI, WHOLE-WHEAT, COOKED^20-125^cups^140^304^N
+83 ;;^UTILITY(U,$J,112,3035,1)
+84 ;;=5.33^.54^26.54^124^67.15^^^15^1.06^30^89^44^3^.81^.167^1.379^^0^0^.108
+85 ;;^UTILITY(U,$J,112,3035,2)
+86 ;;=.045^.707^.419^.079^5^0^.203^.01^0^.099^.075^.213^0^.44^^^3.8
+87 ;;^UTILITY(U,$J,112,3035,3)
+88 ;;=.069^.143^.207^.364^.118^.086^.111^.265^.139^.231^.188^.125^.166^.24^1.847^.193^.568^.26
+89 ;;^UTILITY(U,$J,112,3035,4)
+90 ;;=^^.001^.092^.002^.005^.073
+91 ;;^UTILITY(U,$J,112,3035,20)
+92 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+93 ;;^UTILITY(U,$J,112,3036,0)
+94 ;;=SQUASH, ZUCCHINI, FRZ, CKD WO/SALT^11-480^cups^224^100^N
+95 ;;^UTILITY(U,$J,112,3036,1)
+96 ;;=1.15^.13^3.56^17^94.74^^^17^.48^13^25^194^2^.2^.047^.23^^432^3.7^.041
+97 ;;^UTILITY(U,$J,112,3036,2)
+98 ;;=.04^.386^.265^.045^7.8^0^.021^.034^0^.027^.01^.055^43^.42
+99 ;;^UTILITY(U,$J,112,3036,3)
+100 ;;=.01^.028^.041^.067^.064^.016^.012^.04^.031^.052^.048^.025^.06^.14^.123^.043^.036^.047
