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

FHINI01T.m

Go to the documentation of this file.
FHINI01T	; ; 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,457,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,458,0)
	;;=GUINEA HEN, MEAT ONLY, RAW^5-152^oz.^28.3^64^N
	;;^UTILITY(U,$J,112,458,1)
	;;=20.64^2.47^0^110^74.44^^^11^.77^24^169^220^69^1.2^.044^.018^^41^1.7^.067
	;;^UTILITY(U,$J,112,458,2)
	;;=.112^8.782^.936^.47^6^.37^.4^.02^63^.64^.68^.59^12^1.25^^^0
	;;^UTILITY(U,$J,112,458,3)
	;;=.241^.872^1.09^1.549^1.754^.571^.264^.819^.697^1.024^1.245^.641^1.126^1.84^3.092^1.014^.849^.71
	;;^UTILITY(U,$J,112,458,4)
	;;=0^.01^.02^.42^.09^.18^.57^.07
	;;^UTILITY(U,$J,112,458,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,459,0)
	;;=PHEASANT, RAW, MEAT ONLY^5-154^oz.^28.3^76^N
	;;^UTILITY(U,$J,112,459,1)
	;;=23.57^3.64^0^133^72.77^^^13^1.15^20^230^262^37^.97^.069^.016^^165^6^.077
	;;^UTILITY(U,$J,112,459,2)
	;;=.153^6.759^.96^.74^6^.84^.54^.08^66^1.24^1.17^.62^49^1.35^^^0
	;;^UTILITY(U,$J,112,459,3)
	;;=.328^1.18^1.324^1.995^2.157^.686^.309^.92^.773^1.305^1.433^.939^1.422^2.285^3.484^1.044^.86^1.014
	;;^UTILITY(U,$J,112,459,4)
	;;=0^.05^.03^.75^.2^.36^.96^0
	;;^UTILITY(U,$J,112,459,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,460,0)
	;;=QUAIL, MEAT ONLY, RAW^5-158^oz.^28.3^76^N
	;;^UTILITY(U,$J,112,460,1)
	;;=21.76^4.53^0^134^70.03^^^13^4.51^25^307^237^51^2.7^.594^.019^^57^7.2^.283
	;;^UTILITY(U,$J,112,460,2)
	;;=.285^8.2^.787^.53^7^.47^.93^.02^70^1.32^1.28^1.17^17^1.32^^^0
	;;^UTILITY(U,$J,112,460,3)
	;;=.341^1.09^1.187^1.866^1.905^.689^.38^.944^1.01^1.18^1.379^.825^1.341^1.814^2.82^1.442^.797^1.062
	;;^UTILITY(U,$J,112,460,4)
	;;=0^.03^.03^.78^.24^.46^1.02^.12
	;;^UTILITY(U,$J,112,460,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,461,0)
	;;=SQUAB, (PIGEON), MEAT ONLY, RAW^5-161^oz.^28.3^65^N
	;;^UTILITY(U,$J,112,461,1)
	;;=17.5^7.5^0^142^72.8^^^13^4.51^25^307^237^51^2.7^.594^.019^^94^7.2^.283
	;;^UTILITY(U,$J,112,461,2)
	;;=.285^6.86^.787^.53^7^.47^1.03^0^90^1.96^2.66^1.6^28^1.17^^^0
	;;^UTILITY(U,$J,112,461,3)
	;;=.274^.876^.955^1.501^1.532^.554^.305^.759^.812^.949^1.109^.664^1.078^1.459^2.268^1.159^.641^.854
	;;^UTILITY(U,$J,112,461,4)
	;;=0^0^.01^1.02^.3^.93^2.37^.22
	;;^UTILITY(U,$J,112,461,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,462,0)
	;;=TURKEY, ROASTED, MEAT&SKIN&GIBLETS&NECK^5-164^oz.^28.3^79^N
	;;^UTILITY(U,$J,112,462,1)
	;;=27.98^9.45^.07^205^62^^^26^2.01^24^200^272^67^3.15^.107^.027^^230^.1^.056
	;;^UTILITY(U,$J,112,462,2)
	;;=.206^4.939^.955^.4^20^1.28^2^.11^95^2.77^3.05^2.42^68^.98^^^0
	;;^UTILITY(U,$J,112,462,3)
	;;=.31^1.225^1.406^2.18^2.532^.784^.309^1.102^1.058^1.461^1.967^.836^1.767^2.696^4.46^1.66^1.299^1.235
	;;^UTILITY(U,$J,112,462,4)
	;;=0^.01^.07^1.68^.5^.69^2.47^.2
	;;^UTILITY(U,$J,112,462,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,463,0)
	;;=TURKEY, MEAT&SKIN, ROASTED^5-166^oz.^28.3^79^N
	;;^UTILITY(U,$J,112,463,1)
	;;=28.1^9.73^0^208^61.7^^^26^1.79^25^203^280^68^2.96^.093^.021^^0^0^.057
	;;^UTILITY(U,$J,112,463,2)
	;;=.177^5.086^.858^.41^7^.35^2.06^.11^82^2.84^3.19^2.48^0^1^^^0
	;;^UTILITY(U,$J,112,463,3)
	;;=.311^1.227^1.409^2.184^2.557^.79^.308^1.1^1.066^1.464^1.979^.845^1.79^2.709^4.484^1.682^1.304^1.24
	;;^UTILITY(U,$J,112,463,4)
	;;=0^.01^.07^1.73^.52^.7^2.59^.2
	;;^UTILITY(U,$J,112,463,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,464,0)
	;;=TURKEY, MEAT ONLY, ROASTED^5-168^oz.^28.3^69^N
	;;^UTILITY(U,$J,112,464,1)
	;;=29.32^4.97^0^170^64.88^^^25^1.78^26^213^298^70^3.1^.094^.021^^0^0^.062
	;;^UTILITY(U,$J,112,464,2)
	;;=.182^5.443^.943^.46^7^.37^1.08^.04^76^1.64^1.03^1.43^0^1.05^^^0
	;;^UTILITY(U,$J,112,464,3)
	;;=.333^1.304^1.525^2.336^2.763^.849^.305^1.164^1.159^1.557^2.045^.915^1.815^2.847^4.785^1.454^1.22^1.304
	;;^UTILITY(U,$J,112,464,4)
	;;=0^.02^.03^.82^.15^.49^.85^.21
	;;^UTILITY(U,$J,112,464,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,465,0)
	;;=TURKEY, LIGHT MEAT, MEAT&SKIN, ROASTED^5-182^oz.^28.3^86^N
	;;^UTILITY(U,$J,112,465,1)
	;;=28.57^8.33^0^197^62.83^^^21^1.41^26^208^285^63^2.04^.048^.02^^0^0^.056
	;;^UTILITY(U,$J,112,465,2)
	;;=.132^6.289^.626^.47^6^.35^1.64^.1^76^2.34^2.84^2.01^0^1.02^^^0
	;;^UTILITY(U,$J,112,465,3)
	;;=.315^1.247^1.432^2.22^2.599^.803^.314^1.117^1.084^1.487^2.013^.859^1.821^2.754^4.558^1.714^1.328^1.261
	;;^UTILITY(U,$J,112,465,4)
	;;=0^.01^.06^1.45^.47^.55^2.29^.16
	;;^UTILITY(U,$J,112,465,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,466,0)
	;;=TURKEY, DARK MEAT, MEAT&SKIN, ROASTED^5-184^oz.^28.3^73^N
	;;^UTILITY(U,$J,112,466,1)
	;;=27.49^11.54^0^221^60.23^^^33^2.27^23^196^274^76^4.16^.15^.023^^0^0^.058