FHINI02K ; ; 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,730,4)
;;=.016^.012^.108^.81^.266^.751^2.564
;;^UTILITY(U,$J,112,730,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,733,0)
;;=BEEF, CHUCK RIB, CHOICE, TOT ED, BRAISED^13-052^oz.^28.3^78^N
;;^UTILITY(U,$J,112,733,1)
;;=26.16^27.82^0^363^45.96^^^13^3.05^19^197^228^64^8.14^.123^.015^^0^0^.07
;;^UTILITY(U,$J,112,733,2)
;;=.24^2.4^.3^.25^5^2.27^.68^.28^103^11.08^12.03^1^0^.86^^^0
;;^UTILITY(U,$J,112,733,3)
;;=.293^1.143^1.176^2.068^2.177^.67^.293^1.021^.879^1.273^1.654^.896^1.578^2.39^3.931^1.427^1.155^1
;;^UTILITY(U,$J,112,733,4)
;;=.07^.07^.89^6.75^1.13^3.31^10.84^.04
;;^UTILITY(U,$J,112,733,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,734,0)
;;=BEEF, CHUCK RIB, CHOICE, TRIMMED, BRAISED^13-060^oz.^28.3^56^N
;;^UTILITY(U,$J,112,734,1)
;;=31.06^14.4^0^263^54.6^^^13^3.68^23^235^263^71^10.27^.148^.018^^0^0^.08
;;^UTILITY(U,$J,112,734,2)
;;=.28^2.67^.35^.29^6^2.47^.39^.04^106^5.58^6.21^.47^0^.99^^^0
;;^UTILITY(U,$J,112,734,3)
;;=.348^1.357^1.397^2.455^2.584^.795^.348^1.213^1.044^1.511^1.963^1.064^1.874^2.838^4.667^1.695^1.372^1.188
;;^UTILITY(U,$J,112,734,4)
;;=.01^.01^.42^3.26^.5^1.88^5.7^.05
;;^UTILITY(U,$J,112,734,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,735,0)
;;=BEEF, ARM, CHOICE, TOT ED, BRAISED^13-036^oz.^28.3^88^N
;;^UTILITY(U,$J,112,735,1)
;;=26.98^25.78^0^348^46.85^^^10^3.05^19^216^243^59^6.7^.132^.016^^0^0^.07
;;^UTILITY(U,$J,112,735,2)
;;=.24^3.13^.32^.28^9^2.92^.65^.3^99^10.16^11.06^.98^0^.93^^^0
;;^UTILITY(U,$J,112,735,3)
;;=.302^1.178^1.213^2.132^2.245^.691^.302^1.053^.906^1.312^1.705^.924^1.627^2.465^4.053^1.472^1.191^1.032
;;^UTILITY(U,$J,112,735,4)
;;=.07^.07^.81^6.27^1.1^2.93^9.91^.03
;;^UTILITY(U,$J,112,735,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,736,0)
;;=BEEF, ARM, CHOICE, TRIMMED, BRAISED^13-044^oz.^28.3^65^N
;;^UTILITY(U,$J,112,736,1)
;;=33.02^9.3^0^225^57.3^^^9^3.79^24^268^289^66^8.66^.164^.019^^0^0^.08
;;^UTILITY(U,$J,112,736,2)
;;=.29^3.72^.38^.33^11^3.4^.29^.03^101^3.37^3.89^.36^0^1.11^^^0
;;^UTILITY(U,$J,112,736,3)
;;=.37^1.442^1.485^2.61^2.747^.845^.37^1.289^1.109^1.606^2.087^1.131^1.992^3.017^4.961^1.802^1.458^1.263
;;^UTILITY(U,$J,112,736,4)
;;=0^.01^.24^2.02^.34^1.1^3.54^.05
;;^UTILITY(U,$J,112,736,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,738,0)
;;=BEEF, HINDSHANK, CHOICE, TOT ED, SIMMER^13-226^oz.^28.3^68^N
;;^UTILITY(U,$J,112,738,1)
;;=30.69^14.68^0^263^53.06^^^30^3.5^27^239^404^61^9.31^.155^.018^^0^0^.12
;;^UTILITY(U,$J,112,738,2)
;;=.2^5.33^.37^.34^9^3.51^.36^.14^80^5.7^6.45^.53^0^2.14^^^0
;;^UTILITY(U,$J,112,738,3)
;;=.344^1.34^1.38^2.426^2.553^.786^.344^1.198^1.031^1.493^1.939^1.051^1.851^2.804^4.61^1.674^1.355^1.173
;;^UTILITY(U,$J,112,738,4)
;;=.04^.04^.46^3.49^.68^1.55^5.62^.03
;;^UTILITY(U,$J,112,738,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,739,0)
;;=BEEF, HINDSHANK, CHOICE, TRIMMED, SIMMER^13-228^oz.^28.3^62^N
;;^UTILITY(U,$J,112,739,1)
;;=33.68^6.36^0^201^58.21^^^32^3.86^30^263^447^64^10.49^.172^.02^^0^0^.14
;;^UTILITY(U,$J,112,739,2)
;;=.21^5.89^.41^.37^10^3.79^.17^.01^78^2.29^2.86^.21^0^2.39^^^0
;;^UTILITY(U,$J,112,739,3)
;;=.377^1.471^1.514^2.662^2.802^.862^.377^1.315^1.132^1.638^2.129^1.153^2.032^3.077^5.06^1.838^1.487^1.288
;;^UTILITY(U,$J,112,739,4)
;;=0^.01^.18^1.35^.31^.61^2.41^.03
;;^UTILITY(U,$J,112,739,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,740,0)
;;=BEEF, PORTERHOUSE STEAK, CHOICE, TOT ED, BRLD^13-230^oz.^28.3^81^N
;;^UTILITY(U,$J,112,740,1)
;;=24.84^22.11^0^305^51.74^^^8^2.63^25^187^352^61^4.64^.124^.013^^0^0^.1
;;^UTILITY(U,$J,112,740,2)
;;=.22^4.05^.31^.35^7^2.15^.55^.22^83^8.91^9.29^.83^0^1.09^^^0
;;^UTILITY(U,$J,112,740,3)
;;=.278^1.085^1.117^1.963^2.066^.636^.278^.97^.834^1.208^1.57^.85^1.498^2.269^3.731^1.355^1.097^.95
;;^UTILITY(U,$J,112,740,4)
;;=.06^.06^.68^5.34^.86^2.59^8.28^.04
;;^UTILITY(U,$J,112,740,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,741,0)
;;=BEEF, PORTERHOUSE STEAK, CHOICE, TRIMMED, BROILED^13-254^oz.^28.3^79^N
;;^UTILITY(U,$J,112,741,1)
;;=27.71^12.5^0^231^56.43^^^8^3.69^32^281^489^72^4.79^.145^.019^^0^0^.18
;;^UTILITY(U,$J,112,741,2)
;;=.33^4.55^.47^.57^9^3.87^.37^.05^83^4.72^4.77^.47^0^1.39^^^0
;;^UTILITY(U,$J,112,741,3)
;;=.31^1.21^1.246^2.19^2.305^.709^.31^1.082^.931^1.348^1.751^.949^1.671^2.531^4.163^1.512^1.224^1.06
;;^UTILITY(U,$J,112,741,4)
;;=.02^.02^.33^2.72^.37^1.64^4.41^.05
;;^UTILITY(U,$J,112,741,20)
;;=USDA Std. Reference, Release 10
FHINI02K ; ; 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,730,4)
+2 ;;=.016^.012^.108^.81^.266^.751^2.564
+3 ;;^UTILITY(U,$J,112,730,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,733,0)
+6 ;;=BEEF, CHUCK RIB, CHOICE, TOT ED, BRAISED^13-052^oz.^28.3^78^N
+7 ;;^UTILITY(U,$J,112,733,1)
+8 ;;=26.16^27.82^0^363^45.96^^^13^3.05^19^197^228^64^8.14^.123^.015^^0^0^.07
+9 ;;^UTILITY(U,$J,112,733,2)
+10 ;;=.24^2.4^.3^.25^5^2.27^.68^.28^103^11.08^12.03^1^0^.86^^^0
+11 ;;^UTILITY(U,$J,112,733,3)
+12 ;;=.293^1.143^1.176^2.068^2.177^.67^.293^1.021^.879^1.273^1.654^.896^1.578^2.39^3.931^1.427^1.155^1
+13 ;;^UTILITY(U,$J,112,733,4)
+14 ;;=.07^.07^.89^6.75^1.13^3.31^10.84^.04
+15 ;;^UTILITY(U,$J,112,733,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,734,0)
+18 ;;=BEEF, CHUCK RIB, CHOICE, TRIMMED, BRAISED^13-060^oz.^28.3^56^N
+19 ;;^UTILITY(U,$J,112,734,1)
+20 ;;=31.06^14.4^0^263^54.6^^^13^3.68^23^235^263^71^10.27^.148^.018^^0^0^.08
+21 ;;^UTILITY(U,$J,112,734,2)
+22 ;;=.28^2.67^.35^.29^6^2.47^.39^.04^106^5.58^6.21^.47^0^.99^^^0
+23 ;;^UTILITY(U,$J,112,734,3)
+24 ;;=.348^1.357^1.397^2.455^2.584^.795^.348^1.213^1.044^1.511^1.963^1.064^1.874^2.838^4.667^1.695^1.372^1.188
+25 ;;^UTILITY(U,$J,112,734,4)
+26 ;;=.01^.01^.42^3.26^.5^1.88^5.7^.05
+27 ;;^UTILITY(U,$J,112,734,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,735,0)
+30 ;;=BEEF, ARM, CHOICE, TOT ED, BRAISED^13-036^oz.^28.3^88^N
+31 ;;^UTILITY(U,$J,112,735,1)
+32 ;;=26.98^25.78^0^348^46.85^^^10^3.05^19^216^243^59^6.7^.132^.016^^0^0^.07
+33 ;;^UTILITY(U,$J,112,735,2)
+34 ;;=.24^3.13^.32^.28^9^2.92^.65^.3^99^10.16^11.06^.98^0^.93^^^0
+35 ;;^UTILITY(U,$J,112,735,3)
+36 ;;=.302^1.178^1.213^2.132^2.245^.691^.302^1.053^.906^1.312^1.705^.924^1.627^2.465^4.053^1.472^1.191^1.032
+37 ;;^UTILITY(U,$J,112,735,4)
+38 ;;=.07^.07^.81^6.27^1.1^2.93^9.91^.03
+39 ;;^UTILITY(U,$J,112,735,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,736,0)
+42 ;;=BEEF, ARM, CHOICE, TRIMMED, BRAISED^13-044^oz.^28.3^65^N
+43 ;;^UTILITY(U,$J,112,736,1)
+44 ;;=33.02^9.3^0^225^57.3^^^9^3.79^24^268^289^66^8.66^.164^.019^^0^0^.08
+45 ;;^UTILITY(U,$J,112,736,2)
+46 ;;=.29^3.72^.38^.33^11^3.4^.29^.03^101^3.37^3.89^.36^0^1.11^^^0
+47 ;;^UTILITY(U,$J,112,736,3)
+48 ;;=.37^1.442^1.485^2.61^2.747^.845^.37^1.289^1.109^1.606^2.087^1.131^1.992^3.017^4.961^1.802^1.458^1.263
+49 ;;^UTILITY(U,$J,112,736,4)
+50 ;;=0^.01^.24^2.02^.34^1.1^3.54^.05
+51 ;;^UTILITY(U,$J,112,736,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,738,0)
+54 ;;=BEEF, HINDSHANK, CHOICE, TOT ED, SIMMER^13-226^oz.^28.3^68^N
+55 ;;^UTILITY(U,$J,112,738,1)
+56 ;;=30.69^14.68^0^263^53.06^^^30^3.5^27^239^404^61^9.31^.155^.018^^0^0^.12
+57 ;;^UTILITY(U,$J,112,738,2)
+58 ;;=.2^5.33^.37^.34^9^3.51^.36^.14^80^5.7^6.45^.53^0^2.14^^^0
+59 ;;^UTILITY(U,$J,112,738,3)
+60 ;;=.344^1.34^1.38^2.426^2.553^.786^.344^1.198^1.031^1.493^1.939^1.051^1.851^2.804^4.61^1.674^1.355^1.173
+61 ;;^UTILITY(U,$J,112,738,4)
+62 ;;=.04^.04^.46^3.49^.68^1.55^5.62^.03
+63 ;;^UTILITY(U,$J,112,738,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,739,0)
+66 ;;=BEEF, HINDSHANK, CHOICE, TRIMMED, SIMMER^13-228^oz.^28.3^62^N
+67 ;;^UTILITY(U,$J,112,739,1)
+68 ;;=33.68^6.36^0^201^58.21^^^32^3.86^30^263^447^64^10.49^.172^.02^^0^0^.14
+69 ;;^UTILITY(U,$J,112,739,2)
+70 ;;=.21^5.89^.41^.37^10^3.79^.17^.01^78^2.29^2.86^.21^0^2.39^^^0
+71 ;;^UTILITY(U,$J,112,739,3)
+72 ;;=.377^1.471^1.514^2.662^2.802^.862^.377^1.315^1.132^1.638^2.129^1.153^2.032^3.077^5.06^1.838^1.487^1.288
+73 ;;^UTILITY(U,$J,112,739,4)
+74 ;;=0^.01^.18^1.35^.31^.61^2.41^.03
+75 ;;^UTILITY(U,$J,112,739,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,740,0)
+78 ;;=BEEF, PORTERHOUSE STEAK, CHOICE, TOT ED, BRLD^13-230^oz.^28.3^81^N
+79 ;;^UTILITY(U,$J,112,740,1)
+80 ;;=24.84^22.11^0^305^51.74^^^8^2.63^25^187^352^61^4.64^.124^.013^^0^0^.1
+81 ;;^UTILITY(U,$J,112,740,2)
+82 ;;=.22^4.05^.31^.35^7^2.15^.55^.22^83^8.91^9.29^.83^0^1.09^^^0
+83 ;;^UTILITY(U,$J,112,740,3)
+84 ;;=.278^1.085^1.117^1.963^2.066^.636^.278^.97^.834^1.208^1.57^.85^1.498^2.269^3.731^1.355^1.097^.95
+85 ;;^UTILITY(U,$J,112,740,4)
+86 ;;=.06^.06^.68^5.34^.86^2.59^8.28^.04
+87 ;;^UTILITY(U,$J,112,740,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,741,0)
+90 ;;=BEEF, PORTERHOUSE STEAK, CHOICE, TRIMMED, BROILED^13-254^oz.^28.3^79^N
+91 ;;^UTILITY(U,$J,112,741,1)
+92 ;;=27.71^12.5^0^231^56.43^^^8^3.69^32^281^489^72^4.79^.145^.019^^0^0^.18
+93 ;;^UTILITY(U,$J,112,741,2)
+94 ;;=.33^4.55^.47^.57^9^3.87^.37^.05^83^4.72^4.77^.47^0^1.39^^^0
+95 ;;^UTILITY(U,$J,112,741,3)
+96 ;;=.31^1.21^1.246^2.19^2.305^.709^.31^1.082^.931^1.348^1.751^.949^1.671^2.531^4.163^1.512^1.224^1.06
+97 ;;^UTILITY(U,$J,112,741,4)
+98 ;;=.02^.02^.33^2.72^.37^1.64^4.41^.05
+99 ;;^UTILITY(U,$J,112,741,20)
+100 ;;=USDA Std. Reference, Release 10
