Routine: FHINI05I

FHINI05I	; ; 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,1880,4)

	;;=^.001^.001^.031^.001^.003^.012

	;;^UTILITY(U,$J,112,1880,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1881,0)

	;;=SQUASH, ZUCCHINI, RAW^11-477^cups^130^95^N

	;;^UTILITY(U,$J,112,1881,1)

	;;=1.16^.14^2.9^14^95.28^^^15^.42^22^32^248^3^.2^.057^.127^^340^9^.07

	;;^UTILITY(U,$J,112,1881,2)

	;;=.03^.4^.083^.089^22.1^0^.022^.037^0^.029^.011^.06^34^.52^^^1.2

	;;^UTILITY(U,$J,112,1881,3)

	;;=.01^.028^.042^.068^.064^.017^.012^.041^.031^.052^.049^.025^.061^.141^.124^.044^.036^.047

	;;^UTILITY(U,$J,112,1881,4)

	;;=^.001^0^.025^.001^.003^.01

	;;^UTILITY(U,$J,112,1881,20)

	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

	;;^UTILITY(U,$J,112,1882,0)

	;;=SQUASH, ZUCCHINI, CKD WO/SALT^11-478^cups^210^100^N

	;;^UTILITY(U,$J,112,1882,1)

	;;=.64^.05^3.93^16^94.74^^^13^.35^22^40^253^3^.18^.086^.178^^240^4.6^.041

	;;^UTILITY(U,$J,112,1882,2)

	;;=.041^.428^.114^.078^16.8^0^.008^.013^0^.01^.004^.021^24^.64^^^1.3

	;;^UTILITY(U,$J,112,1882,3)

	;;=.006^.015^.023^.037^.035^.009^.007^.022^.017^.029^.027^.014^.033^.078^.068^.024^.02^.026

	;;^UTILITY(U,$J,112,1882,4)

	;;=^0^0^.009^0^.001^.004

	;;^UTILITY(U,$J,112,1882,20)

	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

	;;^UTILITY(U,$J,112,1883,0)

	;;=SQUASH, ZUCCHINI, CKD W/SALT^11-861^cups^210^100^N

	;;^UTILITY(U,$J,112,1883,1)

	;;=.64^.05^3.93^16^94.74^^^13^.35^22^40^253^239^.18^.086^.178^^240^4.6^.041

	;;^UTILITY(U,$J,112,1883,2)

	;;=.041^.428^.114^.078^16.8^0^.008^.013^0^.01^.004^.021^24^.64

	;;^UTILITY(U,$J,112,1883,3)

	;;=.006^.015^.023^.037^.035^.009^.007^.022^.017^.029^.027^.014^.033^.078^.068^.024^.02^.026

	;;^UTILITY(U,$J,112,1883,4)

	;;=^0^0^.009^0^.001^.004

	;;^UTILITY(U,$J,112,1883,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1884,0)

	;;=SQUASH, WINTER, ALL VAR, BAKED, WO/SALT^11-644^cups^205^100^N

	;;^UTILITY(U,$J,112,1884,1)

	;;=.89^.63^8.75^39^89.02^^^14^.33^8^20^437^1^.26^.095^.211^^3557^9.6^.085

	;;^UTILITY(U,$J,112,1884,2)

	;;=.024^.701^.35^.072^28^0^.099^.165^0^.13^.047^.265^356^.72^^^2.8

	;;^UTILITY(U,$J,112,1884,3)

	;;=.013^.027^.035^.05^.033^.011^.008^.035^.03^.038^.049^.017^.037^.095^.155^.033^.032^.035

	;;^UTILITY(U,$J,112,1884,4)

	;;=^.003^.002^.112^.003^.013^.043

	;;^UTILITY(U,$J,112,1884,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1885,0)

	;;=SQUASH, WINTER, ALL VAR, BAKED, W/SALT^11-863^cups^205^100^N

	;;^UTILITY(U,$J,112,1885,1)

	;;=.89^.63^8.75^39^89.02^^^14^.33^8^20^437^237^.26^.095^.211^^3557^9.6^.085

	;;^UTILITY(U,$J,112,1885,2)

	;;=.024^.701^.35^.072^28^0^.099^.165^0^.13^.047^.265^356^.72

	;;^UTILITY(U,$J,112,1885,3)

	;;=.013^.027^.035^.05^.033^.011^.008^.035^.03^.038^.049^.017^.037^.095^.155^.033^.032^.035

	;;^UTILITY(U,$J,112,1885,4)

	;;=^.003^.002^.112^.003^.013^.043

	;;^UTILITY(U,$J,112,1885,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1888,0)

	;;=SQUASH, ACORN, BAKED, WO/SALT^11-483^halves^156^80^N

	;;^UTILITY(U,$J,112,1888,1)

	;;=1.12^.14^14.58^56^82.9^^^44^.93^43^45^437^4^.17^.086^.242^^428^10.8^.167

	;;^UTILITY(U,$J,112,1888,2)

	;;=.013^.881^.504^.194^18.7^0^.022^.037^0^.029^.01^.059^43^1.26

	;;^UTILITY(U,$J,112,1888,3)

	;;=.016^.033^.044^.064^.041^.014^.01^.044^.038^.048^.062^.021^.047^.12^.196^.041^.04^.044

	;;^UTILITY(U,$J,112,1888,4)

	;;=^.001^0^.025^.001^.003^.009

	;;^UTILITY(U,$J,112,1888,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1889,0)

	;;=SQUASH, ACORN, BAKED, W/SALT^11-864^halves^156^80^N

	;;^UTILITY(U,$J,112,1889,1)

	;;=1.12^.14^14.58^56^82.9^^^44^.93^43^45^437^240^.17^.086^.242^^428^10.8^.167

	;;^UTILITY(U,$J,112,1889,2)

	;;=.013^.881^.504^.194^18.7^0^.022^.037^0^.029^.01^.059^43^1.26

	;;^UTILITY(U,$J,112,1889,3)

	;;=.016^.033^.044^.064^.041^.014^.01^.044^.038^.048^.062^.021^.047^.12^.196^.041^.04^.044

	;;^UTILITY(U,$J,112,1889,4)

	;;=^.001^0^.025^.001^.003^.009

	;;^UTILITY(U,$J,112,1889,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1890,0)

	;;=SQUASH, ACORN, BOILED, MASHED, WO/SALT^11-484^cups^245^100^N

	;;^UTILITY(U,$J,112,1890,1)

	;;=.67^.08^8.78^34^89.7^^^26^.56^26^27^263^3^.11^.052^.146^^258^6.5^.1

	;;^UTILITY(U,$J,112,1890,2)

	;;=.008^.531^.303^.117^11.3^0^.013^.022^0^.017^.006^.035^26^.76

	;;^UTILITY(U,$J,112,1890,3)

	;;=.01^.02^.026^.038^.025^.008^.006^.026^.023^.029^.037^.013^.028^.072^.118^.025^.024^.026

	;;^UTILITY(U,$J,112,1890,4)

	;;=^0^0^.015^0^.002^.006

	;;^UTILITY(U,$J,112,1890,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,1891,0)

	;;=SQUASH, ACORN, BOILED, MASHED, W/SALT^11-865^cups^245^100^N

