FHINI010 ; ; 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,180,4)
;;=.01^.01^.14^2.62^.42^1.32^4.72^.05
;;^UTILITY(U,$J,112,180,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,181,0)
;;=PORK, TOP LOIN, TRIMMED, BRAISED^10-067^oz.^28.3^60^N
;;^UTILITY(U,$J,112,181,1)
;;=29.07^8.59^0^202^61.01^^^23^1.01^20^186^421^42^2.18^.078^.011^^6^.3^.571
;;^UTILITY(U,$J,112,181,2)
;;=.268^4.7^.664^.345^5^.46^.54^.02^73^3.13^3.97^.61^2^1.31^^^0
;;^UTILITY(U,$J,112,181,3)
;;=.369^1.327^1.361^2.332^2.614^.77^.371^1.16^1.013^1.577^1.807^1.161^1.693^2.696^4.55^1.38^1.168^1.201
;;^UTILITY(U,$J,112,181,4)
;;=.01^.01^.11^1.96^.3^.99^3.56^.03
;;^UTILITY(U,$J,112,181,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,182,0)
;;=PORK, TOP LOIN, TRIMMED, BROILED^10-068^oz.^28.3^61^N
;;^UTILITY(U,$J,112,182,1)
;;=31.14^7.77^0^203^60.72^^^31^.82^28^245^420^65^2.38^.07^.02^^6^.3^.894
;;^UTILITY(U,$J,112,182,2)
;;=.323^5.231^.746^.4^9^.7^.42^.01^80^2.72^3.59^.49^2^1.16^^^0
;;^UTILITY(U,$J,112,182,3)
;;=.396^1.422^1.458^2.499^2.8^.825^.397^1.243^1.085^1.689^1.936^1.244^1.814^2.888^4.875^1.479^1.251^1.286
;;^UTILITY(U,$J,112,182,4)
;;=0^0^.1^1.72^.27^.84^3.22^.03^^47.3
;;^UTILITY(U,$J,112,182,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,183,0)
;;=PORK, TOP LOIN, TRIMMED, ROASTED^10-069^oz.^28.3^63^N
;;^UTILITY(U,$J,112,183,1)
;;=30.24^7.21^0^194^62.21^^^5^1.06^25^221^354^45^2.31^.016^.011^^8^.4^.639
;;^UTILITY(U,$J,112,183,2)
;;=.312^5.355^.581^.4^9^.55^.41^.01^78^2.62^3.36^.48^2^1.11^^^0
;;^UTILITY(U,$J,112,183,3)
;;=.384^1.381^1.416^2.426^2.719^.801^.386^1.207^1.053^1.64^1.88^1.208^1.761^2.804^4.733^1.436^1.215^1.249
;;^UTILITY(U,$J,112,183,4)
;;=.01^.01^.09^1.65^.27^.82^2.99^.03^^48.2
;;^UTILITY(U,$J,112,183,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,186,0)
;;=PORK, ARM PICNIC, TOT ED, BRAISED^10-075^oz.^28.3^75^N
;;^UTILITY(U,$J,112,186,1)
;;=27.99^23.22^0^329^47.65^^^18^1.61^19^212^369^88^4.18^.138^.014^^9^.3^.541
;;^UTILITY(U,$J,112,186,2)
;;=.307^5.214^.595^.35^4^.65^2.02^.07^109^8.49^10.38^2.28^3^1.16^^^0
;;^UTILITY(U,$J,112,186,3)
;;=.331^1.24^1.256^2.203^2.485^.708^.345^1.105^.929^1.492^1.809^1.048^1.662^2.534^4.207^1.64^1.295^1.156
;;^UTILITY(U,$J,112,186,4)
;;=.01^.01^.29^5.24^.62^2.78^9.47^.09
;;^UTILITY(U,$J,112,186,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,187,0)
;;=PORK, ARM PICNIC, TOT ED, ROASTED^10-076^oz.^28.3^73^N
;;^UTILITY(U,$J,112,187,1)
;;=23.47^24.01^0^317^52.04^^^19^1.18^17^228^325^70^3.45^.111^.033^^8^.2^.522
;;^UTILITY(U,$J,112,187,2)
;;=.302^3.918^.532^.348^4^.71^2.09^.07^94^8.78^10.72^2.35^2^.99^^^0
;;^UTILITY(U,$J,112,187,3)
;;=.273^1.032^1.042^1.838^2.077^.587^.286^.924^.77^1.246^1.531^.864^1.4^2.112^3.492^1.439^1.12^.969
;;^UTILITY(U,$J,112,187,4)
;;=.02^.01^.3^5.42^.64^2.87^9.78^.09
;;^UTILITY(U,$J,112,187,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,188,0)
;;=PORK, ARM PICNIC, TRIMMED, BRAISED^10-078^oz.^28.3^59^N
;;^UTILITY(U,$J,112,188,1)
;;=32.26^12.21^0^248^54.26^^^8^1.95^22^226^405^102^4.97^.161^.017^^8^.4^.6
;;^UTILITY(U,$J,112,188,2)
;;=.36^5.94^.67^.41^5^.71^1.01^.03^114^4.16^5.78^1.16^2^1.27^^^0
;;^UTILITY(U,$J,112,188,3)
;;=.41^1.473^1.511^2.588^2.901^.854^.411^1.288^1.124^1.75^2.005^1.289^1.879^2.992^5.05^1.532^1.296^1.333
;;^UTILITY(U,$J,112,188,4)
;;=0^0^.13^2.61^.34^1.32^5.26^.08
;;^UTILITY(U,$J,112,188,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,189,0)
;;=PORK, ARM PICNIC, TRIMMED, ROASTED^10-079^oz.^28.3^57^N
;;^UTILITY(U,$J,112,189,1)
;;=26.68^12.62^0^228^60.27^^^9^1.42^20^247^351^80^4.07^.128^.041^^7^.3^.578
;;^UTILITY(U,$J,112,189,2)
;;=.357^4.314^.592^.41^5^.78^1.04^.03^95^4.3^5.98^1.2^2^1.06^^^0
;;^UTILITY(U,$J,112,189,3)
;;=.339^1.218^1.249^2.141^2.399^.706^.34^1.065^.93^1.447^1.659^1.066^1.554^2.475^4.176^1.267^1.072^1.102
;;^UTILITY(U,$J,112,189,4)
;;=0^0^.14^2.7^.35^1.36^5.44^.08
;;^UTILITY(U,$J,112,189,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,190,0)
;;=PORK, BLADE, BOSTON, TOT ED, BRSD^10-081^oz.^28.3^89^N
;;^UTILITY(U,$J,112,190,1)
;;=28.67^21.74^0^319^48.35^^^32^1.83^18^179^389^70^5.02^.151^.014^^10^.3^.668
;;^UTILITY(U,$J,112,190,2)
;;=.361^4.056^.782^.27^2^.91^1.74^.07^113^7.94^9.6^1.98^3^1.19^^^0
;;^UTILITY(U,$J,112,190,3)
;;=.35^1.287^1.31^2.275^2.56^.74^.358^1.137^.972^1.54^1.824^1.103^1.689^2.622^4.384^1.549^1.254^1.184
;;^UTILITY(U,$J,112,190,4)
;;=.02^.01^.27^4.86^.61^2.63^8.67^.08
;;^UTILITY(U,$J,112,190,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,191,0)
;;=PORK, BLADE, BOSTON, TOT ED, BRLD^10-082^oz.^28.3^88^N
FHINI010 ; ; 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,180,4)
+2 ;;=.01^.01^.14^2.62^.42^1.32^4.72^.05
+3 ;;^UTILITY(U,$J,112,180,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,181,0)
+6 ;;=PORK, TOP LOIN, TRIMMED, BRAISED^10-067^oz.^28.3^60^N
+7 ;;^UTILITY(U,$J,112,181,1)
+8 ;;=29.07^8.59^0^202^61.01^^^23^1.01^20^186^421^42^2.18^.078^.011^^6^.3^.571
+9 ;;^UTILITY(U,$J,112,181,2)
+10 ;;=.268^4.7^.664^.345^5^.46^.54^.02^73^3.13^3.97^.61^2^1.31^^^0
+11 ;;^UTILITY(U,$J,112,181,3)
+12 ;;=.369^1.327^1.361^2.332^2.614^.77^.371^1.16^1.013^1.577^1.807^1.161^1.693^2.696^4.55^1.38^1.168^1.201
+13 ;;^UTILITY(U,$J,112,181,4)
+14 ;;=.01^.01^.11^1.96^.3^.99^3.56^.03
+15 ;;^UTILITY(U,$J,112,181,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,182,0)
+18 ;;=PORK, TOP LOIN, TRIMMED, BROILED^10-068^oz.^28.3^61^N
+19 ;;^UTILITY(U,$J,112,182,1)
+20 ;;=31.14^7.77^0^203^60.72^^^31^.82^28^245^420^65^2.38^.07^.02^^6^.3^.894
+21 ;;^UTILITY(U,$J,112,182,2)
+22 ;;=.323^5.231^.746^.4^9^.7^.42^.01^80^2.72^3.59^.49^2^1.16^^^0
+23 ;;^UTILITY(U,$J,112,182,3)
+24 ;;=.396^1.422^1.458^2.499^2.8^.825^.397^1.243^1.085^1.689^1.936^1.244^1.814^2.888^4.875^1.479^1.251^1.286
+25 ;;^UTILITY(U,$J,112,182,4)
+26 ;;=0^0^.1^1.72^.27^.84^3.22^.03^^47.3
+27 ;;^UTILITY(U,$J,112,182,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,183,0)
+30 ;;=PORK, TOP LOIN, TRIMMED, ROASTED^10-069^oz.^28.3^63^N
+31 ;;^UTILITY(U,$J,112,183,1)
+32 ;;=30.24^7.21^0^194^62.21^^^5^1.06^25^221^354^45^2.31^.016^.011^^8^.4^.639
+33 ;;^UTILITY(U,$J,112,183,2)
+34 ;;=.312^5.355^.581^.4^9^.55^.41^.01^78^2.62^3.36^.48^2^1.11^^^0
+35 ;;^UTILITY(U,$J,112,183,3)
+36 ;;=.384^1.381^1.416^2.426^2.719^.801^.386^1.207^1.053^1.64^1.88^1.208^1.761^2.804^4.733^1.436^1.215^1.249
+37 ;;^UTILITY(U,$J,112,183,4)
+38 ;;=.01^.01^.09^1.65^.27^.82^2.99^.03^^48.2
+39 ;;^UTILITY(U,$J,112,183,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,186,0)
+42 ;;=PORK, ARM PICNIC, TOT ED, BRAISED^10-075^oz.^28.3^75^N
+43 ;;^UTILITY(U,$J,112,186,1)
+44 ;;=27.99^23.22^0^329^47.65^^^18^1.61^19^212^369^88^4.18^.138^.014^^9^.3^.541
+45 ;;^UTILITY(U,$J,112,186,2)
+46 ;;=.307^5.214^.595^.35^4^.65^2.02^.07^109^8.49^10.38^2.28^3^1.16^^^0
+47 ;;^UTILITY(U,$J,112,186,3)
+48 ;;=.331^1.24^1.256^2.203^2.485^.708^.345^1.105^.929^1.492^1.809^1.048^1.662^2.534^4.207^1.64^1.295^1.156
+49 ;;^UTILITY(U,$J,112,186,4)
+50 ;;=.01^.01^.29^5.24^.62^2.78^9.47^.09
+51 ;;^UTILITY(U,$J,112,186,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,187,0)
+54 ;;=PORK, ARM PICNIC, TOT ED, ROASTED^10-076^oz.^28.3^73^N
+55 ;;^UTILITY(U,$J,112,187,1)
+56 ;;=23.47^24.01^0^317^52.04^^^19^1.18^17^228^325^70^3.45^.111^.033^^8^.2^.522
+57 ;;^UTILITY(U,$J,112,187,2)
+58 ;;=.302^3.918^.532^.348^4^.71^2.09^.07^94^8.78^10.72^2.35^2^.99^^^0
+59 ;;^UTILITY(U,$J,112,187,3)
+60 ;;=.273^1.032^1.042^1.838^2.077^.587^.286^.924^.77^1.246^1.531^.864^1.4^2.112^3.492^1.439^1.12^.969
+61 ;;^UTILITY(U,$J,112,187,4)
+62 ;;=.02^.01^.3^5.42^.64^2.87^9.78^.09
+63 ;;^UTILITY(U,$J,112,187,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,188,0)
+66 ;;=PORK, ARM PICNIC, TRIMMED, BRAISED^10-078^oz.^28.3^59^N
+67 ;;^UTILITY(U,$J,112,188,1)
+68 ;;=32.26^12.21^0^248^54.26^^^8^1.95^22^226^405^102^4.97^.161^.017^^8^.4^.6
+69 ;;^UTILITY(U,$J,112,188,2)
+70 ;;=.36^5.94^.67^.41^5^.71^1.01^.03^114^4.16^5.78^1.16^2^1.27^^^0
+71 ;;^UTILITY(U,$J,112,188,3)
+72 ;;=.41^1.473^1.511^2.588^2.901^.854^.411^1.288^1.124^1.75^2.005^1.289^1.879^2.992^5.05^1.532^1.296^1.333
+73 ;;^UTILITY(U,$J,112,188,4)
+74 ;;=0^0^.13^2.61^.34^1.32^5.26^.08
+75 ;;^UTILITY(U,$J,112,188,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,189,0)
+78 ;;=PORK, ARM PICNIC, TRIMMED, ROASTED^10-079^oz.^28.3^57^N
+79 ;;^UTILITY(U,$J,112,189,1)
+80 ;;=26.68^12.62^0^228^60.27^^^9^1.42^20^247^351^80^4.07^.128^.041^^7^.3^.578
+81 ;;^UTILITY(U,$J,112,189,2)
+82 ;;=.357^4.314^.592^.41^5^.78^1.04^.03^95^4.3^5.98^1.2^2^1.06^^^0
+83 ;;^UTILITY(U,$J,112,189,3)
+84 ;;=.339^1.218^1.249^2.141^2.399^.706^.34^1.065^.93^1.447^1.659^1.066^1.554^2.475^4.176^1.267^1.072^1.102
+85 ;;^UTILITY(U,$J,112,189,4)
+86 ;;=0^0^.14^2.7^.35^1.36^5.44^.08
+87 ;;^UTILITY(U,$J,112,189,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,190,0)
+90 ;;=PORK, BLADE, BOSTON, TOT ED, BRSD^10-081^oz.^28.3^89^N
+91 ;;^UTILITY(U,$J,112,190,1)
+92 ;;=28.67^21.74^0^319^48.35^^^32^1.83^18^179^389^70^5.02^.151^.014^^10^.3^.668
+93 ;;^UTILITY(U,$J,112,190,2)
+94 ;;=.361^4.056^.782^.27^2^.91^1.74^.07^113^7.94^9.6^1.98^3^1.19^^^0
+95 ;;^UTILITY(U,$J,112,190,3)
+96 ;;=.35^1.287^1.31^2.275^2.56^.74^.358^1.137^.972^1.54^1.824^1.103^1.689^2.622^4.384^1.549^1.254^1.184
+97 ;;^UTILITY(U,$J,112,190,4)
+98 ;;=.02^.01^.27^4.86^.61^2.63^8.67^.08
+99 ;;^UTILITY(U,$J,112,190,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,191,0)
+102 ;;=PORK, BLADE, BOSTON, TOT ED, BRLD^10-082^oz.^28.3^88^N
