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

FHINI026.m

Go to the documentation of this file.
FHINI026	; ; 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,579,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,580,0)
	;;=SOUP, VEGETABLE W/BEEF BROTH, CND, PREP W/EQ VOL WATER^6-472^cups^241^100^N
	;;^UTILITY(U,$J,112,580,1)
	;;=1.23^.79^5.44^34^91.5^^^7^.4^3^16^80^336^.33^.064^.14^^867^1^.021
	;;^UTILITY(U,$J,112,580,2)
	;;=.019^.401^.14^.023^4^0^.28^.05^1^.18^.23^.33^87^1.04^^^.2
	;;^UTILITY(U,$J,112,580,3)
	;;=.009^.03^.038^.068^.052^.013^.01^.044^.024^.052^.057^.021^.071^.105^.352^.113^.094^.042
	;;^UTILITY(U,$J,112,580,4)
	;;=^^.01^.11^.01^.06^.22
	;;^UTILITY(U,$J,112,580,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,581,0)
	;;=SOUP, CREAM OF ASPARAGUS, DEHYDRATED, PREP W/WATER^6-473^cups^250.8^100^N
	;;^UTILITY(U,$J,112,581,1)
	;;=.88^.69^3.57^23^93.9^^^9^.2^1^12^53^319^.27^.051^.102^^108^.3^.02
	;;^UTILITY(U,$J,112,581,2)
	;;=.02^.2^.03^.003^3^.01^.24^.02^0^.02^.3^.26^11^.96
	;;^UTILITY(U,$J,112,581,4)
	;;=^^0^.07^0^.04^.29
	;;^UTILITY(U,$J,112,581,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,582,0)
	;;=SOUP, BEAN W/BACON, DEHYDRATED, PREP W/WATER^6-474^cups^264.9^100^N
	;;^UTILITY(U,$J,112,582,1)
	;;=2.07^.81^6.18^40^89.73^^^21^.5^11^34^123^350^.26^.1^.2^^20^.4^.02
	;;^UTILITY(U,$J,112,582,2)
	;;=.1^.15^.02^.01^3^.01^.05^.01^1^.36^.35^.06^2^1.21^^^3.4
	;;^UTILITY(U,$J,112,582,4)
	;;=0^0^.02^.2^.03^.13^.31
	;;^UTILITY(U,$J,112,582,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,583,0)
	;;=SOUP, BEEF BROTH OR BOUILLON, POWDER, PREP W/WATER^6-475^cups^244^100^N
	;;^UTILITY(U,$J,112,583,1)
	;;=.52^.29^.77^8^96.74^^^4^.01^3^10^15^558^.03^.006^.016^^2^0^.002
	;;^UTILITY(U,$J,112,583,2)
	;;=.008^.146^0^0^0^0^.009^.002^0^.141^.118^.011^0^1.67^^^0
	;;^UTILITY(U,$J,112,583,4)
	;;=^.003^.011^.073^.012^.055^.105
	;;^UTILITY(U,$J,112,583,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,584,0)
	;;=SOUP, BEEF BROTH, CUBED, PREP W/WATER^6-476^cups^241.3^100^N
	;;^UTILITY(U,$J,112,584,1)
	;;=.35^.08^.33^3^98.03^^^1^.05^1^5^8^480^.004^0^.008^^1^0^.004
	;;^UTILITY(U,$J,112,584,2)
	;;=.005^.067^.01^0^1^0^0^0^0^.04^.03^0^0^1.21^^^0
	;;^UTILITY(U,$J,112,584,4)
	;;=^0^0^.02^0^.02^.03
	;;^UTILITY(U,$J,112,584,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,585,0)
	;;=SOUP, BEEF NOODLE, DEHYDRATED, PREP W/WATER^6-477^cups^251^100^N
	;;^UTILITY(U,$J,112,585,1)
	;;=.88^.32^2.4^16^95.32^^^2^.13^4^16^32^415^.04^.02^.04^^3^.2^.049
	;;^UTILITY(U,$J,112,585,2)
	;;=.024^.275^.001^.014^.6^0^.06^.01^1^.1^.14^.07^0^1.09^^^.3
	;;^UTILITY(U,$J,112,585,4)
	;;=^0^.01^.06^.01^.04^.13
	;;^UTILITY(U,$J,112,585,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,586,0)
	;;=SOUP, CAULIFLOWER, DEHYDRATED, PREP W/WATER^6-478^cups^256.1^100^N
	;;^UTILITY(U,$J,112,586,1)
	;;=1.13^.67^4.19^27^92.93^^^4^.2^1^20^41^329^.1^.01^.02^^2^1^.03
	;;^UTILITY(U,$J,112,586,2)
	;;=.03^.2^.04^.01^1^.07^.23^.02^0^.1^.29^.25^0^1.08
	;;^UTILITY(U,$J,112,586,4)
	;;=^^0^.07^0^.03^.29
	;;^UTILITY(U,$J,112,586,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,587,0)
	;;=SOUP, CREAM OF CELERY, DEHYDRATED, PREP W/WATER^6-479^cups^254^100^N
	;;^UTILITY(U,$J,112,587,1)
	;;=1.03^.64^3.84^25^93.45^^^14^.2^2^13^43^330^.05^.05^.09^^106^.1^.01
	;;^UTILITY(U,$J,112,587,2)
	;;=.02^.12^.4^0^.8^.02^.22^.02^0^.1^.28^.24^11^1.04
	;;^UTILITY(U,$J,112,587,4)
	;;=^^0^.06^0^.03^.27
	;;^UTILITY(U,$J,112,587,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,588,0)
	;;=SOUP, CHICKEN BROTH OR BOUILLON, DEHYDRATED, PREP W/WATER^6-480^cups^244^100^N
	;;^UTILITY(U,$J,112,588,1)
	;;=.55^.45^.59^9^96.8^^^6^.03^2^5^10^608^.003^0^0^^16^0^.003
	;;^UTILITY(U,$J,112,588,2)
	;;=.014^.08^.02^0^1^.01^.14^0^0^.11^.17^.15^5^1.61^^^0
	;;^UTILITY(U,$J,112,588,4)
	;;=^0^0^.08^.02^.02^.15^^^0
	;;^UTILITY(U,$J,112,588,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,589,0)
	;;=SOUP, CHICKEN BROTH CUBES, DEHYDRATED, PREP W/WATER^6-481^cups^243^100^N
	;;^UTILITY(U,$J,112,589,1)
	;;=.39^.12^.62^5^97.43^^^5^.05^1^5^10^326^.005^0^.01^^7^0^.005
	;;^UTILITY(U,$J,112,589,2)
	;;=.01^.103^.02^0^1^.01^.04^0^0^.03^.05^.04^2^1.44
	;;^UTILITY(U,$J,112,589,4)
	;;=^0^0^.02^.01^.01^.04^0
	;;^UTILITY(U,$J,112,589,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,590,0)
	;;=SOUP, CREAM OF CHICKEN, DEHYDRATED, PREP W/WATER^6-483^cups^261.1^100^N
	;;^UTILITY(U,$J,112,590,1)
	;;=.68^2.04^5.11^41^90.94^^^29^.1^2^37^82^454^.6^.1^.3^^156^.2^.04
	;;^UTILITY(U,$J,112,590,2)
	;;=.078^1^.3^.02^2^.1^.16^^1^1.3^.45^.16^47^1.22^^^.1
	;;^UTILITY(U,$J,112,590,4)
	;;=.08^.52^.21^.29^.04^.19^.41
	;;^UTILITY(U,$J,112,590,20)
	;;=USDA Std. Reference, Release 10