FHINI05I  ; ; 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,1880,4)

 +2       ;;=^.001^.001^.031^.001^.003^.012

 +3       ;;^UTILITY(U,$J,112,1880,20)

 +4       ;;=USDA Std. Reference, Release 10

 +5       ;;^UTILITY(U,$J,112,1881,0)

 +6       ;;=SQUASH, ZUCCHINI, RAW^11-477^cups^130^95^N

 +7       ;;^UTILITY(U,$J,112,1881,1)

 +8       ;;=1.16^.14^2.9^14^95.28^^^15^.42^22^32^248^3^.2^.057^.127^^340^9^.07

 +9       ;;^UTILITY(U,$J,112,1881,2)

 +10      ;;=.03^.4^.083^.089^22.1^0^.022^.037^0^.029^.011^.06^34^.52^^^1.2

 +11      ;;^UTILITY(U,$J,112,1881,3)

 +12      ;;=.01^.028^.042^.068^.064^.017^.012^.041^.031^.052^.049^.025^.061^.141^.124^.044^.036^.047

 +13      ;;^UTILITY(U,$J,112,1881,4)

 +14      ;;=^.001^0^.025^.001^.003^.01

 +15      ;;^UTILITY(U,$J,112,1881,20)

 +16      ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

 +17      ;;^UTILITY(U,$J,112,1882,0)

 +18      ;;=SQUASH, ZUCCHINI, CKD WO/SALT^11-478^cups^210^100^N

 +19      ;;^UTILITY(U,$J,112,1882,1)

 +20      ;;=.64^.05^3.93^16^94.74^^^13^.35^22^40^253^3^.18^.086^.178^^240^4.6^.041

 +21      ;;^UTILITY(U,$J,112,1882,2)

 +22      ;;=.041^.428^.114^.078^16.8^0^.008^.013^0^.01^.004^.021^24^.64^^^1.3

 +23      ;;^UTILITY(U,$J,112,1882,3)

 +24      ;;=.006^.015^.023^.037^.035^.009^.007^.022^.017^.029^.027^.014^.033^.078^.068^.024^.02^.026

 +25      ;;^UTILITY(U,$J,112,1882,4)

 +26      ;;=^0^0^.009^0^.001^.004

 +27      ;;^UTILITY(U,$J,112,1882,20)

 +28      ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

 +29      ;;^UTILITY(U,$J,112,1883,0)

 +30      ;;=SQUASH, ZUCCHINI, CKD W/SALT^11-861^cups^210^100^N

 +31      ;;^UTILITY(U,$J,112,1883,1)

 +32      ;;=.64^.05^3.93^16^94.74^^^13^.35^22^40^253^239^.18^.086^.178^^240^4.6^.041

 +33      ;;^UTILITY(U,$J,112,1883,2)

 +34      ;;=.041^.428^.114^.078^16.8^0^.008^.013^0^.01^.004^.021^24^.64

 +35      ;;^UTILITY(U,$J,112,1883,3)

 +36      ;;=.006^.015^.023^.037^.035^.009^.007^.022^.017^.029^.027^.014^.033^.078^.068^.024^.02^.026

 +37      ;;^UTILITY(U,$J,112,1883,4)

 +38      ;;=^0^0^.009^0^.001^.004

 +39      ;;^UTILITY(U,$J,112,1883,20)

 +40      ;;=USDA Std. Reference, Release 10

 +41      ;;^UTILITY(U,$J,112,1884,0)

 +42      ;;=SQUASH, WINTER, ALL VAR, BAKED, WO/SALT^11-644^cups^205^100^N

 +43      ;;^UTILITY(U,$J,112,1884,1)

 +44      ;;=.89^.63^8.75^39^89.02^^^14^.33^8^20^437^1^.26^.095^.211^^3557^9.6^.085

 +45      ;;^UTILITY(U,$J,112,1884,2)

 +46      ;;=.024^.701^.35^.072^28^0^.099^.165^0^.13^.047^.265^356^.72^^^2.8

 +47      ;;^UTILITY(U,$J,112,1884,3)

 +48      ;;=.013^.027^.035^.05^.033^.011^.008^.035^.03^.038^.049^.017^.037^.095^.155^.033^.032^.035

 +49      ;;^UTILITY(U,$J,112,1884,4)

 +50      ;;=^.003^.002^.112^.003^.013^.043

 +51      ;;^UTILITY(U,$J,112,1884,20)

 +52      ;;=USDA Std. Reference, Release 10

 +53      ;;^UTILITY(U,$J,112,1885,0)

 +54      ;;=SQUASH, WINTER, ALL VAR, BAKED, W/SALT^11-863^cups^205^100^N

 +55      ;;^UTILITY(U,$J,112,1885,1)

 +56      ;;=.89^.63^8.75^39^89.02^^^14^.33^8^20^437^237^.26^.095^.211^^3557^9.6^.085

 +57      ;;^UTILITY(U,$J,112,1885,2)

 +58      ;;=.024^.701^.35^.072^28^0^.099^.165^0^.13^.047^.265^356^.72

 +59      ;;^UTILITY(U,$J,112,1885,3)

 +60      ;;=.013^.027^.035^.05^.033^.011^.008^.035^.03^.038^.049^.017^.037^.095^.155^.033^.032^.035

 +61      ;;^UTILITY(U,$J,112,1885,4)

 +62      ;;=^.003^.002^.112^.003^.013^.043

 +63      ;;^UTILITY(U,$J,112,1885,20)

 +64      ;;=USDA Std. Reference, Release 10

 +65      ;;^UTILITY(U,$J,112,1888,0)

 +66      ;;=SQUASH, ACORN, BAKED, WO/SALT^11-483^halves^156^80^N

 +67      ;;^UTILITY(U,$J,112,1888,1)

 +68      ;;=1.12^.14^14.58^56^82.9^^^44^.93^43^45^437^4^.17^.086^.242^^428^10.8^.167

 +69      ;;^UTILITY(U,$J,112,1888,2)

 +70      ;;=.013^.881^.504^.194^18.7^0^.022^.037^0^.029^.01^.059^43^1.26

 +71      ;;^UTILITY(U,$J,112,1888,3)

 +72      ;;=.016^.033^.044^.064^.041^.014^.01^.044^.038^.048^.062^.021^.047^.12^.196^.041^.04^.044

 +73      ;;^UTILITY(U,$J,112,1888,4)

 +74      ;;=^.001^0^.025^.001^.003^.009

 +75      ;;^UTILITY(U,$J,112,1888,20)

 +76      ;;=USDA Std. Reference, Release 10

 +77      ;;^UTILITY(U,$J,112,1889,0)

 +78      ;;=SQUASH, ACORN, BAKED, W/SALT^11-864^halves^156^80^N

 +79      ;;^UTILITY(U,$J,112,1889,1)

 +80      ;;=1.12^.14^14.58^56^82.9^^^44^.93^43^45^437^240^.17^.086^.242^^428^10.8^.167

 +81      ;;^UTILITY(U,$J,112,1889,2)

 +82      ;;=.013^.881^.504^.194^18.7^0^.022^.037^0^.029^.01^.059^43^1.26

 +83      ;;^UTILITY(U,$J,112,1889,3)

 +84      ;;=.016^.033^.044^.064^.041^.014^.01^.044^.038^.048^.062^.021^.047^.12^.196^.041^.04^.044

 +85      ;;^UTILITY(U,$J,112,1889,4)

 +86      ;;=^.001^0^.025^.001^.003^.009

 +87      ;;^UTILITY(U,$J,112,1889,20)

 +88      ;;=USDA Std. Reference, Release 10

 +89      ;;^UTILITY(U,$J,112,1890,0)

 +90      ;;=SQUASH, ACORN, BOILED, MASHED, WO/SALT^11-484^cups^245^100^N

 +91      ;;^UTILITY(U,$J,112,1890,1)

 +92      ;;=.67^.08^8.78^34^89.7^^^26^.56^26^27^263^3^.11^.052^.146^^258^6.5^.1

 +93      ;;^UTILITY(U,$J,112,1890,2)

 +94      ;;=.008^.531^.303^.117^11.3^0^.013^.022^0^.017^.006^.035^26^.76

 +95      ;;^UTILITY(U,$J,112,1890,3)

 +96      ;;=.01^.02^.026^.038^.025^.008^.006^.026^.023^.029^.037^.013^.028^.072^.118^.025^.024^.026

 +97      ;;^UTILITY(U,$J,112,1890,4)

 +98      ;;=^0^0^.015^0^.002^.006

 +99      ;;^UTILITY(U,$J,112,1890,20)

 +100     ;;=USDA Std. Reference, Release 10

 +101     ;;^UTILITY(U,$J,112,1891,0)

 +102     ;;=SQUASH, ACORN, BOILED, MASHED, W/SALT^11-865^cups^245^100^N

FHINI05I.m