FHINI02J ; ; 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,722,0)
;;=BEANS, WAX, CKD WO/SALT^11-724^cups^125^100^N
;;^UTILITY(U,$J,112,722,1)
;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^3^.36^.103^.294^^81^9.7^.074
;;^UTILITY(U,$J,112,722,2)
;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^8^.73^^^1.3
;;^UTILITY(U,$J,112,722,3)
;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
;;^UTILITY(U,$J,112,722,4)
;;=^^0^.053^.001^.009^.011
;;^UTILITY(U,$J,112,722,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,723,0)
;;=BEANS, WAX, CKD W/SALT^11-725^cups^125^100^N
;;^UTILITY(U,$J,112,723,1)
;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^239^.36^.103^.294^^81^9.7^.074
;;^UTILITY(U,$J,112,723,2)
;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^8^.73
;;^UTILITY(U,$J,112,723,3)
;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
;;^UTILITY(U,$J,112,723,4)
;;=^^0^.053^.001^.009^.011
;;^UTILITY(U,$J,112,723,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,724,0)
;;=BEANS, WAX, CND, REG PK^11-727^cups^219^100^N
;;^UTILITY(U,$J,112,724,1)
;;=.85^.1^3.5^15^94.51^^^24^.88^13^19^98^368^.2^.07^.335^^63^4^.025
;;^UTILITY(U,$J,112,724,2)
;;=.051^.2^.106^.03^18.2^0^.02^.032^0^.023^.004^.052^6^1.04^^^.8
;;^UTILITY(U,$J,112,724,3)
;;=.009^.037^.031^.052^.041^.01^.008^.031^.02^.042^.034^.016^.039^.118^.087^.03^.031^.046
;;^UTILITY(U,$J,112,724,4)
;;=^^0^.019^0^.003^.004
;;^UTILITY(U,$J,112,724,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,725,0)
;;=BEANS, WAX, CND, REG PK, DRAINED SOLIDS^11-932^cups^135^100^N
;;^UTILITY(U,$J,112,725,1)
;;=1.15^.1^4.5^20^93.3^^^26^.9^13^19^109^251^.29^.038^.2^^105^4.8^.015
;;^UTILITY(U,$J,112,725,2)
;;=.056^.201^.129^.037^31.8^0^.019^.031^0^.022^.004^.051^11^.95^^^1.3
;;^UTILITY(U,$J,112,725,3)
;;=.012^.05^.042^.071^.055^.014^.011^.042^.027^.057^.046^.022^.053^.161^.118^.041^.043^.063
;;^UTILITY(U,$J,112,725,4)
;;=^^0^.019^0^.003^.004
;;^UTILITY(U,$J,112,725,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,726,0)
;;=BEANS, WAX, CND, DIET PK, LO NA^11-728^cups^219^100^N
;;^UTILITY(U,$J,112,726,1)
;;=.85^.1^3.5^15^94.51^^^24^.88^13^19^98^2^.2^.07^.335^^63^4^.025
;;^UTILITY(U,$J,112,726,2)
;;=.051^.2^.106^.03^18.2^0^.02^.032^0^.023^.004^.052^6^1.04^^^.8
;;^UTILITY(U,$J,112,726,3)
;;=.009^.037^.031^.052^.041^.01^.008^.031^.02^.042^.034^.016^.039^.118^.087^.03^.031^.046
;;^UTILITY(U,$J,112,726,4)
;;=^^0^.019^0^.003^.004
;;^UTILITY(U,$J,112,726,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,727,0)
;;=BEANS, WAX, CND, LO NA, DRAINED^11-729^cups^135^100^N
;;^UTILITY(U,$J,112,727,1)
;;=1.15^.1^4.5^20^93.3^^^26^.9^13^19^109^2^.29^.038^.2^^349^4.8^.015
;;^UTILITY(U,$J,112,727,2)
;;=.056^.201^.129^.037^31.8^0^.019^.031^0^.022^.004^.051^35^.95^^^1.3
;;^UTILITY(U,$J,112,727,3)
;;=.012^.05^.042^.071^.055^.014^.011^.042^.027^.057^.046^.022^.053^.161^.118^.041^.043^.063
;;^UTILITY(U,$J,112,727,4)
;;=^^0^.019^0^.003^.004
;;^UTILITY(U,$J,112,727,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,728,0)
;;=BEANS, WAX, FRZ, CKD WO/SALT^11-732^cups^135^100^N
;;^UTILITY(U,$J,112,728,1)
;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^13^.62^.067^.371^^112^8.2^.048
;;^UTILITY(U,$J,112,728,2)
;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^11^.45
;;^UTILITY(U,$J,112,728,3)
;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
;;^UTILITY(U,$J,112,728,4)
;;=^^0^.025^0^.004^.005
;;^UTILITY(U,$J,112,728,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,729,0)
;;=BEANS, WAX, FRZ, CKD W/SALT^11-733^cups^135^100^N
;;^UTILITY(U,$J,112,729,1)
;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^249^.62^.067^.371^^112^8.2^.048
;;^UTILITY(U,$J,112,729,2)
;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^11^.45
;;^UTILITY(U,$J,112,729,3)
;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
;;^UTILITY(U,$J,112,729,4)
;;=^^0^.025^0^.004^.005
;;^UTILITY(U,$J,112,729,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,730,0)
;;=BEANS & FRANKS, CND^16-008^cups^255^100^N
;;^UTILITY(U,$J,112,730,1)
;;=6.75^6.57^15.39^142^69.34^^^48^1.73^28^104^235^430^1.87^.213^.42^^154^2.3^.058
;;^UTILITY(U,$J,112,730,2)
;;=.056^.901^.139^.046^30^0^.628^.208^6^2.352^2.83^.836^15^1.95^^^6.9
;;^UTILITY(U,$J,112,730,3)
;;=.077^.279^.297^.534^.472^.105^.074^.349^.19^.345^.427^.19^.302^.8^1.037^.288^.29^.357
FHINI02J ; ; 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,722,0)
+2 ;;=BEANS, WAX, CKD WO/SALT^11-724^cups^125^100^N
+3 ;;^UTILITY(U,$J,112,722,1)
+4 ;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^3^.36^.103^.294^^81^9.7^.074
+5 ;;^UTILITY(U,$J,112,722,2)
+6 ;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^8^.73^^^1.3
+7 ;;^UTILITY(U,$J,112,722,3)
+8 ;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
+9 ;;^UTILITY(U,$J,112,722,4)
+10 ;;=^^0^.053^.001^.009^.011
+11 ;;^UTILITY(U,$J,112,722,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,723,0)
+14 ;;=BEANS, WAX, CKD W/SALT^11-725^cups^125^100^N
+15 ;;^UTILITY(U,$J,112,723,1)
+16 ;;=1.89^.28^7.89^35^89.22^^^46^1.28^25^39^299^239^.36^.103^.294^^81^9.7^.074
+17 ;;^UTILITY(U,$J,112,723,2)
+18 ;;=.097^.614^.074^.056^33.3^0^.056^.089^0^.064^.011^.145^8^.73
+19 ;;^UTILITY(U,$J,112,723,3)
+20 ;;=.02^.082^.069^.116^.091^.023^.018^.069^.044^.093^.076^.035^.087^.265^.194^.068^.07^.103
+21 ;;^UTILITY(U,$J,112,723,4)
+22 ;;=^^0^.053^.001^.009^.011
+23 ;;^UTILITY(U,$J,112,723,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,724,0)
+26 ;;=BEANS, WAX, CND, REG PK^11-727^cups^219^100^N
+27 ;;^UTILITY(U,$J,112,724,1)
+28 ;;=.85^.1^3.5^15^94.51^^^24^.88^13^19^98^368^.2^.07^.335^^63^4^.025
+29 ;;^UTILITY(U,$J,112,724,2)
+30 ;;=.051^.2^.106^.03^18.2^0^.02^.032^0^.023^.004^.052^6^1.04^^^.8
+31 ;;^UTILITY(U,$J,112,724,3)
+32 ;;=.009^.037^.031^.052^.041^.01^.008^.031^.02^.042^.034^.016^.039^.118^.087^.03^.031^.046
+33 ;;^UTILITY(U,$J,112,724,4)
+34 ;;=^^0^.019^0^.003^.004
+35 ;;^UTILITY(U,$J,112,724,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,725,0)
+38 ;;=BEANS, WAX, CND, REG PK, DRAINED SOLIDS^11-932^cups^135^100^N
+39 ;;^UTILITY(U,$J,112,725,1)
+40 ;;=1.15^.1^4.5^20^93.3^^^26^.9^13^19^109^251^.29^.038^.2^^105^4.8^.015
+41 ;;^UTILITY(U,$J,112,725,2)
+42 ;;=.056^.201^.129^.037^31.8^0^.019^.031^0^.022^.004^.051^11^.95^^^1.3
+43 ;;^UTILITY(U,$J,112,725,3)
+44 ;;=.012^.05^.042^.071^.055^.014^.011^.042^.027^.057^.046^.022^.053^.161^.118^.041^.043^.063
+45 ;;^UTILITY(U,$J,112,725,4)
+46 ;;=^^0^.019^0^.003^.004
+47 ;;^UTILITY(U,$J,112,725,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,726,0)
+50 ;;=BEANS, WAX, CND, DIET PK, LO NA^11-728^cups^219^100^N
+51 ;;^UTILITY(U,$J,112,726,1)
+52 ;;=.85^.1^3.5^15^94.51^^^24^.88^13^19^98^2^.2^.07^.335^^63^4^.025
+53 ;;^UTILITY(U,$J,112,726,2)
+54 ;;=.051^.2^.106^.03^18.2^0^.02^.032^0^.023^.004^.052^6^1.04^^^.8
+55 ;;^UTILITY(U,$J,112,726,3)
+56 ;;=.009^.037^.031^.052^.041^.01^.008^.031^.02^.042^.034^.016^.039^.118^.087^.03^.031^.046
+57 ;;^UTILITY(U,$J,112,726,4)
+58 ;;=^^0^.019^0^.003^.004
+59 ;;^UTILITY(U,$J,112,726,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,727,0)
+62 ;;=BEANS, WAX, CND, LO NA, DRAINED^11-729^cups^135^100^N
+63 ;;^UTILITY(U,$J,112,727,1)
+64 ;;=1.15^.1^4.5^20^93.3^^^26^.9^13^19^109^2^.29^.038^.2^^349^4.8^.015
+65 ;;^UTILITY(U,$J,112,727,2)
+66 ;;=.056^.201^.129^.037^31.8^0^.019^.031^0^.022^.004^.051^35^.95^^^1.3
+67 ;;^UTILITY(U,$J,112,727,3)
+68 ;;=.012^.05^.042^.071^.055^.014^.011^.042^.027^.057^.046^.022^.053^.161^.118^.041^.043^.063
+69 ;;^UTILITY(U,$J,112,727,4)
+70 ;;=^^0^.019^0^.003^.004
+71 ;;^UTILITY(U,$J,112,727,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,728,0)
+74 ;;=BEANS, WAX, FRZ, CKD WO/SALT^11-732^cups^135^100^N
+75 ;;^UTILITY(U,$J,112,728,1)
+76 ;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^13^.62^.067^.371^^112^8.2^.048
+77 ;;^UTILITY(U,$J,112,728,2)
+78 ;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^11^.45
+79 ;;^UTILITY(U,$J,112,728,3)
+80 ;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
+81 ;;^UTILITY(U,$J,112,728,4)
+82 ;;=^^0^.025^0^.004^.005
+83 ;;^UTILITY(U,$J,112,728,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,729,0)
+86 ;;=BEANS, WAX, FRZ, CKD W/SALT^11-733^cups^135^100^N
+87 ;;^UTILITY(U,$J,112,729,1)
+88 ;;=1.36^.14^6.12^26^91.94^^^45^.82^21^24^112^249^.62^.067^.371^^112^8.2^.048
+89 ;;^UTILITY(U,$J,112,729,2)
+90 ;;=.074^.417^.055^.056^8.2^0^.026^.042^0^.03^.005^.069^11^.45
+91 ;;^UTILITY(U,$J,112,729,3)
+92 ;;=.014^.059^.05^.084^.066^.017^.013^.05^.032^.067^.055^.026^.063^.191^.14^.049^.051^.074
+93 ;;^UTILITY(U,$J,112,729,4)
+94 ;;=^^0^.025^0^.004^.005
+95 ;;^UTILITY(U,$J,112,729,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,730,0)
+98 ;;=BEANS & FRANKS, CND^16-008^cups^255^100^N
+99 ;;^UTILITY(U,$J,112,730,1)
+100 ;;=6.75^6.57^15.39^142^69.34^^^48^1.73^28^104^235^430^1.87^.213^.42^^154^2.3^.058
+101 ;;^UTILITY(U,$J,112,730,2)
+102 ;;=.056^.901^.139^.046^30^0^.628^.208^6^2.352^2.83^.836^15^1.95^^^6.9
+103 ;;^UTILITY(U,$J,112,730,3)
+104 ;;=.077^.279^.297^.534^.472^.105^.074^.349^.19^.345^.427^.19^.302^.8^1.037^.288^.29^.357
