FHINI01G ; ; 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,340,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,341,0)
;;=BF, CEREAL, BARLEY, DRY^3-181^oz.^28.3^100^N
;;^UTILITY(U,$J,112,341,1)
;;=11.1^3.4^75.3^365^6.8^^^795^74.8^115^439^395^47^3.133^.467^^^16^2.2^2.737
;;^UTILITY(U,$J,112,341,2)
;;=2.699^35.988^.527^.374^29^0^^^^^^^^3.4^^^8.2
;;^UTILITY(U,$J,112,341,3)
;;=.136^.375^.419^.81^.365^.208^.264^.657^.409^.592^.566^.25^.422^.64^3.184^.422^1.445^.478
;;^UTILITY(U,$J,112,341,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,342,0)
;;=BF, CEREAL, HI-PROT, DRY^3-182^oz.^28.3^100^N
;;^UTILITY(U,$J,112,342,1)
;;=36^5.9^46.7^362^6.1^^^724^73.6^228^607^1353^47^4.421^1.275^^^15^2.2^2.668
;;^UTILITY(U,$J,112,342,2)
;;=2.701^34.063^1.238^.475^190^0^^^^^^^^5.3^^^7.1
;;^UTILITY(U,$J,112,342,3)
;;=.552^1.461^1.755^2.94^2.37^.608^.727^1.893^1.404^1.856^2.796^1.016^1.642^4.413^7.397^1.674^2.081^1.925
;;^UTILITY(U,$J,112,342,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,343,0)
;;=BF, CEREAL, MIXED, DRY^3-185^oz.^28.3^100^N
;;^UTILITY(U,$J,112,343,1)
;;=12.2^4.4^73.3^379^6.7^^^733^63.2^100^392^437^39^2.4^.334^^^20^2.3^2.438
;;^UTILITY(U,$J,112,343,2)
;;=2.717^34.714^1.074^.189^42.8^0^^^^^^^^3.3^^^7.5
;;^UTILITY(U,$J,112,343,3)
;;=.158^.4^.477^1.041^.404^.24^.346^.672^.491^.653^.703^.286^.583^.726^3.184^.551^1.047^.57
;;^UTILITY(U,$J,112,343,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,344,0)
;;=BF, CEREAL, OATMEAL, DRY^3-189^oz.^28.3^100^N
;;^UTILITY(U,$J,112,344,1)
;;=13.6^7.8^69.2^398^6.2^^^733^73.6^145^499^470^33^3.687^.527^^^16^3.2^2.889
;;^UTILITY(U,$J,112,344,2)
;;=2.607^35.969^1.534^.153^35.3^0^^^^^^^^3.2^^^6.6
;;^UTILITY(U,$J,112,344,3)
;;=.177^.471^.55^1.072^.571^.263^.485^.545^.55^.771^1.035^.24^.662^1.156^3.206^.725^.697^.678
;;^UTILITY(U,$J,112,344,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,345,0)
;;=BF, COOKIES^3-213^cookies^6.5^100^N
;;^UTILITY(U,$J,112,345,1)
;;=11.8^13.2^67.1^433^5.9^^^101^4.18^49^179^501^192^1.1^.074^^^23^7^1.459
;;^UTILITY(U,$J,112,345,2)
;;=3.229^15.966^.529^5.899^10^4.59^.99^.04^^3.7^7.38^1.11^2^2^^^.2
;;^UTILITY(U,$J,112,345,4)
;;=^.01^.04^2.42^.01^1.14^7.37
;;^UTILITY(U,$J,112,345,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,346,0)
;;=BF, PRETZELS^3-215^pretzels^6^100^N
;;^UTILITY(U,$J,112,346,1)
;;=10.8^2^82.2^397^4^^^25^3.77^28^110^137^269^.78^.145^^^8^3.8^.463
;;^UTILITY(U,$J,112,346,2)
;;=.357^3.56^.54^.083^20^0^^^^^^^1^1^^^2.3
;;^UTILITY(U,$J,112,346,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,347,0)
;;=BF, TEETHING BISCUITS^3-216^biscuits^11^100^N
;;^UTILITY(U,$J,112,347,1)
;;=10.7^4.2^76.4^392^6.4^^^263^3.55^35^164^323^362^.925^.142^^^116^9.1^.233
;;^UTILITY(U,$J,112,347,2)
;;=.537^4.33^.526^.111^20^.07^^^^^^^12^2.3^^^1.4
;;^UTILITY(U,$J,112,347,3)
;;=.189^.568^.845^1.46^.351^.275^.151^.526^.665^.881^.597^.399^.665^1.005^4.618^.493^1.147^.701
;;^UTILITY(U,$J,112,347,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,348,0)
;;=ZWIEBACK^3-217^pieces^7^100^N
;;^UTILITY(U,$J,112,348,1)
;;=10.1^9.7^74.2^426^4.5^^^20^.6^14^55^305^232^.54^.145^^^58^5.3^.208
;;^UTILITY(U,$J,112,348,2)
;;=.239^1.319^.537^.082^20^0^1.16^.11^20.8^3.95^3.84^1.29^6^1.5^^^2.5
;;^UTILITY(U,$J,112,348,4)
;;=.1^.13^.45^1.98^.1^1.06^3.73^.01
;;^UTILITY(U,$J,112,348,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,349,0)
;;=BF, DINNER, MIXED VEGETABLE, STR^3-278^jars^128^100^N
;;^UTILITY(U,$J,112,349,1)
;;=1.2^.1^9.5^41^88.7^^^22^.33^11^24^121^8^.161^.044^^^2728^2.8^.015
;;^UTILITY(U,$J,112,349,2)
;;=.031^.502^.277^.075^8^0^^^^^^^273^.5
;;^UTILITY(U,$J,112,349,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,350,0)
;;=LARD^4-002^cups^205^100^N
;;^UTILITY(U,$J,112,350,1)
;;=0^100^0^902^0^^^.07^0^.02^0^.02^.01^.11^^0^1.2^0^0^0
;;^UTILITY(U,$J,112,350,2)
;;=0^0^0^0^0^0^10.2^1^95^39.2^45.1^11.2^0^0^^^0^1.3
;;^UTILITY(U,$J,112,350,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,350,4)
;;=.1^.2^1.3^23.8^2.7^13.5^41.2^0^^.2
;;^UTILITY(U,$J,112,350,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,351,0)
;;=SALAD DRESSING, RUSSIAN, W/SALT^4-015^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,351,1)
;;=1.6^50.8^10.4^494^34.5^^^19^.6^1.5^37^157^868^.43^^^6^690^6^.05
;;^UTILITY(U,$J,112,351,2)
;;=.05^.6^.4^.03^10.4^.3^25.9^3.5^18^7.3^11.8^29.4^207^2.7^^^0^48
;;^UTILITY(U,$J,112,351,3)
;;=.024^.087^.092^.136^.108^.041^.028^.07^.07^.098^.111^.038^.08^.134^.196^.048^.067^.133
;;^UTILITY(U,$J,112,351,4)
;;=0^0^0^5.2^.1^1.9^11.6^0
FHINI01G ; ; 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,340,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,341,0)
+4 ;;=BF, CEREAL, BARLEY, DRY^3-181^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,341,1)
+6 ;;=11.1^3.4^75.3^365^6.8^^^795^74.8^115^439^395^47^3.133^.467^^^16^2.2^2.737
+7 ;;^UTILITY(U,$J,112,341,2)
+8 ;;=2.699^35.988^.527^.374^29^0^^^^^^^^3.4^^^8.2
+9 ;;^UTILITY(U,$J,112,341,3)
+10 ;;=.136^.375^.419^.81^.365^.208^.264^.657^.409^.592^.566^.25^.422^.64^3.184^.422^1.445^.478
+11 ;;^UTILITY(U,$J,112,341,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,342,0)
+14 ;;=BF, CEREAL, HI-PROT, DRY^3-182^oz.^28.3^100^N
+15 ;;^UTILITY(U,$J,112,342,1)
+16 ;;=36^5.9^46.7^362^6.1^^^724^73.6^228^607^1353^47^4.421^1.275^^^15^2.2^2.668
+17 ;;^UTILITY(U,$J,112,342,2)
+18 ;;=2.701^34.063^1.238^.475^190^0^^^^^^^^5.3^^^7.1
+19 ;;^UTILITY(U,$J,112,342,3)
+20 ;;=.552^1.461^1.755^2.94^2.37^.608^.727^1.893^1.404^1.856^2.796^1.016^1.642^4.413^7.397^1.674^2.081^1.925
+21 ;;^UTILITY(U,$J,112,342,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,343,0)
+24 ;;=BF, CEREAL, MIXED, DRY^3-185^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,343,1)
+26 ;;=12.2^4.4^73.3^379^6.7^^^733^63.2^100^392^437^39^2.4^.334^^^20^2.3^2.438
+27 ;;^UTILITY(U,$J,112,343,2)
+28 ;;=2.717^34.714^1.074^.189^42.8^0^^^^^^^^3.3^^^7.5
+29 ;;^UTILITY(U,$J,112,343,3)
+30 ;;=.158^.4^.477^1.041^.404^.24^.346^.672^.491^.653^.703^.286^.583^.726^3.184^.551^1.047^.57
+31 ;;^UTILITY(U,$J,112,343,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,344,0)
+34 ;;=BF, CEREAL, OATMEAL, DRY^3-189^oz.^28.3^100^N
+35 ;;^UTILITY(U,$J,112,344,1)
+36 ;;=13.6^7.8^69.2^398^6.2^^^733^73.6^145^499^470^33^3.687^.527^^^16^3.2^2.889
+37 ;;^UTILITY(U,$J,112,344,2)
+38 ;;=2.607^35.969^1.534^.153^35.3^0^^^^^^^^3.2^^^6.6
+39 ;;^UTILITY(U,$J,112,344,3)
+40 ;;=.177^.471^.55^1.072^.571^.263^.485^.545^.55^.771^1.035^.24^.662^1.156^3.206^.725^.697^.678
+41 ;;^UTILITY(U,$J,112,344,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,345,0)
+44 ;;=BF, COOKIES^3-213^cookies^6.5^100^N
+45 ;;^UTILITY(U,$J,112,345,1)
+46 ;;=11.8^13.2^67.1^433^5.9^^^101^4.18^49^179^501^192^1.1^.074^^^23^7^1.459
+47 ;;^UTILITY(U,$J,112,345,2)
+48 ;;=3.229^15.966^.529^5.899^10^4.59^.99^.04^^3.7^7.38^1.11^2^2^^^.2
+49 ;;^UTILITY(U,$J,112,345,4)
+50 ;;=^.01^.04^2.42^.01^1.14^7.37
+51 ;;^UTILITY(U,$J,112,345,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,346,0)
+54 ;;=BF, PRETZELS^3-215^pretzels^6^100^N
+55 ;;^UTILITY(U,$J,112,346,1)
+56 ;;=10.8^2^82.2^397^4^^^25^3.77^28^110^137^269^.78^.145^^^8^3.8^.463
+57 ;;^UTILITY(U,$J,112,346,2)
+58 ;;=.357^3.56^.54^.083^20^0^^^^^^^1^1^^^2.3
+59 ;;^UTILITY(U,$J,112,346,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,347,0)
+62 ;;=BF, TEETHING BISCUITS^3-216^biscuits^11^100^N
+63 ;;^UTILITY(U,$J,112,347,1)
+64 ;;=10.7^4.2^76.4^392^6.4^^^263^3.55^35^164^323^362^.925^.142^^^116^9.1^.233
+65 ;;^UTILITY(U,$J,112,347,2)
+66 ;;=.537^4.33^.526^.111^20^.07^^^^^^^12^2.3^^^1.4
+67 ;;^UTILITY(U,$J,112,347,3)
+68 ;;=.189^.568^.845^1.46^.351^.275^.151^.526^.665^.881^.597^.399^.665^1.005^4.618^.493^1.147^.701
+69 ;;^UTILITY(U,$J,112,347,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,348,0)
+72 ;;=ZWIEBACK^3-217^pieces^7^100^N
+73 ;;^UTILITY(U,$J,112,348,1)
+74 ;;=10.1^9.7^74.2^426^4.5^^^20^.6^14^55^305^232^.54^.145^^^58^5.3^.208
+75 ;;^UTILITY(U,$J,112,348,2)
+76 ;;=.239^1.319^.537^.082^20^0^1.16^.11^20.8^3.95^3.84^1.29^6^1.5^^^2.5
+77 ;;^UTILITY(U,$J,112,348,4)
+78 ;;=.1^.13^.45^1.98^.1^1.06^3.73^.01
+79 ;;^UTILITY(U,$J,112,348,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,349,0)
+82 ;;=BF, DINNER, MIXED VEGETABLE, STR^3-278^jars^128^100^N
+83 ;;^UTILITY(U,$J,112,349,1)
+84 ;;=1.2^.1^9.5^41^88.7^^^22^.33^11^24^121^8^.161^.044^^^2728^2.8^.015
+85 ;;^UTILITY(U,$J,112,349,2)
+86 ;;=.031^.502^.277^.075^8^0^^^^^^^273^.5
+87 ;;^UTILITY(U,$J,112,349,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,350,0)
+90 ;;=LARD^4-002^cups^205^100^N
+91 ;;^UTILITY(U,$J,112,350,1)
+92 ;;=0^100^0^902^0^^^.07^0^.02^0^.02^.01^.11^^0^1.2^0^0^0
+93 ;;^UTILITY(U,$J,112,350,2)
+94 ;;=0^0^0^0^0^0^10.2^1^95^39.2^45.1^11.2^0^0^^^0^1.3
+95 ;;^UTILITY(U,$J,112,350,3)
+96 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+97 ;;^UTILITY(U,$J,112,350,4)
+98 ;;=.1^.2^1.3^23.8^2.7^13.5^41.2^0^^.2
+99 ;;^UTILITY(U,$J,112,350,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,351,0)
+102 ;;=SALAD DRESSING, RUSSIAN, W/SALT^4-015^tbsp.^15.3^100^N
+103 ;;^UTILITY(U,$J,112,351,1)
+104 ;;=1.6^50.8^10.4^494^34.5^^^19^.6^1.5^37^157^868^.43^^^6^690^6^.05
+105 ;;^UTILITY(U,$J,112,351,2)
+106 ;;=.05^.6^.4^.03^10.4^.3^25.9^3.5^18^7.3^11.8^29.4^207^2.7^^^0^48
+107 ;;^UTILITY(U,$J,112,351,3)
+108 ;;=.024^.087^.092^.136^.108^.041^.028^.07^.07^.098^.111^.038^.08^.134^.196^.048^.067^.133
+109 ;;^UTILITY(U,$J,112,351,4)
+110 ;;=0^0^0^5.2^.1^1.9^11.6^0
