FHINI05J ; ; 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,1891,1)
;;=.67^.08^8.78^34^89.7^^^26^.56^26^27^263^239^.11^.052^.146^^258^6.5^.1
;;^UTILITY(U,$J,112,1891,2)
;;=.008^.531^.303^.117^11.3^0^.013^.022^0^.017^.006^.035^26^.76
;;^UTILITY(U,$J,112,1891,3)
;;=.01^.02^.026^.038^.025^.008^.006^.026^.023^.029^.037^.013^.028^.072^.118^.025^.024^.026
;;^UTILITY(U,$J,112,1891,4)
;;=^0^0^.015^0^.002^.006
;;^UTILITY(U,$J,112,1891,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1892,0)
;;=SQUASH, BUTTERNUT, BAKED, WO/SALT^11-486^cups^205^100^N
;;^UTILITY(U,$J,112,1892,1)
;;=.9^.09^10.49^40^87.8^^^41^.6^29^27^284^4^.13^.065^.172^^7001^15.1^.072
;;^UTILITY(U,$J,112,1892,2)
;;=.017^.969^.359^.124^19.2^0^.014^.024^0^.019^.007^.038^700^.72
;;^UTILITY(U,$J,112,1892,3)
;;=.013^.027^.035^.051^.033^.011^.008^.035^.03^.039^.05^.017^.038^.097^.157^.033^.032^.035
;;^UTILITY(U,$J,112,1892,4)
;;=^0^0^.016^0^.002^.007
;;^UTILITY(U,$J,112,1892,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1893,0)
;;=SQUASH, BUTTERNUT, BAKED, W/SALT^11-866^cups^205^100^N
;;^UTILITY(U,$J,112,1893,1)
;;=.9^.09^10.49^40^87.8^^^41^.6^29^27^284^240^.13^.065^.172^^7001^15.1^.072
;;^UTILITY(U,$J,112,1893,2)
;;=.017^^^^^^.014^.024^0^.019^.007^.038^700^.72
;;^UTILITY(U,$J,112,1893,3)
;;=.013^.027^.035^.051^.033^.011^.008^.035^.03^.039^.05^.017^.038^.097^.157^.033^.032^.035
;;^UTILITY(U,$J,112,1893,4)
;;=^0^0^.016^0^.002^.007
;;^UTILITY(U,$J,112,1893,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1896,0)
;;=SQUASH, HUBBARD, BAKED, WO/SALT^11-490^cups^205^100^N
;;^UTILITY(U,$J,112,1896,1)
;;=2.48^.62^10.81^50^85.1^^^17^.47^22^23^358^8^.15^.045^.17^^6035^9.5^.074
;;^UTILITY(U,$J,112,1896,2)
;;=.047^.558^.447^.172^16.2^^.097^.162^0^.128^.046^.26^604^.99
;;^UTILITY(U,$J,112,1896,3)
;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
;;^UTILITY(U,$J,112,1896,4)
;;=^.003^.002^.11^.003^.012^.042
;;^UTILITY(U,$J,112,1896,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1897,0)
;;=SQUASH, HUBBARD, BAKED, W/SALT^11-868^cups^205^100^N
;;^UTILITY(U,$J,112,1897,1)
;;=2.48^.62^10.81^50^85.1^^^17^.47^22^23^358^244^.15^.045^.17^^6035^9.5^.074
;;^UTILITY(U,$J,112,1897,2)
;;=.047^.558^.447^.172^16.2^0^.097^.162^0^.128^.046^.26^604^.99
;;^UTILITY(U,$J,112,1897,3)
;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
;;^UTILITY(U,$J,112,1897,4)
;;=^.003^.002^.11^.003^.012^.042
;;^UTILITY(U,$J,112,1897,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1898,0)
;;=SQUASH, HUBBARD, BOILED, MASHED, WO/SALT^11-491^cups^235^100^N
;;^UTILITY(U,$J,112,1898,1)
;;=1.48^.37^6.45^30^91.1^^^10^.28^13^14^214^5^.1^.047^.126^^4005^6.5^.042
;;^UTILITY(U,$J,112,1898,2)
;;=.028^.334^.297^.103^9.7^0^.058^.097^0^.076^.028^.156^401^.59^^^2.9
;;^UTILITY(U,$J,112,1898,3)
;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
;;^UTILITY(U,$J,112,1898,4)
;;=^.002^.001^.066^.002^.007^.025
;;^UTILITY(U,$J,112,1898,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1899,0)
;;=SQUASH, HUBBARD, BOILED, MASHED, W/SALT^11-869^cups^235^100^N
;;^UTILITY(U,$J,112,1899,1)
;;=1.48^.37^6.45^30^91.1^^^10^.28^13^14^214^241^.1^.047^.126^^4005^6.5^.042
;;^UTILITY(U,$J,112,1899,2)
;;=.028^.334^.297^.103^9.7^0^.058^.097^0^.076^.028^.156^401^.59
;;^UTILITY(U,$J,112,1899,3)
;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
;;^UTILITY(U,$J,112,1899,4)
;;=^.002^.001^.066^.002^.007^.025
;;^UTILITY(U,$J,112,1899,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1900,0)
;;=SQUASH, YELLOW, FRZ, CKD WO/SALT^11-474^cups^192^100^N
;;^UTILITY(U,$J,112,1900,1)
;;=1.28^.2^5.54^25^92.24^^^20^.52^27^41^253^6^.34^.073^.263^^195^6.8^.036
;;^UTILITY(U,$J,112,1900,2)
;;=.047^.44^.102^.099^12.7^0^.031^.051^0^.04^.015^.082^20^.74
;;^UTILITY(U,$J,112,1900,3)
;;=.011^.031^.046^.075^.071^.018^.014^.045^.034^.058^.054^.028^.067^.157^.138^.048^.04^.052
;;^UTILITY(U,$J,112,1900,4)
;;=^.001^.001^.035^.001^.004^.014
;;^UTILITY(U,$J,112,1900,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1901,0)
;;=SQUASH, WINTER, FRZ, HEATED, WO/SALT^11-488^cups^240^100^N
;;^UTILITY(U,$J,112,1901,1)
;;=1.23^.07^10.05^39^87.8^^^19^.58^9^14^133^2^.12^.036^.173^^3339^3.5^.05
;;^UTILITY(U,$J,112,1901,2)
;;=.039^.464^.154^.069^16.4^0^.011^.018^0^.014^.005^.029^334^.86
;;^UTILITY(U,$J,112,1901,3)
;;=.017^.037^.048^.07^.045^.015^.011^.048^.041^.053^.068^.023^.051^.132^.214^.045^.044^.048
FHINI05J ; ; 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,1891,1)
+2 ;;=.67^.08^8.78^34^89.7^^^26^.56^26^27^263^239^.11^.052^.146^^258^6.5^.1
+3 ;;^UTILITY(U,$J,112,1891,2)
+4 ;;=.008^.531^.303^.117^11.3^0^.013^.022^0^.017^.006^.035^26^.76
+5 ;;^UTILITY(U,$J,112,1891,3)
+6 ;;=.01^.02^.026^.038^.025^.008^.006^.026^.023^.029^.037^.013^.028^.072^.118^.025^.024^.026
+7 ;;^UTILITY(U,$J,112,1891,4)
+8 ;;=^0^0^.015^0^.002^.006
+9 ;;^UTILITY(U,$J,112,1891,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1892,0)
+12 ;;=SQUASH, BUTTERNUT, BAKED, WO/SALT^11-486^cups^205^100^N
+13 ;;^UTILITY(U,$J,112,1892,1)
+14 ;;=.9^.09^10.49^40^87.8^^^41^.6^29^27^284^4^.13^.065^.172^^7001^15.1^.072
+15 ;;^UTILITY(U,$J,112,1892,2)
+16 ;;=.017^.969^.359^.124^19.2^0^.014^.024^0^.019^.007^.038^700^.72
+17 ;;^UTILITY(U,$J,112,1892,3)
+18 ;;=.013^.027^.035^.051^.033^.011^.008^.035^.03^.039^.05^.017^.038^.097^.157^.033^.032^.035
+19 ;;^UTILITY(U,$J,112,1892,4)
+20 ;;=^0^0^.016^0^.002^.007
+21 ;;^UTILITY(U,$J,112,1892,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1893,0)
+24 ;;=SQUASH, BUTTERNUT, BAKED, W/SALT^11-866^cups^205^100^N
+25 ;;^UTILITY(U,$J,112,1893,1)
+26 ;;=.9^.09^10.49^40^87.8^^^41^.6^29^27^284^240^.13^.065^.172^^7001^15.1^.072
+27 ;;^UTILITY(U,$J,112,1893,2)
+28 ;;=.017^^^^^^.014^.024^0^.019^.007^.038^700^.72
+29 ;;^UTILITY(U,$J,112,1893,3)
+30 ;;=.013^.027^.035^.051^.033^.011^.008^.035^.03^.039^.05^.017^.038^.097^.157^.033^.032^.035
+31 ;;^UTILITY(U,$J,112,1893,4)
+32 ;;=^0^0^.016^0^.002^.007
+33 ;;^UTILITY(U,$J,112,1893,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1896,0)
+36 ;;=SQUASH, HUBBARD, BAKED, WO/SALT^11-490^cups^205^100^N
+37 ;;^UTILITY(U,$J,112,1896,1)
+38 ;;=2.48^.62^10.81^50^85.1^^^17^.47^22^23^358^8^.15^.045^.17^^6035^9.5^.074
+39 ;;^UTILITY(U,$J,112,1896,2)
+40 ;;=.047^.558^.447^.172^16.2^^.097^.162^0^.128^.046^.26^604^.99
+41 ;;^UTILITY(U,$J,112,1896,3)
+42 ;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
+43 ;;^UTILITY(U,$J,112,1896,4)
+44 ;;=^.003^.002^.11^.003^.012^.042
+45 ;;^UTILITY(U,$J,112,1896,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1897,0)
+48 ;;=SQUASH, HUBBARD, BAKED, W/SALT^11-868^cups^205^100^N
+49 ;;^UTILITY(U,$J,112,1897,1)
+50 ;;=2.48^.62^10.81^50^85.1^^^17^.47^22^23^358^244^.15^.045^.17^^6035^9.5^.074
+51 ;;^UTILITY(U,$J,112,1897,2)
+52 ;;=.047^.558^.447^.172^16.2^0^.097^.162^0^.128^.046^.26^604^.99
+53 ;;^UTILITY(U,$J,112,1897,3)
+54 ;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
+55 ;;^UTILITY(U,$J,112,1897,4)
+56 ;;=^.003^.002^.11^.003^.012^.042
+57 ;;^UTILITY(U,$J,112,1897,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1898,0)
+60 ;;=SQUASH, HUBBARD, BOILED, MASHED, WO/SALT^11-491^cups^235^100^N
+61 ;;^UTILITY(U,$J,112,1898,1)
+62 ;;=1.48^.37^6.45^30^91.1^^^10^.28^13^14^214^5^.1^.047^.126^^4005^6.5^.042
+63 ;;^UTILITY(U,$J,112,1898,2)
+64 ;;=.028^.334^.297^.103^9.7^0^.058^.097^0^.076^.028^.156^401^.59^^^2.9
+65 ;;^UTILITY(U,$J,112,1898,3)
+66 ;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
+67 ;;^UTILITY(U,$J,112,1898,4)
+68 ;;=^.002^.001^.066^.002^.007^.025
+69 ;;^UTILITY(U,$J,112,1898,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1899,0)
+72 ;;=SQUASH, HUBBARD, BOILED, MASHED, W/SALT^11-869^cups^235^100^N
+73 ;;^UTILITY(U,$J,112,1899,1)
+74 ;;=1.48^.37^6.45^30^91.1^^^10^.28^13^14^214^241^.1^.047^.126^^4005^6.5^.042
+75 ;;^UTILITY(U,$J,112,1899,2)
+76 ;;=.028^.334^.297^.103^9.7^0^.058^.097^0^.076^.028^.156^401^.59
+77 ;;^UTILITY(U,$J,112,1899,3)
+78 ;;=.021^.044^.058^.084^.055^.018^.013^.058^.05^.064^.082^.028^.062^.159^.259^.055^.053^.058
+79 ;;^UTILITY(U,$J,112,1899,4)
+80 ;;=^.002^.001^.066^.002^.007^.025
+81 ;;^UTILITY(U,$J,112,1899,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1900,0)
+84 ;;=SQUASH, YELLOW, FRZ, CKD WO/SALT^11-474^cups^192^100^N
+85 ;;^UTILITY(U,$J,112,1900,1)
+86 ;;=1.28^.2^5.54^25^92.24^^^20^.52^27^41^253^6^.34^.073^.263^^195^6.8^.036
+87 ;;^UTILITY(U,$J,112,1900,2)
+88 ;;=.047^.44^.102^.099^12.7^0^.031^.051^0^.04^.015^.082^20^.74
+89 ;;^UTILITY(U,$J,112,1900,3)
+90 ;;=.011^.031^.046^.075^.071^.018^.014^.045^.034^.058^.054^.028^.067^.157^.138^.048^.04^.052
+91 ;;^UTILITY(U,$J,112,1900,4)
+92 ;;=^.001^.001^.035^.001^.004^.014
+93 ;;^UTILITY(U,$J,112,1900,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1901,0)
+96 ;;=SQUASH, WINTER, FRZ, HEATED, WO/SALT^11-488^cups^240^100^N
+97 ;;^UTILITY(U,$J,112,1901,1)
+98 ;;=1.23^.07^10.05^39^87.8^^^19^.58^9^14^133^2^.12^.036^.173^^3339^3.5^.05
+99 ;;^UTILITY(U,$J,112,1901,2)
+100 ;;=.039^.464^.154^.069^16.4^0^.011^.018^0^.014^.005^.029^334^.86
+101 ;;^UTILITY(U,$J,112,1901,3)
+102 ;;=.017^.037^.048^.07^.045^.015^.011^.048^.041^.053^.068^.023^.051^.132^.214^.045^.044^.048
