FHINI00Y ; ; 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,164,0)
;;=PORK, CENTER LOIN, TRIMMED, ROASTED^10-043^oz.^28.3^69^N
;;^UTILITY(U,$J,112,164,1)
;;=27.55^9.01^0^199^62.98^^^25^1.04^22^219^362^66^2.09^.07^.016^^7^1^.912
;;^UTILITY(U,$J,112,164,2)
;;=.266^5.454^.694^.371^4^.58^.63^.02^79^3.34^4^.72^2^1.37^^^0
;;^UTILITY(U,$J,112,164,3)
;;=.35^1.258^1.29^2.21^2.477^.729^.351^1.1^.96^1.495^1.713^1.101^1.605^2.555^4.313^1.308^1.107^1.138
;;^UTILITY(U,$J,112,164,4)
;;=.01^.01^.12^2.06^.3^1.08^3.57^.03
;;^UTILITY(U,$J,112,164,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,165,0)
;;=PORK, CENTER RIB, TOT ED, BRAISED^10-045^oz.^28.3^75^N
;;^UTILITY(U,$J,112,165,1)
;;=26.67^15.07^0^250^56.99^^^25^.91^18^177^387^40^2.01^.072^.01^^7^.3^.593
;;^UTILITY(U,$J,112,165,2)
;;=.232^4.939^.514^.315^2^.53^1.15^.04^73^5.84^6.87^1.27^2^1.23^^^0
;;^UTILITY(U,$J,112,165,3)
;;=.327^1.199^1.222^2.119^2.383^.69^.334^1.059^.907^1.434^1.692^1.031^1.569^2.443^4.09^1.418^1.155^1.101
;;^UTILITY(U,$J,112,165,4)
;;=.01^.01^.2^3.59^.47^1.92^6.24^.05
;;^UTILITY(U,$J,112,165,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,166,0)
;;=PORK, CENTER RIB, TOT ED, BROILED^10-046^oz.^28.3^74^N
;;^UTILITY(U,$J,112,166,1)
;;=28.79^15.48^0^263^53.37^^^33^.77^26^237^401^62^2.26^.068^.018^^7^.3^1.033
;;^UTILITY(U,$J,112,166,2)
;;=.303^5.781^.663^.434^3^.73^1.08^.04^82^5.69^6.88^1.23^2^1.19^^^0
;;^UTILITY(U,$J,112,166,3)
;;=.354^1.296^1.321^2.289^2.573^.746^.361^1.143^.98^1.549^1.824^1.115^1.693^2.639^4.42^1.522^1.241^1.189
;;^UTILITY(U,$J,112,166,4)
;;=.01^.01^.2^3.51^.48^1.85^6.22^.05
;;^UTILITY(U,$J,112,166,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,167,0)
;;=PORK, CENTER RIB, TOT ED, ROASTED^10-047^oz.^28.3^73^N
;;^UTILITY(U,$J,112,167,1)
;;=27.43^15.28^0^255^55.99^^^28^.94^21^231^421^46^2.06^.074^.01^^6^.3^.724
;;^UTILITY(U,$J,112,167,2)
;;=.3^6.116^.526^.324^3^.66^1.16^.04^73^5.92^6.98^1.28^2^1.26^^^0
;;^UTILITY(U,$J,112,167,3)
;;=.339^1.239^1.265^2.185^2.455^.714^.345^1.09^.939^1.478^1.73^1.07^1.609^2.521^4.23^1.416^1.164^1.133
;;^UTILITY(U,$J,112,167,4)
;;=.01^.01^.21^3.64^.48^1.95^6.34^.05
;;^UTILITY(U,$J,112,167,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,168,0)
;;=PORK, CENTER RIB, TRIMMED, BRAISED^10-049^oz.^28.3^59^N
;;^UTILITY(U,$J,112,168,1)
;;=28.35^9.4^0^206^60.91^^^22^.97^19^179^405^41^2.1^.075^.01^^6^.3^.624
;;^UTILITY(U,$J,112,168,2)
;;=.247^5.219^.536^.337^2^.54^.61^.02^71^3.67^4.49^.68^2^1.28^^^0
;;^UTILITY(U,$J,112,168,3)
;;=.36^1.294^1.327^2.275^2.549^.751^.362^1.132^.988^1.538^1.762^1.132^1.651^2.629^4.438^1.346^1.139^1.171
;;^UTILITY(U,$J,112,168,4)
;;=.01^.01^.13^2.27^.33^1.2^4.07^.04
;;^UTILITY(U,$J,112,168,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,169,0)
;;=PORK, CENTER RIB, TRIMMED, BROILED^10-050^oz.^28.3^60^N
;;^UTILITY(U,$J,112,169,1)
;;=30.76^9.74^0^219^56.95^^^31^.82^28^245^420^65^2.38^.07^.02^^6^.3^1.117
;;^UTILITY(U,$J,112,169,2)
;;=.326^6.167^.704^.47^3^.76^.53^.01^81^3.46^4.45^.62^2^1.24^^^0
;;^UTILITY(U,$J,112,169,3)
;;=.391^1.404^1.44^2.468^2.766^.814^.392^1.228^1.072^1.669^1.912^1.229^1.792^2.853^4.815^1.46^1.236^1.27
;;^UTILITY(U,$J,112,169,4)
;;=.01^.01^.12^2.16^.34^1.1^3.99^.04^^47.3
;;^UTILITY(U,$J,112,169,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,170,0)
;;=PORK, CENTER RIB, TRIMMED, ROASTED^10-051^oz.^28.3^61^N
;;^UTILITY(U,$J,112,170,1)
;;=28.72^11.16^0^223^58.77^^^26^.98^22^237^437^47^2.13^.076^.011^^6^.3^.758
;;^UTILITY(U,$J,112,170,2)
;;=.316^6.419^.543^.341^3^.68^.77^.02^71^4.35^5.25^.85^2^1.3^^^0
;;^UTILITY(U,$J,112,170,3)
;;=.365^1.311^1.345^2.304^2.582^.76^.366^1.146^1.001^1.558^1.785^1.147^1.673^2.663^4.495^1.364^1.154^1.186
;;^UTILITY(U,$J,112,170,4)
;;=.01^.01^.15^2.69^.38^1.42^4.76^.04^^43.2
;;^UTILITY(U,$J,112,170,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,171,0)
;;=PORK, SIRLOIN, TOT ED, BRAISED^10-053^oz.^28.3^80^N
;;^UTILITY(U,$J,112,171,1)
;;=25.36^15.11^0^245^58.73^^^18^1.17^19^174^325^51^2.45^.058^.013^^7^.8^.655
;;^UTILITY(U,$J,112,171,2)
;;=.262^3.797^.649^.409^3^.56^1.24^.04^82^5.56^6.56^1.4^2^1.33^^^0
;;^UTILITY(U,$J,112,171,3)
;;=.309^1.138^1.159^2.012^2.264^.654^.317^1.006^.86^1.362^1.613^.976^1.494^2.32^3.879^1.366^1.107^1.047
;;^UTILITY(U,$J,112,171,4)
;;=.01^.01^.19^3.42^.43^1.82^5.95^.06
;;^UTILITY(U,$J,112,171,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,172,0)
;;=PORK, SIRLOIN, TOT ED, BROILED^10-054^oz.^28.3^79^N
;;^UTILITY(U,$J,112,172,1)
;;=26.65^16.09^0^259^56.4^^^17^.99^29^246^383^68^2.57^.058^.01^^8^.9^.949
FHINI00Y ; ; 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,164,0)
+2 ;;=PORK, CENTER LOIN, TRIMMED, ROASTED^10-043^oz.^28.3^69^N
+3 ;;^UTILITY(U,$J,112,164,1)
+4 ;;=27.55^9.01^0^199^62.98^^^25^1.04^22^219^362^66^2.09^.07^.016^^7^1^.912
+5 ;;^UTILITY(U,$J,112,164,2)
+6 ;;=.266^5.454^.694^.371^4^.58^.63^.02^79^3.34^4^.72^2^1.37^^^0
+7 ;;^UTILITY(U,$J,112,164,3)
+8 ;;=.35^1.258^1.29^2.21^2.477^.729^.351^1.1^.96^1.495^1.713^1.101^1.605^2.555^4.313^1.308^1.107^1.138
+9 ;;^UTILITY(U,$J,112,164,4)
+10 ;;=.01^.01^.12^2.06^.3^1.08^3.57^.03
+11 ;;^UTILITY(U,$J,112,164,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,165,0)
+14 ;;=PORK, CENTER RIB, TOT ED, BRAISED^10-045^oz.^28.3^75^N
+15 ;;^UTILITY(U,$J,112,165,1)
+16 ;;=26.67^15.07^0^250^56.99^^^25^.91^18^177^387^40^2.01^.072^.01^^7^.3^.593
+17 ;;^UTILITY(U,$J,112,165,2)
+18 ;;=.232^4.939^.514^.315^2^.53^1.15^.04^73^5.84^6.87^1.27^2^1.23^^^0
+19 ;;^UTILITY(U,$J,112,165,3)
+20 ;;=.327^1.199^1.222^2.119^2.383^.69^.334^1.059^.907^1.434^1.692^1.031^1.569^2.443^4.09^1.418^1.155^1.101
+21 ;;^UTILITY(U,$J,112,165,4)
+22 ;;=.01^.01^.2^3.59^.47^1.92^6.24^.05
+23 ;;^UTILITY(U,$J,112,165,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,166,0)
+26 ;;=PORK, CENTER RIB, TOT ED, BROILED^10-046^oz.^28.3^74^N
+27 ;;^UTILITY(U,$J,112,166,1)
+28 ;;=28.79^15.48^0^263^53.37^^^33^.77^26^237^401^62^2.26^.068^.018^^7^.3^1.033
+29 ;;^UTILITY(U,$J,112,166,2)
+30 ;;=.303^5.781^.663^.434^3^.73^1.08^.04^82^5.69^6.88^1.23^2^1.19^^^0
+31 ;;^UTILITY(U,$J,112,166,3)
+32 ;;=.354^1.296^1.321^2.289^2.573^.746^.361^1.143^.98^1.549^1.824^1.115^1.693^2.639^4.42^1.522^1.241^1.189
+33 ;;^UTILITY(U,$J,112,166,4)
+34 ;;=.01^.01^.2^3.51^.48^1.85^6.22^.05
+35 ;;^UTILITY(U,$J,112,166,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,167,0)
+38 ;;=PORK, CENTER RIB, TOT ED, ROASTED^10-047^oz.^28.3^73^N
+39 ;;^UTILITY(U,$J,112,167,1)
+40 ;;=27.43^15.28^0^255^55.99^^^28^.94^21^231^421^46^2.06^.074^.01^^6^.3^.724
+41 ;;^UTILITY(U,$J,112,167,2)
+42 ;;=.3^6.116^.526^.324^3^.66^1.16^.04^73^5.92^6.98^1.28^2^1.26^^^0
+43 ;;^UTILITY(U,$J,112,167,3)
+44 ;;=.339^1.239^1.265^2.185^2.455^.714^.345^1.09^.939^1.478^1.73^1.07^1.609^2.521^4.23^1.416^1.164^1.133
+45 ;;^UTILITY(U,$J,112,167,4)
+46 ;;=.01^.01^.21^3.64^.48^1.95^6.34^.05
+47 ;;^UTILITY(U,$J,112,167,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,168,0)
+50 ;;=PORK, CENTER RIB, TRIMMED, BRAISED^10-049^oz.^28.3^59^N
+51 ;;^UTILITY(U,$J,112,168,1)
+52 ;;=28.35^9.4^0^206^60.91^^^22^.97^19^179^405^41^2.1^.075^.01^^6^.3^.624
+53 ;;^UTILITY(U,$J,112,168,2)
+54 ;;=.247^5.219^.536^.337^2^.54^.61^.02^71^3.67^4.49^.68^2^1.28^^^0
+55 ;;^UTILITY(U,$J,112,168,3)
+56 ;;=.36^1.294^1.327^2.275^2.549^.751^.362^1.132^.988^1.538^1.762^1.132^1.651^2.629^4.438^1.346^1.139^1.171
+57 ;;^UTILITY(U,$J,112,168,4)
+58 ;;=.01^.01^.13^2.27^.33^1.2^4.07^.04
+59 ;;^UTILITY(U,$J,112,168,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,169,0)
+62 ;;=PORK, CENTER RIB, TRIMMED, BROILED^10-050^oz.^28.3^60^N
+63 ;;^UTILITY(U,$J,112,169,1)
+64 ;;=30.76^9.74^0^219^56.95^^^31^.82^28^245^420^65^2.38^.07^.02^^6^.3^1.117
+65 ;;^UTILITY(U,$J,112,169,2)
+66 ;;=.326^6.167^.704^.47^3^.76^.53^.01^81^3.46^4.45^.62^2^1.24^^^0
+67 ;;^UTILITY(U,$J,112,169,3)
+68 ;;=.391^1.404^1.44^2.468^2.766^.814^.392^1.228^1.072^1.669^1.912^1.229^1.792^2.853^4.815^1.46^1.236^1.27
+69 ;;^UTILITY(U,$J,112,169,4)
+70 ;;=.01^.01^.12^2.16^.34^1.1^3.99^.04^^47.3
+71 ;;^UTILITY(U,$J,112,169,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,170,0)
+74 ;;=PORK, CENTER RIB, TRIMMED, ROASTED^10-051^oz.^28.3^61^N
+75 ;;^UTILITY(U,$J,112,170,1)
+76 ;;=28.72^11.16^0^223^58.77^^^26^.98^22^237^437^47^2.13^.076^.011^^6^.3^.758
+77 ;;^UTILITY(U,$J,112,170,2)
+78 ;;=.316^6.419^.543^.341^3^.68^.77^.02^71^4.35^5.25^.85^2^1.3^^^0
+79 ;;^UTILITY(U,$J,112,170,3)
+80 ;;=.365^1.311^1.345^2.304^2.582^.76^.366^1.146^1.001^1.558^1.785^1.147^1.673^2.663^4.495^1.364^1.154^1.186
+81 ;;^UTILITY(U,$J,112,170,4)
+82 ;;=.01^.01^.15^2.69^.38^1.42^4.76^.04^^43.2
+83 ;;^UTILITY(U,$J,112,170,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,171,0)
+86 ;;=PORK, SIRLOIN, TOT ED, BRAISED^10-053^oz.^28.3^80^N
+87 ;;^UTILITY(U,$J,112,171,1)
+88 ;;=25.36^15.11^0^245^58.73^^^18^1.17^19^174^325^51^2.45^.058^.013^^7^.8^.655
+89 ;;^UTILITY(U,$J,112,171,2)
+90 ;;=.262^3.797^.649^.409^3^.56^1.24^.04^82^5.56^6.56^1.4^2^1.33^^^0
+91 ;;^UTILITY(U,$J,112,171,3)
+92 ;;=.309^1.138^1.159^2.012^2.264^.654^.317^1.006^.86^1.362^1.613^.976^1.494^2.32^3.879^1.366^1.107^1.047
+93 ;;^UTILITY(U,$J,112,171,4)
+94 ;;=.01^.01^.19^3.42^.43^1.82^5.95^.06
+95 ;;^UTILITY(U,$J,112,171,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,172,0)
+98 ;;=PORK, SIRLOIN, TOT ED, BROILED^10-054^oz.^28.3^79^N
+99 ;;^UTILITY(U,$J,112,172,1)
+100 ;;=26.65^16.09^0^259^56.4^^^17^.99^29^246^383^68^2.57^.058^.01^^8^.9^.949
