FHINI011 ; ; 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,191,1)
;;=25.58^16.61^0^259^57.25^^^36^1.4^21^210^326^69^4.51^.058^.003^^9^.3^.695
;;^UTILITY(U,$J,112,191,2)
;;=.397^4.07^.727^.277^4^1.06^1.26^.05^95^5.95^7.42^1.46^3^1.08^^^0
;;^UTILITY(U,$J,112,191,3)
;;=.325^1.168^1.198^2.052^2.3^.677^.326^1.021^.891^1.388^1.59^1.022^1.49^2.373^4.004^1.215^1.028^1.057
;;^UTILITY(U,$J,112,191,4)
;;=.01^.01^.2^3.65^.48^1.97^6.67^.07
;;^UTILITY(U,$J,112,191,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,192,0)
;;=PORK, BLADE, BOSTON, TOT ED, RSTD^10-083^oz.^28.3^87^N
;;^UTILITY(U,$J,112,192,1)
;;=23.11^18.86^0^269^57.47^^^28^1.45^18^197^332^67^3.96^.114^.012^^7^.7^.638
;;^UTILITY(U,$J,112,192,2)
;;=.355^4.061^.665^.23^5^.88^1.55^.06^86^6.97^8.27^1.76^2^1.23^^^0
;;^UTILITY(U,$J,112,192,3)
;;=.283^1.039^1.059^1.836^2.064^.598^.289^.917^.785^1.242^1.467^.893^1.36^2.117^3.542^1.232^1.002^.954
;;^UTILITY(U,$J,112,192,4)
;;=.01^.01^.23^4.26^.52^2.31^7.49^.06
;;^UTILITY(U,$J,112,192,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,193,0)
;;=PORK, BLADE, BOSTON, TRIMMED, BRAISED^10-085^oz.^28.3^72^N
;;^UTILITY(U,$J,112,193,1)
;;=31.09^15.55^0^273^52.04^^^29^2.05^20^182^412^75^5.57^.165^.016^^9^.4^.718
;;^UTILITY(U,$J,112,193,2)
;;=.398^4.28^.85^.29^2^.98^1.14^.05^116^5.51^6.99^1.33^3^1.25^^^0
;;^UTILITY(U,$J,112,193,3)
;;=.395^1.42^1.456^2.495^2.796^.823^.397^1.241^1.083^1.687^1.933^1.242^1.811^2.884^4.867^1.476^1.249^1.284
;;^UTILITY(U,$J,112,193,4)
;;=.01^.01^.18^3.38^.46^1.82^6.27^.07
;;^UTILITY(U,$J,112,193,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,194,0)
;;=PORK, BLADE, BOSTON, TRIMMED, BROILED^10-086^oz.^28.3^72^N
;;^UTILITY(U,$J,112,194,1)
;;=26.74^12.54^0^227^60.07^^^33^1.56^24^220^343^74^5.02^.059^.009^^8^.3^.75
;;^UTILITY(U,$J,112,194,2)
;;=.44^4.3^.816^.31^5^1.13^.92^.04^94^4.45^5.64^1.08^2^1.1^^^0
;;^UTILITY(U,$J,112,194,3)
;;=.34^1.221^1.252^2.145^2.405^.708^.341^1.067^.932^1.451^1.662^1.068^1.558^2.48^4.186^1.27^1.074^1.105
;;^UTILITY(U,$J,112,194,4)
;;=.01^.01^.14^2.73^.37^1.47^5.06^.06^^39.3
;;^UTILITY(U,$J,112,194,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,195,0)
;;=PORK, BLADE, BOSTON, TRIMMED, ROASTED^10-087^oz.^28.3^74^N
;;^UTILITY(U,$J,112,195,1)
;;=24.21^14.3^0^232^60.94^^^27^1.56^26^235^427^88^4.23^.121^.015^^9^1^1.116
;;^UTILITY(U,$J,112,195,2)
;;=.4^4.96^1.077^.437^8^1.16^1.12^.05^85^5.19^6.34^1.29^3^1.27^^^0
;;^UTILITY(U,$J,112,195,3)
;;=.308^1.106^1.134^1.943^2.178^.641^.309^.967^.844^1.314^1.505^.967^1.411^2.246^3.791^1.15^.973^1
;;^UTILITY(U,$J,112,195,4)
;;=.01^.01^.17^3.18^.41^1.72^5.72^.05
;;^UTILITY(U,$J,112,195,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,196,0)
;;=PORK, SPARERIBS, TOT ED, BRAISED^10-089^oz.^28.3^62^N
;;^UTILITY(U,$J,112,196,1)
;;=29.06^30.3^0^397^40.42^^^47^1.85^24^261^320^93^4.6^.142^.014^^10^^.408
;;^UTILITY(U,$J,112,196,2)
;;=.382^5.475^.75^.35^4^1.08^2.51^.11^121^11.12^13.48^2.73^3^1.12^^^0
;;^UTILITY(U,$J,112,196,3)
;;=.369^1.327^1.361^2.332^2.613^.769^.371^1.16^1.013^1.577^1.806^1.161^1.693^2.695^4.549^1.38^1.167^1.2
;;^UTILITY(U,$J,112,196,4)
;;=.01^.01^.36^6.8^.72^3.82^12.52^.11
;;^UTILITY(U,$J,112,196,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,197,0)
;;=BRATWURST PORK^10-090^oz.^28.3^100^N
;;^UTILITY(U,$J,112,197,1)
;;=14.08^25.87^2.07^301^56.13^^^44^1.29^15^149^212^557^2.3^.093^.046^^0^1^.505
;;^UTILITY(U,$J,112,197,2)
;;=.183^3.2^.316^.21^2^.95^2.48^.26^60^9.32^12.19^2.74^0^1.85^^^0
;;^UTILITY(U,$J,112,197,3)
;;=.113^.556^.514^.944^1.07^.342^.142^.471^.406^.566^.831^.406^.789^1.172^1.947^.854^.656^.545
;;^UTILITY(U,$J,112,197,4)
;;=.03^.01^.3^5.85^.82^3.13^11.37^0
;;^UTILITY(U,$J,112,197,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,199,0)
;;=PORK, COMPOSITE CUTS, ROASTED^10-093^oz.^28.3^66^N
;;^UTILITY(U,$J,112,199,1)
;;=29.27^9.66^0^212^60.31^^^21^1.1^26^237^375^59^2.97^.061^.018^^7^.3^.846
;;^UTILITY(U,$J,112,199,2)
;;=.345^5.172^.684^.434^6^.75^.65^.02^86^3.41^4.35^.75^2^1.18^^^0
;;^UTILITY(U,$J,112,199,3)
;;=.372^1.337^1.371^2.348^2.632^.775^.373^1.168^1.02^1.588^1.819^1.169^1.705^2.715^4.582^1.39^1.176^1.209
;;^UTILITY(U,$J,112,199,4)
;;=.01^.01^.12^2.11^.31^1.09^3.91^.05
;;^UTILITY(U,$J,112,199,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,200,0)
;;=SAUSAGE, PORK, FRESH, RAW^7-063^oz.^28.3^100^N
;;^UTILITY(U,$J,112,200,1)
;;=11.69^40.29^1.02^417^44.52^^^18^.91^11^118^204^667^1.59^.07^.028^^0^2^.545
;;^UTILITY(U,$J,112,200,2)
;;=.164^2.835^.4^.25^4^1.13^4.39^.85^68^14.47^18.53^5.24^0^2.49^^^0
FHINI011 ; ; 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,191,1)
+2 ;;=25.58^16.61^0^259^57.25^^^36^1.4^21^210^326^69^4.51^.058^.003^^9^.3^.695
+3 ;;^UTILITY(U,$J,112,191,2)
+4 ;;=.397^4.07^.727^.277^4^1.06^1.26^.05^95^5.95^7.42^1.46^3^1.08^^^0
+5 ;;^UTILITY(U,$J,112,191,3)
+6 ;;=.325^1.168^1.198^2.052^2.3^.677^.326^1.021^.891^1.388^1.59^1.022^1.49^2.373^4.004^1.215^1.028^1.057
+7 ;;^UTILITY(U,$J,112,191,4)
+8 ;;=.01^.01^.2^3.65^.48^1.97^6.67^.07
+9 ;;^UTILITY(U,$J,112,191,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,192,0)
+12 ;;=PORK, BLADE, BOSTON, TOT ED, RSTD^10-083^oz.^28.3^87^N
+13 ;;^UTILITY(U,$J,112,192,1)
+14 ;;=23.11^18.86^0^269^57.47^^^28^1.45^18^197^332^67^3.96^.114^.012^^7^.7^.638
+15 ;;^UTILITY(U,$J,112,192,2)
+16 ;;=.355^4.061^.665^.23^5^.88^1.55^.06^86^6.97^8.27^1.76^2^1.23^^^0
+17 ;;^UTILITY(U,$J,112,192,3)
+18 ;;=.283^1.039^1.059^1.836^2.064^.598^.289^.917^.785^1.242^1.467^.893^1.36^2.117^3.542^1.232^1.002^.954
+19 ;;^UTILITY(U,$J,112,192,4)
+20 ;;=.01^.01^.23^4.26^.52^2.31^7.49^.06
+21 ;;^UTILITY(U,$J,112,192,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,193,0)
+24 ;;=PORK, BLADE, BOSTON, TRIMMED, BRAISED^10-085^oz.^28.3^72^N
+25 ;;^UTILITY(U,$J,112,193,1)
+26 ;;=31.09^15.55^0^273^52.04^^^29^2.05^20^182^412^75^5.57^.165^.016^^9^.4^.718
+27 ;;^UTILITY(U,$J,112,193,2)
+28 ;;=.398^4.28^.85^.29^2^.98^1.14^.05^116^5.51^6.99^1.33^3^1.25^^^0
+29 ;;^UTILITY(U,$J,112,193,3)
+30 ;;=.395^1.42^1.456^2.495^2.796^.823^.397^1.241^1.083^1.687^1.933^1.242^1.811^2.884^4.867^1.476^1.249^1.284
+31 ;;^UTILITY(U,$J,112,193,4)
+32 ;;=.01^.01^.18^3.38^.46^1.82^6.27^.07
+33 ;;^UTILITY(U,$J,112,193,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,194,0)
+36 ;;=PORK, BLADE, BOSTON, TRIMMED, BROILED^10-086^oz.^28.3^72^N
+37 ;;^UTILITY(U,$J,112,194,1)
+38 ;;=26.74^12.54^0^227^60.07^^^33^1.56^24^220^343^74^5.02^.059^.009^^8^.3^.75
+39 ;;^UTILITY(U,$J,112,194,2)
+40 ;;=.44^4.3^.816^.31^5^1.13^.92^.04^94^4.45^5.64^1.08^2^1.1^^^0
+41 ;;^UTILITY(U,$J,112,194,3)
+42 ;;=.34^1.221^1.252^2.145^2.405^.708^.341^1.067^.932^1.451^1.662^1.068^1.558^2.48^4.186^1.27^1.074^1.105
+43 ;;^UTILITY(U,$J,112,194,4)
+44 ;;=.01^.01^.14^2.73^.37^1.47^5.06^.06^^39.3
+45 ;;^UTILITY(U,$J,112,194,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,195,0)
+48 ;;=PORK, BLADE, BOSTON, TRIMMED, ROASTED^10-087^oz.^28.3^74^N
+49 ;;^UTILITY(U,$J,112,195,1)
+50 ;;=24.21^14.3^0^232^60.94^^^27^1.56^26^235^427^88^4.23^.121^.015^^9^1^1.116
+51 ;;^UTILITY(U,$J,112,195,2)
+52 ;;=.4^4.96^1.077^.437^8^1.16^1.12^.05^85^5.19^6.34^1.29^3^1.27^^^0
+53 ;;^UTILITY(U,$J,112,195,3)
+54 ;;=.308^1.106^1.134^1.943^2.178^.641^.309^.967^.844^1.314^1.505^.967^1.411^2.246^3.791^1.15^.973^1
+55 ;;^UTILITY(U,$J,112,195,4)
+56 ;;=.01^.01^.17^3.18^.41^1.72^5.72^.05
+57 ;;^UTILITY(U,$J,112,195,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,196,0)
+60 ;;=PORK, SPARERIBS, TOT ED, BRAISED^10-089^oz.^28.3^62^N
+61 ;;^UTILITY(U,$J,112,196,1)
+62 ;;=29.06^30.3^0^397^40.42^^^47^1.85^24^261^320^93^4.6^.142^.014^^10^^.408
+63 ;;^UTILITY(U,$J,112,196,2)
+64 ;;=.382^5.475^.75^.35^4^1.08^2.51^.11^121^11.12^13.48^2.73^3^1.12^^^0
+65 ;;^UTILITY(U,$J,112,196,3)
+66 ;;=.369^1.327^1.361^2.332^2.613^.769^.371^1.16^1.013^1.577^1.806^1.161^1.693^2.695^4.549^1.38^1.167^1.2
+67 ;;^UTILITY(U,$J,112,196,4)
+68 ;;=.01^.01^.36^6.8^.72^3.82^12.52^.11
+69 ;;^UTILITY(U,$J,112,196,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,197,0)
+72 ;;=BRATWURST PORK^10-090^oz.^28.3^100^N
+73 ;;^UTILITY(U,$J,112,197,1)
+74 ;;=14.08^25.87^2.07^301^56.13^^^44^1.29^15^149^212^557^2.3^.093^.046^^0^1^.505
+75 ;;^UTILITY(U,$J,112,197,2)
+76 ;;=.183^3.2^.316^.21^2^.95^2.48^.26^60^9.32^12.19^2.74^0^1.85^^^0
+77 ;;^UTILITY(U,$J,112,197,3)
+78 ;;=.113^.556^.514^.944^1.07^.342^.142^.471^.406^.566^.831^.406^.789^1.172^1.947^.854^.656^.545
+79 ;;^UTILITY(U,$J,112,197,4)
+80 ;;=.03^.01^.3^5.85^.82^3.13^11.37^0
+81 ;;^UTILITY(U,$J,112,197,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,199,0)
+84 ;;=PORK, COMPOSITE CUTS, ROASTED^10-093^oz.^28.3^66^N
+85 ;;^UTILITY(U,$J,112,199,1)
+86 ;;=29.27^9.66^0^212^60.31^^^21^1.1^26^237^375^59^2.97^.061^.018^^7^.3^.846
+87 ;;^UTILITY(U,$J,112,199,2)
+88 ;;=.345^5.172^.684^.434^6^.75^.65^.02^86^3.41^4.35^.75^2^1.18^^^0
+89 ;;^UTILITY(U,$J,112,199,3)
+90 ;;=.372^1.337^1.371^2.348^2.632^.775^.373^1.168^1.02^1.588^1.819^1.169^1.705^2.715^4.582^1.39^1.176^1.209
+91 ;;^UTILITY(U,$J,112,199,4)
+92 ;;=.01^.01^.12^2.11^.31^1.09^3.91^.05
+93 ;;^UTILITY(U,$J,112,199,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,200,0)
+96 ;;=SAUSAGE, PORK, FRESH, RAW^7-063^oz.^28.3^100^N
+97 ;;^UTILITY(U,$J,112,200,1)
+98 ;;=11.69^40.29^1.02^417^44.52^^^18^.91^11^118^204^667^1.59^.07^.028^^0^2^.545
+99 ;;^UTILITY(U,$J,112,200,2)
+100 ;;=.164^2.835^.4^.25^4^1.13^4.39^.85^68^14.47^18.53^5.24^0^2.49^^^0
