FHINI05T ; ; 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,2002,1)
;;=8.2^.86^78.03^362^12.51^^^14^7.32^16^85^105^2^.62^.139^.634^.04^0^0^.892
;;^UTILITY(U,$J,112,2002,2)
;;=.43^6.79^.458^.033^19^0^.357^.022^0^.127^.073^.379^0^.39^^^1.7
;;^UTILITY(U,$J,112,2002,3)
;;=.118^.227^.311^.558^.285^.138^.178^.388^.234^.36^.314^.167^.247^.342^2.71^.278^.913^.432
;;^UTILITY(U,$J,112,2002,4)
;;=^^.001^.114^.003^.005^.07^^^4.9
;;^UTILITY(U,$J,112,2002,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2003,0)
;;=FLOUR, GLUTEN, PATENT^2444-0^cups^140^^N
;;^UTILITY(U,$J,112,2003,1)
;;=41.4^1.9^47.2^378^8.5^^^40^.4^^140^60^2^^^^^0^0^.03
;;^UTILITY(U,$J,112,2003,2)
;;=.03^.5^^^^^0^^0^0
;;^UTILITY(U,$J,112,2003,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2004,0)
;;=FLOUR, SELF-RISING, ENR, ^20-082^cups^125^100^N
;;^UTILITY(U,$J,112,2004,1)
;;=9.89^.97^74.22^354^10.59^^^338^4.67^19^595^124^1270^.62^.112^1^.03^0^0^.674
;;^UTILITY(U,$J,112,2004,2)
;;=.414^5.832^.438^.05^42^0^.388^.022^0^.154^.086^.41^0^4.33^^^3.3
;;^UTILITY(U,$J,112,2004,3)
;;=.121^.269^.342^.68^.219^.175^.21^.498^.298^.397^.399^.22^.317^.416^3.33^.356^1.146^.494
;;^UTILITY(U,$J,112,2004,4)
;;=^^^.147^^.007^.086
;;^UTILITY(U,$J,112,2004,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2006,0)
;;=BRAN, WHEAT, CRUDE, COMMERCIALLY MILLED^20-077^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2006,1)
;;=15.55^4.25^64.51^216^9.89^^^73^10.57^611^1013^1182^2^7.27^.998^11.5^1.49^0^0^.523
;;^UTILITY(U,$J,112,2006,2)
;;=.577^13.578^2.181^1.303^79^0^2.039^.167^0^.63^.637^2.212^0^5.79^^^41
;;^UTILITY(U,$J,112,2006,3)
;;=.282^.5^.486^.928^.6^.234^.371^.595^.436^.726^1.087^.43^.765^1.13^2.874^.898^.882^.684
;;^UTILITY(U,$J,112,2006,4)
;;=^.002^.007^.556^.017^.037^.619^.005^83^77.6
;;^UTILITY(U,$J,112,2006,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2007,0)
;;=WHEAT GERM, CRUDE, COMMERCIALLY MILLED^20-078^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2007,1)
;;=23.15^9.72^51.8^360^11.12^^^39^6.26^239^842^892^12^12.29^.796^13.301^^0^0^1.882
;;^UTILITY(U,$J,112,2007,2)
;;=.499^6.813^2.257^1.3^281^0^5.287^.723^0^1.665^1.365^6.01^0^4.21^^^17.5
;;^UTILITY(U,$J,112,2007,3)
;;=.317^.968^.847^1.571^1.468^.456^.458^.928^.704^1.198^1.867^.643^1.477^2.07^3.995^1.424^1.231^1.102
;;^UTILITY(U,$J,112,2007,4)
;;=^^.013^1.587^.034^.055^1.332^^39^79.2
;;^UTILITY(U,$J,112,2007,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2008,0)
;;=WHITING, COOKED, DRY HEAT^15-133^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2008,1)
;;=23.48^1.69^0^115^74.71^^^62^.42^27^285^434^132^.53^.04^.13^^114^0^.068
;;^UTILITY(U,$J,112,2008,2)
;;=.06^1.67^.25^.18^15^2.6^.019^.012^84^.405^.444^.546^34^1.46^^^0
;;^UTILITY(U,$J,112,2008,3)
;;=.263^1.029^1.082^1.909^2.157^.695^.252^.917^.793^1.21^1.405^.691^1.42^2.404^3.505^1.127^.83^.958
;;^UTILITY(U,$J,112,2008,4)
;;=^^.065^.273^.116^.045^.265^.019
;;^UTILITY(U,$J,112,2008,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2009,0)
;;=WHITEFISH, SMOKED^15-131^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2009,1)
;;=23.4^.93^0^108^70.83^^^18^.5^23^132^423^1019^.49^.315^.034^^190^0^.032
;;^UTILITY(U,$J,112,2009,2)
;;=.101^2.4^.104^.389^7.3^3.26^.084^^33^.228^.278^.293^57^5.06^^^0
;;^UTILITY(U,$J,112,2009,3)
;;=.262^1.026^1.078^1.902^2.149^.693^.251^.914^.79^1.206^1.4^.689^1.415^2.396^3.493^1.123^.827^.955
;;^UTILITY(U,$J,112,2009,4)
;;=^^.007^.177^.026^.044^.205
;;^UTILITY(U,$J,112,2009,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2010,0)
;;=SAUCE, WHITE SAUCE, THIN^2469-0^cups^250^100^N
;;^UTILITY(U,$J,112,2010,1)
;;=3.9^8.7^7.2^121^78.7^^^122^.1^^97^146^351^^^^^320^.7^.04
;;^UTILITY(U,$J,112,2010,2)
;;=.18^.2^^^^^.28^^28^4.78^^^^1.5
;;^UTILITY(U,$J,112,2010,4)
;;=^^^^^^2.88
;;^UTILITY(U,$J,112,2010,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2011,0)
;;=SAUCE, WHITE SAUCE, MEDIUM^2470-0^cups^250^100^N
;;^UTILITY(U,$J,112,2011,1)
;;=3.9^12.5^8.8^162^73.3^^^115^.2^^93^139^379^^^^^460^.7^.05
;;^UTILITY(U,$J,112,2011,2)
;;=.17^.3^^^^^.39^^41^6.86^^^^1.5
;;^UTILITY(U,$J,112,2011,4)
;;=^^^^^^4.12
;;^UTILITY(U,$J,112,2011,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2012,0)
;;=SAUCE, WHITE SAUCE, THICK^2471-0^cups^250^100^N
;;^UTILITY(U,$J,112,2012,1)
;;=4^15.6^11^198^67.9^^^107^.3^^90^133^399^^^^^570^.6^.07
;;^UTILITY(U,$J,112,2012,2)
;;=.18^.5^^^^^.5^^50^8.55^^^^1.5
;;^UTILITY(U,$J,112,2012,4)
;;=^^^^^^5.16
;;^UTILITY(U,$J,112,2012,20)
;;=USDA Std. Reference, Release 8
FHINI05T ; ; 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,2002,1)
+2 ;;=8.2^.86^78.03^362^12.51^^^14^7.32^16^85^105^2^.62^.139^.634^.04^0^0^.892
+3 ;;^UTILITY(U,$J,112,2002,2)
+4 ;;=.43^6.79^.458^.033^19^0^.357^.022^0^.127^.073^.379^0^.39^^^1.7
+5 ;;^UTILITY(U,$J,112,2002,3)
+6 ;;=.118^.227^.311^.558^.285^.138^.178^.388^.234^.36^.314^.167^.247^.342^2.71^.278^.913^.432
+7 ;;^UTILITY(U,$J,112,2002,4)
+8 ;;=^^.001^.114^.003^.005^.07^^^4.9
+9 ;;^UTILITY(U,$J,112,2002,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2003,0)
+12 ;;=FLOUR, GLUTEN, PATENT^2444-0^cups^140^^N
+13 ;;^UTILITY(U,$J,112,2003,1)
+14 ;;=41.4^1.9^47.2^378^8.5^^^40^.4^^140^60^2^^^^^0^0^.03
+15 ;;^UTILITY(U,$J,112,2003,2)
+16 ;;=.03^.5^^^^^0^^0^0
+17 ;;^UTILITY(U,$J,112,2003,20)
+18 ;;=USDA Std. Reference, Release 8
+19 ;;^UTILITY(U,$J,112,2004,0)
+20 ;;=FLOUR, SELF-RISING, ENR, ^20-082^cups^125^100^N
+21 ;;^UTILITY(U,$J,112,2004,1)
+22 ;;=9.89^.97^74.22^354^10.59^^^338^4.67^19^595^124^1270^.62^.112^1^.03^0^0^.674
+23 ;;^UTILITY(U,$J,112,2004,2)
+24 ;;=.414^5.832^.438^.05^42^0^.388^.022^0^.154^.086^.41^0^4.33^^^3.3
+25 ;;^UTILITY(U,$J,112,2004,3)
+26 ;;=.121^.269^.342^.68^.219^.175^.21^.498^.298^.397^.399^.22^.317^.416^3.33^.356^1.146^.494
+27 ;;^UTILITY(U,$J,112,2004,4)
+28 ;;=^^^.147^^.007^.086
+29 ;;^UTILITY(U,$J,112,2004,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2006,0)
+32 ;;=BRAN, WHEAT, CRUDE, COMMERCIALLY MILLED^20-077^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,2006,1)
+34 ;;=15.55^4.25^64.51^216^9.89^^^73^10.57^611^1013^1182^2^7.27^.998^11.5^1.49^0^0^.523
+35 ;;^UTILITY(U,$J,112,2006,2)
+36 ;;=.577^13.578^2.181^1.303^79^0^2.039^.167^0^.63^.637^2.212^0^5.79^^^41
+37 ;;^UTILITY(U,$J,112,2006,3)
+38 ;;=.282^.5^.486^.928^.6^.234^.371^.595^.436^.726^1.087^.43^.765^1.13^2.874^.898^.882^.684
+39 ;;^UTILITY(U,$J,112,2006,4)
+40 ;;=^.002^.007^.556^.017^.037^.619^.005^83^77.6
+41 ;;^UTILITY(U,$J,112,2006,20)
+42 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+43 ;;^UTILITY(U,$J,112,2007,0)
+44 ;;=WHEAT GERM, CRUDE, COMMERCIALLY MILLED^20-078^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,2007,1)
+46 ;;=23.15^9.72^51.8^360^11.12^^^39^6.26^239^842^892^12^12.29^.796^13.301^^0^0^1.882
+47 ;;^UTILITY(U,$J,112,2007,2)
+48 ;;=.499^6.813^2.257^1.3^281^0^5.287^.723^0^1.665^1.365^6.01^0^4.21^^^17.5
+49 ;;^UTILITY(U,$J,112,2007,3)
+50 ;;=.317^.968^.847^1.571^1.468^.456^.458^.928^.704^1.198^1.867^.643^1.477^2.07^3.995^1.424^1.231^1.102
+51 ;;^UTILITY(U,$J,112,2007,4)
+52 ;;=^^.013^1.587^.034^.055^1.332^^39^79.2
+53 ;;^UTILITY(U,$J,112,2007,20)
+54 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+55 ;;^UTILITY(U,$J,112,2008,0)
+56 ;;=WHITING, COOKED, DRY HEAT^15-133^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,2008,1)
+58 ;;=23.48^1.69^0^115^74.71^^^62^.42^27^285^434^132^.53^.04^.13^^114^0^.068
+59 ;;^UTILITY(U,$J,112,2008,2)
+60 ;;=.06^1.67^.25^.18^15^2.6^.019^.012^84^.405^.444^.546^34^1.46^^^0
+61 ;;^UTILITY(U,$J,112,2008,3)
+62 ;;=.263^1.029^1.082^1.909^2.157^.695^.252^.917^.793^1.21^1.405^.691^1.42^2.404^3.505^1.127^.83^.958
+63 ;;^UTILITY(U,$J,112,2008,4)
+64 ;;=^^.065^.273^.116^.045^.265^.019
+65 ;;^UTILITY(U,$J,112,2008,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2009,0)
+68 ;;=WHITEFISH, SMOKED^15-131^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,2009,1)
+70 ;;=23.4^.93^0^108^70.83^^^18^.5^23^132^423^1019^.49^.315^.034^^190^0^.032
+71 ;;^UTILITY(U,$J,112,2009,2)
+72 ;;=.101^2.4^.104^.389^7.3^3.26^.084^^33^.228^.278^.293^57^5.06^^^0
+73 ;;^UTILITY(U,$J,112,2009,3)
+74 ;;=.262^1.026^1.078^1.902^2.149^.693^.251^.914^.79^1.206^1.4^.689^1.415^2.396^3.493^1.123^.827^.955
+75 ;;^UTILITY(U,$J,112,2009,4)
+76 ;;=^^.007^.177^.026^.044^.205
+77 ;;^UTILITY(U,$J,112,2009,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2010,0)
+80 ;;=SAUCE, WHITE SAUCE, THIN^2469-0^cups^250^100^N
+81 ;;^UTILITY(U,$J,112,2010,1)
+82 ;;=3.9^8.7^7.2^121^78.7^^^122^.1^^97^146^351^^^^^320^.7^.04
+83 ;;^UTILITY(U,$J,112,2010,2)
+84 ;;=.18^.2^^^^^.28^^28^4.78^^^^1.5
+85 ;;^UTILITY(U,$J,112,2010,4)
+86 ;;=^^^^^^2.88
+87 ;;^UTILITY(U,$J,112,2010,20)
+88 ;;=USDA Std. Reference, Release 8
+89 ;;^UTILITY(U,$J,112,2011,0)
+90 ;;=SAUCE, WHITE SAUCE, MEDIUM^2470-0^cups^250^100^N
+91 ;;^UTILITY(U,$J,112,2011,1)
+92 ;;=3.9^12.5^8.8^162^73.3^^^115^.2^^93^139^379^^^^^460^.7^.05
+93 ;;^UTILITY(U,$J,112,2011,2)
+94 ;;=.17^.3^^^^^.39^^41^6.86^^^^1.5
+95 ;;^UTILITY(U,$J,112,2011,4)
+96 ;;=^^^^^^4.12
+97 ;;^UTILITY(U,$J,112,2011,20)
+98 ;;=USDA Std. Reference, Release 8
+99 ;;^UTILITY(U,$J,112,2012,0)
+100 ;;=SAUCE, WHITE SAUCE, THICK^2471-0^cups^250^100^N
+101 ;;^UTILITY(U,$J,112,2012,1)
+102 ;;=4^15.6^11^198^67.9^^^107^.3^^90^133^399^^^^^570^.6^.07
+103 ;;^UTILITY(U,$J,112,2012,2)
+104 ;;=.18^.5^^^^^.5^^50^8.55^^^^1.5
+105 ;;^UTILITY(U,$J,112,2012,4)
+106 ;;=^^^^^^5.16
+107 ;;^UTILITY(U,$J,112,2012,20)
+108 ;;=USDA Std. Reference, Release 8
