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

FHINI03O.m

Go to the documentation of this file.
FHINI03O	; ; 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,1166,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1167,0)
	;;=CEREALS, FARINA, ENR, WO/SALT, (WHEAT)^8-113^cups^233^100^N
	;;^UTILITY(U,$J,112,1167,1)
	;;=1.4^.1^10.6^50^87.9^^^2^.5^2^12^13^0^.07^.011^.094^^0^^.08
	;;^UTILITY(U,$J,112,1167,2)
	;;=.05^.55^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
	;;^UTILITY(U,$J,112,1167,3)
	;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
	;;^UTILITY(U,$J,112,1167,4)
	;;=^^0^.01^^0^.01^^^9.1
	;;^UTILITY(U,$J,112,1167,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1168,0)
	;;=CEREALS, MALTEX, WO/SALT, (WHEAT)^8-115^cups^249^100^N
	;;^UTILITY(U,$J,112,1168,1)
	;;=2.3^.4^15.9^72^81^^^7^.72^23^72^107^4^.75^.135^^^0^0^.1
	;;^UTILITY(U,$J,112,1168,2)
	;;=.04^.96^.093^.031^9^0^^^0^^^^0^.4^^^1.2
	;;^UTILITY(U,$J,112,1168,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1169,0)
	;;=CEREALS, MALT-O-MEAL, PLAIN & CHOC, WO/SLT, (WHEAT,BARLEY)^8-117^cups^240^100^N
	;;^UTILITY(U,$J,112,1169,1)
	;;=1.5^.1^10.8^51^87.6^^^2^4^2^10^13^1^.07^.011^^^0^0^.2
	;;^UTILITY(U,$J,112,1169,2)
	;;=.1^2.4^.058^.008^2^0^^^0^^^^0^.1^^^.4
	;;^UTILITY(U,$J,112,1169,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1170,0)
	;;=CEREALS, MAYPO, WO/SALT, (OATS W/OTHER GRNS)^8-119^cups^240^100^N
	;;^UTILITY(U,$J,112,1170,1)
	;;=2.4^1^13.3^71^82.7^^^52^3.5^21^103^88^4^.62^.066^^^974^12^.3
	;;^UTILITY(U,$J,112,1170,2)
	;;=.3^3.9^.141^.4^4^1.2^^^0^^^^293^.6^^^2.4
	;;^UTILITY(U,$J,112,1170,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1171,0)
	;;=CEREALS, OATS, REG & QUICK & INSTANT, WO/FORT, WO/SLT^8-121^cups^234^100^N
	;;^UTILITY(U,$J,112,1171,1)
	;;=2.6^1^10.8^62^85.3^^^8^.68^24^76^56^1^.49^.055^.585^^16^^.11
	;;^UTILITY(U,$J,112,1171,2)
	;;=.02^.13^.2^.02^4^0^.36^.02^0^.18^.32^.37^2^.3^^^1.7
	;;^UTILITY(U,$J,112,1171,3)
	;;=.036^.088^.106^.196^.107^.048^.062^.137^.088^.143^.182^.062^.135^.221^.567^.128^.143^.115
	;;^UTILITY(U,$J,112,1171,4)
	;;=^0^0^.15^0^.01^.32^^^8.1
	;;^UTILITY(U,$J,112,1171,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1172,0)
	;;=CEREALS, OATS, INSTANT, FORT, PLAIN, (OATS)^8-123^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1172,1)
	;;=2.5^1^10.2^59^85.5^^^92^3.56^24^75^56^161^.49^.055^.585^^853^0^.3
	;;^UTILITY(U,$J,112,1172,2)
	;;=.16^3.09^.2^.418^85^0^^^0^^^^256^.8^^^1.7
	;;^UTILITY(U,$J,112,1172,4)
	;;=^^^^^^^^^8.1
	;;^UTILITY(U,$J,112,1172,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1173,0)
	;;=CEREALS, OATS, INSTANT, FORT, W/APPLES & CINN, (OATS)^8-125^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1173,1)
	;;=2.6^1.1^17.7^91^77.8^^^106^4.07^23^79^72^149^.47^.059^^^973^0^.32
	;;^UTILITY(U,$J,112,1173,2)
	;;=.19^3.45^.237^.468^92^0^^^0^^^^292^.9
	;;^UTILITY(U,$J,112,1173,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1174,0)
	;;=CEREALS, OATS, INSTANT, FORT, W/BRAN&RSNS, (OATS,WHEAT BRAN)^8-127^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1174,1)
	;;=2.5^1^15.6^81^80^^^89^3.91^29^106^121^127^.69^.146^.815^^820^0^.29
	;;^UTILITY(U,$J,112,1174,2)
	;;=.33^4.17^.233^.391^80^0^^^0^^^^246^.9
	;;^UTILITY(U,$J,112,1174,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1175,0)
	;;=CEREALS, OATS, INSTANT, FORT, W/CINN & SPICE, (OATS)^8-129^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1175,1)
	;;=3^1.2^21.8^110^73.2^^^107^4.12^32^90^65^174^.6^.074^.915^^980^0^.35
	;;^UTILITY(U,$J,112,1175,2)
	;;=.21^3.51^.238^.476^95^0^^^0^^^^294^.9^^^1.6
	;;^UTILITY(U,$J,112,1175,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1176,0)
	;;=CEREALS, OATS, INSTANT, FORT, W/MAPL&BRN SUG FLAV, (OATS)^8-131^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1176,1)
	;;=3^1.2^20.6^105^74.3^^^104^4.1^27^92^66^180^.56^.062^^^969^0^.34
	;;^UTILITY(U,$J,112,1176,2)
	;;=.21^3.45^.204^.475^94^0^^^0^^^^291^.9
	;;^UTILITY(U,$J,112,1176,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1177,0)
	;;=CEREALS, OATS, INSTANT, FORT, W/RAISINS & SPICE, (OATS)^8-133^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1177,1)
	;;=2.7^1.1^20.2^102^75^^^105^4.17^23^84^95^143^.45^.063^^^929^0^.32
	;;^UTILITY(U,$J,112,1177,2)
	;;=.23^3.47^.237^.472^95^0^^^0^^^^279^.9^^^1.4
	;;^UTILITY(U,$J,112,1177,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1178,0)
	;;=CEREALS, RALSTON, WO/SALT, (OATS)^8-135^cups^253^100^N
	;;^UTILITY(U,$J,112,1178,1)
	;;=2.2^.3^11.2^53^86.1^^^5^.65^23^58^61^2^.56^.079^^^0^0^.08
	;;^UTILITY(U,$J,112,1178,2)
	;;=.07^.81^.13^.045^7^.043^^^0^^^^0^.3^^^2.4
	;;^UTILITY(U,$J,112,1178,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1179,0)
	;;=CEREALS, ROMAN MEAL, PLAIN, WO/SALT, (WHEAT W/OTHER GRNS)^8-137^cups^241^100^N