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

FHINI03N.m

Go to the documentation of this file.
FHINI03N	; ; 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,1156,0)
	;;=CEREALS, GRITS, WHITE, REG&QUICK, ENR, WO/SLT, (CORN)^8-091^cups^242^100^N
	;;^UTILITY(U,$J,112,1156,1)
	;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^0^.07^.012^.017^.02^0^^.1
	;;^UTILITY(U,$J,112,1156,2)
	;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
	;;^UTILITY(U,$J,112,1156,3)
	;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
	;;^UTILITY(U,$J,112,1156,4)
	;;=0^0^0^.02^0^0^.05^^^3.1
	;;^UTILITY(U,$J,112,1156,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1157,0)
	;;=CEREALS, GRITS, INSTANT, PLAIN, (CORN)^8-093^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1157,1)
	;;=1.5^.1^12.9^60^84.7^^^5^.74^4^12^21^250^.06^.01^^^0^0^.13
	;;^UTILITY(U,$J,112,1157,2)
	;;=.06^.95^.314^.024^1^0^^^0^^^^0^.7^^^.1
	;;^UTILITY(U,$J,112,1157,4)
	;;=^^^^^^^^^3.1
	;;^UTILITY(U,$J,112,1157,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1158,0)
	;;=CEREALS, GRITS, INSTANT, W/ART CHEESE FLAVOR, (CORN)^8-095^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1158,1)
	;;=1.9^.7^15^75^81.4^^^10^.82^5^17^28^339^.1^.012^^^6^0^.12
	;;^UTILITY(U,$J,112,1158,2)
	;;=.09^1.02^.37^.029^1^.005^^^.62^^^^2^1^^^.3
	;;^UTILITY(U,$J,112,1158,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1159,0)
	;;=CEREALS, GRITS, INSTANT, W/IMITN BACON BITS, (CORN)^8-097^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1159,1)
	;;=2.1^.4^15.2^74^81.1^^^4^.92^7^20^43^377^.13^.024^^^0^0^.14
	;;^UTILITY(U,$J,112,1159,2)
	;;=.09^1.15^.043^.028^6^0^^^0^^^^0^1.2^^^.3
	;;^UTILITY(U,$J,112,1159,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1160,0)
	;;=CEREALS, GRITS, INSTANT, W/IMITN HAM BITS, (CORN,SOY)^8-099^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1160,1)
	;;=2.1^.3^15.2^73^81.1^^^5^1.07^6^23^37^466^.12^.019^^^0^0^.18
	;;^UTILITY(U,$J,112,1160,2)
	;;=.11^1.23^.523^.028^7^0^^^0^^^^0^1.3^^^.3
	;;^UTILITY(U,$J,112,1160,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1161,0)
	;;=CEREALS, CREAM OF RICE, WO/SALT, (RICE)^8-101^cups^244^100^N
	;;^UTILITY(U,$J,112,1161,1)
	;;=.9^.1^11.5^52^87.5^^^3^.2^3^17^20^1^.16^.034^.144^^0^0^0
	;;^UTILITY(U,$J,112,1161,2)
	;;=0^.4^.076^.027^3^0^^^0^^^^0^.1^^^.1
	;;^UTILITY(U,$J,112,1161,3)
	;;=.013^.044^.015^.073^.037^.026^.015^.037^.049^.057^.072^.026^.036^.08^.14^.05^.037^.04
	;;^UTILITY(U,$J,112,1161,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1162,0)
	;;=CEREALS, CREAM OF WHEAT, REGULAR, WO/SALT, (WHEAT)^8-103^cups^251^100^N
	;;^UTILITY(U,$J,112,1162,1)
	;;=1.5^.2^11^53^87.1^^^20^4.1^4^17^17^1^.13^.03^^^0^0^.1
	;;^UTILITY(U,$J,112,1162,2)
	;;=0^.6^.075^.014^4^0^^^0^^^^0^.1^^^.7
	;;^UTILITY(U,$J,112,1162,3)
	;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.073^.066^.035^.053^.071^.563^.059^.185^.085
	;;^UTILITY(U,$J,112,1162,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1163,0)
	;;=CEREALS, CREAM OF WHEAT, QUICK, WO/SALT, (WHEAT)^8-105^cups^239^100^N
	;;^UTILITY(U,$J,112,1163,1)
	;;=1.5^.2^11.2^54^86.6^^^21^4.3^5^42^19^58^.14^.028^^^0^0^.1
	;;^UTILITY(U,$J,112,1163,2)
	;;=0^.6^.071^.012^4^0^^^0^^^^0^.5^^^.5
	;;^UTILITY(U,$J,112,1163,3)
	;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.074^.066^.035^.053^.072^.566^.059^.186^.086
	;;^UTILITY(U,$J,112,1163,4)
	;;=^^^^^^^^^12.8
	;;^UTILITY(U,$J,112,1163,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1164,0)
	;;=CEREALS, CREAM OF WHEAT, INSTANT, WO/SALT, (WHEAT)^8-107^cups^241^100^N
	;;^UTILITY(U,$J,112,1164,1)
	;;=1.8^.2^13.1^64^84.4^^^25^5^6^18^20^3^.17^.038^^^0^0^.1
	;;^UTILITY(U,$J,112,1164,2)
	;;=0^.7^.071^.012^4^0^^^0^^^^0^.4^^^1.2
	;;^UTILITY(U,$J,112,1164,3)
	;;=.025^.058^.08^.139^.047^.034^.041^.099^.058^.089^.079^.042^.064^.087^.683^.071^.224^.104
	;;^UTILITY(U,$J,112,1164,4)
	;;=^^^^^^^^^11.4
	;;^UTILITY(U,$J,112,1164,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1165,0)
	;;=CEREALS, CREAM OF WHEAT, MIX'N EAT, PLAIN^8-109^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1165,1)
	;;=1.9^.2^15.1^72^82.1^^^14^5.7^5^14^27^170^.17^.029^^^882^0^.3
	;;^UTILITY(U,$J,112,1165,2)
	;;=.2^3.5^.092^.4^71^0^^^0^^^^265^.6^^^.3
	;;^UTILITY(U,$J,112,1165,3)
	;;=.027^.061^.085^.147^.051^.036^.044^.105^.062^.095^.086^.044^.068^.093^.715^.075^.236^.109
	;;^UTILITY(U,$J,112,1165,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1166,0)
	;;=CEREALS, CREAM OF WHEAT, MIX'N EAT, FRUIT FLAVORED^8-111^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1166,1)
	;;=1.6^.3^19.3^88^78.3^^^27^5.4^6^13^37^161^.15^.038^^^834^0^.3
	;;^UTILITY(U,$J,112,1166,2)
	;;=.2^3.3^.078^.3^67^0^^^0^^^^251^.6
	;;^UTILITY(U,$J,112,1166,3)
	;;=.023^.052^.071^.124^.043^.031^.037^.088^.052^.079^.073^.038^.058^.079^.6^.064^.196^.092