FHINI07L ; ; 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,2637,1)
;;=3.8^.03^55.01^237^40.58^^^22^1.13^31^74^119^218^1.56^.265^.504^^5^0^.101
;;^UTILITY(U,$J,112,2637,2)
;;=.056^.631^.378^.084^106.6^0^.006^^0^.011^^^1^.58
;;^UTILITY(U,$J,112,2637,3)
;;=.036^.129^.151^.319^.286^.04^.035^.201^.113^.196^.246^.1^.222^.451^.593^.145^.167^.187
;;^UTILITY(U,$J,112,2637,4)
;;=^^^^^^.003
;;^UTILITY(U,$J,112,2637,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2638,0)
;;=BEANS, ADZUKI, BOILED, WO/SALT^16-002^cups^230^100^N
;;^UTILITY(U,$J,112,2638,1)
;;=7.52^.1^24.77^128^66.29^^^28^2^52^168^532^8^1.77^.298^.573^^6^0^.115
;;^UTILITY(U,$J,112,2638,2)
;;=.064^.717^.43^.096^121.1^0^.021^^0^.036^^^1^1.33
;;^UTILITY(U,$J,112,2638,3)
;;=.072^.255^.3^.632^.567^.079^.07^.398^.224^.387^.486^.198^.439^.891^1.173^.286^.331^.369
;;^UTILITY(U,$J,112,2638,4)
;;=^^^^^^.009
;;^UTILITY(U,$J,112,2638,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2639,0)
;;=BEANS, BAKED, CANNED, W/BEEF^16-007^cups^266^100^N
;;^UTILITY(U,$J,112,2639,1)
;;=6.38^3.45^16.91^121^71.33^^^45^1.6^25^81^320^475^1.2^.3^.6^^213^1.8^.052
;;^UTILITY(U,$J,112,2639,2)
;;=.045^.94^.183^.09^43.4^0^.142^.053^22^1.677^1.385^.205^21^1.94
;;^UTILITY(U,$J,112,2639,3)
;;=.077^.268^.279^.51^.452^.104^.068^.329^.182^.33^.401^.182^.29^.743^.976^.283^.278^.333
;;^UTILITY(U,$J,112,2639,4)
;;=^.029^.121^.858^.138^.622^1.195
;;^UTILITY(U,$J,112,2639,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2640,0)
;;=BEANS, BAKED, CANNED, W/PORK^16-009^cups^252^100^N
;;^UTILITY(U,$J,112,2640,1)
;;=5.19^1.55^19.98^106^71.46^^^53^1.7^34^108^309^414^1.46^.215^.361^^178^2^.053
;;^UTILITY(U,$J,112,2640,2)
;;=.038^.447^.1^.064^36.3^0^.169^.03^7^.599^.673^.199^18^1.81^^^5.5
;;^UTILITY(U,$J,112,2640,3)
;;=.062^.221^.232^.42^.361^.08^.057^.285^.148^.275^.326^.147^.221^.637^.802^.205^.223^.286
;;^UTILITY(U,$J,112,2640,4)
;;=.002^.003^.019^.37^.04^.201^.615^^^4.7
;;^UTILITY(U,$J,112,2640,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2641,0)
;;=BEANS, BAKED, HOME PREPARED^16-005^cups^252^100^N
;;^UTILITY(U,$J,112,2641,1)
;;=5.54^5.15^21.39^151^65.17^^^61^1.99^43^109^358^422^.73^.159^.255^^0^1.1^.136
;;^UTILITY(U,$J,112,2641,2)
;;=.049^.408^.155^.09^48.4^0^.593^.147^5^1.948^2.133^.74^0^2.51^^^5.5
;;^UTILITY(U,$J,112,2641,3)
;;=.067^.228^.242^.428^.379^.086^.062^.287^.155^.282^.356^.153^.236^.637^.841^.232^.239^.288
;;^UTILITY(U,$J,112,2641,4)
;;=.005^.009^.061^1.227^.125^.633^1.953
;;^UTILITY(U,$J,112,2641,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2642,0)
;;=BEANS, BLACK, BOILED, W/SALT^16-315^cups^172^100^N
;;^UTILITY(U,$J,112,2642,1)
;;=8.86^.54^23.71^132^65.74^^^27^2.1^70^140^355^237^1.12^.209^.444^^6^0^.244
;;^UTILITY(U,$J,112,2642,2)
;;=.059^.505^.242^.069^148.8^0^.126^.105^0^.139^.047^.231^1^1.15
;;^UTILITY(U,$J,112,2642,3)
;;=.105^.373^.391^.708^.608^.133^.096^.479^.25^.464^.549^.247^.372^1.072^1.351^.346^.376^.482
;;^UTILITY(U,$J,112,2642,4)
;;=^^0^.13^^.008^.047
;;^UTILITY(U,$J,112,2642,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2643,0)
;;=BEANS, CRANBERRY (ROMAN), CANNED^16-021^cups^260^100^N
;;^UTILITY(U,$J,112,2643,1)
;;=5.54^.28^15.12^83^77.56^^^34^1.55^32^86^260^332^.84^.142^.2^^0^.8^.039
;;^UTILITY(U,$J,112,2643,2)
;;=.039^.504^.144^.055^77.4^0^.066^.055^0^.072^.024^.12^0^1.5
;;^UTILITY(U,$J,112,2643,3)
;;=.066^.233^.245^.443^.381^.083^.06^.3^.156^.29^.343^.154^.232^.671^.845^.216^.235^.302
;;^UTILITY(U,$J,112,2643,4)
;;=^^0^.068^^.004^.024
;;^UTILITY(U,$J,112,2643,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2644,0)
;;=BEANS, KIDNEY, ALL TYPES, BOILED, WO/SALT^16-028^cups^176^100^N
;;^UTILITY(U,$J,112,2644,1)
;;=8.67^.5^22.81^127^66.94^^^28^2.94^45^142^403^2^1.07^.242^.477^^0^1.2^.16
;;^UTILITY(U,$J,112,2644,2)
;;=.058^.578^.22^.12^129.6^0^.107^.168^0^.072^.039^.275^0^1.09^^^6.4
;;^UTILITY(U,$J,112,2644,3)
;;=.103^.365^.383^.693^.595^.13^.094^.469^.244^.454^.537^.242^.364^1.049^1.323^.339^.368^.472
;;^UTILITY(U,$J,112,2644,4)
;;=^^^.064^^.008^.039^^^1.2
;;^UTILITY(U,$J,112,2644,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2645,0)
;;=BEANS, KIDNEY, ALL TYPES, CANNED^16-029^cups^256^100^N
;;^UTILITY(U,$J,112,2645,1)
;;=5.2^.31^14.88^81^77.95^^^27^1.23^31^105^257^347^.55^.15^.217^^0^1.2^.109
;;^UTILITY(U,$J,112,2645,2)
;;=.072^.502^.146^.069^49.2^0^.067^.105^0^.045^.024^.172^0^1.66^^^6.2
;;^UTILITY(U,$J,112,2645,3)
;;=.061^.219^.229^.415^.356^.078^.057^.281^.146^.272^.322^.145^.218^.628^.792^.203^.22^.283
FHINI07L ; ; 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,2637,1)
+2 ;;=3.8^.03^55.01^237^40.58^^^22^1.13^31^74^119^218^1.56^.265^.504^^5^0^.101
+3 ;;^UTILITY(U,$J,112,2637,2)
+4 ;;=.056^.631^.378^.084^106.6^0^.006^^0^.011^^^1^.58
+5 ;;^UTILITY(U,$J,112,2637,3)
+6 ;;=.036^.129^.151^.319^.286^.04^.035^.201^.113^.196^.246^.1^.222^.451^.593^.145^.167^.187
+7 ;;^UTILITY(U,$J,112,2637,4)
+8 ;;=^^^^^^.003
+9 ;;^UTILITY(U,$J,112,2637,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2638,0)
+12 ;;=BEANS, ADZUKI, BOILED, WO/SALT^16-002^cups^230^100^N
+13 ;;^UTILITY(U,$J,112,2638,1)
+14 ;;=7.52^.1^24.77^128^66.29^^^28^2^52^168^532^8^1.77^.298^.573^^6^0^.115
+15 ;;^UTILITY(U,$J,112,2638,2)
+16 ;;=.064^.717^.43^.096^121.1^0^.021^^0^.036^^^1^1.33
+17 ;;^UTILITY(U,$J,112,2638,3)
+18 ;;=.072^.255^.3^.632^.567^.079^.07^.398^.224^.387^.486^.198^.439^.891^1.173^.286^.331^.369
+19 ;;^UTILITY(U,$J,112,2638,4)
+20 ;;=^^^^^^.009
+21 ;;^UTILITY(U,$J,112,2638,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2639,0)
+24 ;;=BEANS, BAKED, CANNED, W/BEEF^16-007^cups^266^100^N
+25 ;;^UTILITY(U,$J,112,2639,1)
+26 ;;=6.38^3.45^16.91^121^71.33^^^45^1.6^25^81^320^475^1.2^.3^.6^^213^1.8^.052
+27 ;;^UTILITY(U,$J,112,2639,2)
+28 ;;=.045^.94^.183^.09^43.4^0^.142^.053^22^1.677^1.385^.205^21^1.94
+29 ;;^UTILITY(U,$J,112,2639,3)
+30 ;;=.077^.268^.279^.51^.452^.104^.068^.329^.182^.33^.401^.182^.29^.743^.976^.283^.278^.333
+31 ;;^UTILITY(U,$J,112,2639,4)
+32 ;;=^.029^.121^.858^.138^.622^1.195
+33 ;;^UTILITY(U,$J,112,2639,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2640,0)
+36 ;;=BEANS, BAKED, CANNED, W/PORK^16-009^cups^252^100^N
+37 ;;^UTILITY(U,$J,112,2640,1)
+38 ;;=5.19^1.55^19.98^106^71.46^^^53^1.7^34^108^309^414^1.46^.215^.361^^178^2^.053
+39 ;;^UTILITY(U,$J,112,2640,2)
+40 ;;=.038^.447^.1^.064^36.3^0^.169^.03^7^.599^.673^.199^18^1.81^^^5.5
+41 ;;^UTILITY(U,$J,112,2640,3)
+42 ;;=.062^.221^.232^.42^.361^.08^.057^.285^.148^.275^.326^.147^.221^.637^.802^.205^.223^.286
+43 ;;^UTILITY(U,$J,112,2640,4)
+44 ;;=.002^.003^.019^.37^.04^.201^.615^^^4.7
+45 ;;^UTILITY(U,$J,112,2640,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2641,0)
+48 ;;=BEANS, BAKED, HOME PREPARED^16-005^cups^252^100^N
+49 ;;^UTILITY(U,$J,112,2641,1)
+50 ;;=5.54^5.15^21.39^151^65.17^^^61^1.99^43^109^358^422^.73^.159^.255^^0^1.1^.136
+51 ;;^UTILITY(U,$J,112,2641,2)
+52 ;;=.049^.408^.155^.09^48.4^0^.593^.147^5^1.948^2.133^.74^0^2.51^^^5.5
+53 ;;^UTILITY(U,$J,112,2641,3)
+54 ;;=.067^.228^.242^.428^.379^.086^.062^.287^.155^.282^.356^.153^.236^.637^.841^.232^.239^.288
+55 ;;^UTILITY(U,$J,112,2641,4)
+56 ;;=.005^.009^.061^1.227^.125^.633^1.953
+57 ;;^UTILITY(U,$J,112,2641,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2642,0)
+60 ;;=BEANS, BLACK, BOILED, W/SALT^16-315^cups^172^100^N
+61 ;;^UTILITY(U,$J,112,2642,1)
+62 ;;=8.86^.54^23.71^132^65.74^^^27^2.1^70^140^355^237^1.12^.209^.444^^6^0^.244
+63 ;;^UTILITY(U,$J,112,2642,2)
+64 ;;=.059^.505^.242^.069^148.8^0^.126^.105^0^.139^.047^.231^1^1.15
+65 ;;^UTILITY(U,$J,112,2642,3)
+66 ;;=.105^.373^.391^.708^.608^.133^.096^.479^.25^.464^.549^.247^.372^1.072^1.351^.346^.376^.482
+67 ;;^UTILITY(U,$J,112,2642,4)
+68 ;;=^^0^.13^^.008^.047
+69 ;;^UTILITY(U,$J,112,2642,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2643,0)
+72 ;;=BEANS, CRANBERRY (ROMAN), CANNED^16-021^cups^260^100^N
+73 ;;^UTILITY(U,$J,112,2643,1)
+74 ;;=5.54^.28^15.12^83^77.56^^^34^1.55^32^86^260^332^.84^.142^.2^^0^.8^.039
+75 ;;^UTILITY(U,$J,112,2643,2)
+76 ;;=.039^.504^.144^.055^77.4^0^.066^.055^0^.072^.024^.12^0^1.5
+77 ;;^UTILITY(U,$J,112,2643,3)
+78 ;;=.066^.233^.245^.443^.381^.083^.06^.3^.156^.29^.343^.154^.232^.671^.845^.216^.235^.302
+79 ;;^UTILITY(U,$J,112,2643,4)
+80 ;;=^^0^.068^^.004^.024
+81 ;;^UTILITY(U,$J,112,2643,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2644,0)
+84 ;;=BEANS, KIDNEY, ALL TYPES, BOILED, WO/SALT^16-028^cups^176^100^N
+85 ;;^UTILITY(U,$J,112,2644,1)
+86 ;;=8.67^.5^22.81^127^66.94^^^28^2.94^45^142^403^2^1.07^.242^.477^^0^1.2^.16
+87 ;;^UTILITY(U,$J,112,2644,2)
+88 ;;=.058^.578^.22^.12^129.6^0^.107^.168^0^.072^.039^.275^0^1.09^^^6.4
+89 ;;^UTILITY(U,$J,112,2644,3)
+90 ;;=.103^.365^.383^.693^.595^.13^.094^.469^.244^.454^.537^.242^.364^1.049^1.323^.339^.368^.472
+91 ;;^UTILITY(U,$J,112,2644,4)
+92 ;;=^^^.064^^.008^.039^^^1.2
+93 ;;^UTILITY(U,$J,112,2644,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2645,0)
+96 ;;=BEANS, KIDNEY, ALL TYPES, CANNED^16-029^cups^256^100^N
+97 ;;^UTILITY(U,$J,112,2645,1)
+98 ;;=5.2^.31^14.88^81^77.95^^^27^1.23^31^105^257^347^.55^.15^.217^^0^1.2^.109
+99 ;;^UTILITY(U,$J,112,2645,2)
+100 ;;=.072^.502^.146^.069^49.2^0^.067^.105^0^.045^.024^.172^0^1.66^^^6.2
+101 ;;^UTILITY(U,$J,112,2645,3)
+102 ;;=.061^.219^.229^.415^.356^.078^.057^.281^.146^.272^.322^.145^.218^.628^.792^.203^.22^.283
