FHINI02Q ; ; 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,811,3)
;;=.121^.283^.367^.659^.265^.161^.206^.455^.275^.421^.378^.21^.333^.47^3.011^.349^1.003^.454
;;^UTILITY(U,$J,112,811,4)
;;=0^.001^.019^.553^.012^.42^2.056^0
;;^UTILITY(U,$J,112,811,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,812,0)
;;=BREAD, FRENCH OR VIENNA, ENRICHED^18-029^slices^15^100^N
;;^UTILITY(U,$J,112,812,1)
;;=8.8^3^51.9^274^34.3^^^75^2.53^27^105^113^609^.87^.191^.508^^0^0^.52
;;^UTILITY(U,$J,112,812,2)
;;=.329^4.749^.387^.043^31^0^.66^.033^0^.641^1.215^.693^0^2^^^2.8
;;^UTILITY(U,$J,112,812,3)
;;=.102^.248^.338^.616^.205^.158^.192^.436^.25^.382^.32^.191^.29^.392^2.987^.312^1^.428
;;^UTILITY(U,$J,112,812,4)
;;=^0^.01^.387^.009^.244^1.206^^^31.5
;;^UTILITY(U,$J,112,812,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,813,0)
;;=BREAD, FRENCH OR VIENNA, ENR, TOASTED^18-030^slices^15^100^N
;;^UTILITY(U,$J,112,813,1)
;;=9.6^3.3^56.4^298^28.6^^^81^2.75^30^114^122^661^.95^.208^.552^^0^0^.452
;;^UTILITY(U,$J,112,813,2)
;;=.322^4.645^.273^.042^24^0^.717^.036^0^.696^1.321^.753^0^2.2
;;^UTILITY(U,$J,112,813,3)
;;=.111^.27^.368^.669^.223^.172^.209^.474^.271^.415^.347^.207^.315^.427^3.247^.339^1.087^.465
;;^UTILITY(U,$J,112,813,4)
;;=^0^.011^.421^.01^.265^1.311
;;^UTILITY(U,$J,112,813,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,814,0)
;;=BREAD, ITALIAN, ENRICHED^18-033^slices^30^100^N
;;^UTILITY(U,$J,112,814,1)
;;=8.8^3.5^50^271^35.7^^^78^2.94^27^103^110^584^.86^.191^.464^^0^0^.473
;;^UTILITY(U,$J,112,814,2)
;;=.292^4.381^.378^.048^30^0^1.29^.1^0^.855^.812^1.39^0^1.9^^^3.1
;;^UTILITY(U,$J,112,814,3)
;;=.103^.245^.333^.614^.197^.156^.193^.433^.248^.376^.316^.188^.284^.379^2.99^.307^1.004^.426
;;^UTILITY(U,$J,112,814,4)
;;=^0^.011^.712^.013^.131^.799^^^27.2
;;^UTILITY(U,$J,112,814,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,815,0)
;;=BREAD, ITALIAN, UNENRICHED^451-0^slices^30^100^N
;;^UTILITY(U,$J,112,815,1)
;;=9.1^.8^56.4^276^31.8^^^17^.7^^77^74^585^^^^^0^0^.09
;;^UTILITY(U,$J,112,815,2)
;;=.06^.8^^^^^0^^1^0^^^^1.9
;;^UTILITY(U,$J,112,815,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,815,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,816,0)
;;=BREAD, RAISIN^18-047^slices^25^100^N
;;^UTILITY(U,$J,112,816,1)
;;=7.9^4.4^52.3^274^33.6^^^66^2.9^26^109^227^390^.72^.198^.501^^2^.5^.339
;;^UTILITY(U,$J,112,816,2)
;;=.398^3.466^.387^.069^34^0^.641^.038^0^1.081^2.294^.679^0^1.8^^^4.3
;;^UTILITY(U,$J,112,816,3)
;;=.083^.222^.287^.516^.2^.128^.152^.361^.204^.329^.362^.167^.267^.351^2.355^.269^.828^.357
;;^UTILITY(U,$J,112,816,4)
;;=^0^.02^.584^.006^.476^2.288^^^20
;;^UTILITY(U,$J,112,816,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,817,0)
;;=BREAD, RAISIN, TOASTED^18-048^slices^21^100^N
;;^UTILITY(U,$J,112,817,1)
;;=8.6^4.8^56.9^297^27.8^^^72^3.15^28^118^246^424^.78^.215^.545^^2^.4^.294
;;^UTILITY(U,$J,112,817,2)
;;=.39^3.391^.274^.068^26^0^.697^.041^0^1.175^2.494^.738^0^1.9
;;^UTILITY(U,$J,112,817,3)
;;=.09^.241^.312^.561^.217^.139^.166^.392^.222^.358^.394^.182^.29^.382^2.559^.293^.899^.388
;;^UTILITY(U,$J,112,817,4)
;;=^0^.022^.635^.007^.518^2.487
;;^UTILITY(U,$J,112,817,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,818,0)
;;=BREAD, RYE, AMERICAN^18-060^slices^25^100^N
;;^UTILITY(U,$J,112,818,1)
;;=8.5^3.3^48.3^259^37.3^^^73^2.83^40^125^166^660^1.14^.186^.824^^4^.2^.434
;;^UTILITY(U,$J,112,818,2)
;;=.335^3.805^.44^.075^51^0^.739^.06^0^.626^1.311^.799^0^2.5^^^6.2
;;^UTILITY(U,$J,112,818,3)
;;=.096^.255^.319^.579^.233^.139^.173^.411^.213^.379^.325^.182^.299^.442^2.603^.302^.909^.417
;;^UTILITY(U,$J,112,818,4)
;;=0^0^.011^.385^.012^.23^1.296^^^30.9
;;^UTILITY(U,$J,112,818,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,819,0)
;;=BREAD, RYE, AMERICAN, TOASTED^18-061^slices^22^100^N
;;^UTILITY(U,$J,112,819,1)
;;=9.4^3.6^53.1^284^31^^^80^3.1^43^138^183^725^1.25^.204^.905^^4^.2^.382
;;^UTILITY(U,$J,112,819,2)
;;=.332^3.763^.314^.074^39^0^.812^.066^0^.688^1.44^.879^0^2.7
;;^UTILITY(U,$J,112,819,3)
;;=.105^.281^.351^.637^.256^.153^.19^.451^.235^.417^.358^.2^.328^.486^2.861^.331^.999^.458
;;^UTILITY(U,$J,112,819,4)
;;=0^0^.012^.423^.013^.253^1.425
;;^UTILITY(U,$J,112,819,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,820,0)
;;=BREAD, RYE, PUMPERNICKEL^18-044^slices^32^100^N
;;^UTILITY(U,$J,112,820,1)
;;=8.7^3.1^47.5^250^37.9^^^68^2.87^54^178^208^671^1.48^.287^1.305^^0^0^.327
;;^UTILITY(U,$J,112,820,2)
;;=.305^3.091^.404^.126^34^0^1.145^.092^0^.437^.932^1.237^0^2.6^^^5.9
FHINI02Q ; ; 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,811,3)
+2 ;;=.121^.283^.367^.659^.265^.161^.206^.455^.275^.421^.378^.21^.333^.47^3.011^.349^1.003^.454
+3 ;;^UTILITY(U,$J,112,811,4)
+4 ;;=0^.001^.019^.553^.012^.42^2.056^0
+5 ;;^UTILITY(U,$J,112,811,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,812,0)
+8 ;;=BREAD, FRENCH OR VIENNA, ENRICHED^18-029^slices^15^100^N
+9 ;;^UTILITY(U,$J,112,812,1)
+10 ;;=8.8^3^51.9^274^34.3^^^75^2.53^27^105^113^609^.87^.191^.508^^0^0^.52
+11 ;;^UTILITY(U,$J,112,812,2)
+12 ;;=.329^4.749^.387^.043^31^0^.66^.033^0^.641^1.215^.693^0^2^^^2.8
+13 ;;^UTILITY(U,$J,112,812,3)
+14 ;;=.102^.248^.338^.616^.205^.158^.192^.436^.25^.382^.32^.191^.29^.392^2.987^.312^1^.428
+15 ;;^UTILITY(U,$J,112,812,4)
+16 ;;=^0^.01^.387^.009^.244^1.206^^^31.5
+17 ;;^UTILITY(U,$J,112,812,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,813,0)
+20 ;;=BREAD, FRENCH OR VIENNA, ENR, TOASTED^18-030^slices^15^100^N
+21 ;;^UTILITY(U,$J,112,813,1)
+22 ;;=9.6^3.3^56.4^298^28.6^^^81^2.75^30^114^122^661^.95^.208^.552^^0^0^.452
+23 ;;^UTILITY(U,$J,112,813,2)
+24 ;;=.322^4.645^.273^.042^24^0^.717^.036^0^.696^1.321^.753^0^2.2
+25 ;;^UTILITY(U,$J,112,813,3)
+26 ;;=.111^.27^.368^.669^.223^.172^.209^.474^.271^.415^.347^.207^.315^.427^3.247^.339^1.087^.465
+27 ;;^UTILITY(U,$J,112,813,4)
+28 ;;=^0^.011^.421^.01^.265^1.311
+29 ;;^UTILITY(U,$J,112,813,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,814,0)
+32 ;;=BREAD, ITALIAN, ENRICHED^18-033^slices^30^100^N
+33 ;;^UTILITY(U,$J,112,814,1)
+34 ;;=8.8^3.5^50^271^35.7^^^78^2.94^27^103^110^584^.86^.191^.464^^0^0^.473
+35 ;;^UTILITY(U,$J,112,814,2)
+36 ;;=.292^4.381^.378^.048^30^0^1.29^.1^0^.855^.812^1.39^0^1.9^^^3.1
+37 ;;^UTILITY(U,$J,112,814,3)
+38 ;;=.103^.245^.333^.614^.197^.156^.193^.433^.248^.376^.316^.188^.284^.379^2.99^.307^1.004^.426
+39 ;;^UTILITY(U,$J,112,814,4)
+40 ;;=^0^.011^.712^.013^.131^.799^^^27.2
+41 ;;^UTILITY(U,$J,112,814,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,815,0)
+44 ;;=BREAD, ITALIAN, UNENRICHED^451-0^slices^30^100^N
+45 ;;^UTILITY(U,$J,112,815,1)
+46 ;;=9.1^.8^56.4^276^31.8^^^17^.7^^77^74^585^^^^^0^0^.09
+47 ;;^UTILITY(U,$J,112,815,2)
+48 ;;=.06^.8^^^^^0^^1^0^^^^1.9
+49 ;;^UTILITY(U,$J,112,815,4)
+50 ;;=^^^^^^0
+51 ;;^UTILITY(U,$J,112,815,20)
+52 ;;=USDA Std. Reference, Release 8
+53 ;;^UTILITY(U,$J,112,816,0)
+54 ;;=BREAD, RAISIN^18-047^slices^25^100^N
+55 ;;^UTILITY(U,$J,112,816,1)
+56 ;;=7.9^4.4^52.3^274^33.6^^^66^2.9^26^109^227^390^.72^.198^.501^^2^.5^.339
+57 ;;^UTILITY(U,$J,112,816,2)
+58 ;;=.398^3.466^.387^.069^34^0^.641^.038^0^1.081^2.294^.679^0^1.8^^^4.3
+59 ;;^UTILITY(U,$J,112,816,3)
+60 ;;=.083^.222^.287^.516^.2^.128^.152^.361^.204^.329^.362^.167^.267^.351^2.355^.269^.828^.357
+61 ;;^UTILITY(U,$J,112,816,4)
+62 ;;=^0^.02^.584^.006^.476^2.288^^^20
+63 ;;^UTILITY(U,$J,112,816,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,817,0)
+66 ;;=BREAD, RAISIN, TOASTED^18-048^slices^21^100^N
+67 ;;^UTILITY(U,$J,112,817,1)
+68 ;;=8.6^4.8^56.9^297^27.8^^^72^3.15^28^118^246^424^.78^.215^.545^^2^.4^.294
+69 ;;^UTILITY(U,$J,112,817,2)
+70 ;;=.39^3.391^.274^.068^26^0^.697^.041^0^1.175^2.494^.738^0^1.9
+71 ;;^UTILITY(U,$J,112,817,3)
+72 ;;=.09^.241^.312^.561^.217^.139^.166^.392^.222^.358^.394^.182^.29^.382^2.559^.293^.899^.388
+73 ;;^UTILITY(U,$J,112,817,4)
+74 ;;=^0^.022^.635^.007^.518^2.487
+75 ;;^UTILITY(U,$J,112,817,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,818,0)
+78 ;;=BREAD, RYE, AMERICAN^18-060^slices^25^100^N
+79 ;;^UTILITY(U,$J,112,818,1)
+80 ;;=8.5^3.3^48.3^259^37.3^^^73^2.83^40^125^166^660^1.14^.186^.824^^4^.2^.434
+81 ;;^UTILITY(U,$J,112,818,2)
+82 ;;=.335^3.805^.44^.075^51^0^.739^.06^0^.626^1.311^.799^0^2.5^^^6.2
+83 ;;^UTILITY(U,$J,112,818,3)
+84 ;;=.096^.255^.319^.579^.233^.139^.173^.411^.213^.379^.325^.182^.299^.442^2.603^.302^.909^.417
+85 ;;^UTILITY(U,$J,112,818,4)
+86 ;;=0^0^.011^.385^.012^.23^1.296^^^30.9
+87 ;;^UTILITY(U,$J,112,818,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,819,0)
+90 ;;=BREAD, RYE, AMERICAN, TOASTED^18-061^slices^22^100^N
+91 ;;^UTILITY(U,$J,112,819,1)
+92 ;;=9.4^3.6^53.1^284^31^^^80^3.1^43^138^183^725^1.25^.204^.905^^4^.2^.382
+93 ;;^UTILITY(U,$J,112,819,2)
+94 ;;=.332^3.763^.314^.074^39^0^.812^.066^0^.688^1.44^.879^0^2.7
+95 ;;^UTILITY(U,$J,112,819,3)
+96 ;;=.105^.281^.351^.637^.256^.153^.19^.451^.235^.417^.358^.2^.328^.486^2.861^.331^.999^.458
+97 ;;^UTILITY(U,$J,112,819,4)
+98 ;;=0^0^.012^.423^.013^.253^1.425
+99 ;;^UTILITY(U,$J,112,819,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,820,0)
+102 ;;=BREAD, RYE, PUMPERNICKEL^18-044^slices^32^100^N
+103 ;;^UTILITY(U,$J,112,820,1)
+104 ;;=8.7^3.1^47.5^250^37.9^^^68^2.87^54^178^208^671^1.48^.287^1.305^^0^0^.327
+105 ;;^UTILITY(U,$J,112,820,2)
+106 ;;=.305^3.091^.404^.126^34^0^1.145^.092^0^.437^.932^1.237^0^2.6^^^5.9
