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

FHINI01W.m

Go to the documentation of this file.
FHINI01W	; ; 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,483,2)
	;;=.25^3.527^.575^.27^5^.24^1.32^.07^54^1.81^2.05^1.59^0^3.13^^^0
	;;^UTILITY(U,$J,112,483,3)
	;;=.203^.798^.918^1.421^1.662^.512^.206^.715^.694^.952^1.29^.549^1.166^1.761^2.92^1.103^.85^.806
	;;^UTILITY(U,$J,112,483,4)
	;;=0^.01^.04^1.11^.34^.45^1.66^.12
	;;^UTILITY(U,$J,112,483,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,484,0)
	;;=TURKEY ROLL, LIGHT MEAT^5-290^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,484,1)
	;;=18.7^7.22^.53^147^71.55^^^40^1.28^16^183^251^489^1.56^.044^.012^^0^0^.089
	;;^UTILITY(U,$J,112,484,2)
	;;=.226^7^.42^.32^4^.24^1.42^.09^43^2.02^2.5^1.74^0^2^^^0
	;;^UTILITY(U,$J,112,484,3)
	;;=.206^.816^.936^1.451^1.698^.525^.206^.731^.708^.973^1.319^.561^1.195^1.803^2.981^1.135^.876^.825
	;;^UTILITY(U,$J,112,484,4)
	;;=0^.01^.05^1.26^.41^.47^2.02^.14
	;;^UTILITY(U,$J,112,484,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,485,0)
	;;=TURKEY ROLL, LIGHT & DARK MEAT^5-291^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,485,1)
	;;=18.14^6.99^2.13^149^70.15^^^32^1.35^18^168^270^586^2^.074^.013^^0^0^.091
	;;^UTILITY(U,$J,112,485,2)
	;;=.284^4.8^.568^.27^5^.23^1.48^.08^55^2.04^2.3^1.78^0^2.6^^^0
	;;^UTILITY(U,$J,112,485,3)
	;;=.2^.792^.909^1.409^1.649^.51^.2^.71^.687^.944^1.279^.545^1.158^1.749^2.893^1.094^.846^.8
	;;^UTILITY(U,$J,112,485,4)
	;;=0^.01^.05^1.25^.38^.5^1.87^.14
	;;^UTILITY(U,$J,112,485,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,486,0)
	;;=TURKEY PATTIES, BREADED, BATTERED, FRIED^5-292^patties^64^100^N
	;;^UTILITY(U,$J,112,486,1)
	;;=14^18^15.7^283^49.7^^^14^2.2^15^270^275^800^1.44^.07^.077^^37^0^.1
	;;^UTILITY(U,$J,112,486,2)
	;;=.19^2.3^.52^.2^8^.22^4.31^.26^62^4.69^7.47^4.71^11^2.6^^^.5
	;;^UTILITY(U,$J,112,486,3)
	;;=.167^.598^.716^1.116^1.161^.382^.174^.592^.541^.74^.913^.416^.8^1.244^2.754^.66^.772^.665
	;;^UTILITY(U,$J,112,486,4)
	;;=0^0^.07^2.65^.08^1.85^7.38^.09
	;;^UTILITY(U,$J,112,486,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,487,0)
	;;=TURKEY BREAST, PREBASTED, MEAT&SKIN, ROASTED^5-293^oz.^28.3^92^N
	;;^UTILITY(U,$J,112,487,1)
	;;=22.16^3.46^0^126^70.91^^^9^.66^21^214^248^397^1.53^.041^.015^^0^0^.053
	;;^UTILITY(U,$J,112,487,2)
	;;=.133^9.067^.489^.32^5^.32^.68^.04^42^.98^1.14^.84^0^2.06^^^0
	;;^UTILITY(U,$J,112,487,3)
	;;=.246^.967^1.116^1.725^2.022^.623^.245^.867^.845^1.155^1.554^.668^1.401^2.13^3.542^1.287^1.007^.976
	;;^UTILITY(U,$J,112,487,4)
	;;=0^.01^.02^.59^.19^.24^.92^.08
	;;^UTILITY(U,$J,112,487,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,488,0)
	;;=TURKEY THIGH, PREBASTED, MEAT&SKIN, ROASTED^5-294^oz.^28.3^87^N
	;;^UTILITY(U,$J,112,488,1)
	;;=18.8^8.54^0^157^70.6^^^8^1.51^17^171^241^437^4.12^.139^.015^^0^0^.083
	;;^UTILITY(U,$J,112,488,2)
	;;=.255^2.409^.812^.23^6^.24^1.97^.1^62^2.65^2.53^2.35^0^2.06^^^0
	;;^UTILITY(U,$J,112,488,3)
	;;=.21^.824^.954^1.471^1.727^.532^.205^.737^.722^.984^1.317^.571^1.183^1.811^3.019^1.057^.838^.83
	;;^UTILITY(U,$J,112,488,4)
	;;=0^.01^.06^1.55^.4^.71^2.06^.21
	;;^UTILITY(U,$J,112,488,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,490,0)
	;;=TURKEY ROAST, BONELESS, FRZ, SEASONED, LT & DK MEAT, RST^5-296^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,490,1)
	;;=21.32^5.78^3.07^155^67.84^^^5^1.63^22^244^298^680^2.54^.06^.015^^0^^.047
	;;^UTILITY(U,$J,112,490,2)
	;;=.163^6.271^.806^.27^5^1.52^1.26^.04^53^1.9^1.2^1.66^0^1.99^^^0
	;;^UTILITY(U,$J,112,490,3)
	;;=.242^.948^1.109^1.698^2.009^.617^.222^.846^.843^1.132^1.487^.665^1.32^2.07^3.479^1.057^.887^.948
	;;^UTILITY(U,$J,112,490,4)
	;;=0^.02^.04^.96^.17^.57^.99^.24
	;;^UTILITY(U,$J,112,490,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,491,0)
	;;=TURKEY BOLOGNA^5-297^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,491,1)
	;;=13.73^15.21^.97^199^65.08^^^84^1.53^14^131^199^878^1.74^.03^.015^^0^0^.055
	;;^UTILITY(U,$J,112,491,2)
	;;=.165^3.527^.695^.22^7^.27^3.98^.31^99^5.06^4.79^4.29^0^3.3^^^0
	;;^UTILITY(U,$J,112,491,3)
	;;=.11^.657^.518^1.118^1.19^.386^.101^.569^.488^.562^.896^.52^.898^1.397^2.304^.804^.67^.641
	;;^UTILITY(U,$J,112,491,4)
	;;=0^.13^.25^3.11^.24^1.57^4.55^0
	;;^UTILITY(U,$J,112,491,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,492,0)
	;;=FRANKFURTERS, TURKEY^5-298^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,492,1)
	;;=14.28^17.7^1.49^226^62.99^^^106^1.84^14^134^179^1426^3.11^.1^.016^^0^0^.041
	;;^UTILITY(U,$J,112,492,2)
	;;=.179^4.132^.723^.23^8^.28^4.64^.36^107^5.89^5.58^5^0^3.53
	;;^UTILITY(U,$J,112,492,3)
	;;=.114^.683^.539^1.163^1.238^.402^.105^.592^.507^.585^.932^.542^.935^1.453^2.397^.836^.697^.667
	;;^UTILITY(U,$J,112,492,4)
	;;=0^.15^.3^3.62^.28^1.83^5.3^0