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

FHINI00T.m

Go to the documentation of this file.
FHINI00T	; ; 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,123,0)
	;;=EGGS, WHOLE, POACHED^1-131^eggs^50^100^N
	;;^UTILITY(U,$J,112,123,1)
	;;=12.44^9.98^1.22^149^75.03^^^49^1.44^10^177^120^280^1.1^.014^.026^^632^0^.049
	;;^UTILITY(U,$J,112,123,2)
	;;=.43^.062^1.125^.118^35^.8^1.143^.033^423^3.087^3.794^1.358^190^1.34^^^0
	;;^UTILITY(U,$J,112,123,3)
	;;=.151^.597^.679^1.063^.894^.388^.289^.661^.508^.758^.746^.295^.693^1.25^1.626^.418^.496^.926
	;;^UTILITY(U,$J,112,123,4)
	;;=.003^.003^.034^2.217^.297^.781^3.459^.142
	;;^UTILITY(U,$J,112,123,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,124,0)
	;;=EGGS, WHOLE, SCRAMBLED^1-132^eggs^64^100^N
	;;^UTILITY(U,$J,112,124,1)
	;;=11.09^12.21^2.2^166^73.15^^^71^1.2^12^170^138^280^1^.014^.022^^682^.2^.052
	;;^UTILITY(U,$J,112,124,2)
	;;=.437^.079^1.007^.118^30^.77^1.916^.083^352^3.679^4.768^2.148^195^1.36^^^0
	;;^UTILITY(U,$J,112,124,3)
	;;=.136^.528^.608^.954^.8^.34^.245^.583^.457^.678^.644^.264^.598^1.09^1.508^.361^.487^.806
	;;^UTILITY(U,$J,112,124,4)
	;;=.024^.027^.122^2.434^.263^.981^4.473^.116^^22.5
	;;^UTILITY(U,$J,112,124,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,125,0)
	;;=EGGS, WHOLE, DRIED^1-133^tbsp.^5^100^N
	;;^UTILITY(U,$J,112,125,1)
	;;=45.83^41.81^4.77^594.498^4.14^^^211.5^7.88^46.33^678.9^489.7^521.3^5.43^.27^.15^^1950^0^.309
	;;^UTILITY(U,$J,112,125,2)
	;;=1.172^.246^6.383^.4^183.8^10^4.643^.118^1918.3^12.555^16.709^5.434^586^3.45^^^0
	;;^UTILITY(U,$J,112,125,3)
	;;=.733^2.251^2.867^4.026^3.094^1.481^1.093^2.588^1.907^3.3^2.933^1.107^2.676^4.546^5.837^1.525^1.819^3.483
	;;^UTILITY(U,$J,112,125,4)
	;;=0^0^.115^9.231^1.392^3.21^15.318^.35
	;;^UTILITY(U,$J,112,125,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,126,0)
	;;=EGGS, WHITE ONLY, POWDER^1-136^cups^107^100^N
	;;^UTILITY(U,$J,112,126,1)
	;;=82.4^.04^4.47^376.074^8.54^^^89.4^.24^71.84^89.4^1115.7^1238.4^.16^.17^.05^^0^0^.037
	;;^UTILITY(U,$J,112,126,2)
	;;=2.316^.723^1.958^.024^95.7^.528^0^0^0^0^0^0^0^4.55^^^0
	;;^UTILITY(U,$J,112,126,3)
	;;=1.266^3.665^5.023^7.172^5.076^3.204^2.044^5.181^3.309^6.17^4.812^1.872^5.313^7.291^11.496^3.085^3.098^6.078
	;;^UTILITY(U,$J,112,126,4)
	;;=0^0^0^0^0^0^0^0
	;;^UTILITY(U,$J,112,126,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,127,0)
	;;=EGGS, YOLKS ONLY, DRIED^1-137^tbsp.^4^100^N
	;;^UTILITY(U,$J,112,127,1)
	;;=30.52^61.28^.39^687.248^4.65^^^282.1^10.38^28.32^945.9^167.8^90.6^6.15^.29^.09^^3422^0^.435
	;;^UTILITY(U,$J,112,127,2)
	;;=.811^.128^8.242^.577^212.7^7.077^6.805^.173^2928.3^18.402^24.49^7.965^1028^3.16^^^0
	;;^UTILITY(U,$J,112,127,3)
	;;=.449^1.655^1.748^2.598^2.066^.776^.542^1.328^1.314^1.86^2.114^.732^1.528^2.549^3.736^.923^1.27^2.529
	;;^UTILITY(U,$J,112,127,4)
	;;=0^0^.168^13.529^2.04^4.705^22.451^.514
	;;^UTILITY(U,$J,112,127,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,128,0)
	;;=EGGS, DUCK, WHOLE, RAW^1-138^eggs^70^88^N
	;;^UTILITY(U,$J,112,128,1)
	;;=12.81^13.77^1.45^185.393^70.83^^^63.7^3.85^16.5^220.1^222.3^146^1.41^.062^.038^^1328^0^.156
	;;^UTILITY(U,$J,112,128,2)
	;;=.404^.2^1.862^.25^80^5.395^.558^.102^884^3.681^6.525^1.223^399^1.14^^^0
	;;^UTILITY(U,$J,112,128,3)
	;;=.26^.736^.598^1.097^.951^.576^.285^.84^.613^.885^.765^.32^.631^.777^1.789^.422^.48^.963
	;;^UTILITY(U,$J,112,128,4)
	;;=0^0^.054^2.996^.441^.632^6.084^.319
	;;^UTILITY(U,$J,112,128,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,129,0)
	;;=EGGS, GOOSE, WHOLE, RAW^1-139^eggs^144^87^N
	;;^UTILITY(U,$J,112,129,1)
	;;=13.87^13.27^1.35^185.137^70.43^^^60.2^3.64^15.6^207.9^210^137.9^1.33^.062^.038^^1280^0^.147
	;;^UTILITY(U,$J,112,129,2)
	;;=.382^.189^1.759^.236^75.6^5.097^.68^.554^851.9^3.595^5.747^1.672^384^1.08^^^0
	;;^UTILITY(U,$J,112,129,3)
	;;=.282^.797^.647^1.188^1.03^.624^.309^.91^.664^.958^.828^.346^.683^.841^1.937^.457^.52^1.043
	;;^UTILITY(U,$J,112,129,4)
	;;=0^0^.05^2.849^.394^.696^5.353^.279
	;;^UTILITY(U,$J,112,129,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,130,0)
	;;=EGG SUBSTITUTE, FRZ^1-142^cups^240^100^N
	;;^UTILITY(U,$J,112,130,1)
	;;=11.29^11.11^3.2^159.821^73.1^^^72.8^1.98^14.96^71.7^213.3^199.4^.98^.022^.006^^1350^.47^.12
	;;^UTILITY(U,$J,112,130,2)
	;;=.386^.14^1.66^.133^16.4^.336^6.177^.064^2^1.93^2.435^6.241^135^1.3^^^0
	;;^UTILITY(U,$J,112,130,3)
	;;=.164^.484^.66^.972^.713^.387^.229^.645^.456^.792^.577^.257^.624^.928^1.69^.365^.558^.751
	;;^UTILITY(U,$J,112,130,4)
	;;=0^0^.011^1.503^0^.436^2.437^0
	;;^UTILITY(U,$J,112,130,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,131,0)
	;;=EGG SUBSTITUTE, LIQUID^1-143^fl oz.^31^100^N