FHINI02I ; ; 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,709,3)
;;=.037^.078^.132^.175^.166^.034^.017^.117^.052^.13^.197^.07^.099^.479^.161^.063^^.033
;;^UTILITY(U,$J,112,709,4)
;;=^^0^.032^^.008^.022^^33
;;^UTILITY(U,$J,112,709,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,710,0)
;;=BEAN SPROUTS, MUNG, BOILED, WO/SALT^11-044^cups^125^103^N
;;^UTILITY(U,$J,112,710,1)
;;=2.03^.09^4.19^21^93.39^^^12^.65^14^28^101^10^.47^.122^.14^^14^11.4^.05
;;^UTILITY(U,$J,112,710,2)
;;=.102^.817^.243^.054^29.3^0^.023^.009^0^.025^.012^.032^1^.3^^^.8
;;^UTILITY(U,$J,112,710,3)
;;=.028^.058^.098^.13^.123^.025^.012^.086^.038^.097^.146^.052^.073^.355^.12^.046^^.024
;;^UTILITY(U,$J,112,710,4)
;;=^^0^.018^^.005^.012
;;^UTILITY(U,$J,112,710,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,711,0)
;;=BEAN SPROUTS, MUNG, BOILED, W/SALT^11-718^cups^125^103^N
;;^UTILITY(U,$J,112,711,1)
;;=2.03^.09^4.19^21^93.39^^^12^.65^14^28^101^246^.47^.122^.14^^14^11.4^.05
;;^UTILITY(U,$J,112,711,2)
;;=.102^.817^.243^.054^29.3^0^.023^.009^0^.025^.012^.032^1^.3^^^.8
;;^UTILITY(U,$J,112,711,3)
;;=.028^.058^.098^.13^.123^.025^.012^.086^.038^.097^.146^.052^.073^.355^.12^.046^^.024
;;^UTILITY(U,$J,112,711,4)
;;=^^0^.018^^.005^.012
;;^UTILITY(U,$J,112,711,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,712,0)
;;=BEANS, GREEN, WO/SALT^11-053^cups^125^100^N
;;^UTILITY(U,$J,112,712,1)
;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^3^.36^.103^.294^^666^9.7^.074
;;^UTILITY(U,$J,112,712,2)
;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^67^.73^^^2.5
;;^UTILITY(U,$J,112,712,3)
;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
;;^UTILITY(U,$J,112,712,4)
;;=^^0^.053^.001^.009^.011^^^.4
;;^UTILITY(U,$J,112,712,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,713,0)
;;=BEANS, GREEN, W/SALT^11-723^cups^125^100^N
;;^UTILITY(U,$J,112,713,1)
;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^239^.36^.103^.294^^666^9.7^.074
;;^UTILITY(U,$J,112,713,2)
;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^67^.73
;;^UTILITY(U,$J,112,713,3)
;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
;;^UTILITY(U,$J,112,713,4)
;;=^^0^.053^.001^.009^.011
;;^UTILITY(U,$J,112,713,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,715,0)
;;=BEANS, GREEN, CND, REG PK^11-056^cups^135^100^N
;;^UTILITY(U,$J,112,715,1)
;;=1.15^.1^4.5^20^93.3^^^26^.9^13^19^109^251^.29^.038^.2^^349^4.8^.015
;;^UTILITY(U,$J,112,715,2)
;;=.056^.201^.129^.037^31.8^0^.019^.031^0^.022^.004^.051^35^.95^^^3
;;^UTILITY(U,$J,112,715,3)
;;=.012^.05^.042^.071^.055^.014^.011^.042^.027^.057^.046^.022^.053^.161^.118^.041^.043^.063
;;^UTILITY(U,$J,112,715,4)
;;=^^0^.019^0^.003^.004^^^.4
;;^UTILITY(U,$J,112,715,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,717,0)
;;=BEANS, GREEN, CND, DIET PK, LO NA^11-726^cups^135^100^N
;;^UTILITY(U,$J,112,717,1)
;;=.85^.1^3.5^15^94.51^^^24^.88^13^19^98^2^.2^.07^.335^^324^4^.025
;;^UTILITY(U,$J,112,717,2)
;;=.051^.2^.106^.03^18.2^0^.02^.032^0^.023^.004^.052^32^1.04^^^.8
;;^UTILITY(U,$J,112,717,3)
;;=.009^.037^.031^.052^.041^.01^.008^.031^.02^.042^.034^.016^.039^.118^.087^.03^.031^.046
;;^UTILITY(U,$J,112,717,4)
;;=^^0^.019^0^.003^.004
;;^UTILITY(U,$J,112,717,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,718,0)
;;=BEANS, GREEN, FRZ, CKD WO/SALT^11-061^cups^135^100^N
;;^UTILITY(U,$J,112,718,1)
;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^13^.62^.067^.371^^528^8.2^.048
;;^UTILITY(U,$J,112,718,2)
;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^53^.45^^^2.3
;;^UTILITY(U,$J,112,718,3)
;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
;;^UTILITY(U,$J,112,718,4)
;;=^^0^.025^0^.004^.005^^^.4
;;^UTILITY(U,$J,112,718,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,719,0)
;;=BEANS, GREEN, FRZ, CKD W/SALT^11-731^cups^135^100^N
;;^UTILITY(U,$J,112,719,1)
;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^249^.62^.067^.371^^528^8.2^.048
;;^UTILITY(U,$J,112,719,2)
;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^53^.45
;;^UTILITY(U,$J,112,719,3)
;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
;;^UTILITY(U,$J,112,719,4)
;;=^^0^.025^0^.004^.005
;;^UTILITY(U,$J,112,719,20)
;;=USDA Std. Reference, Release 10
FHINI02I ; ; 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,709,3)
+2 ;;=.037^.078^.132^.175^.166^.034^.017^.117^.052^.13^.197^.07^.099^.479^.161^.063^^.033
+3 ;;^UTILITY(U,$J,112,709,4)
+4 ;;=^^0^.032^^.008^.022^^33
+5 ;;^UTILITY(U,$J,112,709,20)
+6 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+7 ;;^UTILITY(U,$J,112,710,0)
+8 ;;=BEAN SPROUTS, MUNG, BOILED, WO/SALT^11-044^cups^125^103^N
+9 ;;^UTILITY(U,$J,112,710,1)
+10 ;;=2.03^.09^4.19^21^93.39^^^12^.65^14^28^101^10^.47^.122^.14^^14^11.4^.05
+11 ;;^UTILITY(U,$J,112,710,2)
+12 ;;=.102^.817^.243^.054^29.3^0^.023^.009^0^.025^.012^.032^1^.3^^^.8
+13 ;;^UTILITY(U,$J,112,710,3)
+14 ;;=.028^.058^.098^.13^.123^.025^.012^.086^.038^.097^.146^.052^.073^.355^.12^.046^^.024
+15 ;;^UTILITY(U,$J,112,710,4)
+16 ;;=^^0^.018^^.005^.012
+17 ;;^UTILITY(U,$J,112,710,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,711,0)
+20 ;;=BEAN SPROUTS, MUNG, BOILED, W/SALT^11-718^cups^125^103^N
+21 ;;^UTILITY(U,$J,112,711,1)
+22 ;;=2.03^.09^4.19^21^93.39^^^12^.65^14^28^101^246^.47^.122^.14^^14^11.4^.05
+23 ;;^UTILITY(U,$J,112,711,2)
+24 ;;=.102^.817^.243^.054^29.3^0^.023^.009^0^.025^.012^.032^1^.3^^^.8
+25 ;;^UTILITY(U,$J,112,711,3)
+26 ;;=.028^.058^.098^.13^.123^.025^.012^.086^.038^.097^.146^.052^.073^.355^.12^.046^^.024
+27 ;;^UTILITY(U,$J,112,711,4)
+28 ;;=^^0^.018^^.005^.012
+29 ;;^UTILITY(U,$J,112,711,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,712,0)
+32 ;;=BEANS, GREEN, WO/SALT^11-053^cups^125^100^N
+33 ;;^UTILITY(U,$J,112,712,1)
+34 ;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^3^.36^.103^.294^^666^9.7^.074
+35 ;;^UTILITY(U,$J,112,712,2)
+36 ;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^67^.73^^^2.5
+37 ;;^UTILITY(U,$J,112,712,3)
+38 ;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
+39 ;;^UTILITY(U,$J,112,712,4)
+40 ;;=^^0^.053^.001^.009^.011^^^.4
+41 ;;^UTILITY(U,$J,112,712,20)
+42 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+43 ;;^UTILITY(U,$J,112,713,0)
+44 ;;=BEANS, GREEN, W/SALT^11-723^cups^125^100^N
+45 ;;^UTILITY(U,$J,112,713,1)
+46 ;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^239^.36^.103^.294^^666^9.7^.074
+47 ;;^UTILITY(U,$J,112,713,2)
+48 ;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^67^.73
+49 ;;^UTILITY(U,$J,112,713,3)
+50 ;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
+51 ;;^UTILITY(U,$J,112,713,4)
+52 ;;=^^0^.053^.001^.009^.011
+53 ;;^UTILITY(U,$J,112,713,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,715,0)
+56 ;;=BEANS, GREEN, CND, REG PK^11-056^cups^135^100^N
+57 ;;^UTILITY(U,$J,112,715,1)
+58 ;;=1.15^.1^4.5^20^93.3^^^26^.9^13^19^109^251^.29^.038^.2^^349^4.8^.015
+59 ;;^UTILITY(U,$J,112,715,2)
+60 ;;=.056^.201^.129^.037^31.8^0^.019^.031^0^.022^.004^.051^35^.95^^^3
+61 ;;^UTILITY(U,$J,112,715,3)
+62 ;;=.012^.05^.042^.071^.055^.014^.011^.042^.027^.057^.046^.022^.053^.161^.118^.041^.043^.063
+63 ;;^UTILITY(U,$J,112,715,4)
+64 ;;=^^0^.019^0^.003^.004^^^.4
+65 ;;^UTILITY(U,$J,112,715,20)
+66 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+67 ;;^UTILITY(U,$J,112,717,0)
+68 ;;=BEANS, GREEN, CND, DIET PK, LO NA^11-726^cups^135^100^N
+69 ;;^UTILITY(U,$J,112,717,1)
+70 ;;=.85^.1^3.5^15^94.51^^^24^.88^13^19^98^2^.2^.07^.335^^324^4^.025
+71 ;;^UTILITY(U,$J,112,717,2)
+72 ;;=.051^.2^.106^.03^18.2^0^.02^.032^0^.023^.004^.052^32^1.04^^^.8
+73 ;;^UTILITY(U,$J,112,717,3)
+74 ;;=.009^.037^.031^.052^.041^.01^.008^.031^.02^.042^.034^.016^.039^.118^.087^.03^.031^.046
+75 ;;^UTILITY(U,$J,112,717,4)
+76 ;;=^^0^.019^0^.003^.004
+77 ;;^UTILITY(U,$J,112,717,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,718,0)
+80 ;;=BEANS, GREEN, FRZ, CKD WO/SALT^11-061^cups^135^100^N
+81 ;;^UTILITY(U,$J,112,718,1)
+82 ;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^13^.62^.067^.371^^528^8.2^.048
+83 ;;^UTILITY(U,$J,112,718,2)
+84 ;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^53^.45^^^2.3
+85 ;;^UTILITY(U,$J,112,718,3)
+86 ;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
+87 ;;^UTILITY(U,$J,112,718,4)
+88 ;;=^^0^.025^0^.004^.005^^^.4
+89 ;;^UTILITY(U,$J,112,718,20)
+90 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+91 ;;^UTILITY(U,$J,112,719,0)
+92 ;;=BEANS, GREEN, FRZ, CKD W/SALT^11-731^cups^135^100^N
+93 ;;^UTILITY(U,$J,112,719,1)
+94 ;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^249^.62^.067^.371^^528^8.2^.048
+95 ;;^UTILITY(U,$J,112,719,2)
+96 ;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^53^.45
+97 ;;^UTILITY(U,$J,112,719,3)
+98 ;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
+99 ;;^UTILITY(U,$J,112,719,4)
+100 ;;=^^0^.025^0^.004^.005
+101 ;;^UTILITY(U,$J,112,719,20)
+102 ;;=USDA Std. Reference, Release 10
