FHINI03J ; ; 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,1115,1)
;;=10.3^1^82.5^359^5.1^^^33^6.3^82^261^341^29^5.3^.46^2.903^^4409^53^1.3
;;^UTILITY(U,$J,112,1115,2)
;;=1.5^17.6^.694^1.8^353^0^^^0^^^^1324^1.2^^^7.6
;;^UTILITY(U,$J,112,1115,4)
;;=^^^^^^^^^4.1
;;^UTILITY(U,$J,112,1115,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1116,0)
;;=CEREALS, FROSTED RICE KRISPIES, (RICE)^8-032^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1116,1)
;;=4.8^.3^90.5^383^2.6^^^4^6.3^18^95^74^845^1.1^.25^1.087^^4409^53^1.3
;;^UTILITY(U,$J,112,1116,2)
;;=1.5^17.6^.452^1.8^353^0^^^0^^^^1324^1.8^^^.7
;;^UTILITY(U,$J,112,1116,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1117,0)
;;=CEREALS, GRANOLA, HOMEMADE, (OATS,WHEAT GERM)^8-037^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1117,1)
;;=12.3^27.2^55.2^487^3.3^^^62^3.97^116^405^502^10^3.66^.573^^^35^1^.6
;;^UTILITY(U,$J,112,1117,2)
;;=.25^1.75^.603^.351^81^0^13.43^.67^0^4.79^7.68^14.11^^2.1^^^10.5
;;^UTILITY(U,$J,112,1117,3)
;;=.148^.449^.54^.88^.534^.21^.252^.591^.389^.666^1.097^.306^.594^.852^1.94^.533^.52^.427
;;^UTILITY(U,$J,112,1117,4)
;;=.11^.81^.37^2.68^.05^.61^7.63
;;^UTILITY(U,$J,112,1117,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1118,0)
;;=CEREALS, GRAPE-NUTS, (WHEAT,BARLEY)^8-038^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1118,1)
;;=11.7^.4^82^357^3.2^^^9.5^4.34^67^251^334^695^2.2^.33^2.43^^4409^0^1.3
;;^UTILITY(U,$J,112,1118,2)
;;=1.5^17.6^.954^1.8^353^5.3^^^0^^^^1324^2.7^^^10.1
;;^UTILITY(U,$J,112,1118,3)
;;=.213^.374^.478^.83^.358^.197^.232^.593^.359^.585^.595^.281^.45^.667^3.722^.507^1.239^.636
;;^UTILITY(U,$J,112,1118,4)
;;=^^^^^^^^^9.6
;;^UTILITY(U,$J,112,1118,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1119,0)
;;=CEREALS, GRAPE-NUTS FLAKES, (WHEAT,BARLEY)^8-039^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1119,1)
;;=10.7^1.1^81.8^358^3.4^^^40^28.6^110^298^348^564^2^.407^2.64^^4409^0^1.3
;;^UTILITY(U,$J,112,1119,2)
;;=1.5^17.6^1.03^1.8^353^5.3^^^0^^^^1324^3^^^9.9
;;^UTILITY(U,$J,112,1119,3)
;;=.194^.342^.437^.76^.327^.18^.213^.543^.329^.535^.545^.257^.411^.61^3.413^.465^1.136^.583
;;^UTILITY(U,$J,112,1119,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1120,0)
;;=CEREALS, HEARTLAND NATURAL CEREAL, PLAIN, (OATS,WHEAT GERM)^8-040^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1120,1)
;;=10.1^15.4^68.3^434^4.1^^^65^3.77^128^362^335^255^2.64^.258^^^56^1^.31
;;^UTILITY(U,$J,112,1120,2)
;;=.14^1.4^.831^.169^56^0^^^0^^^^^2.1^^^6.1
;;^UTILITY(U,$J,112,1120,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1121,0)
;;=CEREALS, HEARTLAND NATURAL CEREAL, W/COCNT^8-041^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1121,1)
;;=10.4^16.3^67.9^441^3.3^^^63^5.13^131^362^366^203^2.61^.507^^^54^1^.33
;;^UTILITY(U,$J,112,1121,2)
;;=.14^1.7^.8^.157^54^0^^^0^^^^^2.1^^^7.1
;;^UTILITY(U,$J,112,1121,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1122,0)
;;=CEREALS, HEARTLAND NATURAL CEREAL, W/RAISNS^8-042^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1122,1)
;;=9.7^14.2^69^425^5^^^60^3.65^128^342^377^205^2.57^.42^^^57^1^.29
;;^UTILITY(U,$J,112,1122,2)
;;=.13^1.4^.823^.18^40^0^^^0^^^^^2.1^^^5.5
;;^UTILITY(U,$J,112,1122,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1123,0)
;;=CEREALS, HONEY & NUT CORN FLAKES, (CORN)^8-043^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1123,1)
;;=6.4^5.5^82.2^398^4^^^12^6.3^20^46^126^794^.38^.123^.253^^4409^53^1.3
;;^UTILITY(U,$J,112,1123,2)
;;=1.5^17.6^.506^1.8^353^0^^^0^^^^1324^2^^^1.2
;;^UTILITY(U,$J,112,1123,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1124,0)
;;=CEREALS, HONEYBRAN, (WHEAT)^8-044^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1124,1)
;;=8.8^2.1^81.8^341^2.5^^^46^15.9^131^377^430^578^2.58^.476^3.83^^4409^53^1.3
;;^UTILITY(U,$J,112,1124,2)
;;=1.5^17.6^.564^1.8^67^5.3^^^0^^^^1324^4.8^^^11.1
;;^UTILITY(U,$J,112,1124,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1125,0)
;;=CEREALS, HONEY NUT CHEERIOS, (OAT,WHEAT)^8-045^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1125,1)
;;=11^2.3^80.3^378^3.2^^^70^15.9^117^371^349^905^2.62^.7^^^4409^53^1.3
;;^UTILITY(U,$J,112,1125,2)
;;=1.5^17.6^.69^1.8^65^5.3^.86^.05^0^.4^.94^.92^1324^3.3^^^4.4
;;^UTILITY(U,$J,112,1125,3)
;;=.277^.403^.48^1.295^.513^.191^.263^.564^.382^.623^.847^.267^.625^.98^2.369^.62^.613^.52
;;^UTILITY(U,$J,112,1125,4)
;;=^^.01^.33^.01^.05^.94^^^23.5
;;^UTILITY(U,$J,112,1125,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1126,0)
;;=CEREALS, HONEYCOMB, (CORN,OATS)^8-046^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1126,1)
;;=5.8^1.8^89.1^391^1.4^^^17^9.5^34^99^320^563^5.3^.174^.647^^4409^0^1.3
FHINI03J ; ; 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,1115,1)
+2 ;;=10.3^1^82.5^359^5.1^^^33^6.3^82^261^341^29^5.3^.46^2.903^^4409^53^1.3
+3 ;;^UTILITY(U,$J,112,1115,2)
+4 ;;=1.5^17.6^.694^1.8^353^0^^^0^^^^1324^1.2^^^7.6
+5 ;;^UTILITY(U,$J,112,1115,4)
+6 ;;=^^^^^^^^^4.1
+7 ;;^UTILITY(U,$J,112,1115,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,1116,0)
+10 ;;=CEREALS, FROSTED RICE KRISPIES, (RICE)^8-032^oz.^28.3^100^N
+11 ;;^UTILITY(U,$J,112,1116,1)
+12 ;;=4.8^.3^90.5^383^2.6^^^4^6.3^18^95^74^845^1.1^.25^1.087^^4409^53^1.3
+13 ;;^UTILITY(U,$J,112,1116,2)
+14 ;;=1.5^17.6^.452^1.8^353^0^^^0^^^^1324^1.8^^^.7
+15 ;;^UTILITY(U,$J,112,1116,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1117,0)
+18 ;;=CEREALS, GRANOLA, HOMEMADE, (OATS,WHEAT GERM)^8-037^oz.^28.3^100^N
+19 ;;^UTILITY(U,$J,112,1117,1)
+20 ;;=12.3^27.2^55.2^487^3.3^^^62^3.97^116^405^502^10^3.66^.573^^^35^1^.6
+21 ;;^UTILITY(U,$J,112,1117,2)
+22 ;;=.25^1.75^.603^.351^81^0^13.43^.67^0^4.79^7.68^14.11^^2.1^^^10.5
+23 ;;^UTILITY(U,$J,112,1117,3)
+24 ;;=.148^.449^.54^.88^.534^.21^.252^.591^.389^.666^1.097^.306^.594^.852^1.94^.533^.52^.427
+25 ;;^UTILITY(U,$J,112,1117,4)
+26 ;;=.11^.81^.37^2.68^.05^.61^7.63
+27 ;;^UTILITY(U,$J,112,1117,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1118,0)
+30 ;;=CEREALS, GRAPE-NUTS, (WHEAT,BARLEY)^8-038^oz.^28.3^100^N
+31 ;;^UTILITY(U,$J,112,1118,1)
+32 ;;=11.7^.4^82^357^3.2^^^9.5^4.34^67^251^334^695^2.2^.33^2.43^^4409^0^1.3
+33 ;;^UTILITY(U,$J,112,1118,2)
+34 ;;=1.5^17.6^.954^1.8^353^5.3^^^0^^^^1324^2.7^^^10.1
+35 ;;^UTILITY(U,$J,112,1118,3)
+36 ;;=.213^.374^.478^.83^.358^.197^.232^.593^.359^.585^.595^.281^.45^.667^3.722^.507^1.239^.636
+37 ;;^UTILITY(U,$J,112,1118,4)
+38 ;;=^^^^^^^^^9.6
+39 ;;^UTILITY(U,$J,112,1118,20)
+40 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+41 ;;^UTILITY(U,$J,112,1119,0)
+42 ;;=CEREALS, GRAPE-NUTS FLAKES, (WHEAT,BARLEY)^8-039^oz.^28.3^100^N
+43 ;;^UTILITY(U,$J,112,1119,1)
+44 ;;=10.7^1.1^81.8^358^3.4^^^40^28.6^110^298^348^564^2^.407^2.64^^4409^0^1.3
+45 ;;^UTILITY(U,$J,112,1119,2)
+46 ;;=1.5^17.6^1.03^1.8^353^5.3^^^0^^^^1324^3^^^9.9
+47 ;;^UTILITY(U,$J,112,1119,3)
+48 ;;=.194^.342^.437^.76^.327^.18^.213^.543^.329^.535^.545^.257^.411^.61^3.413^.465^1.136^.583
+49 ;;^UTILITY(U,$J,112,1119,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1120,0)
+52 ;;=CEREALS, HEARTLAND NATURAL CEREAL, PLAIN, (OATS,WHEAT GERM)^8-040^oz.^28.3^100^N
+53 ;;^UTILITY(U,$J,112,1120,1)
+54 ;;=10.1^15.4^68.3^434^4.1^^^65^3.77^128^362^335^255^2.64^.258^^^56^1^.31
+55 ;;^UTILITY(U,$J,112,1120,2)
+56 ;;=.14^1.4^.831^.169^56^0^^^0^^^^^2.1^^^6.1
+57 ;;^UTILITY(U,$J,112,1120,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1121,0)
+60 ;;=CEREALS, HEARTLAND NATURAL CEREAL, W/COCNT^8-041^oz.^28.3^100^N
+61 ;;^UTILITY(U,$J,112,1121,1)
+62 ;;=10.4^16.3^67.9^441^3.3^^^63^5.13^131^362^366^203^2.61^.507^^^54^1^.33
+63 ;;^UTILITY(U,$J,112,1121,2)
+64 ;;=.14^1.7^.8^.157^54^0^^^0^^^^^2.1^^^7.1
+65 ;;^UTILITY(U,$J,112,1121,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1122,0)
+68 ;;=CEREALS, HEARTLAND NATURAL CEREAL, W/RAISNS^8-042^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,1122,1)
+70 ;;=9.7^14.2^69^425^5^^^60^3.65^128^342^377^205^2.57^.42^^^57^1^.29
+71 ;;^UTILITY(U,$J,112,1122,2)
+72 ;;=.13^1.4^.823^.18^40^0^^^0^^^^^2.1^^^5.5
+73 ;;^UTILITY(U,$J,112,1122,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,1123,0)
+76 ;;=CEREALS, HONEY & NUT CORN FLAKES, (CORN)^8-043^oz.^28.3^100^N
+77 ;;^UTILITY(U,$J,112,1123,1)
+78 ;;=6.4^5.5^82.2^398^4^^^12^6.3^20^46^126^794^.38^.123^.253^^4409^53^1.3
+79 ;;^UTILITY(U,$J,112,1123,2)
+80 ;;=1.5^17.6^.506^1.8^353^0^^^0^^^^1324^2^^^1.2
+81 ;;^UTILITY(U,$J,112,1123,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1124,0)
+84 ;;=CEREALS, HONEYBRAN, (WHEAT)^8-044^oz.^28.3^100^N
+85 ;;^UTILITY(U,$J,112,1124,1)
+86 ;;=8.8^2.1^81.8^341^2.5^^^46^15.9^131^377^430^578^2.58^.476^3.83^^4409^53^1.3
+87 ;;^UTILITY(U,$J,112,1124,2)
+88 ;;=1.5^17.6^.564^1.8^67^5.3^^^0^^^^1324^4.8^^^11.1
+89 ;;^UTILITY(U,$J,112,1124,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,1125,0)
+92 ;;=CEREALS, HONEY NUT CHEERIOS, (OAT,WHEAT)^8-045^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,1125,1)
+94 ;;=11^2.3^80.3^378^3.2^^^70^15.9^117^371^349^905^2.62^.7^^^4409^53^1.3
+95 ;;^UTILITY(U,$J,112,1125,2)
+96 ;;=1.5^17.6^.69^1.8^65^5.3^.86^.05^0^.4^.94^.92^1324^3.3^^^4.4
+97 ;;^UTILITY(U,$J,112,1125,3)
+98 ;;=.277^.403^.48^1.295^.513^.191^.263^.564^.382^.623^.847^.267^.625^.98^2.369^.62^.613^.52
+99 ;;^UTILITY(U,$J,112,1125,4)
+100 ;;=^^.01^.33^.01^.05^.94^^^23.5
+101 ;;^UTILITY(U,$J,112,1125,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1126,0)
+104 ;;=CEREALS, HONEYCOMB, (CORN,OATS)^8-046^oz.^28.3^100^N
+105 ;;^UTILITY(U,$J,112,1126,1)
+106 ;;=5.8^1.8^89.1^391^1.4^^^17^9.5^34^99^320^563^5.3^.174^.647^^4409^0^1.3
