FHINI03S ; ; 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,1210,3)
;;=.036^.088^.106^.196^.107^.048^.062^.137^.088^.143^.182^.062^.135^.221^.567^.128^.143^.115
;;^UTILITY(U,$J,112,1210,4)
;;=^0^0^.15^0^.01^.32
;;^UTILITY(U,$J,112,1210,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1211,0)
;;=CEREALS, ROMAN MEAL, PLAIN, W/SALT, (WHEAT W/OTHER GRNS)^8-181^cups^241^100^N
;;^UTILITY(U,$J,112,1211,1)
;;=2.7^.4^13.7^61^82.7^^^12^.88^45^89^125^82^.74^.133^^^0^0^.1
;;^UTILITY(U,$J,112,1211,2)
;;=.05^1.28^.154^.047^10^0^^^0^^^^0^.5
;;^UTILITY(U,$J,112,1211,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1212,0)
;;=CEREALS, WHEATENA, W/SALT, (WHEAT)^8-182^cups^243^100^N
;;^UTILITY(U,$J,112,1212,1)
;;=2^.5^11.8^56^85.4^^^4^.56^20^60^77^238^.69^.052^.822^^0^0^.01
;;^UTILITY(U,$J,112,1212,2)
;;=.02^.55^.042^.019^7^0^^^0^^^^0^.3
;;^UTILITY(U,$J,112,1212,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1213,0)
;;=CEREALS, WHOLE WHEAT HOT NATURAL CEREAL, W/SALT, (WHEAT)^8-183^cups^242^100^N
;;^UTILITY(U,$J,112,1213,1)
;;=2^.4^13.7^62^83.6^^^7^.62^22^69^71^233^.48^.083^.583^^0^0^.07
;;^UTILITY(U,$J,112,1213,2)
;;=.05^.89^.167^.073^11^0^^^0^^^^0^.3
;;^UTILITY(U,$J,112,1213,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1214,0)
;;=CEREALS, ROMAN MEAL W/OATS, W/SALT, (WHEAT W/OTHER GRNS)^8-184^cups^240^100^N
;;^UTILITY(U,$J,112,1214,1)
;;=3^.8^14.2^71^81.5^^^11^.58^31^98^107^225^.81^.062^^^9^0^.13
;;^UTILITY(U,$J,112,1214,2)
;;=.09^1.36^.104^.158^10^0^^^0^^^^^.4
;;^UTILITY(U,$J,112,1214,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1215,0)
;;=CEREALS, RALSTON, W/SALT, (OATS)^8-185^cups^253^100^N
;;^UTILITY(U,$J,112,1215,1)
;;=2.2^.3^11.2^53^86.1^^^5^.65^23^58^61^188^.56^.079^^^0^0^.08
;;^UTILITY(U,$J,112,1215,2)
;;=.07^.81^.13^.045^7^.043^^^0^^^^0^.3
;;^UTILITY(U,$J,112,1215,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1216,0)
;;=FILBERTS^12-120^nuts^1.4^46^N
;;^UTILITY(U,$J,112,1216,1)
;;=13.04^62.64^15.3^632^5.42^^^188^3.27^285^312^445^3^2.4^1.509^2.016^^67^1^.5
;;^UTILITY(U,$J,112,1216,2)
;;=.11^1.135^1.148^.612^71.8^0^5.833^.152^0^4.604^49.088^6.003^7^3.61^^^7.7
;;^UTILITY(U,$J,112,1216,3)
;;=.216^.448^.568^1.1^.399^.162^.229^.686^.453^.662^2.155^.327^.708^1.604^3.537^.704^.509^.669
;;^UTILITY(U,$J,112,1216,4)
;;=^^.117^3.117^.21^1.273^48.632^^^4
;;^UTILITY(U,$J,112,1216,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1217,0)
;;=FINNAN HADDIE, SMOKED HADDOCK^1009-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1217,1)
;;=23.2^.4^0^103^72.6^^^18^.7^^202^157^6231^^^^^1610^0^.06
;;^UTILITY(U,$J,112,1217,2)
;;=.05^2.1^^^^^0^^76^0
;;^UTILITY(U,$J,112,1217,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1218,0)
;;=FISH CAKES, FRIED^1010-0^cakes^60^100^N
;;^UTILITY(U,$J,112,1218,1)
;;=14.7^8^9.3^172^66^^^11^.4^^167^348^177^^^^^0^0^.04
;;^UTILITY(U,$J,112,1218,2)
;;=.07^1.6^^^^^2^^42^3^^^^2
;;^UTILITY(U,$J,112,1218,4)
;;=^^^^^^2
;;^UTILITY(U,$J,112,1218,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1219,0)
;;=FISH CAKES, FRIED, FRZ, REHEATED^1011-0^cakes^60^^N
;;^UTILITY(U,$J,112,1219,1)
;;=9.2^17.9^17.2^270^52.9^^^11^.4^^167^348^177^^^^^0^0^.04
;;^UTILITY(U,$J,112,1219,2)
;;=.07^1.6^^^^^4^^26^7
;;^UTILITY(U,$J,112,1219,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1220,0)
;;=FISH FLAKES, CND^1012-0^cups^165^^N
;;^UTILITY(U,$J,112,1220,1)
;;=24.7^.6^0^111^72.1^^^49^.8^^232^279^41^^^^^0^0^.1
;;^UTILITY(U,$J,112,1220,2)
;;=.1^1.1^^^^^0^^70^0
;;^UTILITY(U,$J,112,1220,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1221,0)
;;=FISH FLOUR, FROM WHOLE FISH^1013-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1221,1)
;;=78^.3^0^336^2^^^4610^41^^3100^430^170^^^^^0^0^.07
;;^UTILITY(U,$J,112,1221,2)
;;=.62^2.2^^^^^0^^222^0
;;^UTILITY(U,$J,112,1221,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1222,0)
;;=FISH FLOUR, FROM FILLETS^1014-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1222,1)
;;=93^.1^0^398^3^^^920^8^^610^80^40^^^^^0^0^.07
;;^UTILITY(U,$J,112,1222,2)
;;=.62^2.2^^^^^0^^264^0
;;^UTILITY(U,$J,112,1222,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1223,0)
;;=FISH FLOUR, FROM FILLET WASTE^1015-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1223,1)
;;=71^.2^0^305^3^^^6040^54^^4060^540^220^^^^^0^0^.07
;;^UTILITY(U,$J,112,1223,2)
;;=.62^2.2^^^^^0^^202^0
;;^UTILITY(U,$J,112,1223,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1224,0)
;;=FISH LOAF, CKD^1016-0^oz.^28.3^100^N
FHINI03S ; ; 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,1210,3)
+2 ;;=.036^.088^.106^.196^.107^.048^.062^.137^.088^.143^.182^.062^.135^.221^.567^.128^.143^.115
+3 ;;^UTILITY(U,$J,112,1210,4)
+4 ;;=^0^0^.15^0^.01^.32
+5 ;;^UTILITY(U,$J,112,1210,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1211,0)
+8 ;;=CEREALS, ROMAN MEAL, PLAIN, W/SALT, (WHEAT W/OTHER GRNS)^8-181^cups^241^100^N
+9 ;;^UTILITY(U,$J,112,1211,1)
+10 ;;=2.7^.4^13.7^61^82.7^^^12^.88^45^89^125^82^.74^.133^^^0^0^.1
+11 ;;^UTILITY(U,$J,112,1211,2)
+12 ;;=.05^1.28^.154^.047^10^0^^^0^^^^0^.5
+13 ;;^UTILITY(U,$J,112,1211,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,1212,0)
+16 ;;=CEREALS, WHEATENA, W/SALT, (WHEAT)^8-182^cups^243^100^N
+17 ;;^UTILITY(U,$J,112,1212,1)
+18 ;;=2^.5^11.8^56^85.4^^^4^.56^20^60^77^238^.69^.052^.822^^0^0^.01
+19 ;;^UTILITY(U,$J,112,1212,2)
+20 ;;=.02^.55^.042^.019^7^0^^^0^^^^0^.3
+21 ;;^UTILITY(U,$J,112,1212,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1213,0)
+24 ;;=CEREALS, WHOLE WHEAT HOT NATURAL CEREAL, W/SALT, (WHEAT)^8-183^cups^242^100^N
+25 ;;^UTILITY(U,$J,112,1213,1)
+26 ;;=2^.4^13.7^62^83.6^^^7^.62^22^69^71^233^.48^.083^.583^^0^0^.07
+27 ;;^UTILITY(U,$J,112,1213,2)
+28 ;;=.05^.89^.167^.073^11^0^^^0^^^^0^.3
+29 ;;^UTILITY(U,$J,112,1213,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,1214,0)
+32 ;;=CEREALS, ROMAN MEAL W/OATS, W/SALT, (WHEAT W/OTHER GRNS)^8-184^cups^240^100^N
+33 ;;^UTILITY(U,$J,112,1214,1)
+34 ;;=3^.8^14.2^71^81.5^^^11^.58^31^98^107^225^.81^.062^^^9^0^.13
+35 ;;^UTILITY(U,$J,112,1214,2)
+36 ;;=.09^1.36^.104^.158^10^0^^^0^^^^^.4
+37 ;;^UTILITY(U,$J,112,1214,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1215,0)
+40 ;;=CEREALS, RALSTON, W/SALT, (OATS)^8-185^cups^253^100^N
+41 ;;^UTILITY(U,$J,112,1215,1)
+42 ;;=2.2^.3^11.2^53^86.1^^^5^.65^23^58^61^188^.56^.079^^^0^0^.08
+43 ;;^UTILITY(U,$J,112,1215,2)
+44 ;;=.07^.81^.13^.045^7^.043^^^0^^^^0^.3
+45 ;;^UTILITY(U,$J,112,1215,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1216,0)
+48 ;;=FILBERTS^12-120^nuts^1.4^46^N
+49 ;;^UTILITY(U,$J,112,1216,1)
+50 ;;=13.04^62.64^15.3^632^5.42^^^188^3.27^285^312^445^3^2.4^1.509^2.016^^67^1^.5
+51 ;;^UTILITY(U,$J,112,1216,2)
+52 ;;=.11^1.135^1.148^.612^71.8^0^5.833^.152^0^4.604^49.088^6.003^7^3.61^^^7.7
+53 ;;^UTILITY(U,$J,112,1216,3)
+54 ;;=.216^.448^.568^1.1^.399^.162^.229^.686^.453^.662^2.155^.327^.708^1.604^3.537^.704^.509^.669
+55 ;;^UTILITY(U,$J,112,1216,4)
+56 ;;=^^.117^3.117^.21^1.273^48.632^^^4
+57 ;;^UTILITY(U,$J,112,1216,20)
+58 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+59 ;;^UTILITY(U,$J,112,1217,0)
+60 ;;=FINNAN HADDIE, SMOKED HADDOCK^1009-0^oz.^28.3^^N
+61 ;;^UTILITY(U,$J,112,1217,1)
+62 ;;=23.2^.4^0^103^72.6^^^18^.7^^202^157^6231^^^^^1610^0^.06
+63 ;;^UTILITY(U,$J,112,1217,2)
+64 ;;=.05^2.1^^^^^0^^76^0
+65 ;;^UTILITY(U,$J,112,1217,20)
+66 ;;=USDA Std. Reference, Release 8
+67 ;;^UTILITY(U,$J,112,1218,0)
+68 ;;=FISH CAKES, FRIED^1010-0^cakes^60^100^N
+69 ;;^UTILITY(U,$J,112,1218,1)
+70 ;;=14.7^8^9.3^172^66^^^11^.4^^167^348^177^^^^^0^0^.04
+71 ;;^UTILITY(U,$J,112,1218,2)
+72 ;;=.07^1.6^^^^^2^^42^3^^^^2
+73 ;;^UTILITY(U,$J,112,1218,4)
+74 ;;=^^^^^^2
+75 ;;^UTILITY(U,$J,112,1218,20)
+76 ;;=USDA Std. Reference, Release 8
+77 ;;^UTILITY(U,$J,112,1219,0)
+78 ;;=FISH CAKES, FRIED, FRZ, REHEATED^1011-0^cakes^60^^N
+79 ;;^UTILITY(U,$J,112,1219,1)
+80 ;;=9.2^17.9^17.2^270^52.9^^^11^.4^^167^348^177^^^^^0^0^.04
+81 ;;^UTILITY(U,$J,112,1219,2)
+82 ;;=.07^1.6^^^^^4^^26^7
+83 ;;^UTILITY(U,$J,112,1219,20)
+84 ;;=USDA Std. Reference, Release 8
+85 ;;^UTILITY(U,$J,112,1220,0)
+86 ;;=FISH FLAKES, CND^1012-0^cups^165^^N
+87 ;;^UTILITY(U,$J,112,1220,1)
+88 ;;=24.7^.6^0^111^72.1^^^49^.8^^232^279^41^^^^^0^0^.1
+89 ;;^UTILITY(U,$J,112,1220,2)
+90 ;;=.1^1.1^^^^^0^^70^0
+91 ;;^UTILITY(U,$J,112,1220,20)
+92 ;;=USDA Std. Reference, Release 8
+93 ;;^UTILITY(U,$J,112,1221,0)
+94 ;;=FISH FLOUR, FROM WHOLE FISH^1013-0^oz.^28.3^^N
+95 ;;^UTILITY(U,$J,112,1221,1)
+96 ;;=78^.3^0^336^2^^^4610^41^^3100^430^170^^^^^0^0^.07
+97 ;;^UTILITY(U,$J,112,1221,2)
+98 ;;=.62^2.2^^^^^0^^222^0
+99 ;;^UTILITY(U,$J,112,1221,20)
+100 ;;=USDA Std. Reference, Release 8
+101 ;;^UTILITY(U,$J,112,1222,0)
+102 ;;=FISH FLOUR, FROM FILLETS^1014-0^oz.^28.3^^N
+103 ;;^UTILITY(U,$J,112,1222,1)
+104 ;;=93^.1^0^398^3^^^920^8^^610^80^40^^^^^0^0^.07
+105 ;;^UTILITY(U,$J,112,1222,2)
+106 ;;=.62^2.2^^^^^0^^264^0
+107 ;;^UTILITY(U,$J,112,1222,20)
+108 ;;=USDA Std. Reference, Release 8
+109 ;;^UTILITY(U,$J,112,1223,0)
+110 ;;=FISH FLOUR, FROM FILLET WASTE^1015-0^oz.^28.3^^N
+111 ;;^UTILITY(U,$J,112,1223,1)
+112 ;;=71^.2^0^305^3^^^6040^54^^4060^540^220^^^^^0^0^.07
+113 ;;^UTILITY(U,$J,112,1223,2)
+114 ;;=.62^2.2^^^^^0^^202^0
+115 ;;^UTILITY(U,$J,112,1223,20)
+116 ;;=USDA Std. Reference, Release 8
+117 ;;^UTILITY(U,$J,112,1224,0)
+118 ;;=FISH LOAF, CKD^1016-0^oz.^28.3^100^N
