FHINI01Q ; ; 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,432,4)
;;=0^.02^.05^1.41^.31^.59^2.57^.12
;;^UTILITY(U,$J,112,432,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,433,0)
;;=CHICKEN, DRUMSTICK, MEAT ONLY, ROASTED^5-073^oz.^28.35^54^N
;;^UTILITY(U,$J,112,433,1)
;;=28.29^5.66^0^172^66.74^^^12^1.3^24^184^246^95^3.18^.079^.021^^60^0^.076
;;^UTILITY(U,$J,112,433,2)
;;=.233^6.075^1.305^.39^9^.34^1.08^.05^93^1.48^1.87^1.37^18^1.05^^^0
;;^UTILITY(U,$J,112,433,3)
;;=.33^1.195^1.494^2.123^2.403^.783^.362^1.122^.955^1.403^1.706^.878^1.543^2.521^4.236^1.389^1.163^.973
;;^UTILITY(U,$J,112,433,4)
;;=0^.02^.04^1.01^.27^.37^1.56^.12
;;^UTILITY(U,$J,112,433,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,434,0)
;;=CHICKEN, DRUMSTICK, MEAT ONLY, STEWED^5-074^oz.^28.35^52^N
;;^UTILITY(U,$J,112,434,1)
;;=27.5^5.71^0^169^67.58^^^11^1.37^21^150^199^80^3.02^.077^.019^^57^0^.054
;;^UTILITY(U,$J,112,434,2)
;;=.213^4.3^.961^.23^8^.24^1.09^.05^88^1.51^1.93^1.37^17^.91^^^0
;;^UTILITY(U,$J,112,434,3)
;;=.321^1.162^1.452^2.064^2.337^.761^.352^1.091^.929^1.364^1.659^.854^1.501^2.451^4.119^1.351^1.131^.946
;;^UTILITY(U,$J,112,434,4)
;;=0^.02^.04^1.03^.27^.38^1.61^.11
;;^UTILITY(U,$J,112,434,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,435,0)
;;=CHICKEN, LEG, MEAT&SKIN, FRIED, BATTER^5-076^oz.^28.35^78^N
;;^UTILITY(U,$J,112,435,1)
;;=21.77^16.17^8.72^273^52.08^^^18^1.4^20^152^189^279^2.17^.08^.054^^91^0^.116
;;^UTILITY(U,$J,112,435,2)
;;=.221^5.433^.994^.27^9^.28^3.45^.19^90^4.28^6.58^3.85^27^1.26
;;^UTILITY(U,$J,112,435,3)
;;=.25^.894^1.095^1.603^1.718^.574^.298^.87^.711^1.065^1.326^.638^1.217^1.885^3.479^1.287^1.112^.799
;;^UTILITY(U,$J,112,435,4)
;;=0^.02^.09^2.84^.51^1.25^5.95^.1
;;^UTILITY(U,$J,112,435,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,436,0)
;;=CHICKEN, LEG, MEAT&SKIN, FRIED, FLOUR^5-077^oz.^28.35^72^N
;;^UTILITY(U,$J,112,436,1)
;;=26.84^14.43^2.5^254^55.28^^^13^1.43^24^182^233^88^2.68^.085^.032^^92^0^.088
;;^UTILITY(U,$J,112,436,2)
;;=.235^6.546^1.198^.34^8^.31^2.91^.14^94^3.9^5.68^3.33^28^.95
;;^UTILITY(U,$J,112,436,3)
;;=.304^1.112^1.357^1.969^2.189^.718^.357^1.054^.875^1.31^1.659^.797^1.531^2.377^4.029^1.621^1.278^.948
;;^UTILITY(U,$J,112,436,4)
;;=0^.03^.1^2.73^.64^.95^4.87^.12
;;^UTILITY(U,$J,112,436,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,437,0)
;;=CHICKEN, LEG, MEAT&SKIN, ROASTED^5-078^oz.^28.35^71^N
;;^UTILITY(U,$J,112,437,1)
;;=25.96^13.46^0^232^60.92^^^12^1.33^23^174^225^87^2.6^.077^.021^^135^0^.068
;;^UTILITY(U,$J,112,437,2)
;;=.213^6.196^1.156^.33^7^.3^2.59^.12^92^3.72^5.24^3^39^.92^^^0
;;^UTILITY(U,$J,112,437,3)
;;=.291^1.075^1.304^1.895^2.124^.694^.345^1.011^.841^1.263^1.62^.768^1.503^2.315^3.806^1.633^1.237^.913
;;^UTILITY(U,$J,112,437,4)
;;=0^.03^.1^2.71^.73^.77^4.32^.12
;;^UTILITY(U,$J,112,437,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,438,0)
;;=CHICKEN, LEG, MEAT&SKIN, STEWED^5-079^oz.^28.35^70^N
;;^UTILITY(U,$J,112,438,1)
;;=24.17^12.92^0^220^64.01^^^11^1.35^20^139^176^73^2.43^.071^.019^^124^0^.054
;;^UTILITY(U,$J,112,438,2)
;;=.191^4.59^.812^.18^6^.2^2.49^.11^84^3.57^5.04^2.87^36^.79^^^0
;;^UTILITY(U,$J,112,438,3)
;;=.271^1.002^1.216^1.766^1.979^.646^.321^.942^.784^1.177^1.507^.715^1.397^2.155^3.545^1.511^1.147^.85
;;^UTILITY(U,$J,112,438,4)
;;=0^.03^.1^2.6^.7^.74^4.16^.12
;;^UTILITY(U,$J,112,438,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,439,0)
;;=CHICKEN, LEG, MEAT ONLY, FRIED^5-081^oz.^28.35^60^N
;;^UTILITY(U,$J,112,439,1)
;;=28.38^9.32^.65^208^60.61^^^13^1.4^25^193^254^96^2.98^.086^.025^^66^0^.083
;;^UTILITY(U,$J,112,439,2)
;;=.247^6.688^1.301^.39^9^.34^1.86^.09^99^2.49^3.43^2.22^20^1.05^^^0
;;^UTILITY(U,$J,112,439,3)
;;=.332^1.198^1.497^2.129^2.405^.784^.364^1.127^.958^1.407^1.71^.88^1.547^2.525^4.27^1.393^1.174^.978
;;^UTILITY(U,$J,112,439,4)
;;=0^.03^.06^1.68^.4^.65^2.96^.13
;;^UTILITY(U,$J,112,439,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,440,0)
;;=CHICKEN, LEG, MEAT ONLY, ROASTED^5-082^oz.^28.35^59^N
;;^UTILITY(U,$J,112,440,1)
;;=27.03^8.43^0^191^64.7^^^12^1.31^24^183^242^91^2.86^.08^.021^^63^0^.075
;;^UTILITY(U,$J,112,440,2)
;;=.232^6.319^1.241^.37^8^.32^1.62^.08^94^2.29^3.05^1.97^19^1^^^0
;;^UTILITY(U,$J,112,440,3)
;;=.316^1.142^1.427^2.028^2.296^.748^.346^1.072^.912^1.34^1.63^.839^1.474^2.408^4.047^1.327^1.111^.93
;;^UTILITY(U,$J,112,440,4)
;;=0^.03^.06^1.59^.42^.54^2.54^.13
;;^UTILITY(U,$J,112,440,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,441,0)
;;=CHICKEN, LEG, MEAT ONLY, STEWED^5-083^oz.^28.35^57^N
FHINI01Q ; ; 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,432,4)
+2 ;;=0^.02^.05^1.41^.31^.59^2.57^.12
+3 ;;^UTILITY(U,$J,112,432,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,433,0)
+6 ;;=CHICKEN, DRUMSTICK, MEAT ONLY, ROASTED^5-073^oz.^28.35^54^N
+7 ;;^UTILITY(U,$J,112,433,1)
+8 ;;=28.29^5.66^0^172^66.74^^^12^1.3^24^184^246^95^3.18^.079^.021^^60^0^.076
+9 ;;^UTILITY(U,$J,112,433,2)
+10 ;;=.233^6.075^1.305^.39^9^.34^1.08^.05^93^1.48^1.87^1.37^18^1.05^^^0
+11 ;;^UTILITY(U,$J,112,433,3)
+12 ;;=.33^1.195^1.494^2.123^2.403^.783^.362^1.122^.955^1.403^1.706^.878^1.543^2.521^4.236^1.389^1.163^.973
+13 ;;^UTILITY(U,$J,112,433,4)
+14 ;;=0^.02^.04^1.01^.27^.37^1.56^.12
+15 ;;^UTILITY(U,$J,112,433,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,434,0)
+18 ;;=CHICKEN, DRUMSTICK, MEAT ONLY, STEWED^5-074^oz.^28.35^52^N
+19 ;;^UTILITY(U,$J,112,434,1)
+20 ;;=27.5^5.71^0^169^67.58^^^11^1.37^21^150^199^80^3.02^.077^.019^^57^0^.054
+21 ;;^UTILITY(U,$J,112,434,2)
+22 ;;=.213^4.3^.961^.23^8^.24^1.09^.05^88^1.51^1.93^1.37^17^.91^^^0
+23 ;;^UTILITY(U,$J,112,434,3)
+24 ;;=.321^1.162^1.452^2.064^2.337^.761^.352^1.091^.929^1.364^1.659^.854^1.501^2.451^4.119^1.351^1.131^.946
+25 ;;^UTILITY(U,$J,112,434,4)
+26 ;;=0^.02^.04^1.03^.27^.38^1.61^.11
+27 ;;^UTILITY(U,$J,112,434,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,435,0)
+30 ;;=CHICKEN, LEG, MEAT&SKIN, FRIED, BATTER^5-076^oz.^28.35^78^N
+31 ;;^UTILITY(U,$J,112,435,1)
+32 ;;=21.77^16.17^8.72^273^52.08^^^18^1.4^20^152^189^279^2.17^.08^.054^^91^0^.116
+33 ;;^UTILITY(U,$J,112,435,2)
+34 ;;=.221^5.433^.994^.27^9^.28^3.45^.19^90^4.28^6.58^3.85^27^1.26
+35 ;;^UTILITY(U,$J,112,435,3)
+36 ;;=.25^.894^1.095^1.603^1.718^.574^.298^.87^.711^1.065^1.326^.638^1.217^1.885^3.479^1.287^1.112^.799
+37 ;;^UTILITY(U,$J,112,435,4)
+38 ;;=0^.02^.09^2.84^.51^1.25^5.95^.1
+39 ;;^UTILITY(U,$J,112,435,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,436,0)
+42 ;;=CHICKEN, LEG, MEAT&SKIN, FRIED, FLOUR^5-077^oz.^28.35^72^N
+43 ;;^UTILITY(U,$J,112,436,1)
+44 ;;=26.84^14.43^2.5^254^55.28^^^13^1.43^24^182^233^88^2.68^.085^.032^^92^0^.088
+45 ;;^UTILITY(U,$J,112,436,2)
+46 ;;=.235^6.546^1.198^.34^8^.31^2.91^.14^94^3.9^5.68^3.33^28^.95
+47 ;;^UTILITY(U,$J,112,436,3)
+48 ;;=.304^1.112^1.357^1.969^2.189^.718^.357^1.054^.875^1.31^1.659^.797^1.531^2.377^4.029^1.621^1.278^.948
+49 ;;^UTILITY(U,$J,112,436,4)
+50 ;;=0^.03^.1^2.73^.64^.95^4.87^.12
+51 ;;^UTILITY(U,$J,112,436,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,437,0)
+54 ;;=CHICKEN, LEG, MEAT&SKIN, ROASTED^5-078^oz.^28.35^71^N
+55 ;;^UTILITY(U,$J,112,437,1)
+56 ;;=25.96^13.46^0^232^60.92^^^12^1.33^23^174^225^87^2.6^.077^.021^^135^0^.068
+57 ;;^UTILITY(U,$J,112,437,2)
+58 ;;=.213^6.196^1.156^.33^7^.3^2.59^.12^92^3.72^5.24^3^39^.92^^^0
+59 ;;^UTILITY(U,$J,112,437,3)
+60 ;;=.291^1.075^1.304^1.895^2.124^.694^.345^1.011^.841^1.263^1.62^.768^1.503^2.315^3.806^1.633^1.237^.913
+61 ;;^UTILITY(U,$J,112,437,4)
+62 ;;=0^.03^.1^2.71^.73^.77^4.32^.12
+63 ;;^UTILITY(U,$J,112,437,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,438,0)
+66 ;;=CHICKEN, LEG, MEAT&SKIN, STEWED^5-079^oz.^28.35^70^N
+67 ;;^UTILITY(U,$J,112,438,1)
+68 ;;=24.17^12.92^0^220^64.01^^^11^1.35^20^139^176^73^2.43^.071^.019^^124^0^.054
+69 ;;^UTILITY(U,$J,112,438,2)
+70 ;;=.191^4.59^.812^.18^6^.2^2.49^.11^84^3.57^5.04^2.87^36^.79^^^0
+71 ;;^UTILITY(U,$J,112,438,3)
+72 ;;=.271^1.002^1.216^1.766^1.979^.646^.321^.942^.784^1.177^1.507^.715^1.397^2.155^3.545^1.511^1.147^.85
+73 ;;^UTILITY(U,$J,112,438,4)
+74 ;;=0^.03^.1^2.6^.7^.74^4.16^.12
+75 ;;^UTILITY(U,$J,112,438,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,439,0)
+78 ;;=CHICKEN, LEG, MEAT ONLY, FRIED^5-081^oz.^28.35^60^N
+79 ;;^UTILITY(U,$J,112,439,1)
+80 ;;=28.38^9.32^.65^208^60.61^^^13^1.4^25^193^254^96^2.98^.086^.025^^66^0^.083
+81 ;;^UTILITY(U,$J,112,439,2)
+82 ;;=.247^6.688^1.301^.39^9^.34^1.86^.09^99^2.49^3.43^2.22^20^1.05^^^0
+83 ;;^UTILITY(U,$J,112,439,3)
+84 ;;=.332^1.198^1.497^2.129^2.405^.784^.364^1.127^.958^1.407^1.71^.88^1.547^2.525^4.27^1.393^1.174^.978
+85 ;;^UTILITY(U,$J,112,439,4)
+86 ;;=0^.03^.06^1.68^.4^.65^2.96^.13
+87 ;;^UTILITY(U,$J,112,439,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,440,0)
+90 ;;=CHICKEN, LEG, MEAT ONLY, ROASTED^5-082^oz.^28.35^59^N
+91 ;;^UTILITY(U,$J,112,440,1)
+92 ;;=27.03^8.43^0^191^64.7^^^12^1.31^24^183^242^91^2.86^.08^.021^^63^0^.075
+93 ;;^UTILITY(U,$J,112,440,2)
+94 ;;=.232^6.319^1.241^.37^8^.32^1.62^.08^94^2.29^3.05^1.97^19^1^^^0
+95 ;;^UTILITY(U,$J,112,440,3)
+96 ;;=.316^1.142^1.427^2.028^2.296^.748^.346^1.072^.912^1.34^1.63^.839^1.474^2.408^4.047^1.327^1.111^.93
+97 ;;^UTILITY(U,$J,112,440,4)
+98 ;;=0^.03^.06^1.59^.42^.54^2.54^.13
+99 ;;^UTILITY(U,$J,112,440,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,441,0)
+102 ;;=CHICKEN, LEG, MEAT ONLY, STEWED^5-083^oz.^28.35^57^N