FHINI02H ; ; 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,695,4)
;;=^^^.064^^.008^.039
;;^UTILITY(U,$J,112,695,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,696,0)
;;=BEANS, RED, CND, SOL+LIQ^16-034^cups^255^100^N
;;^UTILITY(U,$J,112,696,1)
;;=5.25^.34^15.6^85^77.36^^^24^1.26^28^94^257^341^.55^.15^.242^^0^1.1^.105
;;^UTILITY(U,$J,112,696,2)
;;=.088^.456^.15^.022^50.6^0^.073^.116^0^.05^.027^.189^0^1.46^^^6.4
;;^UTILITY(U,$J,112,696,3)
;;=.062^.221^.232^.419^.36^.079^.057^.284^.148^.274^.325^.146^.22^.634^.8^.205^.222^.285
;;^UTILITY(U,$J,112,696,4)
;;=^^^.044^^.006^.027
;;^UTILITY(U,$J,112,696,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,697,0)
;;=BEANS, LIMA, DRY, CKD WO/SALT^11-032^cups^170^100^N
;;^UTILITY(U,$J,112,697,1)
;;=6.81^.32^23.64^123^67.17^^^32^2.45^74^130^570^17^.79^.305^1.252^^370^10.1^.14
;;^UTILITY(U,$J,112,697,2)
;;=.096^1.04^.257^.193^26.3^0^.104^.05^0^.073^.019^.154^37^2.06^^^5.3
;;^UTILITY(U,$J,112,697,3)
;;=.089^.289^.438^.535^.45^.068^.083^.336^.219^.425^.456^.231^.258^.731^.877^.273^.101^.425
;;^UTILITY(U,$J,112,697,4)
;;=^^.001^.064^^.008^.019
;;^UTILITY(U,$J,112,697,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,700,0)
;;=BEANS, LIMA, CND, REG PK, W/SALT^11-033^cups^248^100^N
;;^UTILITY(U,$J,112,700,1)
;;=4.55^.3^13.89^75^79.99^^^28^1.59^34^71^269^249^.64^.162^.7^^172^8.7^.029
;;^UTILITY(U,$J,112,700,2)
;;=.043^.532^.095^.062^16^0^.097^.047^0^.068^.017^.144^17^1.28^^^3.2
;;^UTILITY(U,$J,112,700,3)
;;=.06^.193^.292^.357^.3^.045^.055^.224^.146^.284^.304^.154^.172^.488^.585^.182^.068^.284
;;^UTILITY(U,$J,112,700,4)
;;=^^.001^.059^^.007^.017
;;^UTILITY(U,$J,112,700,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,702,0)
;;=BEANS, LIMA, CND, DIET PK, LO NA^11-715^cups^248^100^N
;;^UTILITY(U,$J,112,702,1)
;;=4.55^.3^13.89^75^79.99^^^28^1.59^34^71^269^4^.64^.162^.7^^172^8.7^.029
;;^UTILITY(U,$J,112,702,2)
;;=.043^.532^.095^.062^16^0^.097^.047^0^.068^.017^.144^17^1.28^^^3.2
;;^UTILITY(U,$J,112,702,3)
;;=.06^.193^.292^.357^.3^.045^.055^.224^.146^.284^.304^.154^.172^.488^.585^.182^.068^.284
;;^UTILITY(U,$J,112,702,4)
;;=^^.001^.059^^.007^.017
;;^UTILITY(U,$J,112,702,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,704,0)
;;=BEANS, LIMA, FORDHOOKS, FRZ, CKD WO/SALT^11-038^cups^170^100^N
;;^UTILITY(U,$J,112,704,1)
;;=6.07^.34^18.8^100^73.5^^^22^1.36^34^63^408^53^.44^.055^.311^^190^12.8^.074
;;^UTILITY(U,$J,112,704,2)
;;=.061^1.069^.163^.122^21.2^0^.11^.053^0^.077^.02^.163^19^1.3^^^7.2
;;^UTILITY(U,$J,112,704,3)
;;=.08^.257^.39^.477^.401^.06^.074^.299^.195^.379^.406^.206^.23^.652^.782^.243^.09^.379
;;^UTILITY(U,$J,112,704,4)
;;=^^.001^.067^^.008^.02
;;^UTILITY(U,$J,112,704,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,705,0)
;;=BEANS, LIMA, FORDHOOKS, FRZ, CKD W/SALT^11-717^cups^170^100^N
;;^UTILITY(U,$J,112,705,1)
;;=6.07^.34^18.8^100^73.5^^^22^1.36^34^63^408^289^.44^.055^.311^^190^12.8^.074
;;^UTILITY(U,$J,112,705,2)
;;=.061^1.069^.163^.122^21.2^0^.11^.053^0^.077^.02^.163^19^1.3
;;^UTILITY(U,$J,112,705,3)
;;=.08^.257^.39^.477^.401^.06^.074^.299^.195^.379^.406^.206^.23^.652^.782^.243^.09^.379
;;^UTILITY(U,$J,112,705,4)
;;=^^.001^.067^^.008^.02
;;^UTILITY(U,$J,112,705,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,706,0)
;;=BEANS, LIMA, BABY, FRZ, CKD WO/SALT^11-040^cups^180^100^N
;;^UTILITY(U,$J,112,706,1)
;;=6.65^.3^19.45^105^72.35^^^28^1.96^56^112^411^29^.55^.197^.813^^167^5.8^.07
;;^UTILITY(U,$J,112,706,2)
;;=.055^.77^.177^.115^15.5^0^.098^.047^0^.068^.017^.145^17^1.25
;;^UTILITY(U,$J,112,706,3)
;;=.087^.282^.428^.522^.439^.066^.081^.328^.214^.415^.445^.226^.252^.714^.857^.266^.099^.415
;;^UTILITY(U,$J,112,706,4)
;;=^^.001^.06^^.008^.017
;;^UTILITY(U,$J,112,706,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,707,0)
;;=BEANS, LIMA, BABY, FRZ, CKD W/SALT^11-716^cups^180^100^N
;;^UTILITY(U,$J,112,707,1)
;;=6.65^.3^19.45^105^72.35^^^28^1.96^56^112^411^265^.55^.197^.813^^167^5.8^.07
;;^UTILITY(U,$J,112,707,2)
;;=.055^.77^.177^.115^15.5^0^.098^.047^0^.068^.017^.145^17^1.25
;;^UTILITY(U,$J,112,707,3)
;;=.087^.282^.428^.522^.439^.066^.081^.328^.214^.415^.445^.226^.252^.714^.857^.266^.099^.415
;;^UTILITY(U,$J,112,707,4)
;;=^^.001^.06^^.008^.017
;;^UTILITY(U,$J,112,707,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,709,0)
;;=BEAN SPROUTS, MUNG, RAW^11-043^cups^105^100^N
;;^UTILITY(U,$J,112,709,1)
;;=3.04^.18^5.93^30^90.4^^^13^.91^21^54^149^6^.41^.164^.188^^21^13.2^.084
;;^UTILITY(U,$J,112,709,2)
;;=.124^.749^.38^.088^60.8^0^.042^.016^0^.046^.022^.058^2^.44^^^1.5
FHINI02H ; ; 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,695,4)
+2 ;;=^^^.064^^.008^.039
+3 ;;^UTILITY(U,$J,112,695,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,696,0)
+6 ;;=BEANS, RED, CND, SOL+LIQ^16-034^cups^255^100^N
+7 ;;^UTILITY(U,$J,112,696,1)
+8 ;;=5.25^.34^15.6^85^77.36^^^24^1.26^28^94^257^341^.55^.15^.242^^0^1.1^.105
+9 ;;^UTILITY(U,$J,112,696,2)
+10 ;;=.088^.456^.15^.022^50.6^0^.073^.116^0^.05^.027^.189^0^1.46^^^6.4
+11 ;;^UTILITY(U,$J,112,696,3)
+12 ;;=.062^.221^.232^.419^.36^.079^.057^.284^.148^.274^.325^.146^.22^.634^.8^.205^.222^.285
+13 ;;^UTILITY(U,$J,112,696,4)
+14 ;;=^^^.044^^.006^.027
+15 ;;^UTILITY(U,$J,112,696,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,697,0)
+18 ;;=BEANS, LIMA, DRY, CKD WO/SALT^11-032^cups^170^100^N
+19 ;;^UTILITY(U,$J,112,697,1)
+20 ;;=6.81^.32^23.64^123^67.17^^^32^2.45^74^130^570^17^.79^.305^1.252^^370^10.1^.14
+21 ;;^UTILITY(U,$J,112,697,2)
+22 ;;=.096^1.04^.257^.193^26.3^0^.104^.05^0^.073^.019^.154^37^2.06^^^5.3
+23 ;;^UTILITY(U,$J,112,697,3)
+24 ;;=.089^.289^.438^.535^.45^.068^.083^.336^.219^.425^.456^.231^.258^.731^.877^.273^.101^.425
+25 ;;^UTILITY(U,$J,112,697,4)
+26 ;;=^^.001^.064^^.008^.019
+27 ;;^UTILITY(U,$J,112,697,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,700,0)
+30 ;;=BEANS, LIMA, CND, REG PK, W/SALT^11-033^cups^248^100^N
+31 ;;^UTILITY(U,$J,112,700,1)
+32 ;;=4.55^.3^13.89^75^79.99^^^28^1.59^34^71^269^249^.64^.162^.7^^172^8.7^.029
+33 ;;^UTILITY(U,$J,112,700,2)
+34 ;;=.043^.532^.095^.062^16^0^.097^.047^0^.068^.017^.144^17^1.28^^^3.2
+35 ;;^UTILITY(U,$J,112,700,3)
+36 ;;=.06^.193^.292^.357^.3^.045^.055^.224^.146^.284^.304^.154^.172^.488^.585^.182^.068^.284
+37 ;;^UTILITY(U,$J,112,700,4)
+38 ;;=^^.001^.059^^.007^.017
+39 ;;^UTILITY(U,$J,112,700,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,702,0)
+42 ;;=BEANS, LIMA, CND, DIET PK, LO NA^11-715^cups^248^100^N
+43 ;;^UTILITY(U,$J,112,702,1)
+44 ;;=4.55^.3^13.89^75^79.99^^^28^1.59^34^71^269^4^.64^.162^.7^^172^8.7^.029
+45 ;;^UTILITY(U,$J,112,702,2)
+46 ;;=.043^.532^.095^.062^16^0^.097^.047^0^.068^.017^.144^17^1.28^^^3.2
+47 ;;^UTILITY(U,$J,112,702,3)
+48 ;;=.06^.193^.292^.357^.3^.045^.055^.224^.146^.284^.304^.154^.172^.488^.585^.182^.068^.284
+49 ;;^UTILITY(U,$J,112,702,4)
+50 ;;=^^.001^.059^^.007^.017
+51 ;;^UTILITY(U,$J,112,702,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,704,0)
+54 ;;=BEANS, LIMA, FORDHOOKS, FRZ, CKD WO/SALT^11-038^cups^170^100^N
+55 ;;^UTILITY(U,$J,112,704,1)
+56 ;;=6.07^.34^18.8^100^73.5^^^22^1.36^34^63^408^53^.44^.055^.311^^190^12.8^.074
+57 ;;^UTILITY(U,$J,112,704,2)
+58 ;;=.061^1.069^.163^.122^21.2^0^.11^.053^0^.077^.02^.163^19^1.3^^^7.2
+59 ;;^UTILITY(U,$J,112,704,3)
+60 ;;=.08^.257^.39^.477^.401^.06^.074^.299^.195^.379^.406^.206^.23^.652^.782^.243^.09^.379
+61 ;;^UTILITY(U,$J,112,704,4)
+62 ;;=^^.001^.067^^.008^.02
+63 ;;^UTILITY(U,$J,112,704,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,705,0)
+66 ;;=BEANS, LIMA, FORDHOOKS, FRZ, CKD W/SALT^11-717^cups^170^100^N
+67 ;;^UTILITY(U,$J,112,705,1)
+68 ;;=6.07^.34^18.8^100^73.5^^^22^1.36^34^63^408^289^.44^.055^.311^^190^12.8^.074
+69 ;;^UTILITY(U,$J,112,705,2)
+70 ;;=.061^1.069^.163^.122^21.2^0^.11^.053^0^.077^.02^.163^19^1.3
+71 ;;^UTILITY(U,$J,112,705,3)
+72 ;;=.08^.257^.39^.477^.401^.06^.074^.299^.195^.379^.406^.206^.23^.652^.782^.243^.09^.379
+73 ;;^UTILITY(U,$J,112,705,4)
+74 ;;=^^.001^.067^^.008^.02
+75 ;;^UTILITY(U,$J,112,705,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,706,0)
+78 ;;=BEANS, LIMA, BABY, FRZ, CKD WO/SALT^11-040^cups^180^100^N
+79 ;;^UTILITY(U,$J,112,706,1)
+80 ;;=6.65^.3^19.45^105^72.35^^^28^1.96^56^112^411^29^.55^.197^.813^^167^5.8^.07
+81 ;;^UTILITY(U,$J,112,706,2)
+82 ;;=.055^.77^.177^.115^15.5^0^.098^.047^0^.068^.017^.145^17^1.25
+83 ;;^UTILITY(U,$J,112,706,3)
+84 ;;=.087^.282^.428^.522^.439^.066^.081^.328^.214^.415^.445^.226^.252^.714^.857^.266^.099^.415
+85 ;;^UTILITY(U,$J,112,706,4)
+86 ;;=^^.001^.06^^.008^.017
+87 ;;^UTILITY(U,$J,112,706,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,707,0)
+90 ;;=BEANS, LIMA, BABY, FRZ, CKD W/SALT^11-716^cups^180^100^N
+91 ;;^UTILITY(U,$J,112,707,1)
+92 ;;=6.65^.3^19.45^105^72.35^^^28^1.96^56^112^411^265^.55^.197^.813^^167^5.8^.07
+93 ;;^UTILITY(U,$J,112,707,2)
+94 ;;=.055^.77^.177^.115^15.5^0^.098^.047^0^.068^.017^.145^17^1.25
+95 ;;^UTILITY(U,$J,112,707,3)
+96 ;;=.087^.282^.428^.522^.439^.066^.081^.328^.214^.415^.445^.226^.252^.714^.857^.266^.099^.415
+97 ;;^UTILITY(U,$J,112,707,4)
+98 ;;=^^.001^.06^^.008^.017
+99 ;;^UTILITY(U,$J,112,707,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,709,0)
+102 ;;=BEAN SPROUTS, MUNG, RAW^11-043^cups^105^100^N
+103 ;;^UTILITY(U,$J,112,709,1)
+104 ;;=3.04^.18^5.93^30^90.4^^^13^.91^21^54^149^6^.41^.164^.188^^21^13.2^.084
+105 ;;^UTILITY(U,$J,112,709,2)
+106 ;;=.124^.749^.38^.088^60.8^0^.042^.016^0^.046^.022^.058^2^.44^^^1.5
