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

FHINI02R.m

Go to the documentation of this file.
FHINI02R	; ; 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,820,3)
	;;=.097^.267^.334^.602^.248^.155^.19^.422^.238^.396^.359^.196^.324^.475^2.721^.337^.95^.417
	;;^UTILITY(U,$J,112,820,4)
	;;=^0^.002^.332^.018^.102^.912
	;;^UTILITY(U,$J,112,820,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,821,0)
	;;=BREAD, SALT-RISING^457-0^slices^24^100^N
	;;^UTILITY(U,$J,112,821,1)
	;;=7.9^2.4^52.2^267^36.5^^^23^.6^^69^67^265^^^^^10^0^.043
	;;^UTILITY(U,$J,112,821,2)
	;;=.05^.6^^^^^.61^^2^.62^^^^1
	;;^UTILITY(U,$J,112,821,4)
	;;=^^^^^^1.01
	;;^UTILITY(U,$J,112,821,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,822,0)
	;;=BREAD, SALT-RISING, TOASTED^458-0^slices^22^100^N
	;;^UTILITY(U,$J,112,822,1)
	;;=8.8^2.7^58^297^29.4^^^26^.7^^77^74^294^^^^^10^0^.038
	;;^UTILITY(U,$J,112,822,2)
	;;=.05^.6^^^^^.68^^3^.7^^^^1.1
	;;^UTILITY(U,$J,112,822,4)
	;;=^^^^^^1.13
	;;^UTILITY(U,$J,112,822,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,823,0)
	;;=BREAD, WHITE, ENR, ^461-0^slices^25^100^N
	;;^UTILITY(U,$J,112,823,1)
	;;=8.7^3.2^50.5^270^35.6^^^84^2.8^^97^105^507^^^^^0^0^.397
	;;^UTILITY(U,$J,112,823,2)
	;;=.243^3.31^^^^^.84^^3^.73^^^^2^^^2
	;;^UTILITY(U,$J,112,823,4)
	;;=^^^^^^1.46
	;;^UTILITY(U,$J,112,823,20)
	;;=USDA  Std. Reference, Release 8;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,824,0)
	;;=BREAD, WHITE, TOASTED, ENR^462-0^slices^24^100^N
	;;^UTILITY(U,$J,112,824,1)
	;;=10.1^3.7^58.8^314^25.1^^^98^3.3^^113^122^590^^^^^0^0^.37
	;;^UTILITY(U,$J,112,824,2)
	;;=.28^3.8^^^^^.97^^4^.84^^^^2.3
	;;^UTILITY(U,$J,112,824,4)
	;;=^^^^^^1.69
	;;^UTILITY(U,$J,112,824,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,825,0)
	;;=BREAD, WHOLE-WHEAT^18-075^slices^28.35^100^N
	;;^UTILITY(U,$J,112,825,1)
	;;=9.7^4.2^46.1^246^37.7^^^72^3.3^86^229^252^527^1.94^.284^2.324^^0^0^.351
	;;^UTILITY(U,$J,112,825,2)
	;;=.205^3.837^.552^.179^50^.01^.952^.049^0^.917^1.68^1.003^0^2.3^^^6.9
	;;^UTILITY(U,$J,112,825,3)
	;;=.14^.296^.376^.67^.302^.155^.214^.463^.289^.443^.449^.224^.358^.536^2.957^.384^.969^.463
	;;^UTILITY(U,$J,112,825,4)
	;;=0^.001^.016^.575^.023^.318^1.658^.002^^36.6
	;;^UTILITY(U,$J,112,825,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,826,0)
	;;=BREAD, WHOLE-WHEAT, TOASTED^18-076^slices^24^100^N
	;;^UTILITY(U,$J,112,826,1)
	;;=10.9^4.8^51.7^277^30^^^81^3.71^97^258^283^592^2.18^.319^2.611^^0^0^.316
	;;^UTILITY(U,$J,112,826,2)
	;;=.208^3.88^.403^.181^39^.01^1.07^.056^0^1.03^1.888^1.127^0^2.6^^^8.6
	;;^UTILITY(U,$J,112,826,3)
	;;=.158^.332^.422^.753^.34^.175^.24^.52^.325^.497^.505^.252^.402^.603^3.323^.432^1.089^.52
	;;^UTILITY(U,$J,112,826,4)
	;;=0^.001^.018^.646^.025^.357^1.863^.002
	;;^UTILITY(U,$J,112,826,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,827,0)
	;;=BREADCRUMBS, DRY, GRATED^18-079^cups^100^100^N
	;;^UTILITY(U,$J,112,827,1)
	;;=12.5^5.4^72.5^395^6.2^^^227^6.12^46^147^221^862^1.22^.166^.818^^1^0^.765
	;;^UTILITY(U,$J,112,827,2)
	;;=.435^6.85^.305^.1^25^.02^1.464^.09^0^1.255^2.089^1.553^0^3.4^^^4.2
	;;^UTILITY(U,$J,112,827,3)
	;;=.149^.373^.511^.875^.34^.2^.217^.623^.298^.627^.515^.27^.452^.662^3.92^.496^1.351^.638
	;;^UTILITY(U,$J,112,827,4)
	;;=0^.001^.019^.748^.011^.487^2.077^^^37.7
	;;^UTILITY(U,$J,112,827,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,828,0)
	;;=BREAD PUDDING, W/RAISINS^19-167^cups^265^100^N
	;;^UTILITY(U,$J,112,828,1)
	;;=5.2^5.9^24.6^168^62.9^^^114^1.1^19^109^224^231^.52^.076^.171^^241^.8^.091
	;;^UTILITY(U,$J,112,828,2)
	;;=.223^.627^.419^.074^13^^.85^.07^66^2.29^2.15^.95^65^1.4
	;;^UTILITY(U,$J,112,828,3)
	;;=.063^.213^.26^.426^.319^.133^.086^.248^.204^.295^.24^.131^.214^.416^1.066^.138^.382^.288
	;;^UTILITY(U,$J,112,828,4)
	;;=.06^.06^.29^1.19^.1^.56^2.05^.02
	;;^UTILITY(U,$J,112,828,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,829,0)
	;;=BREADSTUFFING MIX, DRY^18-081^cups^70^100^N
	;;^UTILITY(U,$J,112,829,1)
	;;=11^3.4^76.2^386^4.2^^^97^3.81^40^141^246^1590^.93^.238^.594^^1^0^.596
	;;^UTILITY(U,$J,112,829,2)
	;;=.404^5.766^.398^.152^86^.02^.675^.037^1^.845^1.493^.713^0^5.2
	;;^UTILITY(U,$J,112,829,3)
	;;=.139^.329^.404^.774^.317^.193^.224^.553^.342^.464^.47^.251^.389^.553^3.488^.408^1.192^.551
	;;^UTILITY(U,$J,112,829,4)
	;;=0^.002^.019^.56^.074^.265^1.406^.001^^48
	;;^UTILITY(U,$J,112,829,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,830,0)
	;;=BREADSTUFFING MIX, W/WATER TABLE FAT &EGG, MOIST^479-0^cups^200^100^N
	;;^UTILITY(U,$J,112,830,1)
	;;=4.4^12.8^19.7^208^61.4^^^40^1^^66^58^504^^^^^420^0^.05
	;;^UTILITY(U,$J,112,830,2)
	;;=.09^.8^^^^^.65^^66^6.55^^^^1.7