FHINI03Q ; ; 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,1190,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1191,0)
;;=CEREALS, RICE, PUFFED, FORTIFIED, (RICE)^8-156^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1191,1)
;;=6.3^.5^89.8^402^3^^^6^31.7^25^98^113^3^1.03^.169^1.5^^0^0^2.6
;;^UTILITY(U,$J,112,1191,2)
;;=1.8^35.3^.32^.075^19^0^^^0^^^^0^.4
;;^UTILITY(U,$J,112,1191,3)
;;=.094^.318^.336^.526^.268^.189^.108^.27^.355^.411^.519^.191^.261^.583^1.015^.366^.266^.287
;;^UTILITY(U,$J,112,1191,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1192,0)
;;=CEREALS, WHEAT, PUFFED, FORTIFIED, (RICE)^8-157^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1192,1)
;;=14.7^1.2^79.6^364^3^^^28^31.7^145^355^348^4^2.36^.409^1.755^^0^0^2.6
;;^UTILITY(U,$J,112,1192,2)
;;=1.8^35.3^.518^.17^32^0^^^0^^^^0^1.5
;;^UTILITY(U,$J,112,1192,3)
;;=.226^.45^.626^1.064^.405^.257^.289^.762^.445^.702^.712^.38^.548^.823^4.972^.576^1.537^.808
;;^UTILITY(U,$J,112,1192,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1193,0)
;;=CEREALS, GRITS, WHITE, REG&QUICK, ENR, W/SALT, (CORN)^8-161^cups^242^100^N
;;^UTILITY(U,$J,112,1193,1)
;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^223^.07^.012^.017^.02^0^0^.1
;;^UTILITY(U,$J,112,1193,2)
;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
;;^UTILITY(U,$J,112,1193,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1193,4)
;;=0^0^0^.02^0^0^.05
;;^UTILITY(U,$J,112,1193,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1194,0)
;;=CEREALS, GRITS, WHITE, REG&QUICK, UNENR, WO/SALT, (CORN)^8-162^cups^242^100^N
;;^UTILITY(U,$J,112,1194,1)
;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^0^.07^.012^.017^.02^0^0^.02
;;^UTILITY(U,$J,112,1194,2)
;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
;;^UTILITY(U,$J,112,1194,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1194,4)
;;=0^0^0^.02^0^0^.05
;;^UTILITY(U,$J,112,1194,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1195,0)
;;=CEREALS, GRITS, WHITE, REG&QUICK, UNENR, W/SALT, (CORN)^8-163^cups^242^100^N
;;^UTILITY(U,$J,112,1195,1)
;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^223^.07^.012^.017^.02^0^0^.02
;;^UTILITY(U,$J,112,1195,2)
;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
;;^UTILITY(U,$J,112,1195,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1195,4)
;;=0^0^0^.02^0^0^.05
;;^UTILITY(U,$J,112,1195,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1196,0)
;;=CEREALS, GRITS, YELLOW, REG&QUICK, ENR, WO/SLT, (CORN)^8-164^cups^242^100^N
;;^UTILITY(U,$J,112,1196,1)
;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^0^.07^.012^.017^.02^60^0^.1
;;^UTILITY(U,$J,112,1196,2)
;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
;;^UTILITY(U,$J,112,1196,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1196,4)
;;=0^0^0^.02^0^0^.05
;;^UTILITY(U,$J,112,1196,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1197,0)
;;=CEREALS, GRITS, YELLOW, REG&QUICK, ENR, W/SALT, (CORN)^8-165^cups^242^100^N
;;^UTILITY(U,$J,112,1197,1)
;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^223^.07^.012^.017^.02^60^0^.1
;;^UTILITY(U,$J,112,1197,2)
;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
;;^UTILITY(U,$J,112,1197,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1197,4)
;;=0^0^0^.02^0^0^.05
;;^UTILITY(U,$J,112,1197,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1198,0)
;;=CEREALS, GRITS, YELLOW, REG&QUICK, UNENR, WO/SLT, (CORN)^8-166^cups^242^100^N
;;^UTILITY(U,$J,112,1198,1)
;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^0^.07^.012^.017^.02^60^0^.02
;;^UTILITY(U,$J,112,1198,2)
;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
;;^UTILITY(U,$J,112,1198,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1198,4)
;;=0^0^0^.02^0^0^.05
;;^UTILITY(U,$J,112,1198,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1199,0)
;;=CEREALS, GRITS, YELLOW, REG&QUICK, UNENR, W/SALT, (CORN)^8-167^cups^242^100^N
;;^UTILITY(U,$J,112,1199,1)
;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^223^.07^.012^.017^.02^60^0^.02
;;^UTILITY(U,$J,112,1199,2)
;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
;;^UTILITY(U,$J,112,1199,3)
;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
;;^UTILITY(U,$J,112,1199,4)
;;=0^0^0^.02^0^0^.05
FHINI03Q ; ; 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,1190,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,1191,0)
+4 ;;=CEREALS, RICE, PUFFED, FORTIFIED, (RICE)^8-156^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,1191,1)
+6 ;;=6.3^.5^89.8^402^3^^^6^31.7^25^98^113^3^1.03^.169^1.5^^0^0^2.6
+7 ;;^UTILITY(U,$J,112,1191,2)
+8 ;;=1.8^35.3^.32^.075^19^0^^^0^^^^0^.4
+9 ;;^UTILITY(U,$J,112,1191,3)
+10 ;;=.094^.318^.336^.526^.268^.189^.108^.27^.355^.411^.519^.191^.261^.583^1.015^.366^.266^.287
+11 ;;^UTILITY(U,$J,112,1191,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1192,0)
+14 ;;=CEREALS, WHEAT, PUFFED, FORTIFIED, (RICE)^8-157^oz.^28.3^100^N
+15 ;;^UTILITY(U,$J,112,1192,1)
+16 ;;=14.7^1.2^79.6^364^3^^^28^31.7^145^355^348^4^2.36^.409^1.755^^0^0^2.6
+17 ;;^UTILITY(U,$J,112,1192,2)
+18 ;;=1.8^35.3^.518^.17^32^0^^^0^^^^0^1.5
+19 ;;^UTILITY(U,$J,112,1192,3)
+20 ;;=.226^.45^.626^1.064^.405^.257^.289^.762^.445^.702^.712^.38^.548^.823^4.972^.576^1.537^.808
+21 ;;^UTILITY(U,$J,112,1192,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1193,0)
+24 ;;=CEREALS, GRITS, WHITE, REG&QUICK, ENR, W/SALT, (CORN)^8-161^cups^242^100^N
+25 ;;^UTILITY(U,$J,112,1193,1)
+26 ;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^223^.07^.012^.017^.02^0^0^.1
+27 ;;^UTILITY(U,$J,112,1193,2)
+28 ;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
+29 ;;^UTILITY(U,$J,112,1193,3)
+30 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+31 ;;^UTILITY(U,$J,112,1193,4)
+32 ;;=0^0^0^.02^0^0^.05
+33 ;;^UTILITY(U,$J,112,1193,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1194,0)
+36 ;;=CEREALS, GRITS, WHITE, REG&QUICK, UNENR, WO/SALT, (CORN)^8-162^cups^242^100^N
+37 ;;^UTILITY(U,$J,112,1194,1)
+38 ;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^0^.07^.012^.017^.02^0^0^.02
+39 ;;^UTILITY(U,$J,112,1194,2)
+40 ;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
+41 ;;^UTILITY(U,$J,112,1194,3)
+42 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+43 ;;^UTILITY(U,$J,112,1194,4)
+44 ;;=0^0^0^.02^0^0^.05
+45 ;;^UTILITY(U,$J,112,1194,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1195,0)
+48 ;;=CEREALS, GRITS, WHITE, REG&QUICK, UNENR, W/SALT, (CORN)^8-163^cups^242^100^N
+49 ;;^UTILITY(U,$J,112,1195,1)
+50 ;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^223^.07^.012^.017^.02^0^0^.02
+51 ;;^UTILITY(U,$J,112,1195,2)
+52 ;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^0^.1^^^.2
+53 ;;^UTILITY(U,$J,112,1195,3)
+54 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+55 ;;^UTILITY(U,$J,112,1195,4)
+56 ;;=0^0^0^.02^0^0^.05
+57 ;;^UTILITY(U,$J,112,1195,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1196,0)
+60 ;;=CEREALS, GRITS, YELLOW, REG&QUICK, ENR, WO/SLT, (CORN)^8-164^cups^242^100^N
+61 ;;^UTILITY(U,$J,112,1196,1)
+62 ;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^0^.07^.012^.017^.02^60^0^.1
+63 ;;^UTILITY(U,$J,112,1196,2)
+64 ;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
+65 ;;^UTILITY(U,$J,112,1196,3)
+66 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+67 ;;^UTILITY(U,$J,112,1196,4)
+68 ;;=0^0^0^.02^0^0^.05
+69 ;;^UTILITY(U,$J,112,1196,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1197,0)
+72 ;;=CEREALS, GRITS, YELLOW, REG&QUICK, ENR, W/SALT, (CORN)^8-165^cups^242^100^N
+73 ;;^UTILITY(U,$J,112,1197,1)
+74 ;;=1.4^.2^13^60^85.3^^^0^.64^4^12^22^223^.07^.012^.017^.02^60^0^.1
+75 ;;^UTILITY(U,$J,112,1197,2)
+76 ;;=.06^.81^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
+77 ;;^UTILITY(U,$J,112,1197,3)
+78 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+79 ;;^UTILITY(U,$J,112,1197,4)
+80 ;;=0^0^0^.02^0^0^.05
+81 ;;^UTILITY(U,$J,112,1197,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1198,0)
+84 ;;=CEREALS, GRITS, YELLOW, REG&QUICK, UNENR, WO/SLT, (CORN)^8-166^cups^242^100^N
+85 ;;^UTILITY(U,$J,112,1198,1)
+86 ;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^0^.07^.012^.017^.02^60^0^.02
+87 ;;^UTILITY(U,$J,112,1198,2)
+88 ;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
+89 ;;^UTILITY(U,$J,112,1198,3)
+90 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+91 ;;^UTILITY(U,$J,112,1198,4)
+92 ;;=0^0^0^.02^0^0^.05
+93 ;;^UTILITY(U,$J,112,1198,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1199,0)
+96 ;;=CEREALS, GRITS, YELLOW, REG&QUICK, UNENR, W/SALT, (CORN)^8-167^cups^242^100^N
+97 ;;^UTILITY(U,$J,112,1199,1)
+98 ;;=1.4^.2^13^60^85.3^^^0^.2^4^12^22^223^.07^.012^.017^.02^60^0^.02
+99 ;;^UTILITY(U,$J,112,1199,2)
+100 ;;=.01^.2^.064^.024^1^0^.08^0^0^.03^.05^.08^6^.1^^^.2
+101 ;;^UTILITY(U,$J,112,1199,3)
+102 ;;=.01^.054^.051^.175^.04^.03^.026^.07^.058^.072^.071^.044^.107^.099^.268^.059^.125^.068
+103 ;;^UTILITY(U,$J,112,1199,4)
+104 ;;=0^0^0^.02^0^0^.05
