FHINI02G ; ; 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,687,2)
;;=.114^4.604^.282^.26^23^0^.505^.055^0^.244^.149^.56^2^1.11^^^11.8
;;^UTILITY(U,$J,112,687,3)
;;=.165^.337^.362^.673^.369^.19^.219^.556^.284^.486^.496^.223^.386^.619^2.588^.359^1.178^.418
;;^UTILITY(U,$J,112,687,4)
;;=^.003^.006^.208^.003^.008^.122
;;^UTILITY(U,$J,112,687,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,688,0)
;;=BARLEY, PEARLED, COOKED^20-006^cups^157^100^N
;;^UTILITY(U,$J,112,688,1)
;;=2.26^.44^28.22^123^68.8^^^11^1.33^22^54^93^3^.82^.105^.259^^7^0^.083
;;^UTILITY(U,$J,112,688,2)
;;=.062^2.063^.135^.115^16^0^.193^.021^0^.093^.057^.214^1^.27^^^3.8
;;^UTILITY(U,$J,112,688,3)
;;=.038^.077^.083^.154^.084^.043^.05^.127^.065^.111^.113^.051^.088^.141^.591^.082^.269^.095
;;^UTILITY(U,$J,112,688,4)
;;=^.001^.002^.079^.001^.003^.047
;;^UTILITY(U,$J,112,688,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,689,0)
;;=BASS, FRESHWATER, RAW^15-003^fillets^79^100^N
;;^UTILITY(U,$J,112,689,1)
;;=18.86^3.69^0^114^75.66^^^80^1.49^30^200^356^70^.65^.093^.889^^100^2^.075
;;^UTILITY(U,$J,112,689,2)
;;=.074^1.25^.75^.12^15^2^.087^.111^68^.78^1.431^1.062^30^1.52^^^0
;;^UTILITY(U,$J,112,689,3)
;;=.211^.827^.869^1.533^1.732^.558^.202^.736^.637^.971^1.128^.555^1.14^1.931^2.815^.905^.667^.769
;;^UTILITY(U,$J,112,689,4)
;;=^^.087^.593^.382^.1^.991^.144
;;^UTILITY(U,$J,112,689,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,690,0)
;;=BASS, STRIPED, RAW^15-004^fillets^159^100^N
;;^UTILITY(U,$J,112,690,1)
;;=17.73^2.33^0^97^79.22^^^15^.84^40^198^256^69^.4^.031^.015^^90^0^.1
;;^UTILITY(U,$J,112,690,2)
;;=.03^2.1^.75^.3^9^3.82^.015^.015^80^.507^.66^.784^27^1.04^^^0
;;^UTILITY(U,$J,112,690,3)
;;=.199^.777^.817^1.441^1.628^.525^.19^.692^.599^.914^1.061^.522^1.072^1.816^2.647^.851^.627^.723
;;^UTILITY(U,$J,112,690,4)
;;=^^.042^.379^.151^.086^.448
;;^UTILITY(U,$J,112,690,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,691,0)
;;=BEANS, DRY, WHITE, CKD, WO/SALT^16-050^cups^180^100^N
;;^UTILITY(U,$J,112,691,1)
;;=9.73^.35^25.1^139^63.08^^^90^3.7^63^113^561^6^1.38^.287^.636^^0^0^.118
;;^UTILITY(U,$J,112,691,2)
;;=.046^.14^.229^.093^80.7^0^.083^.069^0^.091^.031^.152^0^1.75^^^5.6
;;^UTILITY(U,$J,112,691,3)
;;=.115^.409^.429^.776^.668^.146^.106^.526^.274^.509^.602^.271^.408^1.176^1.483^.38^.412^.529
;;^UTILITY(U,$J,112,691,4)
;;=^^0^.085^^.005^.031
;;^UTILITY(U,$J,112,691,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,692,0)
;;=BEANS, WHITE, CND, W/PORK&TOM SAUCE^16-011^cups^255^100^N
;;^UTILITY(U,$J,112,692,1)
;;=5.16^1.03^19.39^98^72.69^^^56^3.28^35^117^300^440^5.86^.254^.49^^124^3.1^.052
;;^UTILITY(U,$J,112,692,2)
;;=.046^.497^.529^.069^22.5^0^.111^.02^7^.395^.444^.131^12^1.73^^^4.8
;;^UTILITY(U,$J,112,692,3)
;;=.061^.217^.228^.412^.354^.078^.056^.279^.145^.27^.319^.144^.216^.624^.786^.201^.219^.281
;;^UTILITY(U,$J,112,692,4)
;;=.001^.002^.013^.244^.026^.132^.406^^^4.7
;;^UTILITY(U,$J,112,692,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,693,0)
;;=BEANS, WHITE, CND, W/PORK&SWEET SAUCE^16-010^cups^255^100^N
;;^UTILITY(U,$J,112,693,1)
;;=5.31^1.46^20.99^111^70.71^^^61^1.66^34^105^266^336^1.5^.1^.371^^114^3^.047
;;^UTILITY(U,$J,112,693,2)
;;=.061^.351^.103^.085^37.4^0^.159^.028^7^.563^.632^.187^11^1.54^^^5.2
;;^UTILITY(U,$J,112,693,3)
;;=.063^.223^.234^.424^.364^.081^.058^.287^.149^.278^.329^.148^.222^.642^.809^.207^.225^.289
;;^UTILITY(U,$J,112,693,4)
;;=.001^.003^.018^.348^.037^.188^.578^^^4.7
;;^UTILITY(U,$J,112,693,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,694,0)
;;=BEANS, DRY, WHITE, CND, WO PORK^16-006^cups^255^100^N
;;^UTILITY(U,$J,112,694,1)
;;=4.79^.45^20.51^93^72.65^^^50^.29^32^104^296^397^1.4^.206^.346^^171^3.1^.153
;;^UTILITY(U,$J,112,694,2)
;;=.06^.428^.096^.134^23.9^0^.105^.088^0^.116^.039^.194^17^1.59^^^5
;;^UTILITY(U,$J,112,694,3)
;;=.057^.202^.212^.383^.329^.072^.052^.259^.135^.251^.297^.133^.201^.58^.731^.187^.203^.261
;;^UTILITY(U,$J,112,694,4)
;;=^^0^.109^^.007^.039^^^4.7
;;^UTILITY(U,$J,112,694,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,695,0)
;;=BEANS, DRY, RED, CKD, WO/SALT^16-033^cups^185^100^N
;;^UTILITY(U,$J,112,695,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,695,2)
;;=.058^.578^.22^.12^129.6^0^.107^.168^0^.072^.039^.275^0^1.09^^^7.4
;;^UTILITY(U,$J,112,695,3)
;;=.103^.365^.383^.693^.595^.13^.094^.469^.244^.454^.537^.242^.364^1.049^1.323^.339^.368^.472
FHINI02G ; ; 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,687,2)
+2 ;;=.114^4.604^.282^.26^23^0^.505^.055^0^.244^.149^.56^2^1.11^^^11.8
+3 ;;^UTILITY(U,$J,112,687,3)
+4 ;;=.165^.337^.362^.673^.369^.19^.219^.556^.284^.486^.496^.223^.386^.619^2.588^.359^1.178^.418
+5 ;;^UTILITY(U,$J,112,687,4)
+6 ;;=^.003^.006^.208^.003^.008^.122
+7 ;;^UTILITY(U,$J,112,687,20)
+8 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+9 ;;^UTILITY(U,$J,112,688,0)
+10 ;;=BARLEY, PEARLED, COOKED^20-006^cups^157^100^N
+11 ;;^UTILITY(U,$J,112,688,1)
+12 ;;=2.26^.44^28.22^123^68.8^^^11^1.33^22^54^93^3^.82^.105^.259^^7^0^.083
+13 ;;^UTILITY(U,$J,112,688,2)
+14 ;;=.062^2.063^.135^.115^16^0^.193^.021^0^.093^.057^.214^1^.27^^^3.8
+15 ;;^UTILITY(U,$J,112,688,3)
+16 ;;=.038^.077^.083^.154^.084^.043^.05^.127^.065^.111^.113^.051^.088^.141^.591^.082^.269^.095
+17 ;;^UTILITY(U,$J,112,688,4)
+18 ;;=^.001^.002^.079^.001^.003^.047
+19 ;;^UTILITY(U,$J,112,688,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,689,0)
+22 ;;=BASS, FRESHWATER, RAW^15-003^fillets^79^100^N
+23 ;;^UTILITY(U,$J,112,689,1)
+24 ;;=18.86^3.69^0^114^75.66^^^80^1.49^30^200^356^70^.65^.093^.889^^100^2^.075
+25 ;;^UTILITY(U,$J,112,689,2)
+26 ;;=.074^1.25^.75^.12^15^2^.087^.111^68^.78^1.431^1.062^30^1.52^^^0
+27 ;;^UTILITY(U,$J,112,689,3)
+28 ;;=.211^.827^.869^1.533^1.732^.558^.202^.736^.637^.971^1.128^.555^1.14^1.931^2.815^.905^.667^.769
+29 ;;^UTILITY(U,$J,112,689,4)
+30 ;;=^^.087^.593^.382^.1^.991^.144
+31 ;;^UTILITY(U,$J,112,689,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,690,0)
+34 ;;=BASS, STRIPED, RAW^15-004^fillets^159^100^N
+35 ;;^UTILITY(U,$J,112,690,1)
+36 ;;=17.73^2.33^0^97^79.22^^^15^.84^40^198^256^69^.4^.031^.015^^90^0^.1
+37 ;;^UTILITY(U,$J,112,690,2)
+38 ;;=.03^2.1^.75^.3^9^3.82^.015^.015^80^.507^.66^.784^27^1.04^^^0
+39 ;;^UTILITY(U,$J,112,690,3)
+40 ;;=.199^.777^.817^1.441^1.628^.525^.19^.692^.599^.914^1.061^.522^1.072^1.816^2.647^.851^.627^.723
+41 ;;^UTILITY(U,$J,112,690,4)
+42 ;;=^^.042^.379^.151^.086^.448
+43 ;;^UTILITY(U,$J,112,690,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,691,0)
+46 ;;=BEANS, DRY, WHITE, CKD, WO/SALT^16-050^cups^180^100^N
+47 ;;^UTILITY(U,$J,112,691,1)
+48 ;;=9.73^.35^25.1^139^63.08^^^90^3.7^63^113^561^6^1.38^.287^.636^^0^0^.118
+49 ;;^UTILITY(U,$J,112,691,2)
+50 ;;=.046^.14^.229^.093^80.7^0^.083^.069^0^.091^.031^.152^0^1.75^^^5.6
+51 ;;^UTILITY(U,$J,112,691,3)
+52 ;;=.115^.409^.429^.776^.668^.146^.106^.526^.274^.509^.602^.271^.408^1.176^1.483^.38^.412^.529
+53 ;;^UTILITY(U,$J,112,691,4)
+54 ;;=^^0^.085^^.005^.031
+55 ;;^UTILITY(U,$J,112,691,20)
+56 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+57 ;;^UTILITY(U,$J,112,692,0)
+58 ;;=BEANS, WHITE, CND, W/PORK&TOM SAUCE^16-011^cups^255^100^N
+59 ;;^UTILITY(U,$J,112,692,1)
+60 ;;=5.16^1.03^19.39^98^72.69^^^56^3.28^35^117^300^440^5.86^.254^.49^^124^3.1^.052
+61 ;;^UTILITY(U,$J,112,692,2)
+62 ;;=.046^.497^.529^.069^22.5^0^.111^.02^7^.395^.444^.131^12^1.73^^^4.8
+63 ;;^UTILITY(U,$J,112,692,3)
+64 ;;=.061^.217^.228^.412^.354^.078^.056^.279^.145^.27^.319^.144^.216^.624^.786^.201^.219^.281
+65 ;;^UTILITY(U,$J,112,692,4)
+66 ;;=.001^.002^.013^.244^.026^.132^.406^^^4.7
+67 ;;^UTILITY(U,$J,112,692,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,693,0)
+70 ;;=BEANS, WHITE, CND, W/PORK&SWEET SAUCE^16-010^cups^255^100^N
+71 ;;^UTILITY(U,$J,112,693,1)
+72 ;;=5.31^1.46^20.99^111^70.71^^^61^1.66^34^105^266^336^1.5^.1^.371^^114^3^.047
+73 ;;^UTILITY(U,$J,112,693,2)
+74 ;;=.061^.351^.103^.085^37.4^0^.159^.028^7^.563^.632^.187^11^1.54^^^5.2
+75 ;;^UTILITY(U,$J,112,693,3)
+76 ;;=.063^.223^.234^.424^.364^.081^.058^.287^.149^.278^.329^.148^.222^.642^.809^.207^.225^.289
+77 ;;^UTILITY(U,$J,112,693,4)
+78 ;;=.001^.003^.018^.348^.037^.188^.578^^^4.7
+79 ;;^UTILITY(U,$J,112,693,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,694,0)
+82 ;;=BEANS, DRY, WHITE, CND, WO PORK^16-006^cups^255^100^N
+83 ;;^UTILITY(U,$J,112,694,1)
+84 ;;=4.79^.45^20.51^93^72.65^^^50^.29^32^104^296^397^1.4^.206^.346^^171^3.1^.153
+85 ;;^UTILITY(U,$J,112,694,2)
+86 ;;=.06^.428^.096^.134^23.9^0^.105^.088^0^.116^.039^.194^17^1.59^^^5
+87 ;;^UTILITY(U,$J,112,694,3)
+88 ;;=.057^.202^.212^.383^.329^.072^.052^.259^.135^.251^.297^.133^.201^.58^.731^.187^.203^.261
+89 ;;^UTILITY(U,$J,112,694,4)
+90 ;;=^^0^.109^^.007^.039^^^4.7
+91 ;;^UTILITY(U,$J,112,694,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,695,0)
+94 ;;=BEANS, DRY, RED, CKD, WO/SALT^16-033^cups^185^100^N
+95 ;;^UTILITY(U,$J,112,695,1)
+96 ;;=8.67^.5^22.81^127^66.94^^^28^2.94^45^142^403^2^1.07^.242^.477^^0^1.2^.16
+97 ;;^UTILITY(U,$J,112,695,2)
+98 ;;=.058^.578^.22^.12^129.6^0^.107^.168^0^.072^.039^.275^0^1.09^^^7.4
+99 ;;^UTILITY(U,$J,112,695,3)
+100 ;;=.103^.365^.383^.693^.595^.13^.094^.469^.244^.454^.537^.242^.364^1.049^1.323^.339^.368^.472
