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
