FHINI05S ; ; 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,1992,4)
;;=^^^2.126^.077^1.394^11.856^^^17
;;^UTILITY(U,$J,112,1992,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1993,0)
;;=WALNUTS, ENGLISH^12-155^oz.^28.3^45^N
;;^UTILITY(U,$J,112,1993,1)
;;=14.29^61.87^18.34^642^3.65^^^94^2.44^169^317^502^10^2.73^1.387^2.898^^124^3.2^.382
;;^UTILITY(U,$J,112,1993,2)
;;=.148^1.042^.631^.558^66^0^31.762^6.811^0^5.586^14.175^39.125^12^1.86^^^4.2
;;^UTILITY(U,$J,112,1993,3)
;;=.189^.448^.566^.992^.388^.28^.345^.628^.439^.723^2.103^.359^.609^1.475^2.809^.755^.553^.782
;;^UTILITY(U,$J,112,1993,4)
;;=^^.189^4.242^.161^1.079^13.301^.024^^4.6
;;^UTILITY(U,$J,112,1993,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1994,0)
;;=WATERCHESTNUTS, CHINESE, RAW^11-588^oz.^28.3^77^N
;;^UTILITY(U,$J,112,1994,1)
;;=1.4^.1^23.94^106^73.46^^^11^.06^22^63^584^14^.5^.326^.331^^0^4^.14
;;^UTILITY(U,$J,112,1994,2)
;;=.2^1^.479^.328^16.1^0^^^0^^^^0^1.1^^^3
;;^UTILITY(U,$J,112,1994,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1995,0)
;;=WATERCRESS, RAW^11-591^cups^35^92^N
;;^UTILITY(U,$J,112,1995,1)
;;=2.3^.1^1.29^11^95.11^^^120^.2^21^60^330^41^.11^.077^.244^^4700^43^.09
;;^UTILITY(U,$J,112,1995,2)
;;=.12^.2^.31^.129^9.2^0^.012^.023^0^.027^.008^.035^470^1.2^^^1.9
;;^UTILITY(U,$J,112,1995,3)
;;=.03^.133^.093^.166^.134^.02^.007^.114^.063^.137^.15^.04^.137^.187^.19^.112^.096^.06
;;^UTILITY(U,$J,112,1995,4)
;;=^^^.024^.002^.003^.006^^250
;;^UTILITY(U,$J,112,1995,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1996,0)
;;=WELSH RAREBIT^2428-0^cups^232^100^N
;;^UTILITY(U,$J,112,1996,1)
;;=8.1^13.6^6.3^179^70.2^^^251^.3^^186^138^332^^^^^530^0^.04
;;^UTILITY(U,$J,112,1996,2)
;;=.23^.1^^^^^.42^^43^7.44^^^^1.8
;;^UTILITY(U,$J,112,1996,4)
;;=^^^^^^4.47
;;^UTILITY(U,$J,112,1996,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1997,0)
;;=FLOUR, WHOLE WHEAT, FROM HARD WHEATS^20-080^cups^120^100^N
;;^UTILITY(U,$J,112,1997,1)
;;=13.7^1.87^72.57^339^10.27^^^34^3.88^138^346^405^5^2.93^.382^3.799^^0^0^.447
;;^UTILITY(U,$J,112,1997,2)
;;=.215^6.365^1.008^.341^44^0^.738^.038^0^.322^.232^.779^0^1.6^^^10.9
;;^UTILITY(U,$J,112,1997,3)
;;=.212^.395^.508^.926^.378^.212^.317^.646^.4^.618^.642^.317^.487^.703^4.325^.552^1.422^.646
;;^UTILITY(U,$J,112,1997,4)
;;=^0^.003^.271^.013^.015^.219^.002^1.1^70.7
;;^UTILITY(U,$J,112,1997,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1998,0)
;;=FLOUR, WHEAT, ALL PURPOSE OR FAMILY, ENR^20-081^cups^137^100^N
;;^UTILITY(U,$J,112,1998,1)
;;=10.33^.98^76.31^364^11.92^^^15^4.64^22^108^107^2^.7^.144^.682^.03^0^0^.785
;;^UTILITY(U,$J,112,1998,2)
;;=.494^5.904^.438^.044^26^0^.391^.022^0^.155^.087^.413^0^.47^^^3.6
;;^UTILITY(U,$J,112,1998,3)
;;=.127^.281^.357^.71^.228^.183^.219^.52^.312^.415^.417^.23^.332^.435^3.479^.371^1.198^.516
;;^UTILITY(U,$J,112,1998,4)
;;=^^^.148^^.007^.087^^.6^33.9
;;^UTILITY(U,$J,112,1998,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1999,0)
;;=FLOUR, WHEAT, ALL PURPOSE OR FAMILY, UNENR^20-481^cups^125^100^N
;;^UTILITY(U,$J,112,1999,1)
;;=10.33^.98^76.31^364^11.92^^^15^1.17^22^108^107^2^.7^.144^.682^^^0^.12
;;^UTILITY(U,$J,112,1999,2)
;;=.04^1.25^.438^.044^26^0^.391^.022^0^.155^.087^.413^^.47^^^2.7
;;^UTILITY(U,$J,112,1999,3)
;;=.127^.281^.357^.71^.228^.183^.219^.52^.312^.415^.417^.23^.332^.435^3.479^.371^1.198^.516
;;^UTILITY(U,$J,112,1999,4)
;;=^^^.148^^.007^.087
;;^UTILITY(U,$J,112,1999,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2000,0)
;;=FLOUR, BREAD, ENR^20-083^cups^137^100^N
;;^UTILITY(U,$J,112,2000,1)
;;=11.98^1.66^72.53^361^13.36^^^15^4.41^25^97^100^2^.85^.182^.792^^0^0^.812
;;^UTILITY(U,$J,112,2000,2)
;;=.512^7.554^.438^.037^29^0^.685^.043^0^.244^.14^.727^0^.47^^^2.4
;;^UTILITY(U,$J,112,2000,3)
;;=.139^.32^.444^.828^.231^.21^.269^.591^.328^.502^.416^.254^.366^.484^4.198^.41^1.409^.58
;;^UTILITY(U,$J,112,2000,4)
;;=^^.001^.218^.005^.01^.135^^^39.7
;;^UTILITY(U,$J,112,2000,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2001,0)
;;=FLOUR, BREAD, UNENR^2442-0^cups^137^^N
;;^UTILITY(U,$J,112,2001,1)
;;=11.8^1.1^74.7^365^12^^^16^.9^^95^95^2^^^^^0^0^.08
;;^UTILITY(U,$J,112,2001,2)
;;=.06^1^^^^^0^^0^0
;;^UTILITY(U,$J,112,2001,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2002,0)
;;=FLOUR, CAKE, PATENT^20-084^cups^118^100^N
FHINI05S ; ; 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,1992,4)
+2 ;;=^^^2.126^.077^1.394^11.856^^^17
+3 ;;^UTILITY(U,$J,112,1992,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1993,0)
+6 ;;=WALNUTS, ENGLISH^12-155^oz.^28.3^45^N
+7 ;;^UTILITY(U,$J,112,1993,1)
+8 ;;=14.29^61.87^18.34^642^3.65^^^94^2.44^169^317^502^10^2.73^1.387^2.898^^124^3.2^.382
+9 ;;^UTILITY(U,$J,112,1993,2)
+10 ;;=.148^1.042^.631^.558^66^0^31.762^6.811^0^5.586^14.175^39.125^12^1.86^^^4.2
+11 ;;^UTILITY(U,$J,112,1993,3)
+12 ;;=.189^.448^.566^.992^.388^.28^.345^.628^.439^.723^2.103^.359^.609^1.475^2.809^.755^.553^.782
+13 ;;^UTILITY(U,$J,112,1993,4)
+14 ;;=^^.189^4.242^.161^1.079^13.301^.024^^4.6
+15 ;;^UTILITY(U,$J,112,1993,20)
+16 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+17 ;;^UTILITY(U,$J,112,1994,0)
+18 ;;=WATERCHESTNUTS, CHINESE, RAW^11-588^oz.^28.3^77^N
+19 ;;^UTILITY(U,$J,112,1994,1)
+20 ;;=1.4^.1^23.94^106^73.46^^^11^.06^22^63^584^14^.5^.326^.331^^0^4^.14
+21 ;;^UTILITY(U,$J,112,1994,2)
+22 ;;=.2^1^.479^.328^16.1^0^^^0^^^^0^1.1^^^3
+23 ;;^UTILITY(U,$J,112,1994,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1995,0)
+26 ;;=WATERCRESS, RAW^11-591^cups^35^92^N
+27 ;;^UTILITY(U,$J,112,1995,1)
+28 ;;=2.3^.1^1.29^11^95.11^^^120^.2^21^60^330^41^.11^.077^.244^^4700^43^.09
+29 ;;^UTILITY(U,$J,112,1995,2)
+30 ;;=.12^.2^.31^.129^9.2^0^.012^.023^0^.027^.008^.035^470^1.2^^^1.9
+31 ;;^UTILITY(U,$J,112,1995,3)
+32 ;;=.03^.133^.093^.166^.134^.02^.007^.114^.063^.137^.15^.04^.137^.187^.19^.112^.096^.06
+33 ;;^UTILITY(U,$J,112,1995,4)
+34 ;;=^^^.024^.002^.003^.006^^250
+35 ;;^UTILITY(U,$J,112,1995,20)
+36 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+37 ;;^UTILITY(U,$J,112,1996,0)
+38 ;;=WELSH RAREBIT^2428-0^cups^232^100^N
+39 ;;^UTILITY(U,$J,112,1996,1)
+40 ;;=8.1^13.6^6.3^179^70.2^^^251^.3^^186^138^332^^^^^530^0^.04
+41 ;;^UTILITY(U,$J,112,1996,2)
+42 ;;=.23^.1^^^^^.42^^43^7.44^^^^1.8
+43 ;;^UTILITY(U,$J,112,1996,4)
+44 ;;=^^^^^^4.47
+45 ;;^UTILITY(U,$J,112,1996,20)
+46 ;;=USDA Std. Reference, Release 8
+47 ;;^UTILITY(U,$J,112,1997,0)
+48 ;;=FLOUR, WHOLE WHEAT, FROM HARD WHEATS^20-080^cups^120^100^N
+49 ;;^UTILITY(U,$J,112,1997,1)
+50 ;;=13.7^1.87^72.57^339^10.27^^^34^3.88^138^346^405^5^2.93^.382^3.799^^0^0^.447
+51 ;;^UTILITY(U,$J,112,1997,2)
+52 ;;=.215^6.365^1.008^.341^44^0^.738^.038^0^.322^.232^.779^0^1.6^^^10.9
+53 ;;^UTILITY(U,$J,112,1997,3)
+54 ;;=.212^.395^.508^.926^.378^.212^.317^.646^.4^.618^.642^.317^.487^.703^4.325^.552^1.422^.646
+55 ;;^UTILITY(U,$J,112,1997,4)
+56 ;;=^0^.003^.271^.013^.015^.219^.002^1.1^70.7
+57 ;;^UTILITY(U,$J,112,1997,20)
+58 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+59 ;;^UTILITY(U,$J,112,1998,0)
+60 ;;=FLOUR, WHEAT, ALL PURPOSE OR FAMILY, ENR^20-081^cups^137^100^N
+61 ;;^UTILITY(U,$J,112,1998,1)
+62 ;;=10.33^.98^76.31^364^11.92^^^15^4.64^22^108^107^2^.7^.144^.682^.03^0^0^.785
+63 ;;^UTILITY(U,$J,112,1998,2)
+64 ;;=.494^5.904^.438^.044^26^0^.391^.022^0^.155^.087^.413^0^.47^^^3.6
+65 ;;^UTILITY(U,$J,112,1998,3)
+66 ;;=.127^.281^.357^.71^.228^.183^.219^.52^.312^.415^.417^.23^.332^.435^3.479^.371^1.198^.516
+67 ;;^UTILITY(U,$J,112,1998,4)
+68 ;;=^^^.148^^.007^.087^^.6^33.9
+69 ;;^UTILITY(U,$J,112,1998,20)
+70 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+71 ;;^UTILITY(U,$J,112,1999,0)
+72 ;;=FLOUR, WHEAT, ALL PURPOSE OR FAMILY, UNENR^20-481^cups^125^100^N
+73 ;;^UTILITY(U,$J,112,1999,1)
+74 ;;=10.33^.98^76.31^364^11.92^^^15^1.17^22^108^107^2^.7^.144^.682^^^0^.12
+75 ;;^UTILITY(U,$J,112,1999,2)
+76 ;;=.04^1.25^.438^.044^26^0^.391^.022^0^.155^.087^.413^^.47^^^2.7
+77 ;;^UTILITY(U,$J,112,1999,3)
+78 ;;=.127^.281^.357^.71^.228^.183^.219^.52^.312^.415^.417^.23^.332^.435^3.479^.371^1.198^.516
+79 ;;^UTILITY(U,$J,112,1999,4)
+80 ;;=^^^.148^^.007^.087
+81 ;;^UTILITY(U,$J,112,1999,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2000,0)
+84 ;;=FLOUR, BREAD, ENR^20-083^cups^137^100^N
+85 ;;^UTILITY(U,$J,112,2000,1)
+86 ;;=11.98^1.66^72.53^361^13.36^^^15^4.41^25^97^100^2^.85^.182^.792^^0^0^.812
+87 ;;^UTILITY(U,$J,112,2000,2)
+88 ;;=.512^7.554^.438^.037^29^0^.685^.043^0^.244^.14^.727^0^.47^^^2.4
+89 ;;^UTILITY(U,$J,112,2000,3)
+90 ;;=.139^.32^.444^.828^.231^.21^.269^.591^.328^.502^.416^.254^.366^.484^4.198^.41^1.409^.58
+91 ;;^UTILITY(U,$J,112,2000,4)
+92 ;;=^^.001^.218^.005^.01^.135^^^39.7
+93 ;;^UTILITY(U,$J,112,2000,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2001,0)
+96 ;;=FLOUR, BREAD, UNENR^2442-0^cups^137^^N
+97 ;;^UTILITY(U,$J,112,2001,1)
+98 ;;=11.8^1.1^74.7^365^12^^^16^.9^^95^95^2^^^^^0^0^.08
+99 ;;^UTILITY(U,$J,112,2001,2)
+100 ;;=.06^1^^^^^0^^0^0
+101 ;;^UTILITY(U,$J,112,2001,20)
+102 ;;=USDA Std. Reference, Release 8
+103 ;;^UTILITY(U,$J,112,2002,0)
+104 ;;=FLOUR, CAKE, PATENT^20-084^cups^118^100^N
