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
