Routine: FHINI05E

FHINI05E	; ; 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,1829,2)

	;;=.03^1.5^^^^^0^^134^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SHRIMP, DRY PACK OR SOLIDS OF WET PACK^15-152^oz.^28.3^100^N

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

	;;=23.08^1.96^1.03^120^72.56^^^59^2.74^41^233^210^169^1.26^.3^.06^^60^2.3^.027

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

	;;=.037^2.755^.218^.111^1.8^1.121^.032^.016^173^.373^.293^.755^18^1.36^^^0

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

	;;=.321^.934^1.119^1.832^2.009^.65^.259^.975^.768^1.086^2.016^.469^1.307^2.386^3.937^1.392^.761^.908

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

	;;=^.006^.024^.209^.094^.117^.167^.099^^39.6

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

	;;=USDA Std. Reference, Release 10

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

	;;=SHRIMP OR LOBSTER PASTE, CND^2047-0^tsp.^7^100^N

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

	;;=20.8^9.4^1.5^180^61.3^^^115^3.1^^263^122^140^^^^^60^0^.01

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

	;;=.26^1.8^^^^^0^^172^5^^^^7

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

	;;=^^^^^^3

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SYRUP, CANE^2048-0^tbsp.^19.7^100^N

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

	;;=0^0^68^263^26^^^60^3.6^^29^425^5^^^^^0^0^.13

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

	;;=.06^.1^^^^^0^^0^0^^^^1.5

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

	;;=^^^^^^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SYRUP, MAPLE^19-353^tbsp.^19.7^100^N

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

	;;=0^.2^67.2^262^32^^^67^1.2^14^2^204^9^4.16^.074^3.298^^0^0^.006

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

	;;=.01^.03^.036^.002^0^0^^^0^^^^0^.6^^^0

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

	;;=^^^^^^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=SYRUP, SORGHUM^19-355^tbsp.^20.6^100^N

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

	;;=0^0^74.9^290^20.4^^^150^3.8^100^56^1000^8^.41^.13^1.53^^0^0^.1

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

	;;=.155^.1^.804^.67^0^0^^^0^^^^0^2.4^^^0

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

	;;=^^^^^^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=SYRUP, TABLE BLEND, CHIEFLY CORN, LIGHT AND DARK^19-349^tbsp.^20.5^100^N

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

	;;=0^0^76.6^282^22.8^^^18^.37^8^11^44^155^.04^.053^.1^^0^0^.011

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

	;;=.009^.02^.023^.009^0^0^^^0^^^^0^.4^^^0

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

	;;=^^^^^^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=SYRUP, TABLE BLEND, CANE AND MAPLE^2052-0^tbsp.^19.7^100^N

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

	;;=0^0^65^252^33^^^16^0^^1^26^2^^^^^0^0^0

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

	;;=0^0^^^^^0^^0^0^^^^.1

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

	;;=^^^^^^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SMELT, RAINBOW, COOKED, DRY HEAT^15-100^oz.^28.3^100^N

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

	;;=22.6^3.1^0^124^72.79^^^77^1.15^38^295^372^77^2.12^.178^.9^^58^0^.01

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

	;;=.146^1.766^.74^.17^4.6^3.969^.058^.063^90^.579^.822^1.135^17^1.79^^^0

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

	;;=.253^.991^1.041^1.837^2.076^.669^.242^.882^.763^1.164^1.352^.665^1.367^2.314^3.374^1.085^.799^.922

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

	;;=^.003^.1^.421^.255^.053^.522^.071

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

	;;=USDA Std. Reference, Release 10

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

	;;=SNAIL, RAW^2056-0^oz.^28.3^^N

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

	;;=16.1^1.4^2^90^79.2^^^10^3.5^^272^382^70^^^^^0^0^.01

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

	;;=.12^1.4^^^^^0^^50^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SNAIL, GIANT AFRICAN, RAW^2057-0^oz.^28.3^^N

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

	;;=9.9^1.4^4.4^73^82.2^^^10^3.5^^272^382^70^^^^^0^0^.01

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

	;;=.12^1.4^^^^^0^^50^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SOUP, GREEN PEA W/HAM, FRZ, PREP W/EQ VOL WATER^2125-0^cups^244^100^N

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

	;;=3.8^1.2^8^57^85.9^^^12^.8^^51^100^375^^^^^90^0^.08

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

	;;=.03^.5^^^^^0^^2^0^^^^1.2

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

	;;=^^^^^^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SOUP, CREAM OF POTATO, FRZ, PREP W/EQ VOL WATER^2127-0^cups^244^100^N

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

	;;=1.4^2.2^4.9^44^89.9^^^24^.4^^26^92^490^^^^^170^0^.02

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

	;;=.02^.2^^^^^0^^6^1^^^^1.6

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

	;;=^^^^^^1

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

	;;=USDA  Std. Reference, Release 8

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

	;;=SOUP, CREAM OF POTATO, FRZ, PREP W/EQ VOL MILK^2128-0^cups^248^100^N

