FHINI06V.m

FHINI06V	; ; 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,2378,2)

	;;=.041^.497^.278^.08^17.3^0^^^^^^^1181^.7^^^1.7

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

	;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, CARROTS, BUTTERED, STR^3-101^jars^128^100^N

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

	;;=.8^.6^7.4^36^90.6^^^35^.28^^^228^18^^^^^10828^9.1^.015

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

	;;=.055^.596^^^9.4^^^^^^^^1083^.6

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

	;;=.012^.024^.025^.034^.021^.009^.006^.026^.02^.032^.053^.013^.043^.131^.232^.023^.021^.025

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, CARROTS, BUTTERED, JNR^3-102^jars^213^100^N

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

	;;=.8^.6^6.7^33^91.4^^^35^.31^^^145^16^^^^^9840^7.6^.019

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

	;;=.056^.516^^^8.6^^^^^^^^984^.6

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

	;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, SPINACH, CREAMED, JNR^3-103^jars^213^100^N

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

	;;=3^1.4^6.4^42^88.2^^^113^1.4^63^49^221^55^.35^.068^^^3676^3.6^.023

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

	;;=.086^.259^^.058^68.8^.07^^^^^^^368^1^^^1.8

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

	;;=.044^.121^.135^.265^.178^.066^.037^.116^.138^.181^.182^.076^.141^.243^.505^.117^.248^.123

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, SQUASH, JNR^3-105^jars^213^100^N

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

	;;=.8^.2^5.6^24^92.8^^^24^.35^12^16^185^1^.08^.054^^^2014^7.8^.011

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

	;;=.065^.378^.219^.069^15.4^0^^^^^^^201^.6^^^2.1

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

	;;=.012^.025^.033^.048^.031^.011^.007^.029^.028^.036^.047^.016^.035^.091^.148^.031^.03^.033

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, SQUASH, BUTTERED, STR^3-106^jars^128^100^N

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

	;;=.6^.3^6.9^29^91.7^^^33^.41^^^127^2^^^^^1658^7.6^.011

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

	;;=.073^.356^^^11.8^^^^^^^^166^.5

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

	;;=.009^.019^.025^.036^.023^.008^.006^.022^.022^.028^.035^.012^.027^.069^.112^.023^.023^.025

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, SQUASH, BUTTERED, JNR^3-107^jars^213^100^N

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

	;;=.7^.6^6.4^30^91.8^^^31^.42^^^135^2^^^^^1530^7.6^.01

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

	;;=.066^.315^^^11.7^^^^^^^^153^.5

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

	;;=.01^.021^.028^.041^.026^.009^.006^.025^.024^.031^.04^.013^.03^.077^.125^.026^.025^.028

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, SWEETPOTATOES, JNR^3-109^jars^220^100^N

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

	;;=1.1^.1^13.9^60^84.1^^^16^.39^12^24^243^22^.11^.1^^^6636^9.6^.026

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

	;;=.034^.384^.408^.113^10.3^0^^^^^^^664^.7^^^1.5

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

	;;=.021^.053^.05^.076^.043^.023^.015^.061^.04^.071^.053^.025^.059^.195^.115^.049^.054^.05

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, SWEETPOTATOES, BUTTERED, JNR^3-111^jars^220^100^N

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

	;;=.8^.7^12.2^57^85.6^^^28^.4^^^216^8^^^^^6043^9.3^.017

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

	;;=.045^.296^^^13.4^^^^^^^^604^.7

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

	;;=.015^.038^.036^.055^.031^.017^.011^.044^.029^.052^.038^.018^.043^.141^.083^.036^.039^.036

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, FRUIT, APPLESAUCE, JNR^3-117^jars^213^100^N

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

	;;=0^0^10.3^37^89.5^^^5^.22^3^6^77^2^.04^.035^^^9^37.8^.012

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

	;;=.027^.063^.1^.03^1.7^0^^^^^^^1^.2^^^1.7

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

	;;=USDA Std. Reference, Release 10

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

	;;=BF, VEGETABLES, CORN, CREAMED, JUNIOR^3-120^jars^213^100^N

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

	;;=1.4^.4^16.3^65^81.4^^^18^.27^8^33^81^52^.23^.038^^^77^2.2^.013

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

	;;=.048^.504^.327^.041^12.7^.02^^^^^^^8^.5^^^2.1

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

	;;=.015^.052^.065^.141^.082^.04^.018^.049^.068^.078^.06^.046^.071^.099^.276^.036^.161^.062

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

	;;=USDA Std. Reference, Release 10

