FHINI03V ; ; 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,1248,1)
;;=29.12^6.75^.13^186^62.18^^^8^4.32^18^250^199^58^2.24^.432^.061^^0^10^.35
;;^UTILITY(U,$J,112,1248,2)
;;=.93^4.88^1.65^.21^2^14.46^1.21^.05^176^1.82^1.42^1.78^0^1.82^^^0
;;^UTILITY(U,$J,112,1248,3)
;;=.31^1.288^1.395^2.287^2.507^.664^.313^1.263^.955^1.523^1.808^.783^1.808^2.703^4.203^1.589^1.351^1.351
;;^UTILITY(U,$J,112,1248,4)
;;=^.04^.12^.82^.11^.8^1.23^.41
;;^UTILITY(U,$J,112,1248,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1249,0)
;;=LAMB, HEART, BRAISED^17-192^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1249,1)
;;=24.97^7.91^1.93^185^64.2^^^14^5.52^24^254^188^63^3.68^.61^.055^^0^7^.17
;;^UTILITY(U,$J,112,1249,2)
;;=1.19^4.36^1.37^.3^2^11.2^.33^.18^249^3.14^2.22^.77^0^.99^^^0
;;^UTILITY(U,$J,112,1249,3)
;;=.271^1.178^1.082^2.124^1.881^.547^.209^1.08^.778^1.243^1.633^.571^1.516^2.152^3.188^1.205^1.133^.965
;;^UTILITY(U,$J,112,1249,4)
;;=^.02^.18^1.2^.1^1.62^1.92^.12
;;^UTILITY(U,$J,112,1249,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1250,0)
;;=HERRING, PLAIN, CND, SOL+LIQ^1126-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1250,1)
;;=19.9^13.6^0^208^62.9^^^147^1.8^^297^420^74^^^^^110^3^.02
;;^UTILITY(U,$J,112,1250,2)
;;=.18^3.6^^^^^2.58^^97^2.58
;;^UTILITY(U,$J,112,1250,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1251,0)
;;=HERRING, W/TOMATO SAUCE, CND, SOL+LIQ^1127-0^herrings^55^^N
;;^UTILITY(U,$J,112,1251,1)
;;=15.8^10.5^3.7^176^66.7^^^147^1.8^^243^420^74^^^^^800^16^.02
;;^UTILITY(U,$J,112,1251,2)
;;=.11^3.5^^^^^2^^78^2
;;^UTILITY(U,$J,112,1251,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1252,0)
;;=HERRING, PICKLED, BISMARCK TYPE^15-041^herrings^50^100^N
;;^UTILITY(U,$J,112,1252,1)
;;=14.19^18^9.64^262^55.22^^^77^1.22^8^89^69^870^.53^.105^.04^^861^0^.036
;;^UTILITY(U,$J,112,1252,2)
;;=.139^3.3^.081^.17^2.4^4.27^.211^^13^2.381^11.947^1.679^258^2.95^^^0
;;^UTILITY(U,$J,112,1252,3)
;;=.159^.622^.654^1.153^1.303^.42^.152^.554^.479^.731^.849^.418^.858^1.453^2.118^.681^.502^.579
;;^UTILITY(U,$J,112,1252,4)
;;=^^.721^1.555^1.383^.105^1.75
;;^UTILITY(U,$J,112,1252,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1253,0)
;;=HERRING, SALTED OR BRINED^1129-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1253,1)
;;=19^15.2^0^218^53.8^^^66^1.4^^254^157^6231^^^^^30^0^.02
;;^UTILITY(U,$J,112,1253,2)
;;=.19^3.3^^^^^2^^93^2
;;^UTILITY(U,$J,112,1253,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1254,0)
;;=HERRING, SMOKED, BLOATERS^1130-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1254,1)
;;=19.6^12.4^0^196^64^^^66^1.4^^254^157^6231^^^^^30^0^.02
;;^UTILITY(U,$J,112,1254,2)
;;=.28^3.3^^^^^2^^96^2
;;^UTILITY(U,$J,112,1254,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1255,0)
;;=HERRING, SMOKED, HARD^1131-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1255,1)
;;=36.9^15.8^0^300^34.6^^^66^1.4^^254^157^6231^^^^^30^0^.02
;;^UTILITY(U,$J,112,1255,2)
;;=.28^3.3^^^^^2^^181^2
;;^UTILITY(U,$J,112,1255,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1256,0)
;;=HERRING, SMOKED, KIPPERED^15-042^fillets^40^100^N
;;^UTILITY(U,$J,112,1256,1)
;;=24.58^12.37^0^217^59.7^^^84^1.51^46^325^447^918^1.36^.135^.05^^128^1^.126
;;^UTILITY(U,$J,112,1256,2)
;;=.319^4.402^.88^.413^13.7^18.701^.178^.141^82^2.791^5.112^2.919^39^1.94^^^0
;;^UTILITY(U,$J,112,1256,3)
;;=.275^1.078^1.133^1.998^2.258^.728^.264^.96^.83^1.266^1.471^.724^1.487^2.517^3.669^1.18^.869^1.003
;;^UTILITY(U,$J,112,1256,4)
;;=^.016^.758^1.851^.851^.149^2.074^.082
;;^UTILITY(U,$J,112,1256,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1257,0)
;;=HICKORYNUTS^12-130^oz.^28.3^32^N
;;^UTILITY(U,$J,112,1257,1)
;;=12.72^64.37^18.25^657^2.65^^^61^2.12^173^336^436^1^4.31^.738^4.61^^131^2^.867
;;^UTILITY(U,$J,112,1257,2)
;;=.131^.907^1.746^.192^40^0^20.623^1.047^0^7.038^32.611^21.886^13^2^^^6.4
;;^UTILITY(U,$J,112,1257,3)
;;=.139^.422^.576^1.027^.497^.3^.271^.713^.454^.73^2.086^.389^.662^1.368^2.885^.708^.571^.806
;;^UTILITY(U,$J,112,1257,4)
;;=^^^5.417^.277^1.416^32.011
;;^UTILITY(U,$J,112,1257,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1258,0)
;;=HONEY^19-296^tbsp.^21^100^N
;;^UTILITY(U,$J,112,1258,1)
;;=.3^0^82.4^304^17.1^^^6^.42^2^4^52^4^.22^.036^.08^^0^.5^0
;;^UTILITY(U,$J,112,1258,2)
;;=.038^.121^.068^.024^2^0^^^0^^^^0^.2^^^.2
;;^UTILITY(U,$J,112,1258,3)
;;=.004^.004^.008^.01^.008^.001^.003^.011^.008^.009^.005^.001^.006^.027^.018^.007^.09^.006
;;^UTILITY(U,$J,112,1258,4)
;;=^^^^^^0^^.02^.8
;;^UTILITY(U,$J,112,1258,20)
;;=USDA Std. Reference, Release 10
FHINI03V ; ; 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,1248,1)
+2 ;;=29.12^6.75^.13^186^62.18^^^8^4.32^18^250^199^58^2.24^.432^.061^^0^10^.35
+3 ;;^UTILITY(U,$J,112,1248,2)
+4 ;;=.93^4.88^1.65^.21^2^14.46^1.21^.05^176^1.82^1.42^1.78^0^1.82^^^0
+5 ;;^UTILITY(U,$J,112,1248,3)
+6 ;;=.31^1.288^1.395^2.287^2.507^.664^.313^1.263^.955^1.523^1.808^.783^1.808^2.703^4.203^1.589^1.351^1.351
+7 ;;^UTILITY(U,$J,112,1248,4)
+8 ;;=^.04^.12^.82^.11^.8^1.23^.41
+9 ;;^UTILITY(U,$J,112,1248,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1249,0)
+12 ;;=LAMB, HEART, BRAISED^17-192^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,1249,1)
+14 ;;=24.97^7.91^1.93^185^64.2^^^14^5.52^24^254^188^63^3.68^.61^.055^^0^7^.17
+15 ;;^UTILITY(U,$J,112,1249,2)
+16 ;;=1.19^4.36^1.37^.3^2^11.2^.33^.18^249^3.14^2.22^.77^0^.99^^^0
+17 ;;^UTILITY(U,$J,112,1249,3)
+18 ;;=.271^1.178^1.082^2.124^1.881^.547^.209^1.08^.778^1.243^1.633^.571^1.516^2.152^3.188^1.205^1.133^.965
+19 ;;^UTILITY(U,$J,112,1249,4)
+20 ;;=^.02^.18^1.2^.1^1.62^1.92^.12
+21 ;;^UTILITY(U,$J,112,1249,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1250,0)
+24 ;;=HERRING, PLAIN, CND, SOL+LIQ^1126-0^oz.^28.3^^N
+25 ;;^UTILITY(U,$J,112,1250,1)
+26 ;;=19.9^13.6^0^208^62.9^^^147^1.8^^297^420^74^^^^^110^3^.02
+27 ;;^UTILITY(U,$J,112,1250,2)
+28 ;;=.18^3.6^^^^^2.58^^97^2.58
+29 ;;^UTILITY(U,$J,112,1250,20)
+30 ;;=USDA Std. Reference, Release 8
+31 ;;^UTILITY(U,$J,112,1251,0)
+32 ;;=HERRING, W/TOMATO SAUCE, CND, SOL+LIQ^1127-0^herrings^55^^N
+33 ;;^UTILITY(U,$J,112,1251,1)
+34 ;;=15.8^10.5^3.7^176^66.7^^^147^1.8^^243^420^74^^^^^800^16^.02
+35 ;;^UTILITY(U,$J,112,1251,2)
+36 ;;=.11^3.5^^^^^2^^78^2
+37 ;;^UTILITY(U,$J,112,1251,20)
+38 ;;=USDA Std. Reference, Release 8
+39 ;;^UTILITY(U,$J,112,1252,0)
+40 ;;=HERRING, PICKLED, BISMARCK TYPE^15-041^herrings^50^100^N
+41 ;;^UTILITY(U,$J,112,1252,1)
+42 ;;=14.19^18^9.64^262^55.22^^^77^1.22^8^89^69^870^.53^.105^.04^^861^0^.036
+43 ;;^UTILITY(U,$J,112,1252,2)
+44 ;;=.139^3.3^.081^.17^2.4^4.27^.211^^13^2.381^11.947^1.679^258^2.95^^^0
+45 ;;^UTILITY(U,$J,112,1252,3)
+46 ;;=.159^.622^.654^1.153^1.303^.42^.152^.554^.479^.731^.849^.418^.858^1.453^2.118^.681^.502^.579
+47 ;;^UTILITY(U,$J,112,1252,4)
+48 ;;=^^.721^1.555^1.383^.105^1.75
+49 ;;^UTILITY(U,$J,112,1252,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1253,0)
+52 ;;=HERRING, SALTED OR BRINED^1129-0^oz.^28.3^^N
+53 ;;^UTILITY(U,$J,112,1253,1)
+54 ;;=19^15.2^0^218^53.8^^^66^1.4^^254^157^6231^^^^^30^0^.02
+55 ;;^UTILITY(U,$J,112,1253,2)
+56 ;;=.19^3.3^^^^^2^^93^2
+57 ;;^UTILITY(U,$J,112,1253,20)
+58 ;;=USDA Std. Reference, Release 8
+59 ;;^UTILITY(U,$J,112,1254,0)
+60 ;;=HERRING, SMOKED, BLOATERS^1130-0^oz.^28.3^^N
+61 ;;^UTILITY(U,$J,112,1254,1)
+62 ;;=19.6^12.4^0^196^64^^^66^1.4^^254^157^6231^^^^^30^0^.02
+63 ;;^UTILITY(U,$J,112,1254,2)
+64 ;;=.28^3.3^^^^^2^^96^2
+65 ;;^UTILITY(U,$J,112,1254,20)
+66 ;;=USDA Std. Reference, Release 8
+67 ;;^UTILITY(U,$J,112,1255,0)
+68 ;;=HERRING, SMOKED, HARD^1131-0^oz.^28.3^^N
+69 ;;^UTILITY(U,$J,112,1255,1)
+70 ;;=36.9^15.8^0^300^34.6^^^66^1.4^^254^157^6231^^^^^30^0^.02
+71 ;;^UTILITY(U,$J,112,1255,2)
+72 ;;=.28^3.3^^^^^2^^181^2
+73 ;;^UTILITY(U,$J,112,1255,20)
+74 ;;=USDA Std. Reference, Release 8
+75 ;;^UTILITY(U,$J,112,1256,0)
+76 ;;=HERRING, SMOKED, KIPPERED^15-042^fillets^40^100^N
+77 ;;^UTILITY(U,$J,112,1256,1)
+78 ;;=24.58^12.37^0^217^59.7^^^84^1.51^46^325^447^918^1.36^.135^.05^^128^1^.126
+79 ;;^UTILITY(U,$J,112,1256,2)
+80 ;;=.319^4.402^.88^.413^13.7^18.701^.178^.141^82^2.791^5.112^2.919^39^1.94^^^0
+81 ;;^UTILITY(U,$J,112,1256,3)
+82 ;;=.275^1.078^1.133^1.998^2.258^.728^.264^.96^.83^1.266^1.471^.724^1.487^2.517^3.669^1.18^.869^1.003
+83 ;;^UTILITY(U,$J,112,1256,4)
+84 ;;=^.016^.758^1.851^.851^.149^2.074^.082
+85 ;;^UTILITY(U,$J,112,1256,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1257,0)
+88 ;;=HICKORYNUTS^12-130^oz.^28.3^32^N
+89 ;;^UTILITY(U,$J,112,1257,1)
+90 ;;=12.72^64.37^18.25^657^2.65^^^61^2.12^173^336^436^1^4.31^.738^4.61^^131^2^.867
+91 ;;^UTILITY(U,$J,112,1257,2)
+92 ;;=.131^.907^1.746^.192^40^0^20.623^1.047^0^7.038^32.611^21.886^13^2^^^6.4
+93 ;;^UTILITY(U,$J,112,1257,3)
+94 ;;=.139^.422^.576^1.027^.497^.3^.271^.713^.454^.73^2.086^.389^.662^1.368^2.885^.708^.571^.806
+95 ;;^UTILITY(U,$J,112,1257,4)
+96 ;;=^^^5.417^.277^1.416^32.011
+97 ;;^UTILITY(U,$J,112,1257,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,1258,0)
+100 ;;=HONEY^19-296^tbsp.^21^100^N
+101 ;;^UTILITY(U,$J,112,1258,1)
+102 ;;=.3^0^82.4^304^17.1^^^6^.42^2^4^52^4^.22^.036^.08^^0^.5^0
+103 ;;^UTILITY(U,$J,112,1258,2)
+104 ;;=.038^.121^.068^.024^2^0^^^0^^^^0^.2^^^.2
+105 ;;^UTILITY(U,$J,112,1258,3)
+106 ;;=.004^.004^.008^.01^.008^.001^.003^.011^.008^.009^.005^.001^.006^.027^.018^.007^.09^.006
+107 ;;^UTILITY(U,$J,112,1258,4)
+108 ;;=^^^^^^0^^.02^.8
+109 ;;^UTILITY(U,$J,112,1258,20)
+110 ;;=USDA Std. Reference, Release 10
