FHINI02F ; ; 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,667,4)
;;=^.001^.001^.064^.001^.004^.009
;;^UTILITY(U,$J,112,667,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,668,0)
;;=ASPARAGUS, CND, REG PACK^11-013^cups^244^100^N
;;^UTILITY(U,$J,112,668,1)
;;=1.8^.19^2.25^14^94.63^^^14^.58^9^38^153^348^.47^.107^.152^^474^16.4^.054
;;^UTILITY(U,$J,112,668,2)
;;=.089^.851^.124^.098^85.3^0^.08^.004^0^.044^.006^.085^47^1.13^^^1.7
;;^UTILITY(U,$J,112,668,3)
;;=.018^.05^.066^.078^.085^.017^.021^.043^.029^.069^.084^.028^.085^.209^.295^.058^.096^.069
;;^UTILITY(U,$J,112,668,4)
;;=^.001^.001^.039^.001^.003^.005
;;^UTILITY(U,$J,112,668,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,670,0)
;;=ASPARAGUS, CND, DIET PK, LO NA^11-707^cups^244^100^N
;;^UTILITY(U,$J,112,670,1)
;;=1.8^.19^2.25^14^94.63^^^14^.58^9^38^153^4^.47^.107^.152^^474^16.4^.054
;;^UTILITY(U,$J,112,670,2)
;;=.089^.851^.124^.098^85.3^0^.08^.004^0^.044^.006^.085^47^1.13^^^1.7
;;^UTILITY(U,$J,112,670,3)
;;=.018^.05^.066^.078^.085^.017^.021^.043^.029^.069^.084^.028^.085^.209^.295^.058^.096^.069
;;^UTILITY(U,$J,112,670,4)
;;=^.001^.001^.039^.001^.003^.005
;;^UTILITY(U,$J,112,670,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,676,0)
;;=ASPARAGUS, FRZ, CKD WO/SALT^11-019^cups^180^100^N
;;^UTILITY(U,$J,112,676,1)
;;=2.95^.42^4.87^28^91.15^^^23^.64^13^55^218^4^.56^.171^.185^^818^24.4^.065
;;^UTILITY(U,$J,112,676,2)
;;=.103^1.038^.158^.02^134.7^0^.174^.01^0^.095^.013^.184^82^.61
;;^UTILITY(U,$J,112,676,3)
;;=.029^.082^.109^.128^.14^.028^.035^.07^.047^.114^.138^.046^.139^.342^.483^.096^.157^.112
;;^UTILITY(U,$J,112,676,4)
;;=^.001^.003^.085^.002^.006^.011^^^1.7
;;^UTILITY(U,$J,112,676,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,677,0)
;;=ASPARAGUS, FRZ, CKD W/SALT^11-709^cups^180^100^N
;;^UTILITY(U,$J,112,677,1)
;;=2.95^.42^4.87^28^91.15^^^23^.64^13^55^218^240^.56^.171^.185^^818^24.4^.065
;;^UTILITY(U,$J,112,677,2)
;;=.103^1.038^.158^.02^134.7^0^.174^.01^0^.095^.013^.184^82^.61
;;^UTILITY(U,$J,112,677,3)
;;=.029^.082^.109^.128^.14^.028^.035^.07^.047^.114^.138^.046^.139^.342^.483^.096^.157^.112
;;^UTILITY(U,$J,112,677,4)
;;=^.001^.003^.085^.002^.006^.011
;;^UTILITY(U,$J,112,677,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,680,0)
;;=BAKING POWDER, NA AL SO4^130-0^tbsp.^11^100^N
;;^UTILITY(U,$J,112,680,1)
;;=.1^0^31.2^129^1.6^^^1932^0^^2904^150^10953^^^^^0^0^0
;;^UTILITY(U,$J,112,680,2)
;;=0^0^^^^^0^^0^0^^^^67.1
;;^UTILITY(U,$J,112,680,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,680,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,681,0)
;;=BAKING POWDER, TARTRATE^134-0^tbsp.^9.5^100^N
;;^UTILITY(U,$J,112,681,1)
;;=.1^0^18.9^78^1^^^0^0^^0^3800^7300^^^^^0^0^0
;;^UTILITY(U,$J,112,681,2)
;;=0^0^^^^^0^^0^0^^^^80
;;^UTILITY(U,$J,112,681,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,681,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,682,0)
;;=BAKING POWDER, LO NA COMMERCIAL^18-371^tbsp.^13.5^100^N
;;^UTILITY(U,$J,112,682,1)
;;=.1^.4^46.9^97^6.2^^^4332^8.17^29^6869^10100^90^.72^.019^.42^^0^0^0
;;^UTILITY(U,$J,112,682,2)
;;=0^0^0^0^0^0^^^0^^^^0^46.4
;;^UTILITY(U,$J,112,682,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,682,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,683,0)
;;=BAKING POWDER, LO NA NON-COMMERCIAL^136-0^tsp.^3^100^N
;;^UTILITY(U,$J,112,683,1)
;;=.1^0^20.1^83^1.1^^^4816^0^^7308^20728.992^6^^^^^0^0^0
;;^UTILITY(U,$J,112,683,2)
;;=0^0^^^^^0^^0^0^^^^78.7
;;^UTILITY(U,$J,112,683,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,683,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,684,0)
;;=BAMBOO SHOOTS, RAW^11-026^cups^151^29^N
;;^UTILITY(U,$J,112,684,1)
;;=2.6^.3^5.2^27^91^^^13^.5^3^59^533^4^1.1^.19^.262^^20^4^.15
;;^UTILITY(U,$J,112,684,2)
;;=.07^.6^.161^.24^7.1^0^.114^.02^0^.069^.007^.134^2^.9^^^2.2
;;^UTILITY(U,$J,112,684,3)
;;=.027^.086^.088^.14^.134^.03^.022^.09^^.106^.097^.042^.124^.425^.248^.087^.219^.127
;;^UTILITY(U,$J,112,684,4)
;;=^.002^.002^.051^^.006^.007
;;^UTILITY(U,$J,112,684,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,686,0)
;;=BANANAS, RED, RAW^142-0^bananas^131.24^100^N
;;^UTILITY(U,$J,112,686,1)
;;=1.2^.2^23.4^90^74.4^^^10^.8^^18^370^1^^^^^400^10^.05
;;^UTILITY(U,$J,112,686,2)
;;=.04^.6^^^^^0^^0^0^^^^.8
;;^UTILITY(U,$J,112,686,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,686,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,687,0)
;;=BARLEY, PEARLED, LIGHT^20-005^cups^200^100^N
;;^UTILITY(U,$J,112,687,1)
;;=9.91^1.16^77.72^352^10.09^^^29^2.5^79^221^280^9^2.13^.42^1.322^.02^22^0^.191
FHINI02F ; ; 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,667,4)
+2 ;;=^.001^.001^.064^.001^.004^.009
+3 ;;^UTILITY(U,$J,112,667,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,668,0)
+6 ;;=ASPARAGUS, CND, REG PACK^11-013^cups^244^100^N
+7 ;;^UTILITY(U,$J,112,668,1)
+8 ;;=1.8^.19^2.25^14^94.63^^^14^.58^9^38^153^348^.47^.107^.152^^474^16.4^.054
+9 ;;^UTILITY(U,$J,112,668,2)
+10 ;;=.089^.851^.124^.098^85.3^0^.08^.004^0^.044^.006^.085^47^1.13^^^1.7
+11 ;;^UTILITY(U,$J,112,668,3)
+12 ;;=.018^.05^.066^.078^.085^.017^.021^.043^.029^.069^.084^.028^.085^.209^.295^.058^.096^.069
+13 ;;^UTILITY(U,$J,112,668,4)
+14 ;;=^.001^.001^.039^.001^.003^.005
+15 ;;^UTILITY(U,$J,112,668,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,670,0)
+18 ;;=ASPARAGUS, CND, DIET PK, LO NA^11-707^cups^244^100^N
+19 ;;^UTILITY(U,$J,112,670,1)
+20 ;;=1.8^.19^2.25^14^94.63^^^14^.58^9^38^153^4^.47^.107^.152^^474^16.4^.054
+21 ;;^UTILITY(U,$J,112,670,2)
+22 ;;=.089^.851^.124^.098^85.3^0^.08^.004^0^.044^.006^.085^47^1.13^^^1.7
+23 ;;^UTILITY(U,$J,112,670,3)
+24 ;;=.018^.05^.066^.078^.085^.017^.021^.043^.029^.069^.084^.028^.085^.209^.295^.058^.096^.069
+25 ;;^UTILITY(U,$J,112,670,4)
+26 ;;=^.001^.001^.039^.001^.003^.005
+27 ;;^UTILITY(U,$J,112,670,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,676,0)
+30 ;;=ASPARAGUS, FRZ, CKD WO/SALT^11-019^cups^180^100^N
+31 ;;^UTILITY(U,$J,112,676,1)
+32 ;;=2.95^.42^4.87^28^91.15^^^23^.64^13^55^218^4^.56^.171^.185^^818^24.4^.065
+33 ;;^UTILITY(U,$J,112,676,2)
+34 ;;=.103^1.038^.158^.02^134.7^0^.174^.01^0^.095^.013^.184^82^.61
+35 ;;^UTILITY(U,$J,112,676,3)
+36 ;;=.029^.082^.109^.128^.14^.028^.035^.07^.047^.114^.138^.046^.139^.342^.483^.096^.157^.112
+37 ;;^UTILITY(U,$J,112,676,4)
+38 ;;=^.001^.003^.085^.002^.006^.011^^^1.7
+39 ;;^UTILITY(U,$J,112,676,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,677,0)
+42 ;;=ASPARAGUS, FRZ, CKD W/SALT^11-709^cups^180^100^N
+43 ;;^UTILITY(U,$J,112,677,1)
+44 ;;=2.95^.42^4.87^28^91.15^^^23^.64^13^55^218^240^.56^.171^.185^^818^24.4^.065
+45 ;;^UTILITY(U,$J,112,677,2)
+46 ;;=.103^1.038^.158^.02^134.7^0^.174^.01^0^.095^.013^.184^82^.61
+47 ;;^UTILITY(U,$J,112,677,3)
+48 ;;=.029^.082^.109^.128^.14^.028^.035^.07^.047^.114^.138^.046^.139^.342^.483^.096^.157^.112
+49 ;;^UTILITY(U,$J,112,677,4)
+50 ;;=^.001^.003^.085^.002^.006^.011
+51 ;;^UTILITY(U,$J,112,677,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,680,0)
+54 ;;=BAKING POWDER, NA AL SO4^130-0^tbsp.^11^100^N
+55 ;;^UTILITY(U,$J,112,680,1)
+56 ;;=.1^0^31.2^129^1.6^^^1932^0^^2904^150^10953^^^^^0^0^0
+57 ;;^UTILITY(U,$J,112,680,2)
+58 ;;=0^0^^^^^0^^0^0^^^^67.1
+59 ;;^UTILITY(U,$J,112,680,4)
+60 ;;=^^^^^^0
+61 ;;^UTILITY(U,$J,112,680,20)
+62 ;;=USDA Std. Reference, Release 8
+63 ;;^UTILITY(U,$J,112,681,0)
+64 ;;=BAKING POWDER, TARTRATE^134-0^tbsp.^9.5^100^N
+65 ;;^UTILITY(U,$J,112,681,1)
+66 ;;=.1^0^18.9^78^1^^^0^0^^0^3800^7300^^^^^0^0^0
+67 ;;^UTILITY(U,$J,112,681,2)
+68 ;;=0^0^^^^^0^^0^0^^^^80
+69 ;;^UTILITY(U,$J,112,681,4)
+70 ;;=^^^^^^0
+71 ;;^UTILITY(U,$J,112,681,20)
+72 ;;=USDA Std. Reference, Release 8
+73 ;;^UTILITY(U,$J,112,682,0)
+74 ;;=BAKING POWDER, LO NA COMMERCIAL^18-371^tbsp.^13.5^100^N
+75 ;;^UTILITY(U,$J,112,682,1)
+76 ;;=.1^.4^46.9^97^6.2^^^4332^8.17^29^6869^10100^90^.72^.019^.42^^0^0^0
+77 ;;^UTILITY(U,$J,112,682,2)
+78 ;;=0^0^0^0^0^0^^^0^^^^0^46.4
+79 ;;^UTILITY(U,$J,112,682,4)
+80 ;;=^^^^^^0
+81 ;;^UTILITY(U,$J,112,682,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,683,0)
+84 ;;=BAKING POWDER, LO NA NON-COMMERCIAL^136-0^tsp.^3^100^N
+85 ;;^UTILITY(U,$J,112,683,1)
+86 ;;=.1^0^20.1^83^1.1^^^4816^0^^7308^20728.992^6^^^^^0^0^0
+87 ;;^UTILITY(U,$J,112,683,2)
+88 ;;=0^0^^^^^0^^0^0^^^^78.7
+89 ;;^UTILITY(U,$J,112,683,4)
+90 ;;=^^^^^^0
+91 ;;^UTILITY(U,$J,112,683,20)
+92 ;;=USDA Std. Reference, Release 8
+93 ;;^UTILITY(U,$J,112,684,0)
+94 ;;=BAMBOO SHOOTS, RAW^11-026^cups^151^29^N
+95 ;;^UTILITY(U,$J,112,684,1)
+96 ;;=2.6^.3^5.2^27^91^^^13^.5^3^59^533^4^1.1^.19^.262^^20^4^.15
+97 ;;^UTILITY(U,$J,112,684,2)
+98 ;;=.07^.6^.161^.24^7.1^0^.114^.02^0^.069^.007^.134^2^.9^^^2.2
+99 ;;^UTILITY(U,$J,112,684,3)
+100 ;;=.027^.086^.088^.14^.134^.03^.022^.09^^.106^.097^.042^.124^.425^.248^.087^.219^.127
+101 ;;^UTILITY(U,$J,112,684,4)
+102 ;;=^.002^.002^.051^^.006^.007
+103 ;;^UTILITY(U,$J,112,684,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,686,0)
+106 ;;=BANANAS, RED, RAW^142-0^bananas^131.24^100^N
+107 ;;^UTILITY(U,$J,112,686,1)
+108 ;;=1.2^.2^23.4^90^74.4^^^10^.8^^18^370^1^^^^^400^10^.05
+109 ;;^UTILITY(U,$J,112,686,2)
+110 ;;=.04^.6^^^^^0^^0^0^^^^.8
+111 ;;^UTILITY(U,$J,112,686,4)
+112 ;;=^^^^^^0
+113 ;;^UTILITY(U,$J,112,686,20)
+114 ;;=USDA Std. Reference, Release 8
+115 ;;^UTILITY(U,$J,112,687,0)
+116 ;;=BARLEY, PEARLED, LIGHT^20-005^cups^200^100^N
+117 ;;^UTILITY(U,$J,112,687,1)
+118 ;;=9.91^1.16^77.72^352^10.09^^^29^2.5^79^221^280^9^2.13^.42^1.322^.02^22^0^.191
