FHINI00V ; ; 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,139,1)
;;=35.1^.72^52.19^358.181^3.96^^^1230.8^.31^117.11^984.7^1705.4^548.7^4.41^.041^.02^^27^5.58^.413
;;^UTILITY(U,$J,112,139,2)
;;=1.744^.891^3.235^.345^49.8^3.993^.018^.011^18.3^.467^.187^.028^710^8.03^^^0
;;^UTILITY(U,$J,112,139,3)
;;=.495^1.584^2.124^3.438^2.784^.88^.325^1.694^1.694^2.349^1.271^.952^1.21^2.663^7.35^.743^3.4^1.909
;;^UTILITY(U,$J,112,139,4)
;;=.017^.013^.078^.22^.021^.08^.156^0
;;^UTILITY(U,$J,112,139,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,140,0)
;;=PORK, SEPARABLE FAT, CKD^10-007^oz.^28.3^100^N
;;^UTILITY(U,$J,112,140,1)
;;=12.2^63.92^0^629^23.22^^^53^.36^7^162^235^34^1.26^.052^.003^^13^0^.325
;;^UTILITY(U,$J,112,140,2)
;;=.11^2.53^.32^.13^2^.45^5.79^.22^93^24.49^27.35^6.38^4^.75^^^0
;;^UTILITY(U,$J,112,140,3)
;;=.04^.379^.318^.778^.949^.17^.098^.43^.21^.538^1.085^.158^.859^.841^1.093^2.042^1.29^.502
;;^UTILITY(U,$J,112,140,4)
;;=.05^.05^.85^14.93^1.67^8.17^25.01^.12^^16.3
;;^UTILITY(U,$J,112,140,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,141,0)
;;=PORK, LEG, WHOLE, TOT ED, ROASTED^10-009^oz.^28.3^80^N
;;^UTILITY(U,$J,112,141,1)
;;=26.83^17.61^0^273^55.04^^^14^1.01^22^263^352^60^2.96^.1^.032^^10^.3^.635
;;^UTILITY(U,$J,112,141,2)
;;=.313^4.574^.617^.402^10^.68^1.52^.05^94^6.47^7.88^1.68^3^1.06^^^0
;;^UTILITY(U,$J,112,141,3)
;;=.324^1.198^1.218^2.122^2.39^.687^.333^1.062^.903^1.437^1.717^1.022^1.585^2.445^4.077^1.493^1.198^1.108
;;^UTILITY(U,$J,112,141,4)
;;=.02^.01^.22^4.01^.5^2.11^7.23^.07
;;^UTILITY(U,$J,112,141,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,142,0)
;;=PORK, LEG, WHOLE, TRIMMED, ROASTED^10-011^oz.^28.3^68^N
;;^UTILITY(U,$J,112,142,1)
;;=29.41^9.44^0^211^60.66^^^7^1.12^25^281^373^64^3.26^.108^.037^^9^.4^.69
;;^UTILITY(U,$J,112,142,2)
;;=.349^4.935^.67^.45^12^.72^.77^.02^94^3.3^4.45^.85^3^1.11^^^0
;;^UTILITY(U,$J,112,142,3)
;;=.374^1.343^1.377^2.36^2.645^.779^.375^1.174^1.025^1.595^1.828^1.175^1.713^2.728^4.604^1.396^1.181^1.215
;;^UTILITY(U,$J,112,142,4)
;;=.02^.01^.11^2.08^.3^1.04^4.09^.06
;;^UTILITY(U,$J,112,142,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,143,0)
;;=PORK, LEG, RUMP HALF, TOT ED, ROASTED^10-013^oz.^28.3^82^N
;;^UTILITY(U,$J,112,143,1)
;;=28.88^14.28^0^252^56.8^^^12^1.05^27^272^374^62^2.82^.103^.023^^9^.2^.75
;;^UTILITY(U,$J,112,143,2)
;;=.329^4.655^.623^.316^3^.72^1.25^.04^96^5.25^6.37^1.38^3^1.1^^^0
;;^UTILITY(U,$J,112,143,3)
;;=.354^1.299^1.324^2.295^2.581^.748^.362^1.147^.983^1.553^1.831^1.117^1.699^2.647^4.431^1.532^1.248^1.193
;;^UTILITY(U,$J,112,143,4)
;;=.02^.01^.18^3.25^.41^1.7^5.84^.06
;;^UTILITY(U,$J,112,143,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,144,0)
;;=PORK, LEG, RUMP HALF, TRIMMED, ROASTED^10-015^oz.^28.3^73^N
;;^UTILITY(U,$J,112,144,1)
;;=30.94^8.14^0^206^60.95^^^7^1.14^29^285^391^65^3.01^.109^.026^^9^.2^.803
;;^UTILITY(U,$J,112,144,2)
;;=.356^4.917^.66^.339^3^.75^.69^.02^96^2.87^3.77^.76^3^1.15^^^0
;;^UTILITY(U,$J,112,144,3)
;;=.393^1.413^1.449^2.482^2.782^.819^.395^1.235^1.078^1.678^1.923^1.236^1.802^2.87^4.843^1.469^1.243^1.278
;;^UTILITY(U,$J,112,144,4)
;;=.01^.01^.1^1.81^.25^.9^3.47^.05
;;^UTILITY(U,$J,112,144,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,145,0)
;;=PORK, LEG, SHANK HALF, TOT ED, ROASTED^10-017^oz.^28.3^78^N
;;^UTILITY(U,$J,112,145,1)
;;=25.34^20.06^0^289^53.77^^^15^.98^22^257^338^59^3.06^.098^.028^^9^.3^.578
;;^UTILITY(U,$J,112,145,2)
;;=.302^4.46^.62^.401^5^.66^1.71^.06^92^7.36^9.02^1.89^3^1^^^0
;;^UTILITY(U,$J,112,145,3)
;;=.301^1.125^1.141^1.997^2.253^.644^.313^1.001^.845^1.353^1.634^.954^1.503^2.299^3.821^1.465^1.161^1.046
;;^UTILITY(U,$J,112,145,4)
;;=.02^.02^.25^4.56^.57^2.4^8.27^.08
;;^UTILITY(U,$J,112,145,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,146,0)
;;=PORK, LEG, SHANK HALF, TRIMMED, ROASTED^10-019^oz.^28.3^64^N
;;^UTILITY(U,$J,112,146,1)
;;=28.21^10.5^0^215^60.43^^^7^1.11^25^278^360^64^3.45^.108^.034^^8^.4^.633
;;^UTILITY(U,$J,112,146,2)
;;=.344^4.881^.685^.46^6^.71^.82^.02^92^3.63^5.02^.91^2^1.05^^^0
;;^UTILITY(U,$J,112,146,3)
;;=.358^1.288^1.321^2.263^2.537^.747^.36^1.126^.983^1.53^1.754^1.127^1.643^2.617^4.416^1.339^1.133^1.165
;;^UTILITY(U,$J,112,146,4)
;;=.02^.01^.12^2.3^.33^1.14^4.63^.07
;;^UTILITY(U,$J,112,146,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,147,0)
;;=PORK, WHOLE, TOT ED, BRAISED^10-021^oz.^28.3^80^N
;;^UTILITY(U,$J,112,147,1)
;;=27.23^13.62^0^239^58.27^^^21^1.07^19^181^374^48^2.38^.077^.012^^7^.6^.632
FHINI00V ; ; 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,139,1)
+2 ;;=35.1^.72^52.19^358.181^3.96^^^1230.8^.31^117.11^984.7^1705.4^548.7^4.41^.041^.02^^27^5.58^.413
+3 ;;^UTILITY(U,$J,112,139,2)
+4 ;;=1.744^.891^3.235^.345^49.8^3.993^.018^.011^18.3^.467^.187^.028^710^8.03^^^0
+5 ;;^UTILITY(U,$J,112,139,3)
+6 ;;=.495^1.584^2.124^3.438^2.784^.88^.325^1.694^1.694^2.349^1.271^.952^1.21^2.663^7.35^.743^3.4^1.909
+7 ;;^UTILITY(U,$J,112,139,4)
+8 ;;=.017^.013^.078^.22^.021^.08^.156^0
+9 ;;^UTILITY(U,$J,112,139,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,140,0)
+12 ;;=PORK, SEPARABLE FAT, CKD^10-007^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,140,1)
+14 ;;=12.2^63.92^0^629^23.22^^^53^.36^7^162^235^34^1.26^.052^.003^^13^0^.325
+15 ;;^UTILITY(U,$J,112,140,2)
+16 ;;=.11^2.53^.32^.13^2^.45^5.79^.22^93^24.49^27.35^6.38^4^.75^^^0
+17 ;;^UTILITY(U,$J,112,140,3)
+18 ;;=.04^.379^.318^.778^.949^.17^.098^.43^.21^.538^1.085^.158^.859^.841^1.093^2.042^1.29^.502
+19 ;;^UTILITY(U,$J,112,140,4)
+20 ;;=.05^.05^.85^14.93^1.67^8.17^25.01^.12^^16.3
+21 ;;^UTILITY(U,$J,112,140,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,141,0)
+24 ;;=PORK, LEG, WHOLE, TOT ED, ROASTED^10-009^oz.^28.3^80^N
+25 ;;^UTILITY(U,$J,112,141,1)
+26 ;;=26.83^17.61^0^273^55.04^^^14^1.01^22^263^352^60^2.96^.1^.032^^10^.3^.635
+27 ;;^UTILITY(U,$J,112,141,2)
+28 ;;=.313^4.574^.617^.402^10^.68^1.52^.05^94^6.47^7.88^1.68^3^1.06^^^0
+29 ;;^UTILITY(U,$J,112,141,3)
+30 ;;=.324^1.198^1.218^2.122^2.39^.687^.333^1.062^.903^1.437^1.717^1.022^1.585^2.445^4.077^1.493^1.198^1.108
+31 ;;^UTILITY(U,$J,112,141,4)
+32 ;;=.02^.01^.22^4.01^.5^2.11^7.23^.07
+33 ;;^UTILITY(U,$J,112,141,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,142,0)
+36 ;;=PORK, LEG, WHOLE, TRIMMED, ROASTED^10-011^oz.^28.3^68^N
+37 ;;^UTILITY(U,$J,112,142,1)
+38 ;;=29.41^9.44^0^211^60.66^^^7^1.12^25^281^373^64^3.26^.108^.037^^9^.4^.69
+39 ;;^UTILITY(U,$J,112,142,2)
+40 ;;=.349^4.935^.67^.45^12^.72^.77^.02^94^3.3^4.45^.85^3^1.11^^^0
+41 ;;^UTILITY(U,$J,112,142,3)
+42 ;;=.374^1.343^1.377^2.36^2.645^.779^.375^1.174^1.025^1.595^1.828^1.175^1.713^2.728^4.604^1.396^1.181^1.215
+43 ;;^UTILITY(U,$J,112,142,4)
+44 ;;=.02^.01^.11^2.08^.3^1.04^4.09^.06
+45 ;;^UTILITY(U,$J,112,142,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,143,0)
+48 ;;=PORK, LEG, RUMP HALF, TOT ED, ROASTED^10-013^oz.^28.3^82^N
+49 ;;^UTILITY(U,$J,112,143,1)
+50 ;;=28.88^14.28^0^252^56.8^^^12^1.05^27^272^374^62^2.82^.103^.023^^9^.2^.75
+51 ;;^UTILITY(U,$J,112,143,2)
+52 ;;=.329^4.655^.623^.316^3^.72^1.25^.04^96^5.25^6.37^1.38^3^1.1^^^0
+53 ;;^UTILITY(U,$J,112,143,3)
+54 ;;=.354^1.299^1.324^2.295^2.581^.748^.362^1.147^.983^1.553^1.831^1.117^1.699^2.647^4.431^1.532^1.248^1.193
+55 ;;^UTILITY(U,$J,112,143,4)
+56 ;;=.02^.01^.18^3.25^.41^1.7^5.84^.06
+57 ;;^UTILITY(U,$J,112,143,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,144,0)
+60 ;;=PORK, LEG, RUMP HALF, TRIMMED, ROASTED^10-015^oz.^28.3^73^N
+61 ;;^UTILITY(U,$J,112,144,1)
+62 ;;=30.94^8.14^0^206^60.95^^^7^1.14^29^285^391^65^3.01^.109^.026^^9^.2^.803
+63 ;;^UTILITY(U,$J,112,144,2)
+64 ;;=.356^4.917^.66^.339^3^.75^.69^.02^96^2.87^3.77^.76^3^1.15^^^0
+65 ;;^UTILITY(U,$J,112,144,3)
+66 ;;=.393^1.413^1.449^2.482^2.782^.819^.395^1.235^1.078^1.678^1.923^1.236^1.802^2.87^4.843^1.469^1.243^1.278
+67 ;;^UTILITY(U,$J,112,144,4)
+68 ;;=.01^.01^.1^1.81^.25^.9^3.47^.05
+69 ;;^UTILITY(U,$J,112,144,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,145,0)
+72 ;;=PORK, LEG, SHANK HALF, TOT ED, ROASTED^10-017^oz.^28.3^78^N
+73 ;;^UTILITY(U,$J,112,145,1)
+74 ;;=25.34^20.06^0^289^53.77^^^15^.98^22^257^338^59^3.06^.098^.028^^9^.3^.578
+75 ;;^UTILITY(U,$J,112,145,2)
+76 ;;=.302^4.46^.62^.401^5^.66^1.71^.06^92^7.36^9.02^1.89^3^1^^^0
+77 ;;^UTILITY(U,$J,112,145,3)
+78 ;;=.301^1.125^1.141^1.997^2.253^.644^.313^1.001^.845^1.353^1.634^.954^1.503^2.299^3.821^1.465^1.161^1.046
+79 ;;^UTILITY(U,$J,112,145,4)
+80 ;;=.02^.02^.25^4.56^.57^2.4^8.27^.08
+81 ;;^UTILITY(U,$J,112,145,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,146,0)
+84 ;;=PORK, LEG, SHANK HALF, TRIMMED, ROASTED^10-019^oz.^28.3^64^N
+85 ;;^UTILITY(U,$J,112,146,1)
+86 ;;=28.21^10.5^0^215^60.43^^^7^1.11^25^278^360^64^3.45^.108^.034^^8^.4^.633
+87 ;;^UTILITY(U,$J,112,146,2)
+88 ;;=.344^4.881^.685^.46^6^.71^.82^.02^92^3.63^5.02^.91^2^1.05^^^0
+89 ;;^UTILITY(U,$J,112,146,3)
+90 ;;=.358^1.288^1.321^2.263^2.537^.747^.36^1.126^.983^1.53^1.754^1.127^1.643^2.617^4.416^1.339^1.133^1.165
+91 ;;^UTILITY(U,$J,112,146,4)
+92 ;;=.02^.01^.12^2.3^.33^1.14^4.63^.07
+93 ;;^UTILITY(U,$J,112,146,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,147,0)
+96 ;;=PORK, WHOLE, TOT ED, BRAISED^10-021^oz.^28.3^80^N
+97 ;;^UTILITY(U,$J,112,147,1)
+98 ;;=27.23^13.62^0^239^58.27^^^21^1.07^19^181^374^48^2.38^.077^.012^^7^.6^.632
