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

FHINI06Z.m

Go to the documentation of this file.
FHINI06Z	; ; 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,2429,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2430,0)
	;;=BF, CEREAL, MIXED, W/APPLESAUCE & BANANAS, JUNIOR^3-188^jars^220^100^N
	;;^UTILITY(U,$J,112,2430,1)
	;;=1.2^.4^18.4^83^79.6^^^4^5.61^7^29^32^36^.22^.055^^^19^9.1^.285
	;;^UTILITY(U,$J,112,2430,2)
	;;=.356^4.039^.195^.139^3.7^0^^^^^^^2^.4^^^1.2
	;;^UTILITY(U,$J,112,2430,3)
	;;=.013^.034^.043^.086^.035^.024^.026^.062^.043^.058^.065^.027^.046^.081^.302^.051^.084^.05
	;;^UTILITY(U,$J,112,2430,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2431,0)
	;;=BF, CEREAL, OATMEAL, W/BANANAS, DRY^3-190^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2431,1)
	;;=12^6^73.4^393^4.7^^^651^68.1^118^444^731^119^1.9^.391^^^69^4.7^3.6
	;;^UTILITY(U,$J,112,2431,2)
	;;=3.71^20.11^^.423^18.7^.22^^^^^^^7^3.9^^^5.2
	;;^UTILITY(U,$J,112,2431,3)
	;;=.157^.417^.501^.978^.558^.266^.272^.624^.497^.699^.711^.362^.491^.986^2.603^.505^.807^.582
	;;^UTILITY(U,$J,112,2431,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2432,0)
	;;=BF, CEREAL, OATMEAL, W/APPLESAUCE & BANANAS, STRAINED^3-191^jars^135^100^N
	;;^UTILITY(U,$J,112,2432,1)
	;;=1.3^.7^15.4^73^82.2^^^9^5.65^11^41^47^2^.351^.073^^^30^21.8^.42
	;;^UTILITY(U,$J,112,2432,2)
	;;=.365^5.042^.227^.2^3.5^0^^^^^^^3^.4^^^.8
	;;^UTILITY(U,$J,112,2432,3)
	;;=.017^.046^.049^.099^.053^.03^.029^.066^.052^.068^.093^.034^.059^.111^.287^.07^.064^.062
	;;^UTILITY(U,$J,112,2432,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2433,0)
	;;=BF, CEREAL, OATMEAL, W/APPLESAUCE & BANANAS, JUNIOR^3-192^jars^220^100^N
	;;^UTILITY(U,$J,112,2433,1)
	;;=1.3^.7^15.7^75^81.8^^^6^5.51^11^41^48^31^.33^.075^^^28^19.1^.242
	;;^UTILITY(U,$J,112,2433,2)
	;;=.484^3.35^.227^.24^3.5^0^^^^^^^3^.4^^^.8
	;;^UTILITY(U,$J,112,2433,3)
	;;=.017^.046^.049^.1^.054^.031^.03^.067^.052^.069^.094^.034^.06^.113^.291^.071^.065^.063
	;;^UTILITY(U,$J,112,2433,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2434,0)
	;;=BF, CEREAL, OATMEAL, W/HONEY, DRY^3-193^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2434,1)
	;;=13.5^7^69.3^391^5.8^^^1154^67.23^146^733^259^47^3.703^.529^^^23^0^2.771
	;;^UTILITY(U,$J,112,2434,2)
	;;=2.842^36.292^1.54^.154^35.4^0^^^^^^^2^4.4
	;;^UTILITY(U,$J,112,2434,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2435,0)
	;;=BF, CEREAL, RICE, DRY^3-194^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2435,1)
	;;=7.1^4.9^77.6^391^6.7^^^850^73.9^206^590^385^32^1.984^.331^^^13^2.4^2.645
	;;^UTILITY(U,$J,112,2435,2)
	;;=2.221^31.243^^.479^24.4^0^^^^^^^^3.6^^^.5
	;;^UTILITY(U,$J,112,2435,3)
	;;=.094^.316^.29^.559^.304^.185^.169^.364^.324^.446^.646^.193^.425^.696^1.291^.366^.316^.342
	;;^UTILITY(U,$J,112,2435,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2436,0)
	;;=BF, CEREAL, RICE, W/APPLESAUCE & BANANAS, STRAINED^3-195^jars^135^100^N
	;;^UTILITY(U,$J,112,2436,1)
	;;=1.2^.4^17.1^79^81^^^17^6.73^3^12^28^28^.08^.051^^^21^31.6^.26
	;;^UTILITY(U,$J,112,2436,2)
	;;=.422^4.017^.234^0^2.5^^^^^^^^2^.3^^^1
	;;^UTILITY(U,$J,112,2436,3)
	;;=.012^.04^.048^.116^.068^.02^.014^.058^.056^.068^.04^.032^.056^.076^.236^.028^.104^.052
	;;^UTILITY(U,$J,112,2436,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2437,0)
	;;=BF, CEREAL, RICE, W/HONEY, DRY^3-196^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2437,1)
	;;=7.1^3.1^80.6^392^5.1^^^1168^65.55^210^630^83^47^2.018^.337^^^26^0^2.705
	;;^UTILITY(U,$J,112,2437,2)
	;;=2.88^36.585^^.487^24.8^0^^^^^^^3^4.1
	;;^UTILITY(U,$J,112,2437,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2438,0)
	;;=BF, CEREAL, W/EGG YOLKS, STRAINED^3-197^jars^128^100^N
	;;^UTILITY(U,$J,112,2438,1)
	;;=1.9^1.8^7^51^88.8^^^24^.47^3^40^39^33^.285^.022^^^141^.7^.009
	;;^UTILITY(U,$J,112,2438,2)
	;;=.044^.049^.878^.021^3.3^.07^.26^.01^63.4^.61^.79^.3^40^.5^^^.9
	;;^UTILITY(U,$J,112,2438,3)
	;;=.027^.082^.1^.172^.127^.051^.028^.092^.084^.122^.104^.045^.084^.149^.421^.056^.161^.118
	;;^UTILITY(U,$J,112,2438,4)
	;;=^^.01^.44^.05^.15^.73^.03
	;;^UTILITY(U,$J,112,2438,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2439,0)
	;;=BF, CEREAL, W/EGG YOLKS, JUNIOR^3-198^jars^213^100^N
	;;^UTILITY(U,$J,112,2439,1)
	;;=1.9^1.8^7.1^52^88.7^^^24^.51^3^40^35^33^.29^.022^^^144^.7^.008
	;;^UTILITY(U,$J,112,2439,2)
	;;=.045^.048^.878^.02^3.3^.06^.26^.01^^.61^.79^.3^41^.4^^^.9
	;;^UTILITY(U,$J,112,2439,3)
	;;=.027^.082^.1^.172^.127^.051^.028^.092^.084^.122^.104^.045^.084^.149^.421^.056^.161^.118
	;;^UTILITY(U,$J,112,2439,4)
	;;=^^.01^.44^.05^.15^.74^.03
	;;^UTILITY(U,$J,112,2439,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2440,0)
	;;=BF, CEREAL, W/EGGS, STRAINED^3-199^jars^128^100^N