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

FHINI073.m

Go to the documentation of this file.
FHINI073	; ; 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,2478,0)
	;;=BF, VEGETABLES, GARDEN VEGETABLE, STRAINED^3-283^jars^128^100^N
	;;^UTILITY(U,$J,112,2478,1)
	;;=2.3^.2^6.8^37^90^^^28^.83^21^28^168^35^.26^.07^^^6067^5.7^.061
	;;^UTILITY(U,$J,112,2478,2)
	;;=.069^.779^.26^.1^40.2^0^^^^^^^607^.7^^^1.5
	;;^UTILITY(U,$J,112,2478,3)
	;;=.027^.073^.086^.143^.116^.043^.02^.088^.095^.099^.196^.045^.107^.192^.293^.079^.122^.077
	;;^UTILITY(U,$J,112,2478,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2479,0)
	;;=BF, VEGETABLES, MIX VEG, STR^3-286^jars^128^100^N
	;;^UTILITY(U,$J,112,2479,1)
	;;=1.2^.5^8^41^89.8^^^13^.32^10^22^127^13^.145^.04^^^3991^1.7^.022
	;;^UTILITY(U,$J,112,2479,2)
	;;=.025^.327^.25^.055^3.9^0^^^^^^^399^.5^^^1.5
	;;^UTILITY(U,$J,112,2479,3)
	;;=.013^.038^.047^.077^.04^.018^.024^.047^.044^.058^.079^.026^.052^.139^.31^.046^.092^.046
	;;^UTILITY(U,$J,112,2479,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2480,0)
	;;=BF, DINNER, BEEF NOODLE, JNR^3-287^jars^213^100^N
	;;^UTILITY(U,$J,112,2480,1)
	;;=2.5^1.9^7.4^57^87.8^^^8^.43^7^30^46^17^.401^.032^^^656^1.4^.028
	;;^UTILITY(U,$J,112,2480,2)
	;;=.036^.582^.23^.031^5.5^.1^^^^^^^88^.5^^^1.1
	;;^UTILITY(U,$J,112,2480,3)
	;;=.027^.099^.138^.208^.185^.053^.029^.117^.093^.132^.157^.074^.149^.22^.517^.153^.186^.098
	;;^UTILITY(U,$J,112,2480,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2481,0)
	;;=BF, HI-MT DINNER, COTTAGE CHEESE W/PINEAPPLE, STRAINED^3-288^jars^135^100^N
	;;^UTILITY(U,$J,112,2481,1)
	;;=6.3^2.2^18.9^116^72^^^65^.1^7^73^95^149^.285^.031^^^77^1.4^.038
	;;^UTILITY(U,$J,112,2481,2)
	;;=.142^.107^^.047^4^.23^^^^^^^8^.7
	;;^UTILITY(U,$J,112,2481,3)
	;;=.095^.217^.277^.557^.433^.198^.045^.292^.3^.351^.213^.176^.171^.424^1.274^.118^.693^.29
	;;^UTILITY(U,$J,112,2481,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2482,0)
	;;=BF, CEREAL, BARLEY, PPD W/WHOLE MILK^3-681^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2482,1)
	;;=4.6^3.3^16.3^111^74.7^^^230^12.34^30^150^192^49^.832^.084^^^105^^.481
	;;^UTILITY(U,$J,112,2482,2)
	;;=.578^5.984^.348^.096^8.9^.3^^^^^^^^1.2
	;;^UTILITY(U,$J,112,2482,3)
	;;=.06^.186^.235^.402^.278^.103^.068^.24^.2^.281^.192^.115^.163^.314^1.099^.127^.504^.228
	;;^UTILITY(U,$J,112,2482,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2483,0)
	;;=BF, CEREAL, HI-PROT, PPD W/WHOLE MILK^3-682^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2483,1)
	;;=8.7^3.8^11.6^111^74.5^^^218^12.14^48^177^349^49^1.044^.217^^^105^^.47
	;;^UTILITY(U,$J,112,2483,2)
	;;=.579^5.668^.465^.113^35.4^.3^^^^^^^^1.5
	;;^UTILITY(U,$J,112,2483,3)
	;;=.129^.364^.454^.752^.607^.169^.144^.443^.363^.488^.558^.241^.364^.934^1.791^.333^.608^.465
	;;^UTILITY(U,$J,112,2483,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2484,0)
	;;=BF, CEREAL, MIXED, PPD W/WHOLE MILK^3-685^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2484,1)
	;;=4.8^3.5^15.9^113^74.6^^^220^10.43^27^142^199^47^.711^.063^^^105^^.432
	;;^UTILITY(U,$J,112,2484,2)
	;;=.581^5.775^.438^.066^11.2^.3^^^^^^^^1.1
	;;^UTILITY(U,$J,112,2484,3)
	;;=.064^.19^.244^.44^.284^.108^.081^.243^.213^.291^.214^.121^.19^.328^1.099^.149^.438^.243
	;;^UTILITY(U,$J,112,2484,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2485,0)
	;;=BF, CEREAL, MIXED, W/BANANAS, PPD W/WHOLE MILK^3-686^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2485,1)
	;;=4.5^3.6^16.6^115^74.3^^^214^11.15^26^138^237^60^.547^.05^^^^^.653
	;;^UTILITY(U,$J,112,2485,2)
	;;=.72^3.449^^.102^7^.34^^^^^^^28^1.1
	;;^UTILITY(U,$J,112,2485,3)
	;;=.059^.184^.236^.426^.293^.105^.058^.222^.205^.283^.182^.126^.166^.337^.983^.119^.408^.232
	;;^UTILITY(U,$J,112,2485,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2486,0)
	;;=BF, CEREAL, OATMEAL, PPD W/WHOLE MILK^3-689^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2486,1)
	;;=5^4.1^15.3^116^74.5^^^220^12.14^35^160^204^46^.923^.094^^^105^^.506
	;;^UTILITY(U,$J,112,2486,2)
	;;=.563^5.981^.514^.06^10^.3^^^^^^^^1.1
	;;^UTILITY(U,$J,112,2486,3)
	;;=.067^.201^.256^.445^.311^.112^.104^.222^.223^.31^.269^.113^.203^.398^1.102^.177^.381^.261
	;;^UTILITY(U,$J,112,2486,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2487,0)
	;;=BF, CEREAL, OATMEAL, W/BANANAS, PPD W/WHOLE MILK^3-690^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2487,1)
	;;=4.7^3.8^16^116^74.3^^^206^11.23^30^151^247^61^.629^.072^^^99^1.6^.623
	;;^UTILITY(U,$J,112,2487,2)
	;;=.745^3.375^^.104^7.3^.33^^^^^^^27^1.2
	;;^UTILITY(U,$J,112,2487,3)
	;;=.064^.193^.248^.429^.309^.113^.069^.235^.214^.298^.216^.133^.175^.37^1.003^.141^.399^.245
	;;^UTILITY(U,$J,112,2487,20)
	;;=USDA Std. Reference, Release 10