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

FHINI01Q.m

Go to the documentation of this file.
FHINI01Q	; ; 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,432,4)
	;;=0^.02^.05^1.41^.31^.59^2.57^.12
	;;^UTILITY(U,$J,112,432,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,433,0)
	;;=CHICKEN, DRUMSTICK, MEAT ONLY, ROASTED^5-073^oz.^28.35^54^N
	;;^UTILITY(U,$J,112,433,1)
	;;=28.29^5.66^0^172^66.74^^^12^1.3^24^184^246^95^3.18^.079^.021^^60^0^.076
	;;^UTILITY(U,$J,112,433,2)
	;;=.233^6.075^1.305^.39^9^.34^1.08^.05^93^1.48^1.87^1.37^18^1.05^^^0
	;;^UTILITY(U,$J,112,433,3)
	;;=.33^1.195^1.494^2.123^2.403^.783^.362^1.122^.955^1.403^1.706^.878^1.543^2.521^4.236^1.389^1.163^.973
	;;^UTILITY(U,$J,112,433,4)
	;;=0^.02^.04^1.01^.27^.37^1.56^.12
	;;^UTILITY(U,$J,112,433,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,434,0)
	;;=CHICKEN, DRUMSTICK, MEAT ONLY, STEWED^5-074^oz.^28.35^52^N
	;;^UTILITY(U,$J,112,434,1)
	;;=27.5^5.71^0^169^67.58^^^11^1.37^21^150^199^80^3.02^.077^.019^^57^0^.054
	;;^UTILITY(U,$J,112,434,2)
	;;=.213^4.3^.961^.23^8^.24^1.09^.05^88^1.51^1.93^1.37^17^.91^^^0
	;;^UTILITY(U,$J,112,434,3)
	;;=.321^1.162^1.452^2.064^2.337^.761^.352^1.091^.929^1.364^1.659^.854^1.501^2.451^4.119^1.351^1.131^.946
	;;^UTILITY(U,$J,112,434,4)
	;;=0^.02^.04^1.03^.27^.38^1.61^.11
	;;^UTILITY(U,$J,112,434,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,435,0)
	;;=CHICKEN, LEG, MEAT&SKIN, FRIED, BATTER^5-076^oz.^28.35^78^N
	;;^UTILITY(U,$J,112,435,1)
	;;=21.77^16.17^8.72^273^52.08^^^18^1.4^20^152^189^279^2.17^.08^.054^^91^0^.116
	;;^UTILITY(U,$J,112,435,2)
	;;=.221^5.433^.994^.27^9^.28^3.45^.19^90^4.28^6.58^3.85^27^1.26
	;;^UTILITY(U,$J,112,435,3)
	;;=.25^.894^1.095^1.603^1.718^.574^.298^.87^.711^1.065^1.326^.638^1.217^1.885^3.479^1.287^1.112^.799
	;;^UTILITY(U,$J,112,435,4)
	;;=0^.02^.09^2.84^.51^1.25^5.95^.1
	;;^UTILITY(U,$J,112,435,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,436,0)
	;;=CHICKEN, LEG, MEAT&SKIN, FRIED, FLOUR^5-077^oz.^28.35^72^N
	;;^UTILITY(U,$J,112,436,1)
	;;=26.84^14.43^2.5^254^55.28^^^13^1.43^24^182^233^88^2.68^.085^.032^^92^0^.088
	;;^UTILITY(U,$J,112,436,2)
	;;=.235^6.546^1.198^.34^8^.31^2.91^.14^94^3.9^5.68^3.33^28^.95
	;;^UTILITY(U,$J,112,436,3)
	;;=.304^1.112^1.357^1.969^2.189^.718^.357^1.054^.875^1.31^1.659^.797^1.531^2.377^4.029^1.621^1.278^.948
	;;^UTILITY(U,$J,112,436,4)
	;;=0^.03^.1^2.73^.64^.95^4.87^.12
	;;^UTILITY(U,$J,112,436,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,437,0)
	;;=CHICKEN, LEG, MEAT&SKIN, ROASTED^5-078^oz.^28.35^71^N
	;;^UTILITY(U,$J,112,437,1)
	;;=25.96^13.46^0^232^60.92^^^12^1.33^23^174^225^87^2.6^.077^.021^^135^0^.068
	;;^UTILITY(U,$J,112,437,2)
	;;=.213^6.196^1.156^.33^7^.3^2.59^.12^92^3.72^5.24^3^39^.92^^^0
	;;^UTILITY(U,$J,112,437,3)
	;;=.291^1.075^1.304^1.895^2.124^.694^.345^1.011^.841^1.263^1.62^.768^1.503^2.315^3.806^1.633^1.237^.913
	;;^UTILITY(U,$J,112,437,4)
	;;=0^.03^.1^2.71^.73^.77^4.32^.12
	;;^UTILITY(U,$J,112,437,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,438,0)
	;;=CHICKEN, LEG, MEAT&SKIN, STEWED^5-079^oz.^28.35^70^N
	;;^UTILITY(U,$J,112,438,1)
	;;=24.17^12.92^0^220^64.01^^^11^1.35^20^139^176^73^2.43^.071^.019^^124^0^.054
	;;^UTILITY(U,$J,112,438,2)
	;;=.191^4.59^.812^.18^6^.2^2.49^.11^84^3.57^5.04^2.87^36^.79^^^0
	;;^UTILITY(U,$J,112,438,3)
	;;=.271^1.002^1.216^1.766^1.979^.646^.321^.942^.784^1.177^1.507^.715^1.397^2.155^3.545^1.511^1.147^.85
	;;^UTILITY(U,$J,112,438,4)
	;;=0^.03^.1^2.6^.7^.74^4.16^.12
	;;^UTILITY(U,$J,112,438,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,439,0)
	;;=CHICKEN, LEG, MEAT ONLY, FRIED^5-081^oz.^28.35^60^N
	;;^UTILITY(U,$J,112,439,1)
	;;=28.38^9.32^.65^208^60.61^^^13^1.4^25^193^254^96^2.98^.086^.025^^66^0^.083
	;;^UTILITY(U,$J,112,439,2)
	;;=.247^6.688^1.301^.39^9^.34^1.86^.09^99^2.49^3.43^2.22^20^1.05^^^0
	;;^UTILITY(U,$J,112,439,3)
	;;=.332^1.198^1.497^2.129^2.405^.784^.364^1.127^.958^1.407^1.71^.88^1.547^2.525^4.27^1.393^1.174^.978
	;;^UTILITY(U,$J,112,439,4)
	;;=0^.03^.06^1.68^.4^.65^2.96^.13
	;;^UTILITY(U,$J,112,439,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,440,0)
	;;=CHICKEN, LEG, MEAT ONLY, ROASTED^5-082^oz.^28.35^59^N
	;;^UTILITY(U,$J,112,440,1)
	;;=27.03^8.43^0^191^64.7^^^12^1.31^24^183^242^91^2.86^.08^.021^^63^0^.075
	;;^UTILITY(U,$J,112,440,2)
	;;=.232^6.319^1.241^.37^8^.32^1.62^.08^94^2.29^3.05^1.97^19^1^^^0
	;;^UTILITY(U,$J,112,440,3)
	;;=.316^1.142^1.427^2.028^2.296^.748^.346^1.072^.912^1.34^1.63^.839^1.474^2.408^4.047^1.327^1.111^.93
	;;^UTILITY(U,$J,112,440,4)
	;;=0^.03^.06^1.59^.42^.54^2.54^.13
	;;^UTILITY(U,$J,112,440,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,441,0)
	;;=CHICKEN, LEG, MEAT ONLY, STEWED^5-083^oz.^28.35^57^N