- FHINI080 ; ; 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,2778,1)
- ;;=30.21^3.19^0^158^65.23^^^7^4.47^24^226^335^54^2.75^.3^.046^^0^0^.18
- ;;^UTILITY(U,$J,112,2778,2)
- ;;=.6^6.71^^^^^.4^.09^112^1.25^.88^.62^0^1.52^^^0
- ;;^UTILITY(U,$J,112,2778,3)
- ;;=^1.421^1.194^2.566^2.639^.745^.338^1.233^1.069^1.412^2.175^1.494^1.885^2.803^4.389^1.546^1.557^1.281
- ;;^UTILITY(U,$J,112,2778,4)
- ;;=0^0^.03^.54^.04^.67^.83^.13
- ;;^UTILITY(U,$J,112,2778,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2779,0)
- ;;=EEL, COOKED, DRY HEAT^15-026^oz.^28.3^100^N
- ;;^UTILITY(U,$J,112,2779,1)
- ;;=23.65^14.95^0^236^59.31^^^26^.64^26^277^349^65^2.08^.029^.04^^3787^1.8^.183
- ;;^UTILITY(U,$J,112,2779,2)
- ;;=.051^4.487^.28^.077^17.3^2.885^.251^.554^161^3.023^9.218^1.214^1136^1.8^^^0
- ;;^UTILITY(U,$J,112,2779,3)
- ;;=.265^1.037^1.09^1.922^2.171^.7^.253^.923^.798^1.218^1.415^.696^1.43^2.421^3.53^1.135^.836^.965
- ;;^UTILITY(U,$J,112,2779,4)
- ;;=^^.74^2.032^1.609^.245^3.554^.122
- ;;^UTILITY(U,$J,112,2779,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2780,0)
- ;;=ELK, ROASTED^17-167^oz.^28.3^100^N
- ;;^UTILITY(U,$J,112,2780,1)
- ;;=30.19^1.9^0^146^66.28^^^5^3.63^24^180^328^61^3.16^.142^.013^^0^0
- ;;^UTILITY(U,$J,112,2780,2)
- ;;=^^^^^^.23^.06^73^.7^.48^.4^0^1.32^^^0
- ;;^UTILITY(U,$J,112,2780,3)
- ;;=.545^1.315^.973^2.546^2.803^.725^^1.198^1.081^1.066^2.073^.964^1.896^2.962^4.804^1.282^1.306^1.318
- ;;^UTILITY(U,$J,112,2780,4)
- ;;=0^0^.05^.46^.17^.19^.3^.11
- ;;^UTILITY(U,$J,112,2780,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2781,0)
- ;;=GEFILTEFISH, COMMERCIAL, SWEET RECIPE^15-030^pieces^42^100^N
- ;;^UTILITY(U,$J,112,2781,1)
- ;;=9.07^1.73^7.41^84^80.35^^^23^2.48^9^73^91^524^.82^.195^.073^^89^.8^.065
- ;;^UTILITY(U,$J,112,2781,2)
- ;;=.059^1^.2^.08^2.8^.844^.116^^30^.412^.824^.285^27^1.44^^^0
- ;;^UTILITY(U,$J,112,2781,3)
- ;;=.086^.488^.486^.81^.842^.255^.113^.493^.38^.548^.595^.261^.546^.772^1.75^.403^.341^.473
- ;;^UTILITY(U,$J,112,2781,4)
- ;;=^^.056^.3^.257^.056^.407
- ;;^UTILITY(U,$J,112,2781,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2782,0)
- ;;=GOAT, ROASTED^17-169^oz.^28.3^100^N
- ;;^UTILITY(U,$J,112,2782,1)
- ;;=27.1^3.03^0^143^68.21^^^17^3.73^^201^405^86^5.27^.303^.042^^0^0^.09
- ;;^UTILITY(U,$J,112,2782,2)
- ;;=.61^3.95^^^5^1.19^.13^.02^75^.93^1.36^.23^0^1.46^^^0
- ;;^UTILITY(U,$J,112,2782,3)
- ;;=.403^1.29^1.371^2.258^2.016^.726^.323^.941^.833^1.452^1.989^.565
- ;;^UTILITY(U,$J,112,2782,4)
- ;;=0^0^.04^.43^.06^.43^1.24^.08
- ;;^UTILITY(U,$J,112,2782,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2783,0)
- ;;=GOOSE, MEAT ONLY, ROASTED^5-149^oz.^28.3^55^N
- ;;^UTILITY(U,$J,112,2783,1)
- ;;=28.97^12.67^0^238^57.23^^^14^2.87^25^309^388^76^3.17^.276^.024^^40^0^.092
- ;;^UTILITY(U,$J,112,2783,2)
- ;;=.39^4.081^1.834^.47^12^.49^1.37^.15^96^4.56^4.34^1.54^12^1.14^^^0
- ;;^UTILITY(U,$J,112,2783,3)
- ;;=.403^1.238^1.488^2.447^2.48^.783^.445^1.214^1.103^1.516^1.849^.765^1.835^2.837^4.533^1.622^1.423^1.247
- ;;^UTILITY(U,$J,112,2783,4)
- ;;=0^.04^.05^2.61^.44^1.4^3.88^0
- ;;^UTILITY(U,$J,112,2783,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2784,0)
- ;;=GOOSE, MEAT&SKIN, ROASTED^5-147^oz.^28.3^72^N
- ;;^UTILITY(U,$J,112,2784,1)
- ;;=25.16^21.92^0^305^51.95^^^13^2.83^22^270^329^70^2.62^.264^.023^^70^0^.077
- ;;^UTILITY(U,$J,112,2784,2)
- ;;=.323^4.168^1.53^.37^2^.41^2.24^.18^91^6.87^10.25^2.52^21^.97^^^0
- ;;^UTILITY(U,$J,112,2784,3)
- ;;=.332^1.123^1.183^2.109^1.988^.608^.39^1.055^.805^1.232^1.566^.7^1.55^2.262^3.739^1.594^1.216^1.002
- ;;^UTILITY(U,$J,112,2784,4)
- ;;=0^.04^.11^4.53^.68^1.81^9.52^0
- ;;^UTILITY(U,$J,112,2784,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2785,0)
- ;;=GRAPEFRUIT, RAW, PINK&RED, ALL AREAS^9-112^halves^123^51^N
- ;;^UTILITY(U,$J,112,2785,1)
- ;;=.55^.1^7.68^30^91.38^^^11^.12^8^9^129^0^.07^.044^.01^^259^38.1^.034
- ;;^UTILITY(U,$J,112,2785,2)
- ;;=.02^.191^.283^.042^12.2^0^.019^.005^0^.014^.013^.024^26^.29
- ;;^UTILITY(U,$J,112,2785,3)
- ;;=.002^^^^.014^.002
- ;;^UTILITY(U,$J,112,2785,4)
- ;;=^^^.012^.001^.001^.012
- ;;^UTILITY(U,$J,112,2785,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2786,0)
- ;;=GRAPEFRUIT, RAW, WHITE, ALL AREAS^9-116^halves^118^49^N
- ;;^UTILITY(U,$J,112,2786,1)
- ;;=.69^.1^8.41^33^90.48^^^12^.06^9^8^148^0^.07^.05^.013^^10^33.3^.037
- ;;^UTILITY(U,$J,112,2786,2)
- ;;=.02^.269^.283^.043^10^0^.019^.005^0^.014^.013^.024^1^.33^^^1.1
- ;;^UTILITY(U,$J,112,2786,3)
- ;;=.002^^^^.018^.002
- ;;^UTILITY(U,$J,112,2786,4)
- ;;=^^^.012^.001^.001^.012
- ;;^UTILITY(U,$J,112,2786,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,2787,0)
- ;;=GRAVY, AU JUS, DEHYDRATED, DRY^6-115^cups^9.5^100^N
- FHINI080 ; ; 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,2778,1)
- +2 ;;=30.21^3.19^0^158^65.23^^^7^4.47^24^226^335^54^2.75^.3^.046^^0^0^.18
- +3 ;;^UTILITY(U,$J,112,2778,2)
- +4 ;;=.6^6.71^^^^^.4^.09^112^1.25^.88^.62^0^1.52^^^0
- +5 ;;^UTILITY(U,$J,112,2778,3)
- +6 ;;=^1.421^1.194^2.566^2.639^.745^.338^1.233^1.069^1.412^2.175^1.494^1.885^2.803^4.389^1.546^1.557^1.281
- +7 ;;^UTILITY(U,$J,112,2778,4)
- +8 ;;=0^0^.03^.54^.04^.67^.83^.13
- +9 ;;^UTILITY(U,$J,112,2778,20)
- +10 ;;=USDA Std. Reference, Release 10
- +11 ;;^UTILITY(U,$J,112,2779,0)
- +12 ;;=EEL, COOKED, DRY HEAT^15-026^oz.^28.3^100^N
- +13 ;;^UTILITY(U,$J,112,2779,1)
- +14 ;;=23.65^14.95^0^236^59.31^^^26^.64^26^277^349^65^2.08^.029^.04^^3787^1.8^.183
- +15 ;;^UTILITY(U,$J,112,2779,2)
- +16 ;;=.051^4.487^.28^.077^17.3^2.885^.251^.554^161^3.023^9.218^1.214^1136^1.8^^^0
- +17 ;;^UTILITY(U,$J,112,2779,3)
- +18 ;;=.265^1.037^1.09^1.922^2.171^.7^.253^.923^.798^1.218^1.415^.696^1.43^2.421^3.53^1.135^.836^.965
- +19 ;;^UTILITY(U,$J,112,2779,4)
- +20 ;;=^^.74^2.032^1.609^.245^3.554^.122
- +21 ;;^UTILITY(U,$J,112,2779,20)
- +22 ;;=USDA Std. Reference, Release 10
- +23 ;;^UTILITY(U,$J,112,2780,0)
- +24 ;;=ELK, ROASTED^17-167^oz.^28.3^100^N
- +25 ;;^UTILITY(U,$J,112,2780,1)
- +26 ;;=30.19^1.9^0^146^66.28^^^5^3.63^24^180^328^61^3.16^.142^.013^^0^0
- +27 ;;^UTILITY(U,$J,112,2780,2)
- +28 ;;=^^^^^^.23^.06^73^.7^.48^.4^0^1.32^^^0
- +29 ;;^UTILITY(U,$J,112,2780,3)
- +30 ;;=.545^1.315^.973^2.546^2.803^.725^^1.198^1.081^1.066^2.073^.964^1.896^2.962^4.804^1.282^1.306^1.318
- +31 ;;^UTILITY(U,$J,112,2780,4)
- +32 ;;=0^0^.05^.46^.17^.19^.3^.11
- +33 ;;^UTILITY(U,$J,112,2780,20)
- +34 ;;=USDA Std. Reference, Release 10
- +35 ;;^UTILITY(U,$J,112,2781,0)
- +36 ;;=GEFILTEFISH, COMMERCIAL, SWEET RECIPE^15-030^pieces^42^100^N
- +37 ;;^UTILITY(U,$J,112,2781,1)
- +38 ;;=9.07^1.73^7.41^84^80.35^^^23^2.48^9^73^91^524^.82^.195^.073^^89^.8^.065
- +39 ;;^UTILITY(U,$J,112,2781,2)
- +40 ;;=.059^1^.2^.08^2.8^.844^.116^^30^.412^.824^.285^27^1.44^^^0
- +41 ;;^UTILITY(U,$J,112,2781,3)
- +42 ;;=.086^.488^.486^.81^.842^.255^.113^.493^.38^.548^.595^.261^.546^.772^1.75^.403^.341^.473
- +43 ;;^UTILITY(U,$J,112,2781,4)
- +44 ;;=^^.056^.3^.257^.056^.407
- +45 ;;^UTILITY(U,$J,112,2781,20)
- +46 ;;=USDA Std. Reference, Release 10
- +47 ;;^UTILITY(U,$J,112,2782,0)
- +48 ;;=GOAT, ROASTED^17-169^oz.^28.3^100^N
- +49 ;;^UTILITY(U,$J,112,2782,1)
- +50 ;;=27.1^3.03^0^143^68.21^^^17^3.73^^201^405^86^5.27^.303^.042^^0^0^.09
- +51 ;;^UTILITY(U,$J,112,2782,2)
- +52 ;;=.61^3.95^^^5^1.19^.13^.02^75^.93^1.36^.23^0^1.46^^^0
- +53 ;;^UTILITY(U,$J,112,2782,3)
- +54 ;;=.403^1.29^1.371^2.258^2.016^.726^.323^.941^.833^1.452^1.989^.565
- +55 ;;^UTILITY(U,$J,112,2782,4)
- +56 ;;=0^0^.04^.43^.06^.43^1.24^.08
- +57 ;;^UTILITY(U,$J,112,2782,20)
- +58 ;;=USDA Std. Reference, Release 10
- +59 ;;^UTILITY(U,$J,112,2783,0)
- +60 ;;=GOOSE, MEAT ONLY, ROASTED^5-149^oz.^28.3^55^N
- +61 ;;^UTILITY(U,$J,112,2783,1)
- +62 ;;=28.97^12.67^0^238^57.23^^^14^2.87^25^309^388^76^3.17^.276^.024^^40^0^.092
- +63 ;;^UTILITY(U,$J,112,2783,2)
- +64 ;;=.39^4.081^1.834^.47^12^.49^1.37^.15^96^4.56^4.34^1.54^12^1.14^^^0
- +65 ;;^UTILITY(U,$J,112,2783,3)
- +66 ;;=.403^1.238^1.488^2.447^2.48^.783^.445^1.214^1.103^1.516^1.849^.765^1.835^2.837^4.533^1.622^1.423^1.247
- +67 ;;^UTILITY(U,$J,112,2783,4)
- +68 ;;=0^.04^.05^2.61^.44^1.4^3.88^0
- +69 ;;^UTILITY(U,$J,112,2783,20)
- +70 ;;=USDA Std. Reference, Release 10
- +71 ;;^UTILITY(U,$J,112,2784,0)
- +72 ;;=GOOSE, MEAT&SKIN, ROASTED^5-147^oz.^28.3^72^N
- +73 ;;^UTILITY(U,$J,112,2784,1)
- +74 ;;=25.16^21.92^0^305^51.95^^^13^2.83^22^270^329^70^2.62^.264^.023^^70^0^.077
- +75 ;;^UTILITY(U,$J,112,2784,2)
- +76 ;;=.323^4.168^1.53^.37^2^.41^2.24^.18^91^6.87^10.25^2.52^21^.97^^^0
- +77 ;;^UTILITY(U,$J,112,2784,3)
- +78 ;;=.332^1.123^1.183^2.109^1.988^.608^.39^1.055^.805^1.232^1.566^.7^1.55^2.262^3.739^1.594^1.216^1.002
- +79 ;;^UTILITY(U,$J,112,2784,4)
- +80 ;;=0^.04^.11^4.53^.68^1.81^9.52^0
- +81 ;;^UTILITY(U,$J,112,2784,20)
- +82 ;;=USDA Std. Reference, Release 10
- +83 ;;^UTILITY(U,$J,112,2785,0)
- +84 ;;=GRAPEFRUIT, RAW, PINK&RED, ALL AREAS^9-112^halves^123^51^N
- +85 ;;^UTILITY(U,$J,112,2785,1)
- +86 ;;=.55^.1^7.68^30^91.38^^^11^.12^8^9^129^0^.07^.044^.01^^259^38.1^.034
- +87 ;;^UTILITY(U,$J,112,2785,2)
- +88 ;;=.02^.191^.283^.042^12.2^0^.019^.005^0^.014^.013^.024^26^.29
- +89 ;;^UTILITY(U,$J,112,2785,3)
- +90 ;;=.002^^^^.014^.002
- +91 ;;^UTILITY(U,$J,112,2785,4)
- +92 ;;=^^^.012^.001^.001^.012
- +93 ;;^UTILITY(U,$J,112,2785,20)
- +94 ;;=USDA Std. Reference, Release 10
- +95 ;;^UTILITY(U,$J,112,2786,0)
- +96 ;;=GRAPEFRUIT, RAW, WHITE, ALL AREAS^9-116^halves^118^49^N
- +97 ;;^UTILITY(U,$J,112,2786,1)
- +98 ;;=.69^.1^8.41^33^90.48^^^12^.06^9^8^148^0^.07^.05^.013^^10^33.3^.037
- +99 ;;^UTILITY(U,$J,112,2786,2)
- +100 ;;=.02^.269^.283^.043^10^0^.019^.005^0^.014^.013^.024^1^.33^^^1.1
- +101 ;;^UTILITY(U,$J,112,2786,3)
- +102 ;;=.002^^^^.018^.002
- +103 ;;^UTILITY(U,$J,112,2786,4)
- +104 ;;=^^^.012^.001^.001^.012
- +105 ;;^UTILITY(U,$J,112,2786,20)
- +106 ;;=USDA Std. Reference, Release 10
- +107 ;;^UTILITY(U,$J,112,2787,0)
- +108 ;;=GRAVY, AU JUS, DEHYDRATED, DRY^6-115^cups^9.5^100^N