FHINI06M ; ; 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,2271,0)
;;=BEANS, NAVY, BOILED, WO/SALT^16-038^cups^182^100^N
;;^UTILITY(U,$J,112,2271,1)
;;=8.7^.57^26.31^142^63.18^^^70^2.48^59^157^368^1^1.06^.295^.556^^2^.9^.202
;;^UTILITY(U,$J,112,2271,2)
;;=.061^.531^.255^.164^139.9^0^.134^.112^0^.148^.05^.246^0^1.23^^^7.1
;;^UTILITY(U,$J,112,2271,3)
;;=.103^.366^.384^.695^.597^.131^.095^.47^.245^.455^.539^.242^.365^1.052^1.327^.34^.369^.473
;;^UTILITY(U,$J,112,2271,4)
;;=^^0^.139^^.009^.05^^^5.8
;;^UTILITY(U,$J,112,2271,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2272,0)
;;=BEANS, PINTO, BOILED, WO/SALT^16-043^cups^171^100^N
;;^UTILITY(U,$J,112,2272,1)
;;=8.21^.52^25.65^137^64.27^^^48^2.61^55^160^468^2^1.08^.257^.556^^2^2.1^.186
;;^UTILITY(U,$J,112,2272,2)
;;=.091^.4^.285^.155^172^0^.078^.109^0^.109^.106^.188^0^1.35^^^6.9
;;^UTILITY(U,$J,112,2272,3)
;;=.097^.346^.363^.656^.564^.124^.089^.444^.231^.43^.509^.229^.344^.993^1.252^.321^.348^.447
;;^UTILITY(U,$J,112,2272,4)
;;=^^0^.106^^.002^.106^^^7.1
;;^UTILITY(U,$J,112,2272,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2273,0)
;;=BEANS, PINTO, CANNED^16-044^cups^240^100^N
;;^UTILITY(U,$J,112,2273,1)
;;=4.56^.32^14.56^78^78.81^^^37^1.61^27^92^301^416^.69^.14^.229^^1^.7^.101
;;^UTILITY(U,$J,112,2273,2)
;;=.063^.292^.136^.074^60.2^0^.048^.066^0^.066^.064^.114^0^1.76^^^5.1
;;^UTILITY(U,$J,112,2273,3)
;;=.054^.192^.201^.364^.313^.069^.05^.247^.128^.239^.283^.127^.191^.552^.696^.178^.193^.248
;;^UTILITY(U,$J,112,2273,4)
;;=^^0^.064^^.001^.064
;;^UTILITY(U,$J,112,2273,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2274,0)
;;=BROADBEANS (FAVA BEANS), BOILED, WO/SALT^16-053^cups^170^100^N
;;^UTILITY(U,$J,112,2274,1)
;;=7.6^.4^19.65^110^71.54^^^36^1.5^43^125^268^5^1.01^.259^.421^^15^.3^.097
;;^UTILITY(U,$J,112,2274,2)
;;=.089^.711^.157^.072^104.1^0^.152^.012^0^.066^.079^.164^2^.81^^^6
;;^UTILITY(U,$J,112,2274,3)
;;=.072^.27^.306^.572^.486^.062^.097^.321^.241^.338^.702^.193^.311^.849^1.291^.319^.32^.348
;;^UTILITY(U,$J,112,2274,4)
;;=^.001^.001^.054^.001^.008^.078
;;^UTILITY(U,$J,112,2274,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2275,0)
;;=CHICKPEAS (GARBANZO BEANS, BENGAL GRAM), BOILED, WO/SALT^16-057^cups^164^100^N
;;^UTILITY(U,$J,112,2275,1)
;;=8.86^2.59^27.41^164^60.21^^^49^2.89^48^168^291^7^1.53^.352^1.03^^27^1.3^.116
;;^UTILITY(U,$J,112,2275,2)
;;=.063^.526^.286^.139^172^0^1.113^.043^0^.269^.583^1.156^3^.92^^^5.3
;;^UTILITY(U,$J,112,2275,3)
;;=.085^.329^.38^.631^.593^.116^.119^.475^.22^.372^.835^.244^.38^1.042^1.55^.369^.366^.447
;;^UTILITY(U,$J,112,2275,4)
;;=^^.004^.215^.005^.037^.578
;;^UTILITY(U,$J,112,2275,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2276,0)
;;=CHICKPEAS (GARBANZO BEANS, BENGAL GRAM), CANNED^16-058^cups^240^100^N
;;^UTILITY(U,$J,112,2276,1)
;;=4.95^1.14^22.62^119^69.69^^^32^1.35^29^90^172^299^1.06^.174^.604^^24^3.8^.029
;;^UTILITY(U,$J,112,2276,2)
;;=.033^.138^.299^.473^66.8^0^.491^.019^0^.118^.257^.51^2^1.61^^^3.5
;;^UTILITY(U,$J,112,2276,3)
;;=.048^.184^.212^.352^.331^.065^.067^.265^.123^.208^.466^.136^.212^.582^.866^.206^.204^.249
;;^UTILITY(U,$J,112,2276,4)
;;=^^.002^.095^.002^.016^.255
;;^UTILITY(U,$J,112,2276,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2277,0)
;;=BEANS, LIMA, LARGE, BOILED, WO/SALT^16-072^cups^188^100^N
;;^UTILITY(U,$J,112,2277,1)
;;=7.8^.38^20.89^115^69.79^^^17^2.39^43^111^508^2^.95^.235^.516^^0^0^.161
;;^UTILITY(U,$J,112,2277,2)
;;=.055^.421^.422^.161^83.1^0^.118^.052^0^.089^.034^.171^0^1.15^^^7.3
;;^UTILITY(U,$J,112,2277,3)
;;=.092^.337^.411^.673^.523^.099^.086^.449^.276^.469^.478^.238^.398^1.006^1.104^.329^.354^.519
;;^UTILITY(U,$J,112,2277,4)
;;=^0^.001^.065^.002^.018^.029^^^4.5
;;^UTILITY(U,$J,112,2277,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2278,0)
;;=BEANS, LIMA, LARGE, CANNED^16-073^cups^241^100^N
;;^UTILITY(U,$J,112,2278,1)
;;=4.93^.17^14.91^79^77.08^^^21^1.81^39^74^220^336^.65^.18^.363^^0^0^.055
;;^UTILITY(U,$J,112,2278,2)
;;=.034^.261^.259^.091^50.4^0^.052^.023^0^.039^.015^.074^0^2.92^^^3.6
;;^UTILITY(U,$J,112,2278,3)
;;=.058^.213^.259^.425^.33^.062^.054^.284^.174^.296^.302^.151^.251^.635^.697^.208^.224^.328
FHINI06M ; ; 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,2271,0)
+2 ;;=BEANS, NAVY, BOILED, WO/SALT^16-038^cups^182^100^N
+3 ;;^UTILITY(U,$J,112,2271,1)
+4 ;;=8.7^.57^26.31^142^63.18^^^70^2.48^59^157^368^1^1.06^.295^.556^^2^.9^.202
+5 ;;^UTILITY(U,$J,112,2271,2)
+6 ;;=.061^.531^.255^.164^139.9^0^.134^.112^0^.148^.05^.246^0^1.23^^^7.1
+7 ;;^UTILITY(U,$J,112,2271,3)
+8 ;;=.103^.366^.384^.695^.597^.131^.095^.47^.245^.455^.539^.242^.365^1.052^1.327^.34^.369^.473
+9 ;;^UTILITY(U,$J,112,2271,4)
+10 ;;=^^0^.139^^.009^.05^^^5.8
+11 ;;^UTILITY(U,$J,112,2271,20)
+12 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+13 ;;^UTILITY(U,$J,112,2272,0)
+14 ;;=BEANS, PINTO, BOILED, WO/SALT^16-043^cups^171^100^N
+15 ;;^UTILITY(U,$J,112,2272,1)
+16 ;;=8.21^.52^25.65^137^64.27^^^48^2.61^55^160^468^2^1.08^.257^.556^^2^2.1^.186
+17 ;;^UTILITY(U,$J,112,2272,2)
+18 ;;=.091^.4^.285^.155^172^0^.078^.109^0^.109^.106^.188^0^1.35^^^6.9
+19 ;;^UTILITY(U,$J,112,2272,3)
+20 ;;=.097^.346^.363^.656^.564^.124^.089^.444^.231^.43^.509^.229^.344^.993^1.252^.321^.348^.447
+21 ;;^UTILITY(U,$J,112,2272,4)
+22 ;;=^^0^.106^^.002^.106^^^7.1
+23 ;;^UTILITY(U,$J,112,2272,20)
+24 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+25 ;;^UTILITY(U,$J,112,2273,0)
+26 ;;=BEANS, PINTO, CANNED^16-044^cups^240^100^N
+27 ;;^UTILITY(U,$J,112,2273,1)
+28 ;;=4.56^.32^14.56^78^78.81^^^37^1.61^27^92^301^416^.69^.14^.229^^1^.7^.101
+29 ;;^UTILITY(U,$J,112,2273,2)
+30 ;;=.063^.292^.136^.074^60.2^0^.048^.066^0^.066^.064^.114^0^1.76^^^5.1
+31 ;;^UTILITY(U,$J,112,2273,3)
+32 ;;=.054^.192^.201^.364^.313^.069^.05^.247^.128^.239^.283^.127^.191^.552^.696^.178^.193^.248
+33 ;;^UTILITY(U,$J,112,2273,4)
+34 ;;=^^0^.064^^.001^.064
+35 ;;^UTILITY(U,$J,112,2273,20)
+36 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+37 ;;^UTILITY(U,$J,112,2274,0)
+38 ;;=BROADBEANS (FAVA BEANS), BOILED, WO/SALT^16-053^cups^170^100^N
+39 ;;^UTILITY(U,$J,112,2274,1)
+40 ;;=7.6^.4^19.65^110^71.54^^^36^1.5^43^125^268^5^1.01^.259^.421^^15^.3^.097
+41 ;;^UTILITY(U,$J,112,2274,2)
+42 ;;=.089^.711^.157^.072^104.1^0^.152^.012^0^.066^.079^.164^2^.81^^^6
+43 ;;^UTILITY(U,$J,112,2274,3)
+44 ;;=.072^.27^.306^.572^.486^.062^.097^.321^.241^.338^.702^.193^.311^.849^1.291^.319^.32^.348
+45 ;;^UTILITY(U,$J,112,2274,4)
+46 ;;=^.001^.001^.054^.001^.008^.078
+47 ;;^UTILITY(U,$J,112,2274,20)
+48 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+49 ;;^UTILITY(U,$J,112,2275,0)
+50 ;;=CHICKPEAS (GARBANZO BEANS, BENGAL GRAM), BOILED, WO/SALT^16-057^cups^164^100^N
+51 ;;^UTILITY(U,$J,112,2275,1)
+52 ;;=8.86^2.59^27.41^164^60.21^^^49^2.89^48^168^291^7^1.53^.352^1.03^^27^1.3^.116
+53 ;;^UTILITY(U,$J,112,2275,2)
+54 ;;=.063^.526^.286^.139^172^0^1.113^.043^0^.269^.583^1.156^3^.92^^^5.3
+55 ;;^UTILITY(U,$J,112,2275,3)
+56 ;;=.085^.329^.38^.631^.593^.116^.119^.475^.22^.372^.835^.244^.38^1.042^1.55^.369^.366^.447
+57 ;;^UTILITY(U,$J,112,2275,4)
+58 ;;=^^.004^.215^.005^.037^.578
+59 ;;^UTILITY(U,$J,112,2275,20)
+60 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+61 ;;^UTILITY(U,$J,112,2276,0)
+62 ;;=CHICKPEAS (GARBANZO BEANS, BENGAL GRAM), CANNED^16-058^cups^240^100^N
+63 ;;^UTILITY(U,$J,112,2276,1)
+64 ;;=4.95^1.14^22.62^119^69.69^^^32^1.35^29^90^172^299^1.06^.174^.604^^24^3.8^.029
+65 ;;^UTILITY(U,$J,112,2276,2)
+66 ;;=.033^.138^.299^.473^66.8^0^.491^.019^0^.118^.257^.51^2^1.61^^^3.5
+67 ;;^UTILITY(U,$J,112,2276,3)
+68 ;;=.048^.184^.212^.352^.331^.065^.067^.265^.123^.208^.466^.136^.212^.582^.866^.206^.204^.249
+69 ;;^UTILITY(U,$J,112,2276,4)
+70 ;;=^^.002^.095^.002^.016^.255
+71 ;;^UTILITY(U,$J,112,2276,20)
+72 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+73 ;;^UTILITY(U,$J,112,2277,0)
+74 ;;=BEANS, LIMA, LARGE, BOILED, WO/SALT^16-072^cups^188^100^N
+75 ;;^UTILITY(U,$J,112,2277,1)
+76 ;;=7.8^.38^20.89^115^69.79^^^17^2.39^43^111^508^2^.95^.235^.516^^0^0^.161
+77 ;;^UTILITY(U,$J,112,2277,2)
+78 ;;=.055^.421^.422^.161^83.1^0^.118^.052^0^.089^.034^.171^0^1.15^^^7.3
+79 ;;^UTILITY(U,$J,112,2277,3)
+80 ;;=.092^.337^.411^.673^.523^.099^.086^.449^.276^.469^.478^.238^.398^1.006^1.104^.329^.354^.519
+81 ;;^UTILITY(U,$J,112,2277,4)
+82 ;;=^0^.001^.065^.002^.018^.029^^^4.5
+83 ;;^UTILITY(U,$J,112,2277,20)
+84 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+85 ;;^UTILITY(U,$J,112,2278,0)
+86 ;;=BEANS, LIMA, LARGE, CANNED^16-073^cups^241^100^N
+87 ;;^UTILITY(U,$J,112,2278,1)
+88 ;;=4.93^.17^14.91^79^77.08^^^21^1.81^39^74^220^336^.65^.18^.363^^0^0^.055
+89 ;;^UTILITY(U,$J,112,2278,2)
+90 ;;=.034^.261^.259^.091^50.4^0^.052^.023^0^.039^.015^.074^0^2.92^^^3.6
+91 ;;^UTILITY(U,$J,112,2278,3)
+92 ;;=.058^.213^.259^.425^.33^.062^.054^.284^.174^.296^.302^.151^.251^.635^.697^.208^.224^.328
