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

FHINI02P.m

Go to the documentation of this file.
FHINI02P	; ; 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,801,4)
	;;=.02^.022^.14^2.402^.018^1.687^6.91^0
	;;^UTILITY(U,$J,112,801,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,802,0)
	;;=BISCUIT DOUGH, COMMERCIAL, ENR, CHILLED, IN CANS^18-012^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,802,1)
	;;=6.7^4.5^47.6^257^37.9^^^17^2.66^15^400^159^1248^.39^.079^.301^^0^0^.448
	;;^UTILITY(U,$J,112,802,2)
	;;=.222^3.295^.367^.027^6^0^.637^.034^0^1.113^2.405^.671^0^3.3
	;;^UTILITY(U,$J,112,802,3)
	;;=.082^.182^.231^.461^.148^.118^.142^.337^.202^.269^.27^.149^.215^.282^2.251^.24^.775^.333
	;;^UTILITY(U,$J,112,802,4)
	;;=^^.02^.596^^.497^2.405
	;;^UTILITY(U,$J,112,802,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,803,0)
	;;=BISCUIT DOUGH, COMMERCIAL, ENR, FRZ^414-0^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,803,1)
	;;=5.7^11.9^48.9^327^30.9^^^71^2.1^^400^86^910^^^^^0^0^.311
	;;^UTILITY(U,$J,112,803,2)
	;;=.237^2.52^^^^^1^^0^3^^^^2.6
	;;^UTILITY(U,$J,112,803,4)
	;;=^^^^^^8
	;;^UTILITY(U,$J,112,803,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,804,0)
	;;=BISCUIT MIX, DRY FORM, ENRICHED^18-010^cups^120^100^N
	;;^UTILITY(U,$J,112,804,1)
	;;=8^15.4^63.3^428^9.2^^^179^2.77^25^585^163^1276^.6^.154^.34^^4^.1^.575
	;;^UTILITY(U,$J,112,804,2)
	;;=.437^4.542^.884^.076^8^.11^5.509^.339^1^3.086^5.422^5.847^1^4^^^2.3
	;;^UTILITY(U,$J,112,804,3)
	;;=.098^.233^.288^.562^.213^.142^.164^.392^.242^.334^.315^.177^.261^.364^2.567^.276^.896^.393
	;;^UTILITY(U,$J,112,804,4)
	;;=.002^.003^.009^1.542^.002^1.524^5.42
	;;^UTILITY(U,$J,112,804,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,805,0)
	;;=BISCUITS, FROM MIX, ENR, MADE W/MILK^18-011^biscuits^28.35^100^N
	;;^UTILITY(U,$J,112,805,1)
	;;=7.3^12.1^48.4^335^28.9^^^185^2.05^25^470^188^955^.61^.116^.249^^94^.4^.35
	;;^UTILITY(U,$J,112,805,2)
	;;=.357^3.021^.548^.068^6^.21^4.045^.26^4^2.789^4.206^4.305^26^3.3^^^1.8
	;;^UTILITY(U,$J,112,805,3)
	;;=.091^.234^.296^.549^.267^.139^.133^.355^.245^.339^.281^.167^.239^.373^2.172^.232^.791^.364
	;;^UTILITY(U,$J,112,805,4)
	;;=.024^.027^.096^1.36^.021^1.221^4.183^0
	;;^UTILITY(U,$J,112,805,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,806,0)
	;;=BLUEFISH, BAKED OR BROILED^430-0^oz.^28.3^^N
	;;^UTILITY(U,$J,112,806,1)
	;;=26.2^5.2^0^159^68^^^29^.7^^287^420^104^^^^^50^0^.11
	;;^UTILITY(U,$J,112,806,2)
	;;=.1^1.9^^^^^1^^70^1
	;;^UTILITY(U,$J,112,806,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,807,0)
	;;=BLUEFISH, FRIED^431-0^oz.^28.3^^N
	;;^UTILITY(U,$J,112,807,1)
	;;=22.7^9.8^4.7^205^60.8^^^35^.9^^257^420^146^^^^^100^0^.11
	;;^UTILITY(U,$J,112,807,2)
	;;=.11^1.8^^^^^2^^61^2
	;;^UTILITY(U,$J,112,807,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,808,0)
	;;=BREAD, BOSTON BROWN BREAD^18-021^pieces^45^100^N
	;;^UTILITY(U,$J,112,808,1)
	;;=5.2^1.5^43.3^195^47.2^^^70^2.1^63^112^318^631^.5^.08^1.02^^87^0^.014
	;;^UTILITY(U,$J,112,808,2)
	;;=.115^1.12^.566^.082^7^.01^.511^.052^1^.282^.207^.564^11^2.8^^^4.7
	;;^UTILITY(U,$J,112,808,3)
	;;=.073^.162^.186^.35^.156^.092^.116^.233^.148^.233^.255^.128^.203^.324^1.537^.203^.498^.251
	;;^UTILITY(U,$J,112,808,4)
	;;=.004^.004^.017^.217^.01^.029^.195^.001
	;;^UTILITY(U,$J,112,808,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,809,0)
	;;=BRAZILNUTS^12-078^oz.^28.3^48^N
	;;^UTILITY(U,$J,112,809,1)
	;;=14.34^66.22^12.8^656^3.34^^^176^3.4^225^600^600^2^4.59^1.77^.774^^0^.7^1
	;;^UTILITY(U,$J,112,809,2)
	;;=.122^1.622^.236^.251^4^0^23.807^.062^0^16.154^23.016^24.129^0^3.3^^^5.4
	;;^UTILITY(U,$J,112,809,3)
	;;=.26^.46^.601^1.187^.541^1.014^.349^.746^.457^.911^2.39^.402^.57^1.355^3.151^.657^.762^.746
	;;^UTILITY(U,$J,112,809,4)
	;;=^^.62^9.519^.324^5.679^22.382^^^2960
	;;^UTILITY(U,$J,112,809,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,810,0)
	;;=BREAD, CRACKED WHEAT^18-025^slices^25^100^N
	;;^UTILITY(U,$J,112,810,1)
	;;=8.7^3.9^49.5^260^35.8^^^43^2.81^52^153^177^538^1.24^.222^1.371^^0^0^.358
	;;^UTILITY(U,$J,112,810,2)
	;;=.24^3.671^.512^.304^39^.03^.648^.033^0^.916^1.902^.682^0^2.1^^^5.3
	;;^UTILITY(U,$J,112,810,3)
	;;=.112^.261^.338^.606^.244^.148^.19^.419^.253^.387^.348^.193^.306^.433^2.77^.321^.922^.417
	;;^UTILITY(U,$J,112,810,4)
	;;=0^.001^.017^.509^.011^.386^1.892^0^^25.3
	;;^UTILITY(U,$J,112,810,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,811,0)
	;;=BREAD, CRACKED WHEAT, TOASTED^18-026^slices^21^100^N
	;;^UTILITY(U,$J,112,811,1)
	;;=9.5^4.2^53.8^283^30.2^^^47^3.05^57^166^192^585^1.35^.241^1.49^^0^0^.312
	;;^UTILITY(U,$J,112,811,2)
	;;=.235^3.591^.361^.297^30^.03^.704^.036^0^.995^2.068^.741^0^2.3