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

FHINI046.m

Go to the documentation of this file.
FHINI046	; ; 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,1368,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1369,0)
	;;=OKRA, CKD W/SALT^11-803^cups^160^100^N
	;;^UTILITY(U,$J,112,1369,1)
	;;=1.87^.17^7.21^32^89.91^^^63^.45^57^56^322^241^.55^.086^.911^^575^16.3^.132
	;;^UTILITY(U,$J,112,1369,2)
	;;=.055^.871^.213^.187^45.7^0^.045^.001^0^.045^.028^.046^58^.84
	;;^UTILITY(U,$J,112,1369,3)
	;;=.016^.061^.065^.098^.075^.02^.018^.061^.081^.085^.078^.029^.068^.135^.253^.041^.042^.041
	;;^UTILITY(U,$J,112,1369,4)
	;;=^^0^.038^0^.004^.028^0
	;;^UTILITY(U,$J,112,1369,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1370,0)
	;;=OKRA, FRZ, CKD WO/SALT^11-281^cups^185^100^N
	;;^UTILITY(U,$J,112,1370,1)
	;;=2.08^.3^8.17^37^91.12^^^96^.67^51^46^234^3^.62^.097^1.021^^514^12.2^.099
	;;^UTILITY(U,$J,112,1370,2)
	;;=.123^.785^.24^.047^145.6^0^.079^.002^0^.079^.05^.081^51^.75^^^4.5
	;;^UTILITY(U,$J,112,1370,3)
	;;=.017^.068^.072^.109^.084^.022^.02^.068^.091^.095^.087^.033^.075^.151^.282^.046^.046^.045
	;;^UTILITY(U,$J,112,1370,4)
	;;=^^0^.068^.001^.008^.05^0
	;;^UTILITY(U,$J,112,1370,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,1371,0)
	;;=OKRA, FRZ, CKD W/SALT^11-804^cups^185^100^N
	;;^UTILITY(U,$J,112,1371,1)
	;;=2.08^.3^8.17^37^91.12^^^96^.67^51^46^234^239^.62^.097^1.021^^514^12.2^.099
	;;^UTILITY(U,$J,112,1371,2)
	;;=.123^.785^.24^.047^145.6^0^.079^.002^0^.079^.05^.081^51^.75
	;;^UTILITY(U,$J,112,1371,3)
	;;=.017^.068^.072^.109^.084^.022^.02^.068^.091^.095^.087^.033^.075^.151^.282^.046^.046^.045
	;;^UTILITY(U,$J,112,1371,4)
	;;=^^0^.068^.001^.008^.05^0
	;;^UTILITY(U,$J,112,1371,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1372,0)
	;;=OLIVES, CND OR BOTTLED, GREEN^1406-0^olives^3.86^100^N
	;;^UTILITY(U,$J,112,1372,1)
	;;=1.4^12.7^1.3^116^78.2^^^61^1.6^^17^55^2400^^^^^300^0^0
	;;^UTILITY(U,$J,112,1372,2)
	;;=0^0^^^^^.89^^0^1.4^^^^6.4^^^2.6
	;;^UTILITY(U,$J,112,1372,4)
	;;=^^^^^^9.65
	;;^UTILITY(U,$J,112,1372,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1373,0)
	;;=OLIVES, CND OR BOTTLED, RIPE, (ASCOLANO), GIANT^1407-0^olives^5.59^^N
	;;^UTILITY(U,$J,112,1373,1)
	;;=1.1^13.8^2.6^129^80^^^84^1.6^^16^34^813^^^^^60^0^0
	;;^UTILITY(U,$J,112,1373,2)
	;;=0^0^^^^^.97^^0^1.52
	;;^UTILITY(U,$J,112,1373,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1374,0)
	;;=OLIVES, CND OR BOTTLED, RIPE, (MANZANILLA)^9-193^olives^3.44^100^N
	;;^UTILITY(U,$J,112,1374,1)
	;;=.84^10.68^6.26^115^79.99^^^88^3.3^4^3^8^872^.22^.251^.02^^403^.9^.003
	;;^UTILITY(U,$J,112,1374,2)
	;;=0^.037^.015^.009^0^0^.847^.064^0^1.415^7.888^.911^40^2.23
	;;^UTILITY(U,$J,112,1374,3)
	;;=^.026^.031^.05^.032^.012^^.029^.023^.038^.067^.023^.043^.092^.093^.049^.04^.031
	;;^UTILITY(U,$J,112,1374,4)
	;;=^^0^1.179^.086^.236^7.77^^^.9
	;;^UTILITY(U,$J,112,1374,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1375,0)
	;;=OLIVES, CND OR BOTTLED, RIPE, (MISSION)^1409-0^olives^3.44^^N
	;;^UTILITY(U,$J,112,1375,1)
	;;=1.2^20.1^3.2^184^73^^^106^1.7^^17^27^750^^^^^70^0^0
	;;^UTILITY(U,$J,112,1375,2)
	;;=0^0^^^^^1.41^^0^2.21
	;;^UTILITY(U,$J,112,1375,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1376,0)
	;;=OLIVES, CND OR BOTTLED, RIPE, (SEVILLANO), GIANT^1410-0^olives^8.17^^N
	;;^UTILITY(U,$J,112,1376,1)
	;;=1.1^9.5^2.7^93^84.4^^^74^1.6^^20^44^828^^^^^60^0^0
	;;^UTILITY(U,$J,112,1376,2)
	;;=0^0^^^^^.66^^0^1.04
	;;^UTILITY(U,$J,112,1376,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1377,0)
	;;=OLIVES, RIPE, SALT-CURED, OIL-COATED, GREEK STYLE^1411-0^olives^1.92^100^N
	;;^UTILITY(U,$J,112,1377,1)
	;;=2.2^35.8^8.7^338^43.8^^^84^1.6^^29^34^3288^^^^^60^0^0
	;;^UTILITY(U,$J,112,1377,2)
	;;=0^0^^^^^2.51^^0^3.94^^^^9.5
	;;^UTILITY(U,$J,112,1377,4)
	;;=^^^^^^27.21
	;;^UTILITY(U,$J,112,1377,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1378,0)
	;;=ONIONS, YEL, RAW^11-282^cups^170^90^N
	;;^UTILITY(U,$J,112,1378,1)
	;;=1.16^.16^8.63^38^89.68^^^20^.22^10^33^157^3^.19^.06^.137^.31^0^6.4^.042
	;;^UTILITY(U,$J,112,1378,2)
	;;=.02^.148^.106^.116^19^0^.059^.003^0^.026^.023^.062^0^.37^^^2.1
	;;^UTILITY(U,$J,112,1378,3)
	;;=.017^.028^.041^.041^.055^.01^.021^.03^.029^.027^.156^.019^.032^.063^.187^.048^.036^.034
	;;^UTILITY(U,$J,112,1378,4)
	;;=^^.001^.024^^.002^.023^^2^.6
	;;^UTILITY(U,$J,112,1378,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,1380,0)
	;;=ONIONS, YEL, CKD WO/SALT^11-283^cups^210^100^N
	;;^UTILITY(U,$J,112,1380,1)
	;;=1.36^.19^10.15^44^87.86^^^22^.24^11^35^166^3^.21^.067^.153^^0^5.2^.042