FHINI05E  ; ; 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,1829,2)

 +2       ;;=.03^1.5^^^^^0^^134^0

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

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

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

 +6       ;;=SHRIMP, DRY PACK OR SOLIDS OF WET PACK^15-152^oz.^28.3^100^N

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

 +8       ;;=23.08^1.96^1.03^120^72.56^^^59^2.74^41^233^210^169^1.26^.3^.06^^60^2.3^.027

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

 +10      ;;=.037^2.755^.218^.111^1.8^1.121^.032^.016^173^.373^.293^.755^18^1.36^^^0

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

 +12      ;;=.321^.934^1.119^1.832^2.009^.65^.259^.975^.768^1.086^2.016^.469^1.307^2.386^3.937^1.392^.761^.908

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

 +14      ;;=^.006^.024^.209^.094^.117^.167^.099^^39.6

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

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

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

 +18      ;;=SHRIMP OR LOBSTER PASTE, CND^2047-0^tsp.^7^100^N

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

 +20      ;;=20.8^9.4^1.5^180^61.3^^^115^3.1^^263^122^140^^^^^60^0^.01

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

 +22      ;;=.26^1.8^^^^^0^^172^5^^^^7

 +23      ;;^UTILITY(U,$J,112,1831,4)

 +24      ;;=^^^^^^3

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

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

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

 +28      ;;=SYRUP, CANE^2048-0^tbsp.^19.7^100^N

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

 +30      ;;=0^0^68^263^26^^^60^3.6^^29^425^5^^^^^0^0^.13

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

 +32      ;;=.06^.1^^^^^0^^0^0^^^^1.5

 +33      ;;^UTILITY(U,$J,112,1832,4)

 +34      ;;=^^^^^^0

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

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

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

 +38      ;;=SYRUP, MAPLE^19-353^tbsp.^19.7^100^N

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

 +40      ;;=0^.2^67.2^262^32^^^67^1.2^14^2^204^9^4.16^.074^3.298^^0^0^.006

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

 +42      ;;=.01^.03^.036^.002^0^0^^^0^^^^0^.6^^^0

 +43      ;;^UTILITY(U,$J,112,1833,4)

 +44      ;;=^^^^^^0

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

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

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

 +48      ;;=SYRUP, SORGHUM^19-355^tbsp.^20.6^100^N

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

 +50      ;;=0^0^74.9^290^20.4^^^150^3.8^100^56^1000^8^.41^.13^1.53^^0^0^.1

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

 +52      ;;=.155^.1^.804^.67^0^0^^^0^^^^0^2.4^^^0

 +53      ;;^UTILITY(U,$J,112,1834,4)

 +54      ;;=^^^^^^0

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

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

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

 +58      ;;=SYRUP, TABLE BLEND, CHIEFLY CORN, LIGHT AND DARK^19-349^tbsp.^20.5^100^N

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

 +60      ;;=0^0^76.6^282^22.8^^^18^.37^8^11^44^155^.04^.053^.1^^0^0^.011

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

 +62      ;;=.009^.02^.023^.009^0^0^^^0^^^^0^.4^^^0

 +63      ;;^UTILITY(U,$J,112,1835,4)

 +64      ;;=^^^^^^0

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

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

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

 +68      ;;=SYRUP, TABLE BLEND, CANE AND MAPLE^2052-0^tbsp.^19.7^100^N

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

 +70      ;;=0^0^65^252^33^^^16^0^^1^26^2^^^^^0^0^0

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

 +72      ;;=0^0^^^^^0^^0^0^^^^.1

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

 +74      ;;=^^^^^^0

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

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

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

 +78      ;;=SMELT, RAINBOW, COOKED, DRY HEAT^15-100^oz.^28.3^100^N

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

 +80      ;;=22.6^3.1^0^124^72.79^^^77^1.15^38^295^372^77^2.12^.178^.9^^58^0^.01

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

 +82      ;;=.146^1.766^.74^.17^4.6^3.969^.058^.063^90^.579^.822^1.135^17^1.79^^^0

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

 +84      ;;=.253^.991^1.041^1.837^2.076^.669^.242^.882^.763^1.164^1.352^.665^1.367^2.314^3.374^1.085^.799^.922

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

 +86      ;;=^.003^.1^.421^.255^.053^.522^.071

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

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

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

 +90      ;;=SNAIL, RAW^2056-0^oz.^28.3^^N

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

 +92      ;;=16.1^1.4^2^90^79.2^^^10^3.5^^272^382^70^^^^^0^0^.01

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

 +94      ;;=.12^1.4^^^^^0^^50^0

 +95      ;;^UTILITY(U,$J,112,1838,20)

 +96      ;;=USDA  Std. Reference, Release 8

 +97      ;;^UTILITY(U,$J,112,1839,0)

 +98      ;;=SNAIL, GIANT AFRICAN, RAW^2057-0^oz.^28.3^^N

 +99      ;;^UTILITY(U,$J,112,1839,1)

 +100     ;;=9.9^1.4^4.4^73^82.2^^^10^3.5^^272^382^70^^^^^0^0^.01

 +101     ;;^UTILITY(U,$J,112,1839,2)

 +102     ;;=.12^1.4^^^^^0^^50^0

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

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

 +105     ;;^UTILITY(U,$J,112,1840,0)

 +106     ;;=SOUP, GREEN PEA W/HAM, FRZ, PREP W/EQ VOL WATER^2125-0^cups^244^100^N

 +107     ;;^UTILITY(U,$J,112,1840,1)

 +108     ;;=3.8^1.2^8^57^85.9^^^12^.8^^51^100^375^^^^^90^0^.08

 +109     ;;^UTILITY(U,$J,112,1840,2)

 +110     ;;=.03^.5^^^^^0^^2^0^^^^1.2

 +111     ;;^UTILITY(U,$J,112,1840,4)

 +112     ;;=^^^^^^0

 +113     ;;^UTILITY(U,$J,112,1840,20)

 +114     ;;=USDA  Std. Reference, Release 8

 +115     ;;^UTILITY(U,$J,112,1841,0)

 +116     ;;=SOUP, CREAM OF POTATO, FRZ, PREP W/EQ VOL WATER^2127-0^cups^244^100^N

 +117     ;;^UTILITY(U,$J,112,1841,1)

 +118     ;;=1.4^2.2^4.9^44^89.9^^^24^.4^^26^92^490^^^^^170^0^.02

 +119     ;;^UTILITY(U,$J,112,1841,2)

 +120     ;;=.02^.2^^^^^0^^6^1^^^^1.6

 +121     ;;^UTILITY(U,$J,112,1841,4)

 +122     ;;=^^^^^^1

 +123     ;;^UTILITY(U,$J,112,1841,20)

 +124     ;;=USDA  Std. Reference, Release 8

 +125     ;;^UTILITY(U,$J,112,1842,0)

 +126     ;;=SOUP, CREAM OF POTATO, FRZ, PREP W/EQ VOL MILK^2128-0^cups^248^100^N

FHINI05E.m