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
FHINI03N ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,112,1156,0)
+2 ;;=CEREALS, GRITS, WHITE, REG&QUICK, ENR, WO/SLT, (CORN)^8-091^cups^242^100^N
+3 ;;^UTILITY(U,$J,112,1156,1)
+4 ;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^0^.07^.012^.017^.02^0^^.1
+5 ;;^UTILITY(U,$J,112,1156,2)
+6 ;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
+7 ;;^UTILITY(U,$J,112,1156,3)
+8 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+9 ;;^UTILITY(U,$J,112,1156,4)
+10 ;;=0^0^0^.02^0^0^.05^^^3.1
+11 ;;^UTILITY(U,$J,112,1156,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1157,0)
+14 ;;=CEREALS, GRITS, INSTANT, PLAIN, (CORN)^8-093^oz.^28.3^100^N
+15 ;;^UTILITY(U,$J,112,1157,1)
+16 ;;=1.5^.1^12.9^60^84.7^^^5^.74^4^12^21^250^.06^.01^^^0^0^.13
+17 ;;^UTILITY(U,$J,112,1157,2)
+18 ;;=.06^.95^.314^.024^1^0^^^0^^^^0^.7^^^.1
+19 ;;^UTILITY(U,$J,112,1157,4)
+20 ;;=^^^^^^^^^3.1
+21 ;;^UTILITY(U,$J,112,1157,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1158,0)
+24 ;;=CEREALS, GRITS, INSTANT, W/ART CHEESE FLAVOR, (CORN)^8-095^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,1158,1)
+26 ;;=1.9^.7^15^75^81.4^^^10^.82^5^17^28^339^.1^.012^^^6^0^.12
+27 ;;^UTILITY(U,$J,112,1158,2)
+28 ;;=.09^1.02^.37^.029^1^.005^^^.62^^^^2^1^^^.3
+29 ;;^UTILITY(U,$J,112,1158,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,1159,0)
+32 ;;=CEREALS, GRITS, INSTANT, W/IMITN BACON BITS, (CORN)^8-097^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,1159,1)
+34 ;;=2.1^.4^15.2^74^81.1^^^4^.92^7^20^43^377^.13^.024^^^0^0^.14
+35 ;;^UTILITY(U,$J,112,1159,2)
+36 ;;=.09^1.15^.043^.028^6^0^^^0^^^^0^1.2^^^.3
+37 ;;^UTILITY(U,$J,112,1159,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1160,0)
+40 ;;=CEREALS, GRITS, INSTANT, W/IMITN HAM BITS, (CORN,SOY)^8-099^oz.^28.3^100^N
+41 ;;^UTILITY(U,$J,112,1160,1)
+42 ;;=2.1^.3^15.2^73^81.1^^^5^1.07^6^23^37^466^.12^.019^^^0^0^.18
+43 ;;^UTILITY(U,$J,112,1160,2)
+44 ;;=.11^1.23^.523^.028^7^0^^^0^^^^0^1.3^^^.3
+45 ;;^UTILITY(U,$J,112,1160,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1161,0)
+48 ;;=CEREALS, CREAM OF RICE, WO/SALT, (RICE)^8-101^cups^244^100^N
+49 ;;^UTILITY(U,$J,112,1161,1)
+50 ;;=.9^.1^11.5^52^87.5^^^3^.2^3^17^20^1^.16^.034^.144^^0^0^0
+51 ;;^UTILITY(U,$J,112,1161,2)
+52 ;;=0^.4^.076^.027^3^0^^^0^^^^0^.1^^^.1
+53 ;;^UTILITY(U,$J,112,1161,3)
+54 ;;=.013^.044^.015^.073^.037^.026^.015^.037^.049^.057^.072^.026^.036^.08^.14^.05^.037^.04
+55 ;;^UTILITY(U,$J,112,1161,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1162,0)
+58 ;;=CEREALS, CREAM OF WHEAT, REGULAR, WO/SALT, (WHEAT)^8-103^cups^251^100^N
+59 ;;^UTILITY(U,$J,112,1162,1)
+60 ;;=1.5^.2^11^53^87.1^^^20^4.1^4^17^17^1^.13^.03^^^0^0^.1
+61 ;;^UTILITY(U,$J,112,1162,2)
+62 ;;=0^.6^.075^.014^4^0^^^0^^^^0^.1^^^.7
+63 ;;^UTILITY(U,$J,112,1162,3)
+64 ;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.073^.066^.035^.053^.071^.563^.059^.185^.085
+65 ;;^UTILITY(U,$J,112,1162,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1163,0)
+68 ;;=CEREALS, CREAM OF WHEAT, QUICK, WO/SALT, (WHEAT)^8-105^cups^239^100^N
+69 ;;^UTILITY(U,$J,112,1163,1)
+70 ;;=1.5^.2^11.2^54^86.6^^^21^4.3^5^42^19^58^.14^.028^^^0^0^.1
+71 ;;^UTILITY(U,$J,112,1163,2)
+72 ;;=0^.6^.071^.012^4^0^^^0^^^^0^.5^^^.5
+73 ;;^UTILITY(U,$J,112,1163,3)
+74 ;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.074^.066^.035^.053^.072^.566^.059^.186^.086
+75 ;;^UTILITY(U,$J,112,1163,4)
+76 ;;=^^^^^^^^^12.8
+77 ;;^UTILITY(U,$J,112,1163,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,1164,0)
+80 ;;=CEREALS, CREAM OF WHEAT, INSTANT, WO/SALT, (WHEAT)^8-107^cups^241^100^N
+81 ;;^UTILITY(U,$J,112,1164,1)
+82 ;;=1.8^.2^13.1^64^84.4^^^25^5^6^18^20^3^.17^.038^^^0^0^.1
+83 ;;^UTILITY(U,$J,112,1164,2)
+84 ;;=0^.7^.071^.012^4^0^^^0^^^^0^.4^^^1.2
+85 ;;^UTILITY(U,$J,112,1164,3)
+86 ;;=.025^.058^.08^.139^.047^.034^.041^.099^.058^.089^.079^.042^.064^.087^.683^.071^.224^.104
+87 ;;^UTILITY(U,$J,112,1164,4)
+88 ;;=^^^^^^^^^11.4
+89 ;;^UTILITY(U,$J,112,1164,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,1165,0)
+92 ;;=CEREALS, CREAM OF WHEAT, MIX'N EAT, PLAIN^8-109^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,1165,1)
+94 ;;=1.9^.2^15.1^72^82.1^^^14^5.7^5^14^27^170^.17^.029^^^882^0^.3
+95 ;;^UTILITY(U,$J,112,1165,2)
+96 ;;=.2^3.5^.092^.4^71^0^^^0^^^^265^.6^^^.3
+97 ;;^UTILITY(U,$J,112,1165,3)
+98 ;;=.027^.061^.085^.147^.051^.036^.044^.105^.062^.095^.086^.044^.068^.093^.715^.075^.236^.109
+99 ;;^UTILITY(U,$J,112,1165,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1166,0)
+102 ;;=CEREALS, CREAM OF WHEAT, MIX'N EAT, FRUIT FLAVORED^8-111^oz.^28.3^100^N
+103 ;;^UTILITY(U,$J,112,1166,1)
+104 ;;=1.6^.3^19.3^88^78.3^^^27^5.4^6^13^37^161^.15^.038^^^834^0^.3
+105 ;;^UTILITY(U,$J,112,1166,2)
+106 ;;=.2^3.3^.078^.3^67^0^^^0^^^^251^.6
+107 ;;^UTILITY(U,$J,112,1166,3)
+108 ;;=.023^.052^.071^.124^.043^.031^.037^.088^.052^.079^.073^.038^.058^.079^.6^.064^.196^.092