FHINI06V  ; ; 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,2378,2)

 +2       ;;=.041^.497^.278^.08^17.3^0^^^^^^^1181^.7^^^1.7

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

 +4       ;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024

 +5       ;;^UTILITY(U,$J,112,2378,20)

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

 +7       ;;^UTILITY(U,$J,112,2379,0)

 +8       ;;=BF, VEGETABLES, CARROTS, BUTTERED, STR^3-101^jars^128^100^N

 +9       ;;^UTILITY(U,$J,112,2379,1)

 +10      ;;=.8^.6^7.4^36^90.6^^^35^.28^^^228^18^^^^^10828^9.1^.015

 +11      ;;^UTILITY(U,$J,112,2379,2)

 +12      ;;=.055^.596^^^9.4^^^^^^^^1083^.6

 +13      ;;^UTILITY(U,$J,112,2379,3)

 +14      ;;=.012^.024^.025^.034^.021^.009^.006^.026^.02^.032^.053^.013^.043^.131^.232^.023^.021^.025

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

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

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

 +18      ;;=BF, VEGETABLES, CARROTS, BUTTERED, JNR^3-102^jars^213^100^N

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

 +20      ;;=.8^.6^6.7^33^91.4^^^35^.31^^^145^16^^^^^9840^7.6^.019

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

 +22      ;;=.056^.516^^^8.6^^^^^^^^984^.6

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

 +24      ;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024

 +25      ;;^UTILITY(U,$J,112,2380,20)

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

 +27      ;;^UTILITY(U,$J,112,2381,0)

 +28      ;;=BF, VEGETABLES, SPINACH, CREAMED, JNR^3-103^jars^213^100^N

 +29      ;;^UTILITY(U,$J,112,2381,1)

 +30      ;;=3^1.4^6.4^42^88.2^^^113^1.4^63^49^221^55^.35^.068^^^3676^3.6^.023

 +31      ;;^UTILITY(U,$J,112,2381,2)

 +32      ;;=.086^.259^^.058^68.8^.07^^^^^^^368^1^^^1.8

 +33      ;;^UTILITY(U,$J,112,2381,3)

 +34      ;;=.044^.121^.135^.265^.178^.066^.037^.116^.138^.181^.182^.076^.141^.243^.505^.117^.248^.123

 +35      ;;^UTILITY(U,$J,112,2381,20)

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

 +37      ;;^UTILITY(U,$J,112,2382,0)

 +38      ;;=BF, VEGETABLES, SQUASH, JNR^3-105^jars^213^100^N

 +39      ;;^UTILITY(U,$J,112,2382,1)

 +40      ;;=.8^.2^5.6^24^92.8^^^24^.35^12^16^185^1^.08^.054^^^2014^7.8^.011

 +41      ;;^UTILITY(U,$J,112,2382,2)

 +42      ;;=.065^.378^.219^.069^15.4^0^^^^^^^201^.6^^^2.1

 +43      ;;^UTILITY(U,$J,112,2382,3)

 +44      ;;=.012^.025^.033^.048^.031^.011^.007^.029^.028^.036^.047^.016^.035^.091^.148^.031^.03^.033

 +45      ;;^UTILITY(U,$J,112,2382,20)

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

 +47      ;;^UTILITY(U,$J,112,2383,0)

 +48      ;;=BF, VEGETABLES, SQUASH, BUTTERED, STR^3-106^jars^128^100^N

 +49      ;;^UTILITY(U,$J,112,2383,1)

 +50      ;;=.6^.3^6.9^29^91.7^^^33^.41^^^127^2^^^^^1658^7.6^.011

 +51      ;;^UTILITY(U,$J,112,2383,2)

 +52      ;;=.073^.356^^^11.8^^^^^^^^166^.5

 +53      ;;^UTILITY(U,$J,112,2383,3)

 +54      ;;=.009^.019^.025^.036^.023^.008^.006^.022^.022^.028^.035^.012^.027^.069^.112^.023^.023^.025

 +55      ;;^UTILITY(U,$J,112,2383,20)

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

 +57      ;;^UTILITY(U,$J,112,2384,0)

 +58      ;;=BF, VEGETABLES, SQUASH, BUTTERED, JNR^3-107^jars^213^100^N

 +59      ;;^UTILITY(U,$J,112,2384,1)

 +60      ;;=.7^.6^6.4^30^91.8^^^31^.42^^^135^2^^^^^1530^7.6^.01

 +61      ;;^UTILITY(U,$J,112,2384,2)

 +62      ;;=.066^.315^^^11.7^^^^^^^^153^.5

 +63      ;;^UTILITY(U,$J,112,2384,3)

 +64      ;;=.01^.021^.028^.041^.026^.009^.006^.025^.024^.031^.04^.013^.03^.077^.125^.026^.025^.028

 +65      ;;^UTILITY(U,$J,112,2384,20)

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

 +67      ;;^UTILITY(U,$J,112,2385,0)

 +68      ;;=BF, VEGETABLES, SWEETPOTATOES, JNR^3-109^jars^220^100^N

 +69      ;;^UTILITY(U,$J,112,2385,1)

 +70      ;;=1.1^.1^13.9^60^84.1^^^16^.39^12^24^243^22^.11^.1^^^6636^9.6^.026

 +71      ;;^UTILITY(U,$J,112,2385,2)

 +72      ;;=.034^.384^.408^.113^10.3^0^^^^^^^664^.7^^^1.5

 +73      ;;^UTILITY(U,$J,112,2385,3)

 +74      ;;=.021^.053^.05^.076^.043^.023^.015^.061^.04^.071^.053^.025^.059^.195^.115^.049^.054^.05

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

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

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

 +78      ;;=BF, VEGETABLES, SWEETPOTATOES, BUTTERED, JNR^3-111^jars^220^100^N

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

 +80      ;;=.8^.7^12.2^57^85.6^^^28^.4^^^216^8^^^^^6043^9.3^.017

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

 +82      ;;=.045^.296^^^13.4^^^^^^^^604^.7

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

 +84      ;;=.015^.038^.036^.055^.031^.017^.011^.044^.029^.052^.038^.018^.043^.141^.083^.036^.039^.036

 +85      ;;^UTILITY(U,$J,112,2386,20)

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

 +87      ;;^UTILITY(U,$J,112,2387,0)

 +88      ;;=BF, FRUIT, APPLESAUCE, JNR^3-117^jars^213^100^N

 +89      ;;^UTILITY(U,$J,112,2387,1)

 +90      ;;=0^0^10.3^37^89.5^^^5^.22^3^6^77^2^.04^.035^^^9^37.8^.012

 +91      ;;^UTILITY(U,$J,112,2387,2)

 +92      ;;=.027^.063^.1^.03^1.7^0^^^^^^^1^.2^^^1.7

 +93      ;;^UTILITY(U,$J,112,2387,20)

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

 +95      ;;^UTILITY(U,$J,112,2388,0)

 +96      ;;=BF, VEGETABLES, CORN, CREAMED, JUNIOR^3-120^jars^213^100^N

 +97      ;;^UTILITY(U,$J,112,2388,1)

 +98      ;;=1.4^.4^16.3^65^81.4^^^18^.27^8^33^81^52^.23^.038^^^77^2.2^.013

 +99      ;;^UTILITY(U,$J,112,2388,2)

 +100     ;;=.048^.504^.327^.041^12.7^.02^^^^^^^8^.5^^^2.1

 +101     ;;^UTILITY(U,$J,112,2388,3)

 +102     ;;=.015^.052^.065^.141^.082^.04^.018^.049^.068^.078^.06^.046^.071^.099^.276^.036^.161^.062

 +103     ;;^UTILITY(U,$J,112,2388,20)

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