Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI080

FHINI080.m

Go to the documentation of this file.
  1. FHINI080 ; ; 11-OCT-1995
  1. ;;5.0;Dietetics;;Oct 11, 1995
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,112,2778,1)
  1. ;;=30.21^3.19^0^158^65.23^^^7^4.47^24^226^335^54^2.75^.3^.046^^0^0^.18
  1. ;;^UTILITY(U,$J,112,2778,2)
  1. ;;=.6^6.71^^^^^.4^.09^112^1.25^.88^.62^0^1.52^^^0
  1. ;;^UTILITY(U,$J,112,2778,3)
  1. ;;=^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
  1. ;;^UTILITY(U,$J,112,2778,4)
  1. ;;=0^0^.03^.54^.04^.67^.83^.13
  1. ;;^UTILITY(U,$J,112,2778,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2779,0)
  1. ;;=EEL, COOKED, DRY HEAT^15-026^oz.^28.3^100^N
  1. ;;^UTILITY(U,$J,112,2779,1)
  1. ;;=23.65^14.95^0^236^59.31^^^26^.64^26^277^349^65^2.08^.029^.04^^3787^1.8^.183
  1. ;;^UTILITY(U,$J,112,2779,2)
  1. ;;=.051^4.487^.28^.077^17.3^2.885^.251^.554^161^3.023^9.218^1.214^1136^1.8^^^0
  1. ;;^UTILITY(U,$J,112,2779,3)
  1. ;;=.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
  1. ;;^UTILITY(U,$J,112,2779,4)
  1. ;;=^^.74^2.032^1.609^.245^3.554^.122
  1. ;;^UTILITY(U,$J,112,2779,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2780,0)
  1. ;;=ELK, ROASTED^17-167^oz.^28.3^100^N
  1. ;;^UTILITY(U,$J,112,2780,1)
  1. ;;=30.19^1.9^0^146^66.28^^^5^3.63^24^180^328^61^3.16^.142^.013^^0^0
  1. ;;^UTILITY(U,$J,112,2780,2)
  1. ;;=^^^^^^.23^.06^73^.7^.48^.4^0^1.32^^^0
  1. ;;^UTILITY(U,$J,112,2780,3)
  1. ;;=.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
  1. ;;^UTILITY(U,$J,112,2780,4)
  1. ;;=0^0^.05^.46^.17^.19^.3^.11
  1. ;;^UTILITY(U,$J,112,2780,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2781,0)
  1. ;;=GEFILTEFISH, COMMERCIAL, SWEET RECIPE^15-030^pieces^42^100^N
  1. ;;^UTILITY(U,$J,112,2781,1)
  1. ;;=9.07^1.73^7.41^84^80.35^^^23^2.48^9^73^91^524^.82^.195^.073^^89^.8^.065
  1. ;;^UTILITY(U,$J,112,2781,2)
  1. ;;=.059^1^.2^.08^2.8^.844^.116^^30^.412^.824^.285^27^1.44^^^0
  1. ;;^UTILITY(U,$J,112,2781,3)
  1. ;;=.086^.488^.486^.81^.842^.255^.113^.493^.38^.548^.595^.261^.546^.772^1.75^.403^.341^.473
  1. ;;^UTILITY(U,$J,112,2781,4)
  1. ;;=^^.056^.3^.257^.056^.407
  1. ;;^UTILITY(U,$J,112,2781,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2782,0)
  1. ;;=GOAT, ROASTED^17-169^oz.^28.3^100^N
  1. ;;^UTILITY(U,$J,112,2782,1)
  1. ;;=27.1^3.03^0^143^68.21^^^17^3.73^^201^405^86^5.27^.303^.042^^0^0^.09
  1. ;;^UTILITY(U,$J,112,2782,2)
  1. ;;=.61^3.95^^^5^1.19^.13^.02^75^.93^1.36^.23^0^1.46^^^0
  1. ;;^UTILITY(U,$J,112,2782,3)
  1. ;;=.403^1.29^1.371^2.258^2.016^.726^.323^.941^.833^1.452^1.989^.565
  1. ;;^UTILITY(U,$J,112,2782,4)
  1. ;;=0^0^.04^.43^.06^.43^1.24^.08
  1. ;;^UTILITY(U,$J,112,2782,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2783,0)
  1. ;;=GOOSE, MEAT ONLY, ROASTED^5-149^oz.^28.3^55^N
  1. ;;^UTILITY(U,$J,112,2783,1)
  1. ;;=28.97^12.67^0^238^57.23^^^14^2.87^25^309^388^76^3.17^.276^.024^^40^0^.092
  1. ;;^UTILITY(U,$J,112,2783,2)
  1. ;;=.39^4.081^1.834^.47^12^.49^1.37^.15^96^4.56^4.34^1.54^12^1.14^^^0
  1. ;;^UTILITY(U,$J,112,2783,3)
  1. ;;=.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
  1. ;;^UTILITY(U,$J,112,2783,4)
  1. ;;=0^.04^.05^2.61^.44^1.4^3.88^0
  1. ;;^UTILITY(U,$J,112,2783,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2784,0)
  1. ;;=GOOSE, MEAT&SKIN, ROASTED^5-147^oz.^28.3^72^N
  1. ;;^UTILITY(U,$J,112,2784,1)
  1. ;;=25.16^21.92^0^305^51.95^^^13^2.83^22^270^329^70^2.62^.264^.023^^70^0^.077
  1. ;;^UTILITY(U,$J,112,2784,2)
  1. ;;=.323^4.168^1.53^.37^2^.41^2.24^.18^91^6.87^10.25^2.52^21^.97^^^0
  1. ;;^UTILITY(U,$J,112,2784,3)
  1. ;;=.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
  1. ;;^UTILITY(U,$J,112,2784,4)
  1. ;;=0^.04^.11^4.53^.68^1.81^9.52^0
  1. ;;^UTILITY(U,$J,112,2784,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2785,0)
  1. ;;=GRAPEFRUIT, RAW, PINK&RED, ALL AREAS^9-112^halves^123^51^N
  1. ;;^UTILITY(U,$J,112,2785,1)
  1. ;;=.55^.1^7.68^30^91.38^^^11^.12^8^9^129^0^.07^.044^.01^^259^38.1^.034
  1. ;;^UTILITY(U,$J,112,2785,2)
  1. ;;=.02^.191^.283^.042^12.2^0^.019^.005^0^.014^.013^.024^26^.29
  1. ;;^UTILITY(U,$J,112,2785,3)
  1. ;;=.002^^^^.014^.002
  1. ;;^UTILITY(U,$J,112,2785,4)
  1. ;;=^^^.012^.001^.001^.012
  1. ;;^UTILITY(U,$J,112,2785,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2786,0)
  1. ;;=GRAPEFRUIT, RAW, WHITE, ALL AREAS^9-116^halves^118^49^N
  1. ;;^UTILITY(U,$J,112,2786,1)
  1. ;;=.69^.1^8.41^33^90.48^^^12^.06^9^8^148^0^.07^.05^.013^^10^33.3^.037
  1. ;;^UTILITY(U,$J,112,2786,2)
  1. ;;=.02^.269^.283^.043^10^0^.019^.005^0^.014^.013^.024^1^.33^^^1.1
  1. ;;^UTILITY(U,$J,112,2786,3)
  1. ;;=.002^^^^.018^.002
  1. ;;^UTILITY(U,$J,112,2786,4)
  1. ;;=^^^.012^.001^.001^.012
  1. ;;^UTILITY(U,$J,112,2786,20)
  1. ;;=USDA Std. Reference, Release 10
  1. ;;^UTILITY(U,$J,112,2787,0)
  1. ;;=GRAVY, AU JUS, DEHYDRATED, DRY^6-115^cups^9.5^100^N