FHINI03R ; ; 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,1199,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1200,0)
;;=CEREALS, CREAM OF RICE, W/SALT, (RICE)^8-168^cups^244^100^N
;;^UTILITY(U,$J,112,1200,1)
;;=.9^.1^11.5^52^87.5^^^3^.2^3^17^20^173^.16^.034^.144^^0^0^0
;;^UTILITY(U,$J,112,1200,2)
;;=0^.4^.076^.027^3^0^^^0^^^^0^.1
;;^UTILITY(U,$J,112,1200,3)
;;=.013^.044^.015^.073^.037^.026^.015^.037^.049^.057^.072^.026^.036^.08^.14^.05^.037^.04
;;^UTILITY(U,$J,112,1200,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1201,0)
;;=CEREALS, CREAM OF WHEAT, REGULAR, W/SALT, (WHEAT)^8-169^cups^251^100^N
;;^UTILITY(U,$J,112,1201,1)
;;=1.5^.2^11^53^87.1^^^20^4.1^4^17^17^134^.13^.03^^^0^0^.1
;;^UTILITY(U,$J,112,1201,2)
;;=0^.6^.075^.014^4^0^^^0^^^^0^.1
;;^UTILITY(U,$J,112,1201,3)
;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.073^.066^.035^.053^.071^.563^.059^.185^.085
;;^UTILITY(U,$J,112,1201,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1202,0)
;;=CEREALS, CREAM OF WHEAT, QUICK, W/SALT, (WHEAT)^8-170^cups^239^100^N
;;^UTILITY(U,$J,112,1202,1)
;;=1.5^.2^11.2^54^86.6^^^21^4.3^5^42^19^194^.14^.028^^^0^0^.1
;;^UTILITY(U,$J,112,1202,2)
;;=0^.6^.071^.012^4^0^^^0^^^^0^.5
;;^UTILITY(U,$J,112,1202,3)
;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.074^.066^.035^.053^.072^.566^.059^.186^.086
;;^UTILITY(U,$J,112,1202,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1203,0)
;;=CEREALS, CREAM OF WHEAT, INSTANT, W/SALT, (WHEAT)^8-171^cups^241^100^N
;;^UTILITY(U,$J,112,1203,1)
;;=1.8^.2^13.1^64^84.4^^^25^5^6^18^20^151^.17^.038^^^0^0^.1
;;^UTILITY(U,$J,112,1203,2)
;;=0^.7^.071^.012^4^0^^^0^^^^0^.4
;;^UTILITY(U,$J,112,1203,3)
;;=.025^.058^.08^.139^.047^.034^.041^.099^.058^.089^.079^.042^.064^.087^.683^.071^.224^.104
;;^UTILITY(U,$J,112,1203,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1204,0)
;;=CEREALS, FARINA, ENR, W/SALT, (WHEAT)^8-173^cups^233^100^N
;;^UTILITY(U,$J,112,1204,1)
;;=1.4^.1^10.6^50^87.9^^^2^.5^2^12^13^329^.07^.011^.094^^0^0^.08
;;^UTILITY(U,$J,112,1204,2)
;;=.05^.55^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
;;^UTILITY(U,$J,112,1204,3)
;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
;;^UTILITY(U,$J,112,1204,4)
;;=^^0^.01^^0^.01
;;^UTILITY(U,$J,112,1204,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1205,0)
;;=CEREALS, FARINA, UNENR, WO/SALT, (WHEAT)^8-174^cups^233^100^N
;;^UTILITY(U,$J,112,1205,1)
;;=1.4^.1^10.6^50^87.9^^^2^.02^2^12^13^0^.07^.011^.094^^0^0^.01
;;^UTILITY(U,$J,112,1205,2)
;;=.01^.1^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
;;^UTILITY(U,$J,112,1205,3)
;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
;;^UTILITY(U,$J,112,1205,4)
;;=^^0^.01^^0^.01
;;^UTILITY(U,$J,112,1205,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1206,0)
;;=CEREALS, FARINA, UNENR, W/SALT, (WHEAT)^8-175^cups^233^100^N
;;^UTILITY(U,$J,112,1206,1)
;;=1.4^.1^10.6^50^87.9^^^2^.02^2^12^13^329^.07^.011^.094^^0^0^.01
;;^UTILITY(U,$J,112,1206,2)
;;=.01^.1^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
;;^UTILITY(U,$J,112,1206,3)
;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
;;^UTILITY(U,$J,112,1206,4)
;;=^^0^.01^^0^.01
;;^UTILITY(U,$J,112,1206,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1207,0)
;;=CEREALS, MALTEX, W/SALT (WHEAT)^8-176^cups^249^100^N
;;^UTILITY(U,$J,112,1207,1)
;;=2.3^.4^15.9^72^81^^^7^.72^23^72^107^76^.75^.135^^^0^0^.1
;;^UTILITY(U,$J,112,1207,2)
;;=.04^.96^.093^.031^9^0^^^0^^^^0^.4
;;^UTILITY(U,$J,112,1207,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1208,0)
;;=CEREALS, MALT-O-MEAL, PLAIN & CHOC, W/SALT, (WHEAT,BARLEY)^8-178^cups^240^100^N
;;^UTILITY(U,$J,112,1208,1)
;;=1.5^.1^10.8^51^87.6^^^2^4^2^10^13^135^.07^.011^^^0^0^.2
;;^UTILITY(U,$J,112,1208,2)
;;=.1^2.4^.058^.008^2^0^^^0^^^^0^.1
;;^UTILITY(U,$J,112,1208,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1209,0)
;;=CEREALS, MAYPO, W/SALT, (OATS W/OTHER GRNS)^8-179^cups^240^100^N
;;^UTILITY(U,$J,112,1209,1)
;;=2.4^1^13.3^71^82.7^^^52^3.5^21^103^88^108^.62^.066^^^974^12^.3
;;^UTILITY(U,$J,112,1209,2)
;;=.3^3.9^.141^.4^4^1.2^^^0^^^^293^.6
;;^UTILITY(U,$J,112,1209,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1210,0)
;;=CEREALS, OATS, REG & QUICK & INSTANT, WO/FORT, W/SALT^8-180^cups^234^100^N
;;^UTILITY(U,$J,112,1210,1)
;;=2.6^1^10.8^62^85.3^^^8^.68^24^76^56^160^.49^.055^.585^^16^0^.11
;;^UTILITY(U,$J,112,1210,2)
;;=.02^.13^.2^.02^4^0^.36^.02^0^.18^.32^.37^2^.3^^^1.7
FHINI03R ; ; 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,1199,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,1200,0)
+4 ;;=CEREALS, CREAM OF RICE, W/SALT, (RICE)^8-168^cups^244^100^N
+5 ;;^UTILITY(U,$J,112,1200,1)
+6 ;;=.9^.1^11.5^52^87.5^^^3^.2^3^17^20^173^.16^.034^.144^^0^0^0
+7 ;;^UTILITY(U,$J,112,1200,2)
+8 ;;=0^.4^.076^.027^3^0^^^0^^^^0^.1
+9 ;;^UTILITY(U,$J,112,1200,3)
+10 ;;=.013^.044^.015^.073^.037^.026^.015^.037^.049^.057^.072^.026^.036^.08^.14^.05^.037^.04
+11 ;;^UTILITY(U,$J,112,1200,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1201,0)
+14 ;;=CEREALS, CREAM OF WHEAT, REGULAR, W/SALT, (WHEAT)^8-169^cups^251^100^N
+15 ;;^UTILITY(U,$J,112,1201,1)
+16 ;;=1.5^.2^11^53^87.1^^^20^4.1^4^17^17^134^.13^.03^^^0^0^.1
+17 ;;^UTILITY(U,$J,112,1201,2)
+18 ;;=0^.6^.075^.014^4^0^^^0^^^^0^.1
+19 ;;^UTILITY(U,$J,112,1201,3)
+20 ;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.073^.066^.035^.053^.071^.563^.059^.185^.085
+21 ;;^UTILITY(U,$J,112,1201,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1202,0)
+24 ;;=CEREALS, CREAM OF WHEAT, QUICK, W/SALT, (WHEAT)^8-170^cups^239^100^N
+25 ;;^UTILITY(U,$J,112,1202,1)
+26 ;;=1.5^.2^11.2^54^86.6^^^21^4.3^5^42^19^194^.14^.028^^^0^0^.1
+27 ;;^UTILITY(U,$J,112,1202,2)
+28 ;;=0^.6^.071^.012^4^0^^^0^^^^0^.5
+29 ;;^UTILITY(U,$J,112,1202,3)
+30 ;;=.021^.048^.067^.115^.039^.028^.034^.082^.048^.074^.066^.035^.053^.072^.566^.059^.186^.086
+31 ;;^UTILITY(U,$J,112,1202,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1203,0)
+34 ;;=CEREALS, CREAM OF WHEAT, INSTANT, W/SALT, (WHEAT)^8-171^cups^241^100^N
+35 ;;^UTILITY(U,$J,112,1203,1)
+36 ;;=1.8^.2^13.1^64^84.4^^^25^5^6^18^20^151^.17^.038^^^0^0^.1
+37 ;;^UTILITY(U,$J,112,1203,2)
+38 ;;=0^.7^.071^.012^4^0^^^0^^^^0^.4
+39 ;;^UTILITY(U,$J,112,1203,3)
+40 ;;=.025^.058^.08^.139^.047^.034^.041^.099^.058^.089^.079^.042^.064^.087^.683^.071^.224^.104
+41 ;;^UTILITY(U,$J,112,1203,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,1204,0)
+44 ;;=CEREALS, FARINA, ENR, W/SALT, (WHEAT)^8-173^cups^233^100^N
+45 ;;^UTILITY(U,$J,112,1204,1)
+46 ;;=1.4^.1^10.6^50^87.9^^^2^.5^2^12^13^329^.07^.011^.094^^0^0^.08
+47 ;;^UTILITY(U,$J,112,1204,2)
+48 ;;=.05^.55^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
+49 ;;^UTILITY(U,$J,112,1204,3)
+50 ;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
+51 ;;^UTILITY(U,$J,112,1204,4)
+52 ;;=^^0^.01^^0^.01
+53 ;;^UTILITY(U,$J,112,1204,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1205,0)
+56 ;;=CEREALS, FARINA, UNENR, WO/SALT, (WHEAT)^8-174^cups^233^100^N
+57 ;;^UTILITY(U,$J,112,1205,1)
+58 ;;=1.4^.1^10.6^50^87.9^^^2^.02^2^12^13^0^.07^.011^.094^^0^0^.01
+59 ;;^UTILITY(U,$J,112,1205,2)
+60 ;;=.01^.1^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
+61 ;;^UTILITY(U,$J,112,1205,3)
+62 ;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
+63 ;;^UTILITY(U,$J,112,1205,4)
+64 ;;=^^0^.01^^0^.01
+65 ;;^UTILITY(U,$J,112,1205,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1206,0)
+68 ;;=CEREALS, FARINA, UNENR, W/SALT, (WHEAT)^8-175^cups^233^100^N
+69 ;;^UTILITY(U,$J,112,1206,1)
+70 ;;=1.4^.1^10.6^50^87.9^^^2^.02^2^12^13^329^.07^.011^.094^^0^0^.01
+71 ;;^UTILITY(U,$J,112,1206,2)
+72 ;;=.01^.1^.056^.01^2^0^.03^0^0^.01^.01^.03^0^.1^^^1.4
+73 ;;^UTILITY(U,$J,112,1206,3)
+74 ;;=.018^.038^.056^.098^.028^.022^.041^.07^.038^.061^.053^.029^.042^.059^.519^.046^.158^.068
+75 ;;^UTILITY(U,$J,112,1206,4)
+76 ;;=^^0^.01^^0^.01
+77 ;;^UTILITY(U,$J,112,1206,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,1207,0)
+80 ;;=CEREALS, MALTEX, W/SALT (WHEAT)^8-176^cups^249^100^N
+81 ;;^UTILITY(U,$J,112,1207,1)
+82 ;;=2.3^.4^15.9^72^81^^^7^.72^23^72^107^76^.75^.135^^^0^0^.1
+83 ;;^UTILITY(U,$J,112,1207,2)
+84 ;;=.04^.96^.093^.031^9^0^^^0^^^^0^.4
+85 ;;^UTILITY(U,$J,112,1207,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1208,0)
+88 ;;=CEREALS, MALT-O-MEAL, PLAIN & CHOC, W/SALT, (WHEAT,BARLEY)^8-178^cups^240^100^N
+89 ;;^UTILITY(U,$J,112,1208,1)
+90 ;;=1.5^.1^10.8^51^87.6^^^2^4^2^10^13^135^.07^.011^^^0^0^.2
+91 ;;^UTILITY(U,$J,112,1208,2)
+92 ;;=.1^2.4^.058^.008^2^0^^^0^^^^0^.1
+93 ;;^UTILITY(U,$J,112,1208,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1209,0)
+96 ;;=CEREALS, MAYPO, W/SALT, (OATS W/OTHER GRNS)^8-179^cups^240^100^N
+97 ;;^UTILITY(U,$J,112,1209,1)
+98 ;;=2.4^1^13.3^71^82.7^^^52^3.5^21^103^88^108^.62^.066^^^974^12^.3
+99 ;;^UTILITY(U,$J,112,1209,2)
+100 ;;=.3^3.9^.141^.4^4^1.2^^^0^^^^293^.6
+101 ;;^UTILITY(U,$J,112,1209,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1210,0)
+104 ;;=CEREALS, OATS, REG & QUICK & INSTANT, WO/FORT, W/SALT^8-180^cups^234^100^N
+105 ;;^UTILITY(U,$J,112,1210,1)
+106 ;;=2.6^1^10.8^62^85.3^^^8^.68^24^76^56^160^.49^.055^.585^^16^0^.11
+107 ;;^UTILITY(U,$J,112,1210,2)
+108 ;;=.02^.13^.2^.02^4^0^.36^.02^0^.18^.32^.37^2^.3^^^1.7
