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

FHINI01R.m

Go to the documentation of this file.
FHINI01R	; ; 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,441,1)
	;;=26.26^8.06^0^185^66.44^^^11^1.4^21^149^190^78^2.78^.077^.019^^60^0^.059
	;;^UTILITY(U,$J,112,441,2)
	;;=.216^4.798^.913^.21^8^.23^1.55^.07^89^2.2^2.93^1.88^18^.88^^^0
	;;^UTILITY(U,$J,112,441,3)
	;;=.307^1.109^1.387^1.971^2.231^.727^.336^1.042^.887^1.303^1.584^.815^1.433^2.341^3.933^1.29^1.08^.903
	;;^UTILITY(U,$J,112,441,4)
	;;=0^.03^.06^1.52^.4^.52^2.44^.12
	;;^UTILITY(U,$J,112,441,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,442,0)
	;;=CHICKEN, THIGH, MEAT&SKIN, FRIED, BATTER^5-092^oz.^28.35^81^N
	;;^UTILITY(U,$J,112,442,1)
	;;=21.61^16.53^9.08^277^51.5^^^18^1.45^21^155^192^288^2.04^.082^.057^^95^0^.119
	;;^UTILITY(U,$J,112,442,2)
	;;=.227^5.715^.982^.26^9^.28^3.49^.19^93^4.41^6.7^3.9^29^1.27
	;;^UTILITY(U,$J,112,442,3)
	;;=.248^.886^1.085^1.59^1.699^.568^.297^.864^.705^1.056^1.317^.632^1.21^1.869^3.465^1.288^1.114^.796
	;;^UTILITY(U,$J,112,442,4)
	;;=0^.02^.1^2.96^.56^1.24^6.01^.1
	;;^UTILITY(U,$J,112,442,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,443,0)
	;;=CHICKEN, THIGH, MEAT&SKIN, FRIED, FLR^5-093^oz.^28.35^77^N
	;;^UTILITY(U,$J,112,443,1)
	;;=26.75^14.98^3.18^262^54.14^^^14^1.49^25^187^237^88^2.52^.089^.036^^98^0^.094
	;;^UTILITY(U,$J,112,443,2)
	;;=.243^6.946^1.185^.33^8^.3^2.97^.14^97^4.09^5.87^3.41^29^.94
	;;^UTILITY(U,$J,112,443,3)
	;;=.302^1.105^1.346^1.958^2.169^.713^.358^1.051^.869^1.303^1.656^.791^1.531^2.365^4.031^1.643^1.295^.949
	;;^UTILITY(U,$J,112,443,4)
	;;=0^.03^.11^2.9^.72^.94^4.97^.13
	;;^UTILITY(U,$J,112,443,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,444,0)
	;;=CHICKEN, THIGH, MEAT&SKIN, ROASTED^5-094^oz.^28.35^77^N
	;;^UTILITY(U,$J,112,444,1)
	;;=25.06^15.49^0^247^59.42^^^12^1.34^22^174^222^84^2.36^.078^.021^^165^0^.067
	;;^UTILITY(U,$J,112,444,2)
	;;=.212^6.365^1.108^.31^7^.29^2.99^.14^93^4.33^6.15^3.42^48^.88^^^0
	;;^UTILITY(U,$J,112,444,3)
	;;=.281^1.037^1.256^1.827^2.047^.669^.333^.975^.81^1.218^1.566^.739^1.454^2.234^3.67^1.59^1.2^.882
	;;^UTILITY(U,$J,112,444,4)
	;;=0^.03^.12^3.14^.84^.89^5.08^.13
	;;^UTILITY(U,$J,112,444,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,445,0)
	;;=CHICKEN, THIGH, MEAT&SKIN, STEWED^5-095^oz.^28.35^76^N
	;;^UTILITY(U,$J,112,445,1)
	;;=23.26^14.74^0^232^63.11^^^11^1.37^19^139^170^71^2.25^.07^.019^^151^0^.057
	;;^UTILITY(U,$J,112,445,2)
	;;=.191^4.894^.776^.17^6^.19^2.84^.13^84^4.11^5.84^3.25^44^.78^^^0
	;;^UTILITY(U,$J,112,445,3)
	;;=.26^.962^1.164^1.695^1.898^.62^.31^.905^.751^1.13^1.456^.685^1.352^2.074^3.405^1.487^1.119^.82
	;;^UTILITY(U,$J,112,445,4)
	;;=0^.03^.12^3^.81^.84^4.83^.12
	;;^UTILITY(U,$J,112,445,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,446,0)
	;;=CHICKEN, THIGH, MEAT ONLY, FRIED^5-097^oz.^28.35^64^N
	;;^UTILITY(U,$J,112,446,1)
	;;=28.18^10.3^1.18^218^59.31^^^13^1.46^26^199^259^95^2.79^.09^.027^^70^0^.088
	;;^UTILITY(U,$J,112,446,2)
	;;=.255^7.12^1.285^.38^9^.33^2.04^.1^102^2.78^3.82^2.43^21^1.04^^^0
	;;^UTILITY(U,$J,112,446,3)
	;;=.329^1.188^1.486^2.115^2.384^.778^.362^1.121^.951^1.397^1.697^.874^1.534^2.504^4.257^1.382^1.172^.973
	;;^UTILITY(U,$J,112,446,4)
	;;=0^.03^.07^1.9^.46^.7^3.26^.14
	;;^UTILITY(U,$J,112,446,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,447,0)
	;;=CHICKEN, THIGH, MEAT ONLY, ROASTED^5-098^oz.^28.35^65^N
	;;^UTILITY(U,$J,112,447,1)
	;;=25.94^10.88^0^209^62.87^^^12^1.31^24^183^238^88^2.57^.081^.021^^65^0^.074
	;;^UTILITY(U,$J,112,447,2)
	;;=.231^6.525^1.184^.35^8^.31^2.1^.1^95^3.03^4.15^2.48^20^.95^^^0
	;;^UTILITY(U,$J,112,447,3)
	;;=.303^1.096^1.37^1.947^2.204^.718^.332^1.029^.876^1.287^1.565^.805^1.415^2.312^3.885^1.274^1.067^.892
	;;^UTILITY(U,$J,112,447,4)
	;;=0^.03^.08^2.12^.56^.69^3.46^.13^^29
	;;^UTILITY(U,$J,112,447,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,448,0)
	;;=CHICKEN, THIGH, MEAT ONLY, STEWED^5-099^oz.^28.35^61^N
	;;^UTILITY(U,$J,112,448,1)
	;;=25^9.79^0^195^65.59^^^11^1.42^21^149^183^75^2.58^.077^.02^^62^0^.063
	;;^UTILITY(U,$J,112,448,2)
	;;=.218^5.2^.874^.21^7^.21^1.89^.09^90^2.71^3.7^2.24^19^.86^^^0
	;;^UTILITY(U,$J,112,448,3)
	;;=.292^1.056^1.32^1.876^2.123^.692^.32^.992^.844^1.24^1.508^.776^1.364^2.227^3.743^1.228^1.028^.86
	;;^UTILITY(U,$J,112,448,4)
	;;=0^.03^.07^1.89^.5^.62^3.08^.12
	;;^UTILITY(U,$J,112,448,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,449,0)
	;;=CHICKEN, WING, MEAT&SKIN, FRIED, BATTER^5-101^oz.^28.35^62^N
	;;^UTILITY(U,$J,112,449,1)
	;;=19.87^21.81^10.94^324^46.21^^^20^1.29^16^121^138^320^1.38^.063^.06^^113^0^.106
	;;^UTILITY(U,$J,112,449,2)
	;;=.152^5.265^.71^.3^6^.25^4.54^.24^79^5.83^8.96^5.07^34^1.17