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

FHINI07Q.m

Go to the documentation of this file.
FHINI07Q	; ; 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,2682,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2683,0)
	;;=CABBAGE, CHINESE (PE-TSAI), BOILED, DRAINED, W/SALT^11-755^leafs^14^100^N
	;;^UTILITY(U,$J,112,2683,1)
	;;=1.5^.17^2.41^14^95.24^^^32^.3^10^39^225^245^.18^.029^.153^^967^15.8^.044
	;;^UTILITY(U,$J,112,2683,2)
	;;=.044^.5^.08^.177^53.4^0^.013^.048^0^.036^.02^.061^97^.68
	;;^UTILITY(U,$J,112,2683,3)
	;;=.015^.049^.085^.088^.089^.009^.017^.044^.029^.066^.084^.026^.086^.108^.36^.043^.031^.048
	;;^UTILITY(U,$J,112,2683,4)
	;;=^^^.032^.002^.004^.018
	;;^UTILITY(U,$J,112,2683,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2684,0)
	;;=CABBAGE, SAVOY, BOILED, DRAINED, W/SALT^11-753^cups^146^100^N
	;;^UTILITY(U,$J,112,2684,1)
	;;=1.8^.09^5.41^24^92^^^30^.38^24^33^184^260^.23^.052^.152^^889^17^.051
	;;^UTILITY(U,$J,112,2684,2)
	;;=.02^.024^.159^.152^46.3^0^.018^.023^0^.012^.007^.043^89^.7
	;;^UTILITY(U,$J,112,2684,3)
	;;=.018^.062^.091^.093^.085^.018^.015^.058^.031^.077^.102^.037^.063^.177^.4^.04^.353^.105
	;;^UTILITY(U,$J,112,2684,4)
	;;=0^0^0^.01^0^0^.006^0
	;;^UTILITY(U,$J,112,2684,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2685,0)
	;;=CAKEMIX, ANGELFOOD, DRY, ENR^18-087^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2685,1)
	;;=8.9^.4^85.1^373^2.8^^^121^.32^11^337^197^737^.16^.094^.12^^0^0^.167
	;;^UTILITY(U,$J,112,2685,2)
	;;=.325^.275^.245^.009^11^.04^.17^.01^0^.063^.038^.18^0^2.8
	;;^UTILITY(U,$J,112,2685,3)
	;;=.112^.376^.47^.721^.552^.279^.223^.497^.327^.533^.457^.194^.47^.813^1.441^.306^.443^.583
	;;^UTILITY(U,$J,112,2685,4)
	;;=0^0^0^.057^.001^.003^.037^0
	;;^UTILITY(U,$J,112,2685,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2686,0)
	;;=CAKEMIX, CHOCOLATE MALT, DRY, ENR^551-0^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2686,1)
	;;=4^10.7^79^412^3.8^^^100^2.2^^270^119^551^^^^^70^0^.23
	;;^UTILITY(U,$J,112,2686,2)
	;;=.19^1.9^^^^^1^^0^3^^^^2.5
	;;^UTILITY(U,$J,112,2686,4)
	;;=^^^^^^9
	;;^UTILITY(U,$J,112,2686,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,2687,0)
	;;=CAKEMIX, COFFEE CAKE MIX, DRY, ENR^18-107^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2687,1)
	;;=4.8^12^77.7^436^3.3^^^148^1.9^19^256^87^596^.34^.22^.464^^22^.1^.291
	;;^UTILITY(U,$J,112,2687,2)
	;;=.13^2.505^.133^.044^15^0^4.224^.311^0^1.798^4.969^4.534^2^2.1
	;;^UTILITY(U,$J,112,2687,3)
	;;=.056^.128^.178^.332^.093^.084^.108^.237^.131^.201^.167^.102^.147^.194^1.683^.164^.565^.233
	;;^UTILITY(U,$J,112,2687,4)
	;;=^0^.012^1.209^.046^.577^4.923
	;;^UTILITY(U,$J,112,2687,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2688,0)
	;;=CAKEMIX, DEVIL'S FOOD, DRY, ENR^18-099^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2688,1)
	;;=5.9^15.6^73^428^3.1^^^150^4.5^47^270^330^825^.8^.4^.735^^3^0^.17
	;;^UTILITY(U,$J,112,2688,2)
	;;=.16^1.6^.174^.031^15^0^4.673^.344^0^3.425^6.334^5.017^0^1.9^^^2.4
	;;^UTILITY(U,$J,112,2688,3)
	;;=.08^.195^.227^.402^.225^.086^.101^.297^.201^.288^.307^.127^.229^.439^1.499^.239^.487^.287
	;;^UTILITY(U,$J,112,2688,4)
	;;=^^.015^1.938^.056^1.472^6.278
	;;^UTILITY(U,$J,112,2688,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2689,0)
	;;=CAKEMIX, GINGERBREAD, DRY, ENR^18-114^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2689,1)
	;;=4.4^13.8^74.6^437^4.4^^^94^4.7^22^226^341^657^.44^.23^.525^^4^.2^.34
	;;^UTILITY(U,$J,112,2689,2)
	;;=.24^2.55^.296^.044^14^0^1.715^.089^0^3.46^7.791^1.804^0^2.8
	;;^UTILITY(U,$J,112,2689,3)
	;;=.062^.138^.175^.309^.187^.068^.087^.209^.134^.196^.211^.096^.15^.282^1.256^.161^.415^.233
	;;^UTILITY(U,$J,112,2689,4)
	;;=.001^.001^.068^1.781^.001^1.609^7.791
	;;^UTILITY(U,$J,112,2689,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2690,0)
	;;=CAKEMIX, HONEY SPICE, DRY, ENR^562-0^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2690,1)
	;;=4.3^14^76.3^443^3.5^^^74^1.7^^274^99^373^^^^^0^0^.24
	;;^UTILITY(U,$J,112,2690,2)
	;;=.21^1.9^^^^^1^^0^3^^^^1.9
	;;^UTILITY(U,$J,112,2690,4)
	;;=^^^^^^9
	;;^UTILITY(U,$J,112,2690,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,2691,0)
	;;=CAKEMIX, MARBLE, DRY, ENR^564-0^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2691,1)
	;;=4.9^13.5^75.6^425^4^^^130^2.3^^270^188^381^^^^^0^0^.24
	;;^UTILITY(U,$J,112,2691,2)
	;;=.22^2.1^^^^^1^^0^3^^^^2
	;;^UTILITY(U,$J,112,2691,4)
	;;=^^^^^^9
	;;^UTILITY(U,$J,112,2691,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,2692,0)
	;;=CAKEMIX, WHITE, DRY, ENR^18-137^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2692,1)
	;;=4.5^10.9^78^426^4^^^192^1.39^11^337^117^664^.46^.081^.282^^1^.2^.235
	;;^UTILITY(U,$J,112,2692,2)
	;;=.197^1.08^.275^.026^11^.1^3.809^.282^0^1.631^4.531^4.091^0^2.7