FHINI01S ; ; 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,449,3)
;;=.219^.795^.941^1.421^1.474^.499^.287^.785^.62^.953^1.247^.547^1.173^1.703^3.202^1.465^1.19^.759
;;^UTILITY(U,$J,112,449,4)
;;=0^.01^.13^3.92^.66^1.67^8.1^.1
;;^UTILITY(U,$J,112,449,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,450,0)
;;=CHICKEN, WING, MEAT&SKIN, FRIED, FLR^5-102^oz.^28.35^53^N
;;^UTILITY(U,$J,112,450,1)
;;=26.11^22.16^2.39^321^48.62^^^15^1.25^19^150^177^77^1.76^.061^.028^^125^0^.058
;;^UTILITY(U,$J,112,450,2)
;;=.137^6.697^.874^.41^3^.28^4.34^.21^81^6.06^8.89^4.95^38^.72
;;^UTILITY(U,$J,112,450,3)
;;=.281^1.056^1.239^1.851^2.03^.669^.363^1.002^.807^1.245^1.68^.729^1.595^2.315^3.818^2.013^1.448^.947
;;^UTILITY(U,$J,112,450,4)
;;=0^.02^.16^4.28^.92^1.48^7.69^.14
;;^UTILITY(U,$J,112,450,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,451,0)
;;=CHICKEN, WING, MEAT&SKIN, ROASTED^5-103^oz.^28.35^52^N
;;^UTILITY(U,$J,112,451,1)
;;=26.86^19.46^0^290^55.04^^^15^1.27^19^151^184^82^1.82^.057^.018^^158^0^.042
;;^UTILITY(U,$J,112,451,2)
;;=.128^6.648^.897^.42^3^.29^3.57^.15^84^5.45^7.64^4.14^47^.75^^^0
;;^UTILITY(U,$J,112,451,3)
;;=.287^1.087^1.27^1.898^2.1^.688^.371^1.023^.827^1.278^1.741^.749^1.657^2.396^3.84^2.115^1.48^.969
;;^UTILITY(U,$J,112,451,4)
;;=0^.02^.16^4.04^1.03^1.09^6.29^.15
;;^UTILITY(U,$J,112,451,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,452,0)
;;=CHICKEN, WING, MEAT&SKIN, STEWED^5-104^oz.^28.35^52^N
;;^UTILITY(U,$J,112,452,1)
;;=22.78^16.82^0^249^62.18^^^12^1.13^16^121^139^67^1.63^.046^.018^^133^0^.04
;;^UTILITY(U,$J,112,452,2)
;;=.103^4.621^.504^.22^3^.18^3.08^.13^70^4.71^6.6^3.58^40^.62^^^0
;;^UTILITY(U,$J,112,452,3)
;;=.245^.925^1.085^1.616^1.791^.587^.313^.87^.706^1.087^1.469^.64^1.394^2.032^3.266^1.746^1.233^.819
;;^UTILITY(U,$J,112,452,4)
;;=0^.02^.14^3.5^.89^.94^5.44^.13
;;^UTILITY(U,$J,112,452,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,453,0)
;;=CHICKEN, WING, MEAT ONLY, FRIED^5-106^oz.^28.35^34^N
;;^UTILITY(U,$J,112,453,1)
;;=30.15^9.15^0^211^59.83^^^15^1.14^21^164^208^91^2.12^.053^.016^^61^0^.046
;;^UTILITY(U,$J,112,453,2)
;;=.128^7.239^.989^.59^4^.34^1.56^.08^84^2.5^3.08^2.07^18^.87^^^0
;;^UTILITY(U,$J,112,453,3)
;;=.352^1.274^1.592^2.262^2.562^.835^.386^1.196^1.018^1.496^1.819^.936^1.645^2.687^4.516^1.481^1.24^1.038
;;^UTILITY(U,$J,112,453,4)
;;=0^.01^.07^1.64^.28^.72^2.7^.17
;;^UTILITY(U,$J,112,453,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,454,0)
;;=CHICKEN, WING, MEAT ONLY, ROASTED^5-107^oz.^28.35^32^N
;;^UTILITY(U,$J,112,454,1)
;;=30.46^8.13^0^203^62.78^^^16^1.16^21^166^210^92^2.14^.054^.016^^61^0^.047
;;^UTILITY(U,$J,112,454,2)
;;=.129^7.312^.999^.59^4^.34^1.29^.06^85^2.26^2.61^1.78^18^.89^^^0
;;^UTILITY(U,$J,112,454,3)
;;=.356^1.286^1.608^2.285^2.588^.843^.39^1.209^1.028^1.511^1.837^.945^1.662^2.714^4.561^1.496^1.252^1.048
;;^UTILITY(U,$J,112,454,4)
;;=0^.01^.07^1.53^.3^.59^2.21^.17
;;^UTILITY(U,$J,112,454,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,455,0)
;;=CHICKEN, WING, MEAT ONLY, STEWED^5-108^oz.^28.35^32^N
;;^UTILITY(U,$J,112,455,1)
;;=27.18^7.18^0^181^67.01^^^13^1.12^18^134^153^73^2.02^.047^.017^^54^0^.044
;;^UTILITY(U,$J,112,455,2)
;;=.11^5.2^.571^.32^3^.22^1.14^.05^74^2^2.31^1.57^16^.73^^^0
;;^UTILITY(U,$J,112,455,3)
;;=.317^1.148^1.435^2.039^2.309^.752^.348^1.078^.917^1.348^1.639^.844^1.483^2.422^4.07^1.335^1.117^.935
;;^UTILITY(U,$J,112,455,4)
;;=0^.01^.06^1.35^.27^.52^1.95^.15
;;^UTILITY(U,$J,112,455,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,456,0)
;;=DUCK, MEAT&SKIN, ROASTED^5-140^oz.^28.3^65^N
;;^UTILITY(U,$J,112,456,1)
;;=18.99^28.35^0^337^51.84^^^11^2.7^16^156^204^59^1.86^.227^.019^^210^0^.174
;;^UTILITY(U,$J,112,456,2)
;;=.269^4.825^1.098^.18^6^.3^3.36^.29^84^9.67^12.9^3.65^63^.82^^^0
;;^UTILITY(U,$J,112,456,3)
;;=.232^.773^.872^1.465^1.486^.475^.299^.752^.64^.938^1.284^.462^1.3^1.814^2.798^1.624^1.172^.804
;;^UTILITY(U,$J,112,456,4)
;;=0^.04^.17^6.8^1.11^2.43^11.52^0
;;^UTILITY(U,$J,112,456,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,457,0)
;;=DUCK, MEAT ONLY, ROASTED^5-142^oz.^28.3^38^N
;;^UTILITY(U,$J,112,457,1)
;;=23.48^11.2^0^201^64.22^^^12^2.7^20^203^252^65^2.6^.231^.019^^77^0^.26
;;^UTILITY(U,$J,112,457,2)
;;=.47^5.1^1.5^.25^10^.4^1.29^.14^89^4.17^3.7^1.43^23^1.11^^^0
;;^UTILITY(U,$J,112,457,3)
;;=.327^1.003^1.206^1.983^2.009^.635^.361^.984^.894^1.228^1.499^.62^1.487^2.299^3.673^1.315^1.153^1.01
;;^UTILITY(U,$J,112,457,4)
;;=0^.04^.05^2.44^.43^1.27^3.24^0
FHINI01S ; ; 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,449,3)
+2 ;;=.219^.795^.941^1.421^1.474^.499^.287^.785^.62^.953^1.247^.547^1.173^1.703^3.202^1.465^1.19^.759
+3 ;;^UTILITY(U,$J,112,449,4)
+4 ;;=0^.01^.13^3.92^.66^1.67^8.1^.1
+5 ;;^UTILITY(U,$J,112,449,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,450,0)
+8 ;;=CHICKEN, WING, MEAT&SKIN, FRIED, FLR^5-102^oz.^28.35^53^N
+9 ;;^UTILITY(U,$J,112,450,1)
+10 ;;=26.11^22.16^2.39^321^48.62^^^15^1.25^19^150^177^77^1.76^.061^.028^^125^0^.058
+11 ;;^UTILITY(U,$J,112,450,2)
+12 ;;=.137^6.697^.874^.41^3^.28^4.34^.21^81^6.06^8.89^4.95^38^.72
+13 ;;^UTILITY(U,$J,112,450,3)
+14 ;;=.281^1.056^1.239^1.851^2.03^.669^.363^1.002^.807^1.245^1.68^.729^1.595^2.315^3.818^2.013^1.448^.947
+15 ;;^UTILITY(U,$J,112,450,4)
+16 ;;=0^.02^.16^4.28^.92^1.48^7.69^.14
+17 ;;^UTILITY(U,$J,112,450,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,451,0)
+20 ;;=CHICKEN, WING, MEAT&SKIN, ROASTED^5-103^oz.^28.35^52^N
+21 ;;^UTILITY(U,$J,112,451,1)
+22 ;;=26.86^19.46^0^290^55.04^^^15^1.27^19^151^184^82^1.82^.057^.018^^158^0^.042
+23 ;;^UTILITY(U,$J,112,451,2)
+24 ;;=.128^6.648^.897^.42^3^.29^3.57^.15^84^5.45^7.64^4.14^47^.75^^^0
+25 ;;^UTILITY(U,$J,112,451,3)
+26 ;;=.287^1.087^1.27^1.898^2.1^.688^.371^1.023^.827^1.278^1.741^.749^1.657^2.396^3.84^2.115^1.48^.969
+27 ;;^UTILITY(U,$J,112,451,4)
+28 ;;=0^.02^.16^4.04^1.03^1.09^6.29^.15
+29 ;;^UTILITY(U,$J,112,451,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,452,0)
+32 ;;=CHICKEN, WING, MEAT&SKIN, STEWED^5-104^oz.^28.35^52^N
+33 ;;^UTILITY(U,$J,112,452,1)
+34 ;;=22.78^16.82^0^249^62.18^^^12^1.13^16^121^139^67^1.63^.046^.018^^133^0^.04
+35 ;;^UTILITY(U,$J,112,452,2)
+36 ;;=.103^4.621^.504^.22^3^.18^3.08^.13^70^4.71^6.6^3.58^40^.62^^^0
+37 ;;^UTILITY(U,$J,112,452,3)
+38 ;;=.245^.925^1.085^1.616^1.791^.587^.313^.87^.706^1.087^1.469^.64^1.394^2.032^3.266^1.746^1.233^.819
+39 ;;^UTILITY(U,$J,112,452,4)
+40 ;;=0^.02^.14^3.5^.89^.94^5.44^.13
+41 ;;^UTILITY(U,$J,112,452,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,453,0)
+44 ;;=CHICKEN, WING, MEAT ONLY, FRIED^5-106^oz.^28.35^34^N
+45 ;;^UTILITY(U,$J,112,453,1)
+46 ;;=30.15^9.15^0^211^59.83^^^15^1.14^21^164^208^91^2.12^.053^.016^^61^0^.046
+47 ;;^UTILITY(U,$J,112,453,2)
+48 ;;=.128^7.239^.989^.59^4^.34^1.56^.08^84^2.5^3.08^2.07^18^.87^^^0
+49 ;;^UTILITY(U,$J,112,453,3)
+50 ;;=.352^1.274^1.592^2.262^2.562^.835^.386^1.196^1.018^1.496^1.819^.936^1.645^2.687^4.516^1.481^1.24^1.038
+51 ;;^UTILITY(U,$J,112,453,4)
+52 ;;=0^.01^.07^1.64^.28^.72^2.7^.17
+53 ;;^UTILITY(U,$J,112,453,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,454,0)
+56 ;;=CHICKEN, WING, MEAT ONLY, ROASTED^5-107^oz.^28.35^32^N
+57 ;;^UTILITY(U,$J,112,454,1)
+58 ;;=30.46^8.13^0^203^62.78^^^16^1.16^21^166^210^92^2.14^.054^.016^^61^0^.047
+59 ;;^UTILITY(U,$J,112,454,2)
+60 ;;=.129^7.312^.999^.59^4^.34^1.29^.06^85^2.26^2.61^1.78^18^.89^^^0
+61 ;;^UTILITY(U,$J,112,454,3)
+62 ;;=.356^1.286^1.608^2.285^2.588^.843^.39^1.209^1.028^1.511^1.837^.945^1.662^2.714^4.561^1.496^1.252^1.048
+63 ;;^UTILITY(U,$J,112,454,4)
+64 ;;=0^.01^.07^1.53^.3^.59^2.21^.17
+65 ;;^UTILITY(U,$J,112,454,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,455,0)
+68 ;;=CHICKEN, WING, MEAT ONLY, STEWED^5-108^oz.^28.35^32^N
+69 ;;^UTILITY(U,$J,112,455,1)
+70 ;;=27.18^7.18^0^181^67.01^^^13^1.12^18^134^153^73^2.02^.047^.017^^54^0^.044
+71 ;;^UTILITY(U,$J,112,455,2)
+72 ;;=.11^5.2^.571^.32^3^.22^1.14^.05^74^2^2.31^1.57^16^.73^^^0
+73 ;;^UTILITY(U,$J,112,455,3)
+74 ;;=.317^1.148^1.435^2.039^2.309^.752^.348^1.078^.917^1.348^1.639^.844^1.483^2.422^4.07^1.335^1.117^.935
+75 ;;^UTILITY(U,$J,112,455,4)
+76 ;;=0^.01^.06^1.35^.27^.52^1.95^.15
+77 ;;^UTILITY(U,$J,112,455,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,456,0)
+80 ;;=DUCK, MEAT&SKIN, ROASTED^5-140^oz.^28.3^65^N
+81 ;;^UTILITY(U,$J,112,456,1)
+82 ;;=18.99^28.35^0^337^51.84^^^11^2.7^16^156^204^59^1.86^.227^.019^^210^0^.174
+83 ;;^UTILITY(U,$J,112,456,2)
+84 ;;=.269^4.825^1.098^.18^6^.3^3.36^.29^84^9.67^12.9^3.65^63^.82^^^0
+85 ;;^UTILITY(U,$J,112,456,3)
+86 ;;=.232^.773^.872^1.465^1.486^.475^.299^.752^.64^.938^1.284^.462^1.3^1.814^2.798^1.624^1.172^.804
+87 ;;^UTILITY(U,$J,112,456,4)
+88 ;;=0^.04^.17^6.8^1.11^2.43^11.52^0
+89 ;;^UTILITY(U,$J,112,456,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,457,0)
+92 ;;=DUCK, MEAT ONLY, ROASTED^5-142^oz.^28.3^38^N
+93 ;;^UTILITY(U,$J,112,457,1)
+94 ;;=23.48^11.2^0^201^64.22^^^12^2.7^20^203^252^65^2.6^.231^.019^^77^0^.26
+95 ;;^UTILITY(U,$J,112,457,2)
+96 ;;=.47^5.1^1.5^.25^10^.4^1.29^.14^89^4.17^3.7^1.43^23^1.11^^^0
+97 ;;^UTILITY(U,$J,112,457,3)
+98 ;;=.327^1.003^1.206^1.983^2.009^.635^.361^.984^.894^1.228^1.499^.62^1.487^2.299^3.673^1.315^1.153^1.01
+99 ;;^UTILITY(U,$J,112,457,4)
+100 ;;=0^.04^.05^2.44^.43^1.27^3.24^0
