FHINI00W ; ; 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,147,2)
;;=.254^4.419^.648^.366^3^.54^1.04^.04^80^5.11^6.06^1.17^2^1.35^^^0
;;^UTILITY(U,$J,112,147,3)
;;=.336^1.229^1.254^2.168^2.436^.708^.343^1.082^.931^1.467^1.719^1.061^1.598^2.501^4.195^1.413^1.159^1.124
;;^UTILITY(U,$J,112,147,4)
;;=.01^.01^.18^3.14^.42^1.67^5.48^.04
;;^UTILITY(U,$J,112,147,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,148,0)
;;=PORK, WHOLE, TOT ED, BROILED^10-022^oz.^28.3^79^N
;;^UTILITY(U,$J,112,148,1)
;;=27.32^13.92^0^242^57.87^^^19^.87^28^246^423^62^2.39^.073^.009^^7^.6^.877
;;^UTILITY(U,$J,112,148,2)
;;=.321^5.037^.698^.464^5^.7^1.07^.04^80^5.23^6.19^1.2^2^1.35^^^0
;;^UTILITY(U,$J,112,148,3)
;;=.338^1.234^1.26^2.177^2.446^.712^.344^1.086^.936^1.473^1.723^1.067^1.603^2.512^4.215^1.409^1.158^1.128
;;^UTILITY(U,$J,112,148,4)
;;=.01^.01^.18^3.21^.42^1.71^5.6^.05
;;^UTILITY(U,$J,112,148,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,149,0)
;;=PORK, WHOLE, TOT ED, ROASTED^10-023^oz.^28.3^78^N
;;^UTILITY(U,$J,112,149,1)
;;=27.09^14.65^0^248^57.51^^^19^.99^26^242^408^59^2.32^.056^.011^^9^.6^.988
;;^UTILITY(U,$J,112,149,2)
;;=.313^5.572^.76^.516^6^.71^1.07^.03^82^5.37^6.51^1.21^3^1.21^^^0
;;^UTILITY(U,$J,112,149,3)
;;=.341^1.232^1.261^2.168^2.432^.713^.344^1.08^.938^1.466^1.693^1.073^1.582^2.504^4.218^1.327^1.11^1.119
;;^UTILITY(U,$J,112,149,4)
;;=.01^.01^.19^3.31^.46^1.75^5.86^.06
;;^UTILITY(U,$J,112,149,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,150,0)
;;=PORK, WHOLE, TRIMMED, BRAISED^10-025^oz.^28.3^62^N
;;^UTILITY(U,$J,112,150,1)
;;=28.57^9.12^0^204^61.4^^^18^1.13^20^183^387^50^2.48^.079^.013^^7^.6^.659
;;^UTILITY(U,$J,112,150,2)
;;=.267^4.588^.677^.387^4^.55^.62^.02^79^3.38^4.16^.7^2^1.4^^^0
;;^UTILITY(U,$J,112,150,3)
;;=.363^1.305^1.338^2.292^2.569^.756^.364^1.14^.995^1.55^1.776^1.141^1.664^2.65^4.472^1.357^1.148^1.18
;;^UTILITY(U,$J,112,150,4)
;;=.01^.01^.12^2.09^.3^1.09^3.74^.04
;;^UTILITY(U,$J,112,150,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,151,0)
;;=PORK, WHOLE, TRIMMED, BROILED^10-026^oz.^28.3^63^N
;;^UTILITY(U,$J,112,151,1)
;;=28.57^9.8^0^210^60.72^^^17^.91^29^253^438^64^2.48^.075^.009^^7^.7^.923
;;^UTILITY(U,$J,112,151,2)
;;=.338^5.243^.729^.492^6^.72^.68^.02^79^3.64^4.45^.77^2^1.4^^^0
;;^UTILITY(U,$J,112,151,3)
;;=.363^1.305^1.338^2.292^2.569^.756^.364^1.14^.995^1.55^1.776^1.141^1.664^2.65^4.472^1.357^1.148^1.18
;;^UTILITY(U,$J,112,151,4)
;;=.01^.01^.13^2.25^.32^1.18^4^.04
;;^UTILITY(U,$J,112,151,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,152,0)
;;=PORK, WHOLE, TRIMMED, ROASTED^10-027^oz.^28.3^65^N
;;^UTILITY(U,$J,112,152,1)
;;=28.62^9.63^0^209^61.02^^^18^1.09^28^249^425^58^2.53^.059^.016^^8^.6^1.017
;;^UTILITY(U,$J,112,152,2)
;;=.329^5.893^.782^.552^7^.73^.66^.02^81^3.51^4.32^.76^2^1.25^^^0
;;^UTILITY(U,$J,112,152,3)
;;=.364^1.307^1.34^2.297^2.574^.758^.365^1.143^.997^1.553^1.779^1.143^1.668^2.655^4.481^1.359^1.15^1.182
;;^UTILITY(U,$J,112,152,4)
;;=.01^.01^.12^2.17^.31^1.13^3.88^.04^^35.1
;;^UTILITY(U,$J,112,152,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,153,0)
;;=PORK, BLADE, TOT ED, BRAISED^10-029^oz.^28.3^75^N
;;^UTILITY(U,$J,112,153,1)
;;=21.91^25.43^0^323^51.83^^^31^1.11^15^162^304^55^3.27^.085^.011^^8^.6^.476
;;^UTILITY(U,$J,112,153,2)
;;=.232^3.59^.562^.297^2^.65^2.09^.07^85^9.54^10.95^2.33^2^1.16^^^0
;;^UTILITY(U,$J,112,153,3)
;;=.25^.957^.964^1.709^1.934^.543^.265^.861^.711^1.159^1.441^.795^1.312^1.962^3.231^1.396^1.075^.904
;;^UTILITY(U,$J,112,153,4)
;;=.02^.02^.33^5.8^.69^3.19^9.96^.06
;;^UTILITY(U,$J,112,153,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,154,0)
;;=PORK, BLADE, TOT ED, BROILED^10-030^oz.^28.3^74^N
;;^UTILITY(U,$J,112,154,1)
;;=22.47^24.85^0^320^51.83^^^29^.93^22^212^344^70^3.37^.083^.008^^8^.7^.652
;;^UTILITY(U,$J,112,154,2)
;;=.296^4.109^.615^.381^4^.83^2.03^.07^86^9.31^10.7^2.26^2^1.19^^^0
;;^UTILITY(U,$J,112,154,3)
;;=.26^.987^.997^1.759^1.989^.562^.274^.885^.736^1.192^1.469^.826^1.342^2.021^3.339^1.387^1.078^.928
;;^UTILITY(U,$J,112,154,4)
;;=.02^.02^.33^5.66^.68^3.11^9.73^.06
;;^UTILITY(U,$J,112,154,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,155,0)
;;=PORK, BLADE, TOT ED, ROASTED^10-031^oz.^28.3^75^N
;;^UTILITY(U,$J,112,155,1)
;;=23.72^24.63^0^323^51.21^^^34^1.11^20^210^326^30^3.3^.079^.011^^9^.2^.524
;;^UTILITY(U,$J,112,155,2)
;;=.296^4.237^.486^.378^4^.73^1.93^.07^93^9.15^10.64^2.16^3^1.09^^^0
;;^UTILITY(U,$J,112,155,3)
;;=.278^1.048^1.06^1.863^2.104^.597^.291^.936^.784^1.262^1.54^.882^1.412^2.142^3.55^1.419^1.113^.979
FHINI00W ; ; 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,147,2)
+2 ;;=.254^4.419^.648^.366^3^.54^1.04^.04^80^5.11^6.06^1.17^2^1.35^^^0
+3 ;;^UTILITY(U,$J,112,147,3)
+4 ;;=.336^1.229^1.254^2.168^2.436^.708^.343^1.082^.931^1.467^1.719^1.061^1.598^2.501^4.195^1.413^1.159^1.124
+5 ;;^UTILITY(U,$J,112,147,4)
+6 ;;=.01^.01^.18^3.14^.42^1.67^5.48^.04
+7 ;;^UTILITY(U,$J,112,147,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,148,0)
+10 ;;=PORK, WHOLE, TOT ED, BROILED^10-022^oz.^28.3^79^N
+11 ;;^UTILITY(U,$J,112,148,1)
+12 ;;=27.32^13.92^0^242^57.87^^^19^.87^28^246^423^62^2.39^.073^.009^^7^.6^.877
+13 ;;^UTILITY(U,$J,112,148,2)
+14 ;;=.321^5.037^.698^.464^5^.7^1.07^.04^80^5.23^6.19^1.2^2^1.35^^^0
+15 ;;^UTILITY(U,$J,112,148,3)
+16 ;;=.338^1.234^1.26^2.177^2.446^.712^.344^1.086^.936^1.473^1.723^1.067^1.603^2.512^4.215^1.409^1.158^1.128
+17 ;;^UTILITY(U,$J,112,148,4)
+18 ;;=.01^.01^.18^3.21^.42^1.71^5.6^.05
+19 ;;^UTILITY(U,$J,112,148,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,149,0)
+22 ;;=PORK, WHOLE, TOT ED, ROASTED^10-023^oz.^28.3^78^N
+23 ;;^UTILITY(U,$J,112,149,1)
+24 ;;=27.09^14.65^0^248^57.51^^^19^.99^26^242^408^59^2.32^.056^.011^^9^.6^.988
+25 ;;^UTILITY(U,$J,112,149,2)
+26 ;;=.313^5.572^.76^.516^6^.71^1.07^.03^82^5.37^6.51^1.21^3^1.21^^^0
+27 ;;^UTILITY(U,$J,112,149,3)
+28 ;;=.341^1.232^1.261^2.168^2.432^.713^.344^1.08^.938^1.466^1.693^1.073^1.582^2.504^4.218^1.327^1.11^1.119
+29 ;;^UTILITY(U,$J,112,149,4)
+30 ;;=.01^.01^.19^3.31^.46^1.75^5.86^.06
+31 ;;^UTILITY(U,$J,112,149,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,150,0)
+34 ;;=PORK, WHOLE, TRIMMED, BRAISED^10-025^oz.^28.3^62^N
+35 ;;^UTILITY(U,$J,112,150,1)
+36 ;;=28.57^9.12^0^204^61.4^^^18^1.13^20^183^387^50^2.48^.079^.013^^7^.6^.659
+37 ;;^UTILITY(U,$J,112,150,2)
+38 ;;=.267^4.588^.677^.387^4^.55^.62^.02^79^3.38^4.16^.7^2^1.4^^^0
+39 ;;^UTILITY(U,$J,112,150,3)
+40 ;;=.363^1.305^1.338^2.292^2.569^.756^.364^1.14^.995^1.55^1.776^1.141^1.664^2.65^4.472^1.357^1.148^1.18
+41 ;;^UTILITY(U,$J,112,150,4)
+42 ;;=.01^.01^.12^2.09^.3^1.09^3.74^.04
+43 ;;^UTILITY(U,$J,112,150,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,151,0)
+46 ;;=PORK, WHOLE, TRIMMED, BROILED^10-026^oz.^28.3^63^N
+47 ;;^UTILITY(U,$J,112,151,1)
+48 ;;=28.57^9.8^0^210^60.72^^^17^.91^29^253^438^64^2.48^.075^.009^^7^.7^.923
+49 ;;^UTILITY(U,$J,112,151,2)
+50 ;;=.338^5.243^.729^.492^6^.72^.68^.02^79^3.64^4.45^.77^2^1.4^^^0
+51 ;;^UTILITY(U,$J,112,151,3)
+52 ;;=.363^1.305^1.338^2.292^2.569^.756^.364^1.14^.995^1.55^1.776^1.141^1.664^2.65^4.472^1.357^1.148^1.18
+53 ;;^UTILITY(U,$J,112,151,4)
+54 ;;=.01^.01^.13^2.25^.32^1.18^4^.04
+55 ;;^UTILITY(U,$J,112,151,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,152,0)
+58 ;;=PORK, WHOLE, TRIMMED, ROASTED^10-027^oz.^28.3^65^N
+59 ;;^UTILITY(U,$J,112,152,1)
+60 ;;=28.62^9.63^0^209^61.02^^^18^1.09^28^249^425^58^2.53^.059^.016^^8^.6^1.017
+61 ;;^UTILITY(U,$J,112,152,2)
+62 ;;=.329^5.893^.782^.552^7^.73^.66^.02^81^3.51^4.32^.76^2^1.25^^^0
+63 ;;^UTILITY(U,$J,112,152,3)
+64 ;;=.364^1.307^1.34^2.297^2.574^.758^.365^1.143^.997^1.553^1.779^1.143^1.668^2.655^4.481^1.359^1.15^1.182
+65 ;;^UTILITY(U,$J,112,152,4)
+66 ;;=.01^.01^.12^2.17^.31^1.13^3.88^.04^^35.1
+67 ;;^UTILITY(U,$J,112,152,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,153,0)
+70 ;;=PORK, BLADE, TOT ED, BRAISED^10-029^oz.^28.3^75^N
+71 ;;^UTILITY(U,$J,112,153,1)
+72 ;;=21.91^25.43^0^323^51.83^^^31^1.11^15^162^304^55^3.27^.085^.011^^8^.6^.476
+73 ;;^UTILITY(U,$J,112,153,2)
+74 ;;=.232^3.59^.562^.297^2^.65^2.09^.07^85^9.54^10.95^2.33^2^1.16^^^0
+75 ;;^UTILITY(U,$J,112,153,3)
+76 ;;=.25^.957^.964^1.709^1.934^.543^.265^.861^.711^1.159^1.441^.795^1.312^1.962^3.231^1.396^1.075^.904
+77 ;;^UTILITY(U,$J,112,153,4)
+78 ;;=.02^.02^.33^5.8^.69^3.19^9.96^.06
+79 ;;^UTILITY(U,$J,112,153,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,154,0)
+82 ;;=PORK, BLADE, TOT ED, BROILED^10-030^oz.^28.3^74^N
+83 ;;^UTILITY(U,$J,112,154,1)
+84 ;;=22.47^24.85^0^320^51.83^^^29^.93^22^212^344^70^3.37^.083^.008^^8^.7^.652
+85 ;;^UTILITY(U,$J,112,154,2)
+86 ;;=.296^4.109^.615^.381^4^.83^2.03^.07^86^9.31^10.7^2.26^2^1.19^^^0
+87 ;;^UTILITY(U,$J,112,154,3)
+88 ;;=.26^.987^.997^1.759^1.989^.562^.274^.885^.736^1.192^1.469^.826^1.342^2.021^3.339^1.387^1.078^.928
+89 ;;^UTILITY(U,$J,112,154,4)
+90 ;;=.02^.02^.33^5.66^.68^3.11^9.73^.06
+91 ;;^UTILITY(U,$J,112,154,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,155,0)
+94 ;;=PORK, BLADE, TOT ED, ROASTED^10-031^oz.^28.3^75^N
+95 ;;^UTILITY(U,$J,112,155,1)
+96 ;;=23.72^24.63^0^323^51.21^^^34^1.11^20^210^326^30^3.3^.079^.011^^9^.2^.524
+97 ;;^UTILITY(U,$J,112,155,2)
+98 ;;=.296^4.237^.486^.378^4^.73^1.93^.07^93^9.15^10.64^2.16^3^1.09^^^0
+99 ;;^UTILITY(U,$J,112,155,3)
+100 ;;=.278^1.048^1.06^1.863^2.104^.597^.291^.936^.784^1.262^1.54^.882^1.412^2.142^3.55^1.419^1.113^.979
