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

FHINI032.m

Go to the documentation of this file.
FHINI032	; ; 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,943,1)
	;;=16.15^48.21^28.52^576^3.91^^^41^4.1^255^426^530^626^4.75^2.17^.807^^0^0^.424
	;;^UTILITY(U,$J,112,943,2)
	;;=.175^1.8^1.19^.25^67.7^0^7.968^.167^0^9.526^28.415^8.152^0^3.21^^^3.8
	;;^UTILITY(U,$J,112,943,3)
	;;=.25^.625^.771^1.356^.862^.289^.299^.835^.518^1.097^1.837^.42^.74^1.587^3.824^.847^.728^.896
	;;^UTILITY(U,$J,112,943,4)
	;;=.137^.816^.361^4.526^.331^3.091^27.886
	;;^UTILITY(U,$J,112,943,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,944,0)
	;;=CATFISH, FRESH WATER, RAW^15-010^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,944,1)
	;;=16.38^2.82^0^95^80.36^^^14^.3^23^209^358^43^.51^.034^.025^^50^.7^.21
	;;^UTILITY(U,$J,112,944,2)
	;;=.072^1.907^.765^.116^10^2.23^.101^.071^58^.722^.844^.865^15^.96^^^0
	;;^UTILITY(U,$J,112,944,3)
	;;=.183^.718^.755^1.331^1.504^.485^.176^.639^.553^.844^.98^.482^.991^1.677^2.445^.786^.579^.668
	;;^UTILITY(U,$J,112,944,4)
	;;=^^.064^.442^.176^.15^.594^.149^^12.6
	;;^UTILITY(U,$J,112,944,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,945,0)
	;;=CAULIFLOWER, RAW^11-135^cups^85^39^N
	;;^UTILITY(U,$J,112,945,1)
	;;=1.98^.21^5.2^25^91.91^^^22^.44^15^44^303^30^.28^.042^.156^^19^46.4^.057
	;;^UTILITY(U,$J,112,945,2)
	;;=.063^.526^.652^.222^57^0^.023^.076^0^.032^.014^.099^2^.71^^^1.8
	;;^UTILITY(U,$J,112,945,3)
	;;=.026^.072^.075^.116^.106^.028^.023^.071^.043^.099^.095^.04^.104^.232^.264^.064^.085^.104
	;;^UTILITY(U,$J,112,945,4)
	;;=^^^.028^^.004^.014^^5^.6
	;;^UTILITY(U,$J,112,945,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,946,0)
	;;=CAULIFLOWER, BOILED, WO/SALT^11-136^cups^125^100^N
	;;^UTILITY(U,$J,112,946,1)
	;;=1.84^.45^4.11^23^93^^^16^.33^9^32^142^15^.18^.027^.138^^17^44.3^.042
	;;^UTILITY(U,$J,112,946,2)
	;;=.052^.41^.508^.173^44^0^.05^.167^0^.07^.032^.217^2^.6^^^1.6
	;;^UTILITY(U,$J,112,946,3)
	;;=.024^.067^.07^.107^.099^.026^.021^.066^.04^.092^.089^.037^.097^.216^.245^.059^.079^.096
	;;^UTILITY(U,$J,112,946,4)
	;;=^^^.062^^.008^.032^^10
	;;^UTILITY(U,$J,112,946,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,947,0)
	;;=CAULIFLOWER, BOILED, W/SALT^11-761^cups^125^100^N
	;;^UTILITY(U,$J,112,947,1)
	;;=1.84^.45^4.11^23^93^^^16^.33^9^32^142^242^.18^.027^.138^^17^44.3^.042
	;;^UTILITY(U,$J,112,947,2)
	;;=.052^.41^.508^.173^44^0^.05^.167^0^.07^.032^.217^2^.6^^^2.7
	;;^UTILITY(U,$J,112,947,3)
	;;=.024^.067^.07^.107^.099^.026^.021^.066^.04^.092^.089^.037^.097^.216^.245^.059^.079^.096
	;;^UTILITY(U,$J,112,947,4)
	;;=^^^.062^^.008^.032
	;;^UTILITY(U,$J,112,947,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,948,0)
	;;=CAULIFLOWER, FRZ, CKD WO/SALT^11-138^cups^180^100^N
	;;^UTILITY(U,$J,112,948,1)
	;;=1.61^.22^3.75^19^94^^^17^.41^9^24^139^18^.13^.024^.15^^22^31.3^.037
	;;^UTILITY(U,$J,112,948,2)
	;;=.053^.31^.098^.088^41^0^.024^.079^0^.033^.015^.103^2^.42^^^2.2
	;;^UTILITY(U,$J,112,948,3)
	;;=.021^.059^.061^.094^.086^.023^.019^.058^.035^.081^.078^.033^.085^.189^.215^.052^.07^.084
	;;^UTILITY(U,$J,112,948,4)
	;;=^^^.029^^.004^.015
	;;^UTILITY(U,$J,112,948,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,949,0)
	;;=CAULIFLOWER, FRZ, CKD W/SALT^11-762^cups^180^100^N
	;;^UTILITY(U,$J,112,949,1)
	;;=1.61^.22^3.75^19^94^^^17^.41^9^24^139^254^.13^.024^.15^^22^31.3^.037
	;;^UTILITY(U,$J,112,949,2)
	;;=.053^.31^.098^.088^41^0^.024^.079^0^.033^.015^.103^2^.42
	;;^UTILITY(U,$J,112,949,3)
	;;=.021^.059^.061^.094^.086^.023^.019^.058^.035^.081^.078^.033^.085^.189^.215^.052^.07^.084
	;;^UTILITY(U,$J,112,949,4)
	;;=^^^.029^^.004^.015
	;;^UTILITY(U,$J,112,949,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,950,0)
	;;=CELERY, RAW^11-143^cups^120^89^N
	;;^UTILITY(U,$J,112,950,1)
	;;=.75^.14^3.65^16^94.64^^^40^.4^11^25^287^87^.13^.034^.102^^134^7^.046
	;;^UTILITY(U,$J,112,950,2)
	;;=.045^.323^.186^.087^28^0^.069^^0^.037^.027^.069^13^.82^^^1.4
	;;^UTILITY(U,$J,112,950,3)
	;;=.01^.022^.023^.035^.029^.006^.004^.022^.01^.03^.022^.013^.025^.128^.098^.023^.02^.022
	;;^UTILITY(U,$J,112,950,4)
	;;=^^.001^.032^.001^.003^.026^^12^.9
	;;^UTILITY(U,$J,112,950,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,951,0)
	;;=CELERY, CKD WO/SALT^11-144^cups^150^100^N
	;;^UTILITY(U,$J,112,951,1)
	;;=.83^.16^4.01^18^94.11^^^42^.42^12^25^284^91^.14^.036^.106^^132^6.1^.043
	;;^UTILITY(U,$J,112,951,2)
	;;=.047^.319^.195^.086^22^0^.075^^0^.04^.03^.075^13^.9^^^1.6
	;;^UTILITY(U,$J,112,951,3)
	;;=.011^.024^.025^.039^.032^.007^.005^.024^.011^.033^.024^.014^.027^.141^.107^.026^.022^.024