FHINI01M ; ; 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,399,3)
;;=.257^.922^1.125^1.653^1.765^.591^.311^.899^.732^1.1^1.378^.655^1.27^1.95^3.605^1.378^1.178^.832
;;^UTILITY(U,$J,112,399,4)
;;=0^.02^.1^3.08^.54^1.34^6.42^.1
;;^UTILITY(U,$J,112,399,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,400,0)
;;=CHICKEN, MEAT&SKIN, FRIED, FLR^5-008^oz.^28.35^71^N
;;^UTILITY(U,$J,112,400,1)
;;=28.56^14.92^3.15^269^52.41^^^17^1.38^25^191^234^84^2.04^.075^.034^^89^0^.087
;;^UTILITY(U,$J,112,400,2)
;;=.193^8.992^1.079^.41^6^.31^2.97^.15^90^4.06^5.89^3.41^27^.98^^^.1
;;^UTILITY(U,$J,112,400,3)
;;=.323^1.181^1.439^2.092^2.32^.762^.382^1.121^.928^1.392^1.766^.845^1.632^2.526^4.297^1.744^1.374^1.012
;;^UTILITY(U,$J,112,400,4)
;;=0^.02^.11^2.84^.65^.99^5.07^.12^^21.7
;;^UTILITY(U,$J,112,400,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,401,0)
;;=CHICKEN, MEAT&SKIN, ROASTED^5-009^oz.^28.35^67^N
;;^UTILITY(U,$J,112,401,1)
;;=27.3^13.6^0^239^59.45^^^15^1.26^23^182^223^82^1.94^.066^.02^^161^0^.063
;;^UTILITY(U,$J,112,401,2)
;;=.168^8.487^1.03^.4^5^.3^2.57^.11^88^3.79^5.34^2.97^47^.92^^^0
;;^UTILITY(U,$J,112,401,3)
;;=.305^1.128^1.362^1.986^2.223^.726^.364^1.061^.879^1.325^1.711^.802^1.591^2.434^3.991^1.764^1.322^.963
;;^UTILITY(U,$J,112,401,4)
;;=0^.02^.11^2.78^.73^.77^4.4^.11^^23.9
;;^UTILITY(U,$J,112,401,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,402,0)
;;=CHICKEN, MEAT&SKIN, STEWED^5-010^oz.^28.35^66^N
;;^UTILITY(U,$J,112,402,1)
;;=24.68^12.56^0^219^63.93^^^13^1.16^19^139^166^67^1.76^.057^.019^^146^0^.046
;;^UTILITY(U,$J,112,402,2)
;;=.148^5.594^.667^.22^5^.2^2.38^.11^78^3.5^4.93^2.74^42^.76^^^0
;;^UTILITY(U,$J,112,402,3)
;;=.276^1.02^1.233^1.797^2.011^.657^.329^.959^.796^1.199^1.545^.726^1.436^2.2^3.61^1.583^1.19^.87
;;^UTILITY(U,$J,112,402,4)
;;=0^.02^.1^2.57^.68^.71^4.07^.1
;;^UTILITY(U,$J,112,402,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,403,0)
;;=CHICKEN, MEAT ONLY, FRIED^5-012^oz.^28.35^58^N
;;^UTILITY(U,$J,112,403,1)
;;=30.57^9.12^1.69^219^57.53^^^17^1.35^27^205^257^91^2.24^.075^.028^^59^0^.085
;;^UTILITY(U,$J,112,403,2)
;;=.198^9.663^1.166^.48^7^.34^1.78^.09^94^2.46^3.35^2.15^18^1.09^^^.1
;;^UTILITY(U,$J,112,403,3)
;;=.358^1.289^1.612^2.294^2.583^.844^.393^1.217^1.031^1.516^1.839^.947^1.663^2.714^4.632^1.499^1.277^1.057
;;^UTILITY(U,$J,112,403,4)
;;=0^.02^.06^1.65^.36^.66^2.91^.12
;;^UTILITY(U,$J,112,403,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,404,0)
;;=CHICKEN, MEAT ONLY, ROASTED^5-013^oz.^28.35^54^N
;;^UTILITY(U,$J,112,404,1)
;;=28.93^7.41^0^190^63.79^^^15^1.21^25^195^243^86^2.1^.067^.019^^53^0^.069
;;^UTILITY(U,$J,112,404,2)
;;=.178^9.173^1.104^.47^6^.33^1.37^.07^89^2.04^2.66^1.69^16^1.02^^^0
;;^UTILITY(U,$J,112,404,3)
;;=.338^1.222^1.528^2.171^2.458^.801^.37^1.148^.977^1.435^1.745^.898^1.578^2.578^4.333^1.421^1.19^.995
;;^UTILITY(U,$J,112,404,4)
;;=0^.02^.06^1.41^.35^.49^2.22^.11
;;^UTILITY(U,$J,112,404,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,405,0)
;;=CHICKEN, MEAT ONLY, STEWED^5-014^oz.^28.35^52^N
;;^UTILITY(U,$J,112,405,1)
;;=27.29^6.71^0^177^66.81^^^14^1.17^21^150^180^70^1.99^.061^.019^^50^0^.049
;;^UTILITY(U,$J,112,405,2)
;;=.163^6.117^.746^.26^6^.22^1.24^.06^83^1.84^2.39^1.54^15^.85^^^0
;;^UTILITY(U,$J,112,405,3)
;;=.319^1.153^1.441^2.048^2.318^.755^.349^1.083^.921^1.353^1.646^.847^1.489^2.432^4.087^1.34^1.122^.939
;;^UTILITY(U,$J,112,405,4)
;;=0^.02^.05^1.27^.32^.44^2^.11
;;^UTILITY(U,$J,112,405,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,406,0)
;;=CHICKEN, LIVER, SIMMERED^5-028^oz.^28.35^100^N
;;^UTILITY(U,$J,112,406,1)
;;=24.36^5.45^.88^157^68.31^^^14^8.47^21^312^140^51^4.34^.37^.297^^16375^15.8^.153
;;^UTILITY(U,$J,112,406,2)
;;=1.747^4.45^5.411^.58^770^19.39^.57^.01^631^1.84^1.34^.9^4913^1^^^0
;;^UTILITY(U,$J,112,406,3)
;;=.343^1.083^1.294^2.198^1.843^.577^.327^1.212^.857^1.535^1.493^.647^1.415^2.315^3.157^1.415^1.208^1.048
;;^UTILITY(U,$J,112,406,4)
;;=0^0^.02^1.03^.15^.79^1.17^.17
;;^UTILITY(U,$J,112,406,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,407,0)
;;=CHICKEN, LIGHT MEAT, MEAT&SKIN, FRIED, BTTR^5-030^oz.^28.35^79^N
;;^UTILITY(U,$J,112,407,1)
;;=23.55^15.44^9.5^277^50.23^^^20^1.26^22^168^185^287^1.06^.061^.055^^79^0^.113
;;^UTILITY(U,$J,112,407,2)
;;=.147^9.156^.794^.39^6^.28^3.24^.18^84^4.12^6.37^3.6^24^1.29
;;^UTILITY(U,$J,112,407,3)
;;=.268^.963^1.171^1.723^1.841^.616^.326^.938^.762^1.147^1.445^.682^1.334^2.04^3.75^1.466^1.238^.869
;;^UTILITY(U,$J,112,407,4)
;;=0^.01^.09^2.76^.45^1.2^5.79^.07
FHINI01M ; ; 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,399,3)
+2 ;;=.257^.922^1.125^1.653^1.765^.591^.311^.899^.732^1.1^1.378^.655^1.27^1.95^3.605^1.378^1.178^.832
+3 ;;^UTILITY(U,$J,112,399,4)
+4 ;;=0^.02^.1^3.08^.54^1.34^6.42^.1
+5 ;;^UTILITY(U,$J,112,399,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,400,0)
+8 ;;=CHICKEN, MEAT&SKIN, FRIED, FLR^5-008^oz.^28.35^71^N
+9 ;;^UTILITY(U,$J,112,400,1)
+10 ;;=28.56^14.92^3.15^269^52.41^^^17^1.38^25^191^234^84^2.04^.075^.034^^89^0^.087
+11 ;;^UTILITY(U,$J,112,400,2)
+12 ;;=.193^8.992^1.079^.41^6^.31^2.97^.15^90^4.06^5.89^3.41^27^.98^^^.1
+13 ;;^UTILITY(U,$J,112,400,3)
+14 ;;=.323^1.181^1.439^2.092^2.32^.762^.382^1.121^.928^1.392^1.766^.845^1.632^2.526^4.297^1.744^1.374^1.012
+15 ;;^UTILITY(U,$J,112,400,4)
+16 ;;=0^.02^.11^2.84^.65^.99^5.07^.12^^21.7
+17 ;;^UTILITY(U,$J,112,400,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,401,0)
+20 ;;=CHICKEN, MEAT&SKIN, ROASTED^5-009^oz.^28.35^67^N
+21 ;;^UTILITY(U,$J,112,401,1)
+22 ;;=27.3^13.6^0^239^59.45^^^15^1.26^23^182^223^82^1.94^.066^.02^^161^0^.063
+23 ;;^UTILITY(U,$J,112,401,2)
+24 ;;=.168^8.487^1.03^.4^5^.3^2.57^.11^88^3.79^5.34^2.97^47^.92^^^0
+25 ;;^UTILITY(U,$J,112,401,3)
+26 ;;=.305^1.128^1.362^1.986^2.223^.726^.364^1.061^.879^1.325^1.711^.802^1.591^2.434^3.991^1.764^1.322^.963
+27 ;;^UTILITY(U,$J,112,401,4)
+28 ;;=0^.02^.11^2.78^.73^.77^4.4^.11^^23.9
+29 ;;^UTILITY(U,$J,112,401,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,402,0)
+32 ;;=CHICKEN, MEAT&SKIN, STEWED^5-010^oz.^28.35^66^N
+33 ;;^UTILITY(U,$J,112,402,1)
+34 ;;=24.68^12.56^0^219^63.93^^^13^1.16^19^139^166^67^1.76^.057^.019^^146^0^.046
+35 ;;^UTILITY(U,$J,112,402,2)
+36 ;;=.148^5.594^.667^.22^5^.2^2.38^.11^78^3.5^4.93^2.74^42^.76^^^0
+37 ;;^UTILITY(U,$J,112,402,3)
+38 ;;=.276^1.02^1.233^1.797^2.011^.657^.329^.959^.796^1.199^1.545^.726^1.436^2.2^3.61^1.583^1.19^.87
+39 ;;^UTILITY(U,$J,112,402,4)
+40 ;;=0^.02^.1^2.57^.68^.71^4.07^.1
+41 ;;^UTILITY(U,$J,112,402,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,403,0)
+44 ;;=CHICKEN, MEAT ONLY, FRIED^5-012^oz.^28.35^58^N
+45 ;;^UTILITY(U,$J,112,403,1)
+46 ;;=30.57^9.12^1.69^219^57.53^^^17^1.35^27^205^257^91^2.24^.075^.028^^59^0^.085
+47 ;;^UTILITY(U,$J,112,403,2)
+48 ;;=.198^9.663^1.166^.48^7^.34^1.78^.09^94^2.46^3.35^2.15^18^1.09^^^.1
+49 ;;^UTILITY(U,$J,112,403,3)
+50 ;;=.358^1.289^1.612^2.294^2.583^.844^.393^1.217^1.031^1.516^1.839^.947^1.663^2.714^4.632^1.499^1.277^1.057
+51 ;;^UTILITY(U,$J,112,403,4)
+52 ;;=0^.02^.06^1.65^.36^.66^2.91^.12
+53 ;;^UTILITY(U,$J,112,403,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,404,0)
+56 ;;=CHICKEN, MEAT ONLY, ROASTED^5-013^oz.^28.35^54^N
+57 ;;^UTILITY(U,$J,112,404,1)
+58 ;;=28.93^7.41^0^190^63.79^^^15^1.21^25^195^243^86^2.1^.067^.019^^53^0^.069
+59 ;;^UTILITY(U,$J,112,404,2)
+60 ;;=.178^9.173^1.104^.47^6^.33^1.37^.07^89^2.04^2.66^1.69^16^1.02^^^0
+61 ;;^UTILITY(U,$J,112,404,3)
+62 ;;=.338^1.222^1.528^2.171^2.458^.801^.37^1.148^.977^1.435^1.745^.898^1.578^2.578^4.333^1.421^1.19^.995
+63 ;;^UTILITY(U,$J,112,404,4)
+64 ;;=0^.02^.06^1.41^.35^.49^2.22^.11
+65 ;;^UTILITY(U,$J,112,404,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,405,0)
+68 ;;=CHICKEN, MEAT ONLY, STEWED^5-014^oz.^28.35^52^N
+69 ;;^UTILITY(U,$J,112,405,1)
+70 ;;=27.29^6.71^0^177^66.81^^^14^1.17^21^150^180^70^1.99^.061^.019^^50^0^.049
+71 ;;^UTILITY(U,$J,112,405,2)
+72 ;;=.163^6.117^.746^.26^6^.22^1.24^.06^83^1.84^2.39^1.54^15^.85^^^0
+73 ;;^UTILITY(U,$J,112,405,3)
+74 ;;=.319^1.153^1.441^2.048^2.318^.755^.349^1.083^.921^1.353^1.646^.847^1.489^2.432^4.087^1.34^1.122^.939
+75 ;;^UTILITY(U,$J,112,405,4)
+76 ;;=0^.02^.05^1.27^.32^.44^2^.11
+77 ;;^UTILITY(U,$J,112,405,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,406,0)
+80 ;;=CHICKEN, LIVER, SIMMERED^5-028^oz.^28.35^100^N
+81 ;;^UTILITY(U,$J,112,406,1)
+82 ;;=24.36^5.45^.88^157^68.31^^^14^8.47^21^312^140^51^4.34^.37^.297^^16375^15.8^.153
+83 ;;^UTILITY(U,$J,112,406,2)
+84 ;;=1.747^4.45^5.411^.58^770^19.39^.57^.01^631^1.84^1.34^.9^4913^1^^^0
+85 ;;^UTILITY(U,$J,112,406,3)
+86 ;;=.343^1.083^1.294^2.198^1.843^.577^.327^1.212^.857^1.535^1.493^.647^1.415^2.315^3.157^1.415^1.208^1.048
+87 ;;^UTILITY(U,$J,112,406,4)
+88 ;;=0^0^.02^1.03^.15^.79^1.17^.17
+89 ;;^UTILITY(U,$J,112,406,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,407,0)
+92 ;;=CHICKEN, LIGHT MEAT, MEAT&SKIN, FRIED, BTTR^5-030^oz.^28.35^79^N
+93 ;;^UTILITY(U,$J,112,407,1)
+94 ;;=23.55^15.44^9.5^277^50.23^^^20^1.26^22^168^185^287^1.06^.061^.055^^79^0^.113
+95 ;;^UTILITY(U,$J,112,407,2)
+96 ;;=.147^9.156^.794^.39^6^.28^3.24^.18^84^4.12^6.37^3.6^24^1.29
+97 ;;^UTILITY(U,$J,112,407,3)
+98 ;;=.268^.963^1.171^1.723^1.841^.616^.326^.938^.762^1.147^1.445^.682^1.334^2.04^3.75^1.466^1.238^.869
+99 ;;^UTILITY(U,$J,112,407,4)
+100 ;;=0^.01^.09^2.76^.45^1.2^5.79^.07
