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

FHINI07B.m

Go to the documentation of this file.
FHINI07B	; ; 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,2550,3)
	;;=.093^.329^.412^.641^.657^.207^.088^.348^.303^.426^.456^.248^.397^.698^1.42^.314^.456^.375
	;;^UTILITY(U,$J,112,2550,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2551,0)
	;;=FF, SCALLOPS, BREADED AND FRIED^21-058^scallops^24^100^N
	;;^UTILITY(U,$J,112,2551,1)
	;;=10.94^13.47^26.73^268^48.01^^^13^1.42^22^203^204^638^.75^.15^.207^^96^0^.14
	;;^UTILITY(U,$J,112,2551,2)
	;;=.59^0^.35^.05^28^.3^.284^.135^75^3.391^8.718^.42^29^.85
	;;^UTILITY(U,$J,112,2551,3)
	;;=.129^.423^.468^.77^.636^.238^.174^.453^.343^.502^.671^.22^.562^.88^2.027^.553^.653^.535
	;;^UTILITY(U,$J,112,2551,4)
	;;=^^.04^1.739^.202^1.612^8.517
	;;^UTILITY(U,$J,112,2551,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2552,0)
	;;=FF, SHRIMP, BREADED AND FRIED^21-059^shrimps^23.4^100^N
	;;^UTILITY(U,$J,112,2552,1)
	;;=11.51^15.18^24.39^277^47.82^^^51^1.8^24^210^112^882^.74^.088^.203^^73^0^.13
	;;^UTILITY(U,$J,112,2552,2)
	;;=.55^0^.29^.04^29^.09^.368^.026^122^3.28^10.597^.393^22^1.1
	;;^UTILITY(U,$J,112,2552,3)
	;;=.154^.431^.529^.874^.774^.291^.167^.516^.37^.55^.822^.239^.572^.992^2.326^.579^.611^.52
	;;^UTILITY(U,$J,112,2552,4)
	;;=^^.063^1.628^.31^1.588^10.286
	;;^UTILITY(U,$J,112,2552,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2553,0)
	;;=FF, BURRITO, W/ BEANS^21-060^burritos^108.5^100^N
	;;^UTILITY(U,$J,112,2553,1)
	;;=6.48^6.22^32.92^206^52.53^^^52^2.08^40^45^301^454^.7^.174^.4^^153^.9^.29
	;;^UTILITY(U,$J,112,2553,2)
	;;=.28^1.87^.92^.14^54^.5^.439^.112^2^3.174^2.184^.551^15^1.85
	;;^UTILITY(U,$J,112,2553,3)
	;;=.079^.244^.27^.504^.343^.107^.098^.351^.192^.319^.359^.172^.255^.61^1.469^.251^.463^.351
	;;^UTILITY(U,$J,112,2553,4)
	;;=^^.23^1.965^^.98^2.184
	;;^UTILITY(U,$J,112,2553,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2554,0)
	;;=FF, BURRITO, W/ BEANS AND CHEESE^21-061^burritos^93^100^N
	;;^UTILITY(U,$J,112,2554,1)
	;;=8.1^6.29^29.55^203^53.91^^^115^1.22^43^97^267^627^.88^.189^.232^^672^.9^.12
	;;^UTILITY(U,$J,112,2554,2)
	;;=.38^1.92^.86^.13^44^.48^.848^.111^15^3.682^1.335^.959^128^2.15
	;;^UTILITY(U,$J,112,2554,3)
	;;=.095^.272^.382^.634^.492^.156^.081^.394^.289^.423^.355^.229^.259^.612^1.971^.213^.697^.416
	;;^UTILITY(U,$J,112,2554,4)
	;;=0^.146^.372^2.187^^.978^1.335
	;;^UTILITY(U,$J,112,2554,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2555,0)
	;;=FF, BURRITO, W/ BEANS AND CHILI PEPPERS^21-062^burritos^102^100^N
	;;^UTILITY(U,$J,112,2555,1)
	;;=8.03^7.19^28.47^202^54.37^^^49^2.23^35^56^284^512^1.67^.163^.384^^100^.6^.22
	;;^UTILITY(U,$J,112,2555,2)
	;;=.35^2.15^.92^.14^58^.57^.405^.068^16^3.729^2.632^.473^10^1.94
	;;^UTILITY(U,$J,112,2555,3)
	;;=.094^.273^.304^.556^.362^.121^.121^.391^.222^.351^.407^.197^.296^.715^2.083^.288^.573^.395
	;;^UTILITY(U,$J,112,2555,4)
	;;=.04^.09^.422^2.144^^1.033^2.632
	;;^UTILITY(U,$J,112,2555,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2556,0)
	;;=FF, BURRITO, W/ BEANS AND MEAT^21-063^burritos^115.5^100^N
	;;^UTILITY(U,$J,112,2556,1)
	;;=9.73^7.71^28.58^220^51.89^^^46^2.12^36^61^284^578^1.66^.163^.36^^275^.8^.23
	;;^UTILITY(U,$J,112,2556,2)
	;;=.36^2.34^.97^.16^32^.75^.49^.039^21^3.6^3.038^.529^28^2.09
	;;^UTILITY(U,$J,112,2556,3)
	;;=.117^.358^.388^.727^.594^.19^.127^.425^.288^.445^.558^.269^.486^.802^2.057^.532^.648^.428
	;;^UTILITY(U,$J,112,2556,4)
	;;=^^.351^2.248^^1.002^3.038
	;;^UTILITY(U,$J,112,2556,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2557,0)
	;;=FF, BURRITO, W/ BEANS, CHEESE, AND BEEF^21-064^burritos^101.5^100^N
	;;^UTILITY(U,$J,112,2557,1)
	;;=7.18^6.55^19.55^163^64.94^^^64^1.84^25^69^202^488^1.16^.162^.195^^394^2.5^.15
	;;^UTILITY(U,$J,112,2557,2)
	;;=.35^1.9^.82^.11^30^.54^.451^.051^61^3.522^2.196^.502^74^1.77
	;;^UTILITY(U,$J,112,2557,3)
	;;=.086^.261^.324^.564^.459^.144^.081^.334^.241^.363^.37^.204^.298^.569^1.536^.296^.547^.346
	;;^UTILITY(U,$J,112,2557,4)
	;;=.022^.145^.571^1.854^^.931^2.196
	;;^UTILITY(U,$J,112,2557,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2558,0)
	;;=FF, BURRITO, W/ BEANS, CHEESE, AND CHILI PEPPERS^21-065^burritos^168^100^N
	;;^UTILITY(U,$J,112,2558,1)
	;;=9.91^6.84^25.35^197^55.77^^^86^2.29^29^85^241^613^1.81^.175^.242^^475^2^.16
	;;^UTILITY(U,$J,112,2558,2)
	;;=.36^2.29^.86^.12^43^.59^.377^^47^3.332^2.515^.377^114^2.14
	;;^UTILITY(U,$J,112,2558,3)
	;;=.118^.33^.441^.766^.537^.186^.121^.495^.335^.498^.443^.268^.325^.716^2.4^.294^.866^.512
	;;^UTILITY(U,$J,112,2558,4)
	;;=^^.247^1.932^^1.153^2.515
	;;^UTILITY(U,$J,112,2558,20)
	;;=USDA Std. Reference, Release 10