FHINI01U ; ; 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,466,2)
;;=.235^3.53^1.16^.32^9^.36^2.61^.14^89^3.49^3.65^3.09^0^.97^^^0
;;^UTILITY(U,$J,112,466,3)
;;=.304^1.2^1.379^2.138^2.503^.774^.302^1.076^1.044^1.432^1.936^.828^1.75^2.65^4.388^1.641^1.274^1.213
;;^UTILITY(U,$J,112,466,4)
;;=0^.01^.08^2.1^.59^.9^2.97^.24
;;^UTILITY(U,$J,112,466,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,467,0)
;;=TURKEY, LIGHT MEAT, ROASTED^5-186^oz.^28.3^74^N
;;^UTILITY(U,$J,112,467,1)
;;=29.9^3.22^0^157^66.27^^^19^1.35^28^219^305^64^2.04^.042^.02^^0^0^.061
;;^UTILITY(U,$J,112,467,2)
;;=.129^6.838^.677^.54^6^.37^.57^.01^69^1.03^.56^.86^0^1.08^^^0
;;^UTILITY(U,$J,112,467,3)
;;=.34^1.33^1.555^2.383^2.818^.866^.311^1.187^1.182^1.588^2.086^.933^1.851^2.904^4.88^1.483^1.244^1.33
;;^UTILITY(U,$J,112,467,4)
;;=0^.01^.02^.47^.07^.31^.46^.17^^32.1
;;^UTILITY(U,$J,112,467,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,468,0)
;;=TURKEY, DARK MEAT, ROASTED^5-188^oz.^28.3^63^N
;;^UTILITY(U,$J,112,468,1)
;;=28.57^7.22^0^187^63.09^^^32^2.33^24^204^290^79^4.46^.16^.023^^0^0^.063
;;^UTILITY(U,$J,112,468,2)
;;=.248^3.649^1.286^.36^9^.37^1.75^.07^85^2.42^1.64^2.16^0^1.02^^^0
;;^UTILITY(U,$J,112,468,3)
;;=.325^1.271^1.485^2.276^2.693^.828^.297^1.134^1.129^1.518^1.993^.892^1.769^2.775^4.663^1.417^1.188^1.271
;;^UTILITY(U,$J,112,468,4)
;;=0^.02^.05^1.28^.24^.72^1.35^.26^^40.9
;;^UTILITY(U,$J,112,468,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,469,0)
;;=TURKEY, BREAST, MEAT&SKIN, ROASTED^5-192^oz.^28.3^92^N
;;^UTILITY(U,$J,112,469,1)
;;=28.71^7.41^0^189^63.22^^^21^1.4^27^210^288^63^2.03^.047^.02^^0^0^.057
;;^UTILITY(U,$J,112,469,2)
;;=.131^6.365^.634^.48^6^.36^1.45^.08^74^2.1^2.45^1.8^0^1.03^^^0
;;^UTILITY(U,$J,112,469,3)
;;=.318^1.257^1.447^2.24^2.626^.811^.313^1.126^1.096^1.5^2.02^.868^1.822^2.771^4.597^1.677^1.313^1.268
;;^UTILITY(U,$J,112,469,4)
;;=0^.01^.05^1.28^.4^.5^1.98^.16
;;^UTILITY(U,$J,112,469,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,470,0)
;;=TURKEY, LEG, MEAT&SKIN, ROASTED^5-194^oz.^28.3^81^N
;;^UTILITY(U,$J,112,470,1)
;;=27.87^9.82^0^208^61.19^^^32^2.3^23^199^280^77^4.27^.154^.023^^0^0^.06
;;^UTILITY(U,$J,112,470,2)
;;=.241^3.561^1.205^.33^9^.36^2.27^.11^85^3.06^2.87^2.72^0^.99^^^0
;;^UTILITY(U,$J,112,470,3)
;;=.311^1.225^1.417^2.187^2.571^.793^.3^1.096^1.074^1.463^1.956^.85^1.756^2.695^4.486^1.559^1.242^1.233
;;^UTILITY(U,$J,112,470,4)
;;=0^.01^.07^1.77^.46^.82^2.34^.24
;;^UTILITY(U,$J,112,470,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,471,0)
;;=TURKEY, WING, MEAT&SKIN, ROASTED^5-196^oz.^28.3^66^N
;;^UTILITY(U,$J,112,471,1)
;;=27.38^12.43^0^229^59.49^^^24^1.46^25^197^266^61^2.1^.056^.02^^0^0^.05
;;^UTILITY(U,$J,112,471,2)
;;=.134^5.732^.584^.42^6^.34^2.49^.16^81^3.39^4.66^2.94^0^.97^^^0
;;^UTILITY(U,$J,112,471,3)
;;=.295^1.175^1.327^2.08^2.412^.749^.315^1.058^1^1.401^1.946^.796^1.789^2.622^4.279^1.894^1.391^1.199
;;^UTILITY(U,$J,112,471,4)
;;=0^.01^.09^2.23^.79^.74^3.76^.16
;;^UTILITY(U,$J,112,471,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,472,0)
;;=TURKEY, FRYER-ROASTERS, MEAT&SKIN&GIBLETS&NECK, RSTD^5-198^oz.^28.3^75^N
;;^UTILITY(U,$J,112,472,1)
;;=28.08^5.64^.04^171^65.95^^^23^2.22^24^196^242^65^3.09^.161^.031^^224^.1^.042
;;^UTILITY(U,$J,112,472,2)
;;=.216^4.78^.999^.4^21^1.32^1.21^.07^118^1.64^1.89^1.44^67^.97^^^0
;;^UTILITY(U,$J,112,472,3)
;;=.309^1.225^1.401^2.176^2.52^.782^.313^1.104^1.053^1.459^1.977^.831^1.776^2.701^4.46^1.713^1.327^1.237
;;^UTILITY(U,$J,112,472,4)
;;=0^.01^.04^1.02^.31^.4^1.53^.11
;;^UTILITY(U,$J,112,472,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,473,0)
;;=CHICKEN, CND, MEAT ONLY, BONED, W/BROTH^5-277^oz.^28.35^100^N
;;^UTILITY(U,$J,112,473,1)
;;=21.77^7.95^0^165^68.65^^^14^1.58^12^111^138^503^1.41^.046^.015^^117^2^.015
;;^UTILITY(U,$J,112,473,2)
;;=.129^6.329^.85^.35^4^.29^1.51^.07^62^2.2^3.15^1.75^34^1.81^^^0
;;^UTILITY(U,$J,112,473,3)
;;=.243^.895^1.085^1.578^1.764^.574^.297^.842^.699^1.052^1.355^.636^1.258^1.926^3.173^1.389^1.04^.762
;;^UTILITY(U,$J,112,473,4)
;;=0^.01^.06^1.62^.44^.44^2.59^.07
;;^UTILITY(U,$J,112,473,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,474,0)
;;=FRANKFURTERS, CHICKEN^5-278^oz.^28.3^100^N
;;^UTILITY(U,$J,112,474,1)
;;=12.93^19.48^6.79^257^57.53^^^95^2^10^107^84^1370^1.04^.053^.015^^130^0^.066
;;^UTILITY(U,$J,112,474,2)
;;=.115^3.089^.834^.32^4^.24^3.74^.15^101^5.54^8.48^4.04^38^3.28
;;^UTILITY(U,$J,112,474,3)
;;=.103^.577^.457^1.024^1.095^.343^.13^.513^.391^.536^.892^.362^.902^1.322^2.063^1.024^.691^.608
FHINI01U ; ; 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,466,2)
+2 ;;=.235^3.53^1.16^.32^9^.36^2.61^.14^89^3.49^3.65^3.09^0^.97^^^0
+3 ;;^UTILITY(U,$J,112,466,3)
+4 ;;=.304^1.2^1.379^2.138^2.503^.774^.302^1.076^1.044^1.432^1.936^.828^1.75^2.65^4.388^1.641^1.274^1.213
+5 ;;^UTILITY(U,$J,112,466,4)
+6 ;;=0^.01^.08^2.1^.59^.9^2.97^.24
+7 ;;^UTILITY(U,$J,112,466,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,467,0)
+10 ;;=TURKEY, LIGHT MEAT, ROASTED^5-186^oz.^28.3^74^N
+11 ;;^UTILITY(U,$J,112,467,1)
+12 ;;=29.9^3.22^0^157^66.27^^^19^1.35^28^219^305^64^2.04^.042^.02^^0^0^.061
+13 ;;^UTILITY(U,$J,112,467,2)
+14 ;;=.129^6.838^.677^.54^6^.37^.57^.01^69^1.03^.56^.86^0^1.08^^^0
+15 ;;^UTILITY(U,$J,112,467,3)
+16 ;;=.34^1.33^1.555^2.383^2.818^.866^.311^1.187^1.182^1.588^2.086^.933^1.851^2.904^4.88^1.483^1.244^1.33
+17 ;;^UTILITY(U,$J,112,467,4)
+18 ;;=0^.01^.02^.47^.07^.31^.46^.17^^32.1
+19 ;;^UTILITY(U,$J,112,467,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,468,0)
+22 ;;=TURKEY, DARK MEAT, ROASTED^5-188^oz.^28.3^63^N
+23 ;;^UTILITY(U,$J,112,468,1)
+24 ;;=28.57^7.22^0^187^63.09^^^32^2.33^24^204^290^79^4.46^.16^.023^^0^0^.063
+25 ;;^UTILITY(U,$J,112,468,2)
+26 ;;=.248^3.649^1.286^.36^9^.37^1.75^.07^85^2.42^1.64^2.16^0^1.02^^^0
+27 ;;^UTILITY(U,$J,112,468,3)
+28 ;;=.325^1.271^1.485^2.276^2.693^.828^.297^1.134^1.129^1.518^1.993^.892^1.769^2.775^4.663^1.417^1.188^1.271
+29 ;;^UTILITY(U,$J,112,468,4)
+30 ;;=0^.02^.05^1.28^.24^.72^1.35^.26^^40.9
+31 ;;^UTILITY(U,$J,112,468,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,469,0)
+34 ;;=TURKEY, BREAST, MEAT&SKIN, ROASTED^5-192^oz.^28.3^92^N
+35 ;;^UTILITY(U,$J,112,469,1)
+36 ;;=28.71^7.41^0^189^63.22^^^21^1.4^27^210^288^63^2.03^.047^.02^^0^0^.057
+37 ;;^UTILITY(U,$J,112,469,2)
+38 ;;=.131^6.365^.634^.48^6^.36^1.45^.08^74^2.1^2.45^1.8^0^1.03^^^0
+39 ;;^UTILITY(U,$J,112,469,3)
+40 ;;=.318^1.257^1.447^2.24^2.626^.811^.313^1.126^1.096^1.5^2.02^.868^1.822^2.771^4.597^1.677^1.313^1.268
+41 ;;^UTILITY(U,$J,112,469,4)
+42 ;;=0^.01^.05^1.28^.4^.5^1.98^.16
+43 ;;^UTILITY(U,$J,112,469,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,470,0)
+46 ;;=TURKEY, LEG, MEAT&SKIN, ROASTED^5-194^oz.^28.3^81^N
+47 ;;^UTILITY(U,$J,112,470,1)
+48 ;;=27.87^9.82^0^208^61.19^^^32^2.3^23^199^280^77^4.27^.154^.023^^0^0^.06
+49 ;;^UTILITY(U,$J,112,470,2)
+50 ;;=.241^3.561^1.205^.33^9^.36^2.27^.11^85^3.06^2.87^2.72^0^.99^^^0
+51 ;;^UTILITY(U,$J,112,470,3)
+52 ;;=.311^1.225^1.417^2.187^2.571^.793^.3^1.096^1.074^1.463^1.956^.85^1.756^2.695^4.486^1.559^1.242^1.233
+53 ;;^UTILITY(U,$J,112,470,4)
+54 ;;=0^.01^.07^1.77^.46^.82^2.34^.24
+55 ;;^UTILITY(U,$J,112,470,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,471,0)
+58 ;;=TURKEY, WING, MEAT&SKIN, ROASTED^5-196^oz.^28.3^66^N
+59 ;;^UTILITY(U,$J,112,471,1)
+60 ;;=27.38^12.43^0^229^59.49^^^24^1.46^25^197^266^61^2.1^.056^.02^^0^0^.05
+61 ;;^UTILITY(U,$J,112,471,2)
+62 ;;=.134^5.732^.584^.42^6^.34^2.49^.16^81^3.39^4.66^2.94^0^.97^^^0
+63 ;;^UTILITY(U,$J,112,471,3)
+64 ;;=.295^1.175^1.327^2.08^2.412^.749^.315^1.058^1^1.401^1.946^.796^1.789^2.622^4.279^1.894^1.391^1.199
+65 ;;^UTILITY(U,$J,112,471,4)
+66 ;;=0^.01^.09^2.23^.79^.74^3.76^.16
+67 ;;^UTILITY(U,$J,112,471,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,472,0)
+70 ;;=TURKEY, FRYER-ROASTERS, MEAT&SKIN&GIBLETS&NECK, RSTD^5-198^oz.^28.3^75^N
+71 ;;^UTILITY(U,$J,112,472,1)
+72 ;;=28.08^5.64^.04^171^65.95^^^23^2.22^24^196^242^65^3.09^.161^.031^^224^.1^.042
+73 ;;^UTILITY(U,$J,112,472,2)
+74 ;;=.216^4.78^.999^.4^21^1.32^1.21^.07^118^1.64^1.89^1.44^67^.97^^^0
+75 ;;^UTILITY(U,$J,112,472,3)
+76 ;;=.309^1.225^1.401^2.176^2.52^.782^.313^1.104^1.053^1.459^1.977^.831^1.776^2.701^4.46^1.713^1.327^1.237
+77 ;;^UTILITY(U,$J,112,472,4)
+78 ;;=0^.01^.04^1.02^.31^.4^1.53^.11
+79 ;;^UTILITY(U,$J,112,472,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,473,0)
+82 ;;=CHICKEN, CND, MEAT ONLY, BONED, W/BROTH^5-277^oz.^28.35^100^N
+83 ;;^UTILITY(U,$J,112,473,1)
+84 ;;=21.77^7.95^0^165^68.65^^^14^1.58^12^111^138^503^1.41^.046^.015^^117^2^.015
+85 ;;^UTILITY(U,$J,112,473,2)
+86 ;;=.129^6.329^.85^.35^4^.29^1.51^.07^62^2.2^3.15^1.75^34^1.81^^^0
+87 ;;^UTILITY(U,$J,112,473,3)
+88 ;;=.243^.895^1.085^1.578^1.764^.574^.297^.842^.699^1.052^1.355^.636^1.258^1.926^3.173^1.389^1.04^.762
+89 ;;^UTILITY(U,$J,112,473,4)
+90 ;;=0^.01^.06^1.62^.44^.44^2.59^.07
+91 ;;^UTILITY(U,$J,112,473,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,474,0)
+94 ;;=FRANKFURTERS, CHICKEN^5-278^oz.^28.3^100^N
+95 ;;^UTILITY(U,$J,112,474,1)
+96 ;;=12.93^19.48^6.79^257^57.53^^^95^2^10^107^84^1370^1.04^.053^.015^^130^0^.066
+97 ;;^UTILITY(U,$J,112,474,2)
+98 ;;=.115^3.089^.834^.32^4^.24^3.74^.15^101^5.54^8.48^4.04^38^3.28
+99 ;;^UTILITY(U,$J,112,474,3)
+100 ;;=.103^.577^.457^1.024^1.095^.343^.13^.513^.391^.536^.892^.362^.902^1.322^2.063^1.024^.691^.608
