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

FHINI00M.m

Go to the documentation of this file.
FHINI00M	; ; 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,66,1)
	;;=1^9.97^11.38^135.645^77.27^^^9.3^.03^.33^64.2^190.5^79.2^.02^0^0^^89^0^0
	;;^UTILITY(U,$J,112,66,2)
	;;=0^0^0^0^0^0^.022^0^0^1.937^7.551^.027^9^.38^^^0
	;;^UTILITY(U,$J,112,66,3)
	;;=.015^.043^.056^.085^.068^.015^.018^.055^.037^.056^.08^.028^.047^.125^.201^.047^.06^.057
	;;^UTILITY(U,$J,112,66,4)
	;;=.013^.062^.019^.884^0^.976^7.559^0
	;;^UTILITY(U,$J,112,66,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,67,0)
	;;=CREAM SUBSTITUTE, NONDAIRY, POWDERED^1-069^tsp.^2^100^N
	;;^UTILITY(U,$J,112,67,1)
	;;=4.79^35.48^54.88^546.482^2.21^^^22.3^1.15^4.06^422^811.8^181.1^.51^.115^.22^^203^0^0
	;;^UTILITY(U,$J,112,67,2)
	;;=.165^0^0^0^0^0^.003^.01^0^32.525^.968^.014^20^2.64^^^0
	;;^UTILITY(U,$J,112,67,3)
	;;=.066^.203^.294^.473^.385^.145^.021^.257^.274^.343^.19^.142^.15^.339^1.088^.096^.54^.295
	;;^UTILITY(U,$J,112,67,4)
	;;=1.457^13.579^5.987^3.753^0^6.339^.969^0^^.6
	;;^UTILITY(U,$J,112,67,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,68,0)
	;;=TOPPING, NONDAIRY, POWDERED^1-070^tbsp.^1.3^100^N
	;;^UTILITY(U,$J,112,68,1)
	;;=4.9^39.92^52.54^577.145^1.47^^^16.6^.03^7.04^73.5^166^121.5^.08^.118^.225^^1077^0^0
	;;^UTILITY(U,$J,112,68,2)
	;;=0^0^0^0^0^0^.447^0^0^36.652^.6^.447^108^1.17^^^0
	;;^UTILITY(U,$J,112,68,3)
	;;=.068^.207^.301^.484^.394^.149^.021^.263^.28^.351^.194^.145^.153^.347^1.113^.098^.552^.301
	;;^UTILITY(U,$J,112,68,4)
	;;=.964^14.507^5.746^5.429^0^9.408^.6^0
	;;^UTILITY(U,$J,112,68,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,69,0)
	;;=TOPPING, NONDAIRY, POWDERED, 1.5 OZ PPD W/1/2 C MILK^1-071^tbsp.^4^100^N
	;;^UTILITY(U,$J,112,69,1)
	;;=3.6^12.41^16.53^189.047^66.65^^^90.1^.04^9.68^85.7^150.7^65.7^.27^.012^.005^^361^.68^.027
	;;^UTILITY(U,$J,112,69,2)
	;;=.117^.06^.226^.03^3.6^.257^.166^.034^9.8^10.684^.843^.201^49^.81^^^0
	;;^UTILITY(U,$J,112,69,3)
	;;=.05^.159^.219^.354^.287^.097^.028^.18^.185^.247^.134^.101^.12^.267^.776^.075^.369^.205
	;;^UTILITY(U,$J,112,69,4)
	;;=.302^3.704^1.682^1.993^.053^2.65^.754^0
	;;^UTILITY(U,$J,112,69,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,70,0)
	;;=TOPPING, NONDAIRY, PRESSURIZED^1-072^tbsp.^4^100^N
	;;^UTILITY(U,$J,112,70,1)
	;;=.98^22.3^16.07^263.507^60.37^^^5.3^.02^1^18.3^19.1^61.5^.01^.024^.045^^473^0^0
	;;^UTILITY(U,$J,112,70,2)
	;;=0^0^0^0^0^0^.241^0^0^18.912^1.927^.241^47^.28^^^0
	;;^UTILITY(U,$J,112,70,3)
	;;=.014^.041^.06^.097^.079^.03^.004^.053^.056^.07^.039^.029^.031^.069^.223^.02^.11^.06
	;;^UTILITY(U,$J,112,70,4)
	;;=.642^8.014^3.246^2.408^0^4.166^1.929^0
	;;^UTILITY(U,$J,112,70,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,71,0)
	;;=TOPPING, NONDAIRY, SEMISOLID, FRZ^1-073^tbsp.^4^100^N
	;;^UTILITY(U,$J,112,71,1)
	;;=1.25^25.31^23.05^318.281^50.21^^^6.3^.12^1.79^7.7^18.2^25.3^.03^.03^.058^^861^0^0
	;;^UTILITY(U,$J,112,71,2)
	;;=0^0^0^0^0^0^.305^.218^0^21.783^1.616^.523^86^.18^^^0
	;;^UTILITY(U,$J,112,71,3)
	;;=.017^.053^.077^.123^.101^.038^.005^.067^.072^.089^.049^.037^.039^.088^.284^.025^.141^.077
	;;^UTILITY(U,$J,112,71,4)
	;;=.905^8.836^3.756^3.092^.241^4.58^1.375^0
	;;^UTILITY(U,$J,112,71,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,72,0)
	;;=SOUR CREAM, IMITATION, NONDAIRY, CULTURED^1-074^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,72,1)
	;;=2.4^19.52^6.63^208.463^71.15^^^2.5^.39^6.38^44.5^160.5^102^1.18^.058^.11^^0^0^0
	;;^UTILITY(U,$J,112,72,2)
	;;=0^0^0^0^0^0^.056^0^0^17.791^.588^.056^0^.3^^^0
	;;^UTILITY(U,$J,112,72,3)
	;;=.033^.101^.147^.237^.193^.073^.01^.129^.137^.172^.095^.071^.075^.17^.545^.048^.271^.148
	;;^UTILITY(U,$J,112,72,4)
	;;=1.006^8.138^3.364^1.981^0^2.244^.589^0
	;;^UTILITY(U,$J,112,72,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,73,0)
	;;=MILK SUBSTITUTES, FLUID W/HYDR VEGETABLE OILS^1-075^cups^244^100^N
	;;^UTILITY(U,$J,112,73,1)
	;;=1.75^3.41^6.16^61.456^88.18^^^32.5^.39^6.38^74.2^114.3^78.3^1.18^.051^.097^^0^0^.012
	;;^UTILITY(U,$J,112,73,2)
	;;=.088^0^0^0^0^0^.364^.039^.2^.767^1.998^.488^0^.5^^^0
	;;^UTILITY(U,$J,112,73,3)
	;;=.024^.074^.107^.173^.141^.053^.008^.094^.1^.125^.069^.052^.055^.124^.398^.035^.197^.108
	;;^UTILITY(U,$J,112,73,4)
	;;=.004^.019^.026^.412^.021^.311^1.979^0
	;;^UTILITY(U,$J,112,73,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,74,0)
	;;=MILK, WHOLE, PAST & RAW, FLUID, 3.3% FAT^1-077^cups^244^100^N
	;;^UTILITY(U,$J,112,74,1)
	;;=3.29^3.34^4.66^61.441^87.99^^^119.4^.05^13.44^93.4^151.5^49^.38^.01^.004^^126^.94^.038
	;;^UTILITY(U,$J,112,74,2)
	;;=.162^.084^.314^.042^5^.357^.075^.049^13.6^2.079^.965^.124^31^.72^^^0