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

FHINI00S.m

Go to the documentation of this file.
FHINI00S	; ; 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,114,4)
	;;=.04^.048^.149^.384^.031^.137^.322^0
	;;^UTILITY(U,$J,112,114,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,115,0)
	;;=EGGS, WHOLE, LARGE, RAW, FRESH, AND FRZ^1-123^eggs^50^85^N
	;;^UTILITY(U,$J,112,115,1)
	;;=12.49^10.02^1.22^149^75.33^^^49^1.44^10^178^121^126^1.1^.014^.024^^635^0^.062
	;;^UTILITY(U,$J,112,115,2)
	;;=.508^.073^1.255^.139^47^1^1.148^.033^425^3.1^3.809^1.364^191^.94^^^0
	;;^UTILITY(U,$J,112,115,3)
	;;=.152^.6^.682^1.067^.897^.39^.29^.664^.51^.761^.749^.296^.696^1.255^1.633^.42^.498^.929
	;;^UTILITY(U,$J,112,115,4)
	;;=.003^.003^.034^2.226^.298^.784^3.473^.142^50^30.8
	;;^UTILITY(U,$J,112,115,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,116,0)
	;;=EGGS, WHITES ONLY RAW, FRESH AND FRZ^1-124^eggs^33^100^N
	;;^UTILITY(U,$J,112,116,1)
	;;=10.52^0^1.03^50^87.81^^^6^.03^11^13^143^164^.01^.006^.004^^0^0^.006
	;;^UTILITY(U,$J,112,116,2)
	;;=.452^.092^.119^.004^3^.2^^^^^^^0^.64^^^0
	;;^UTILITY(U,$J,112,116,3)
	;;=.13^.478^.594^.887^.716^.362^.273^.615^.409^.67^.573^.237^.608^1.071^1.398^.369^.409^.726
	;;^UTILITY(U,$J,112,116,4)
	;;=^^^^^^^^.01^17.6
	;;^UTILITY(U,$J,112,116,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,117,0)
	;;=EGGS, YOLK, RAW, FRESH^1-125^yolks^17^100^N
	;;^UTILITY(U,$J,112,117,1)
	;;=16.76^30.87^1.78^358^48.81^^^137^3.53^9^488^94^43^3.11^.025^.069^^1945^0^.17
	;;^UTILITY(U,$J,112,117,2)
	;;=.639^.015^3.807^.392^146^3.11^3.538^.103^1281^9.552^11.739^4.203^584^1.77^^^0
	;;^UTILITY(U,$J,112,117,3)
	;;=.196^.89^.848^1.472^1.33^.416^.3^.716^.746^.933^1.196^.434^.861^1.639^2.124^.518^.7^1.432
	;;^UTILITY(U,$J,112,117,4)
	;;=.009^.009^.104^6.86^.918^2.417^10.701^.438^2^45.2
	;;^UTILITY(U,$J,112,117,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,118,0)
	;;=EGGS, YOLK, RAW, FRZ^1-126^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,118,1)
	;;=15.77^26.01^1.65^309^55^^^116^3.04^9^416^100^62^2.64^.023^.059^^1639^^.145
	;;^UTILITY(U,$J,112,118,2)
	;;=.608^.029^3.212^.333^123^2.62^2.98^.086^1081^8.046^9.888^3.54^492^1.58^^^0
	;;^UTILITY(U,$J,112,118,3)
	;;=.186^.823^.809^1.378^1.229^.41^.298^.704^.691^.893^1.092^.402^.822^1.549^2.009^.495^.653^1.315
	;;^UTILITY(U,$J,112,118,4)
	;;=.008^.008^.087^5.778^.773^2.036^9.014^.369
	;;^UTILITY(U,$J,112,118,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,119,0)
	;;=EGGS, YOLK, RAW, FRZ, SUGARED^1-127^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,119,1)
	;;=14.19^23.41^11.47^317^49.51^^^105^2.74^8^374^90^56^2.38^.025^.054^^1475^0^.13
	;;^UTILITY(U,$J,112,119,2)
	;;=.549^.026^2.891^.3^110^2.35^2.682^.078^973^7.241^8.899^3.186^443^1.42^^^0
	;;^UTILITY(U,$J,112,119,3)
	;;=.167^.74^.728^1.24^1.106^.369^.268^.633^.621^.804^.983^.362^.74^1.394^1.809^.445^.587^1.183
	;;^UTILITY(U,$J,112,119,4)
	;;=.007^.007^.079^5.201^.696^1.832^8.113^.332
	;;^UTILITY(U,$J,112,119,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,120,0)
	;;=EGGS, WHOLE, FRIED IN SALTED BUTTER^1-128^eggs^46^100^N
	;;^UTILITY(U,$J,112,120,1)
	;;=13.54^15^1.36^199^68.55^^^55^1.56^11^194^132^353^1.19^.015^.028^^857^0^.057
	;;^UTILITY(U,$J,112,120,2)
	;;=.523^.077^1.224^.143^38^.92^2.499^.093^459^4.167^5.97^2.789^248^1.55^^^0
	;;^UTILITY(U,$J,112,120,3)
	;;=.165^.65^.739^1.157^.973^.422^.313^.719^.553^.825^.811^.321^.753^1.359^1.773^.454^.542^1.006
	;;^UTILITY(U,$J,112,120,4)
	;;=.003^.003^.047^2.907^.322^1.153^5.606^.153^^26.9
	;;^UTILITY(U,$J,112,120,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,121,0)
	;;=EGGS, WHOLE, HARD-BOILED^1-129^eggs^50^88^N
	;;^UTILITY(U,$J,112,121,1)
	;;=12.58^10.61^1.12^155^74.62^^^50^1.19^10^172^126^124^1.05^.013^.026^^560^0^.066
	;;^UTILITY(U,$J,112,121,2)
	;;=.513^.064^1.398^.121^44^1.11^1.188^.035^424^3.267^4.077^1.414^168^1.08^^^0
	;;^UTILITY(U,$J,112,121,3)
	;;=.153^.604^.686^1.075^.904^.392^.292^.668^.513^.767^.755^.298^.7^1.264^1.644^.423^.501^.936
	;;^UTILITY(U,$J,112,121,4)
	;;=.003^.003^.035^2.349^.31^.828^3.725^.149
	;;^UTILITY(U,$J,112,121,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,122,0)
	;;=OMELET, WHOLE EGG^1-130^eggs^64^100^N
	;;^UTILITY(U,$J,112,122,1)
	;;=10.33^11.44^1.04^152^75.98^^^42^1.19^9^148^101^270^.92^.013^.022^^654^0^.044
	;;^UTILITY(U,$J,112,122,2)
	;;=.399^.058^.934^.109^29^.7^1.907^.071^350^3.18^4.556^2.129^187^1.21^^^0
	;;^UTILITY(U,$J,112,122,3)
	;;=.126^.496^.564^.883^.742^.322^.239^.549^.422^.63^.619^.245^.574^1.037^1.353^.347^.413^.768
	;;^UTILITY(U,$J,112,122,4)
	;;=.003^.003^.036^2.218^.245^.88^4.278^.117
	;;^UTILITY(U,$J,112,122,20)
	;;=USDA Std. Reference, Release 10