FHINI040 ; ; 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,1304,1)
;;=9.02^.38^20.14^116^69.64^^^19^3.33^36^180^369^2^1.27^.251^.494^^8^1.5^.169
;;^UTILITY(U,$J,112,1304,2)
;;=.073^1.06^.638^.178^180.8^0^.137^.037^0^.053^.064^.175^1^.83^^^5.3
;;^UTILITY(U,$J,112,1304,3)
;;=.081^.323^.39^.654^.63^.077^.118^.445^.241^.448^.697^.254^.377^.998^1.399^.367^.377^.416
;;^UTILITY(U,$J,112,1304,4)
;;=^^.001^.045^.001^.005^.061
;;^UTILITY(U,$J,112,1304,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1305,0)
;;=LETTUCE, BUTTERHEAD VAR, RAW^11-250^cups^55^74^N
;;^UTILITY(U,$J,112,1305,1)
;;=1.29^.22^2.32^13^95.58^^^32^.3^13^23^257^5^.17^.023^.133^^970^8^.06
;;^UTILITY(U,$J,112,1305,2)
;;=.06^.3^.18^.05^73.3^0^.034^.083^0^.029^.008^.117^97^.59^^^1.3
;;^UTILITY(U,$J,112,1305,3)
;;=.009^.059^.083^.078^.084^.016^.015^.054^.032^.069^.07^.022^.055^.141^.18^.057^.048^.039
;;^UTILITY(U,$J,112,1305,4)
;;=^^^.026^.002^.003^.006^^122
;;^UTILITY(U,$J,112,1305,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1306,0)
;;=LETTUCE, COS OR ROMAINE, RAW^11-251^cups^55^94^N
;;^UTILITY(U,$J,112,1306,1)
;;=1.62^.2^2.37^16^94.91^^^36^1.1^6^45^290^8^.25^.037^.636^^2600^24^.1
;;^UTILITY(U,$J,112,1306,2)
;;=.1^.5^.17^.047^135.7^0^.031^.075^0^.026^.008^.106^260^.9^^^2.4
;;^UTILITY(U,$J,112,1306,3)
;;=.012^.074^.105^.098^.105^.02^.019^.068^.04^.087^.088^.028^.07^.177^.227^.071^.06^.049
;;^UTILITY(U,$J,112,1306,4)
;;=^^^.023^.002^.003^.006
;;^UTILITY(U,$J,112,1306,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1307,0)
;;=LETTUCE, CRISPHEAD VAR, RAW^11-252^cups^55^95^N
;;^UTILITY(U,$J,112,1307,1)
;;=1.01^.19^2.09^13^95.89^^^19^.5^9^20^158^9^.22^.028^.151^^330^3.9^.046
;;^UTILITY(U,$J,112,1307,2)
;;=.03^.187^.046^.04^56^0^.029^.071^0^.025^.007^.1^33^.48^^^.9
;;^UTILITY(U,$J,112,1307,3)
;;=.008^.053^.075^.07^.075^.014^.014^.049^.029^.062^.063^.02^.05^.127^.162^.051^.043^.035
;;^UTILITY(U,$J,112,1307,4)
;;=^^^.022^.002^.003^.006^^113^.2
;;^UTILITY(U,$J,112,1307,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1308,0)
;;=LETTUCE, LOOSELEAF, RAW^11-253^cups^55^64^N
;;^UTILITY(U,$J,112,1308,1)
;;=1.3^.3^3.5^18^94^^^68^1.4^11^25^264^9^.29^.044^.75^^1900^18^.05
;;^UTILITY(U,$J,112,1308,2)
;;=.08^.4^.2^.055^49.8^0^.047^.113^0^.039^.012^.159^190^.9^^^1.9
;;^UTILITY(U,$J,112,1308,3)
;;=.009^.059^.084^.079^.084^.016^.016^.055^.032^.07^.071^.022^.056^.142^.182^.057^.048^.039
;;^UTILITY(U,$J,112,1308,4)
;;=^^^.035^.003^.004^.009^^210^.2
;;^UTILITY(U,$J,112,1308,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1309,0)
;;=LIMEADE, CONCENTRATE, FRZ, DILUTED W/4 1/3 PTS WTR BY VOL^14-303^fl oz.^31^100^N
;;^UTILITY(U,$J,112,1309,1)
;;=0^0^11^41^88.9^^^3^.03^1^1^13^2^.02^.005^0^^0^2.7^.002
;;^UTILITY(U,$J,112,1309,2)
;;=.002^.022^.021^0^1^0^.004^.002^0^.002^.002^.006^0^.1
;;^UTILITY(U,$J,112,1309,4)
;;=^^^.002^0^^.002
;;^UTILITY(U,$J,112,1309,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1310,0)
;;=BEEF, LIVER, FRIED^13-327^slices^85^65^N
;;^UTILITY(U,$J,112,1310,1)
;;=26.72^8^7.85^217^55.68^^^11^6.28^23^461^364^106^5.45^4.466^.423^^36105^23^.21
;;^UTILITY(U,$J,112,1310,2)
;;=4.14^14.44^5.92^1.43^220^111.8^1^0^482^2.67^1.62^1.71^10729^1.75^^^0
;;^UTILITY(U,$J,112,1310,3)
;;=.385^1.223^1.223^2.514^1.855^.675^.41^1.424^1.06^1.65^1.68^.731^1.595^2.569^3.621^1.531^1.411^1.283
;;^UTILITY(U,$J,112,1310,4)
;;=0^0^.07^.97^.05^1.6^1.57^.33^^57
;;^UTILITY(U,$J,112,1310,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1311,0)
;;=BEEF, (CALF), LIVER, FRIED^17-204^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1311,1)
;;=29.77^11.38^3.94^245^53.11^^^12^5.23^26^439^438^132^7.87^9.882^.206^^18798^22^.25
;;^UTILITY(U,$J,112,1311,2)
;;=3.36^16.92^4.85^.86^320^63.95^1.01^.14^330^4.23^2.45^1.8^5628^1.79^^^0
;;^UTILITY(U,$J,112,1311,3)
;;=.312^1.267^1.311^2.424^1.342^.471^.329^1.44^1.07^1.665^1.43^.65^1.615^2.751^3.552^1.511^1.302^1.257
;;^UTILITY(U,$J,112,1311,4)
;;=^^^2.32^.34^1.91^2.11^.66
;;^UTILITY(U,$J,112,1311,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1312,0)
;;=PORK, (HOG), LIVER, FRIED^1274-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1312,1)
;;=29.9^11.5^2.5^241^54^^^15^29.1^^539^395^111^^^^^23196^22^.34
;;^UTILITY(U,$J,112,1312,2)
;;=4.36^22.3^^^^^1.61^^438^3.37^^^^2.1
;;^UTILITY(U,$J,112,1312,4)
;;=^^^^^^4.5
;;^UTILITY(U,$J,112,1312,20)
;;=USDA Std. Reference, Release 8
FHINI040 ; ; 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,1304,1)
+2 ;;=9.02^.38^20.14^116^69.64^^^19^3.33^36^180^369^2^1.27^.251^.494^^8^1.5^.169
+3 ;;^UTILITY(U,$J,112,1304,2)
+4 ;;=.073^1.06^.638^.178^180.8^0^.137^.037^0^.053^.064^.175^1^.83^^^5.3
+5 ;;^UTILITY(U,$J,112,1304,3)
+6 ;;=.081^.323^.39^.654^.63^.077^.118^.445^.241^.448^.697^.254^.377^.998^1.399^.367^.377^.416
+7 ;;^UTILITY(U,$J,112,1304,4)
+8 ;;=^^.001^.045^.001^.005^.061
+9 ;;^UTILITY(U,$J,112,1304,20)
+10 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+11 ;;^UTILITY(U,$J,112,1305,0)
+12 ;;=LETTUCE, BUTTERHEAD VAR, RAW^11-250^cups^55^74^N
+13 ;;^UTILITY(U,$J,112,1305,1)
+14 ;;=1.29^.22^2.32^13^95.58^^^32^.3^13^23^257^5^.17^.023^.133^^970^8^.06
+15 ;;^UTILITY(U,$J,112,1305,2)
+16 ;;=.06^.3^.18^.05^73.3^0^.034^.083^0^.029^.008^.117^97^.59^^^1.3
+17 ;;^UTILITY(U,$J,112,1305,3)
+18 ;;=.009^.059^.083^.078^.084^.016^.015^.054^.032^.069^.07^.022^.055^.141^.18^.057^.048^.039
+19 ;;^UTILITY(U,$J,112,1305,4)
+20 ;;=^^^.026^.002^.003^.006^^122
+21 ;;^UTILITY(U,$J,112,1305,20)
+22 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+23 ;;^UTILITY(U,$J,112,1306,0)
+24 ;;=LETTUCE, COS OR ROMAINE, RAW^11-251^cups^55^94^N
+25 ;;^UTILITY(U,$J,112,1306,1)
+26 ;;=1.62^.2^2.37^16^94.91^^^36^1.1^6^45^290^8^.25^.037^.636^^2600^24^.1
+27 ;;^UTILITY(U,$J,112,1306,2)
+28 ;;=.1^.5^.17^.047^135.7^0^.031^.075^0^.026^.008^.106^260^.9^^^2.4
+29 ;;^UTILITY(U,$J,112,1306,3)
+30 ;;=.012^.074^.105^.098^.105^.02^.019^.068^.04^.087^.088^.028^.07^.177^.227^.071^.06^.049
+31 ;;^UTILITY(U,$J,112,1306,4)
+32 ;;=^^^.023^.002^.003^.006
+33 ;;^UTILITY(U,$J,112,1306,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1307,0)
+36 ;;=LETTUCE, CRISPHEAD VAR, RAW^11-252^cups^55^95^N
+37 ;;^UTILITY(U,$J,112,1307,1)
+38 ;;=1.01^.19^2.09^13^95.89^^^19^.5^9^20^158^9^.22^.028^.151^^330^3.9^.046
+39 ;;^UTILITY(U,$J,112,1307,2)
+40 ;;=.03^.187^.046^.04^56^0^.029^.071^0^.025^.007^.1^33^.48^^^.9
+41 ;;^UTILITY(U,$J,112,1307,3)
+42 ;;=.008^.053^.075^.07^.075^.014^.014^.049^.029^.062^.063^.02^.05^.127^.162^.051^.043^.035
+43 ;;^UTILITY(U,$J,112,1307,4)
+44 ;;=^^^.022^.002^.003^.006^^113^.2
+45 ;;^UTILITY(U,$J,112,1307,20)
+46 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+47 ;;^UTILITY(U,$J,112,1308,0)
+48 ;;=LETTUCE, LOOSELEAF, RAW^11-253^cups^55^64^N
+49 ;;^UTILITY(U,$J,112,1308,1)
+50 ;;=1.3^.3^3.5^18^94^^^68^1.4^11^25^264^9^.29^.044^.75^^1900^18^.05
+51 ;;^UTILITY(U,$J,112,1308,2)
+52 ;;=.08^.4^.2^.055^49.8^0^.047^.113^0^.039^.012^.159^190^.9^^^1.9
+53 ;;^UTILITY(U,$J,112,1308,3)
+54 ;;=.009^.059^.084^.079^.084^.016^.016^.055^.032^.07^.071^.022^.056^.142^.182^.057^.048^.039
+55 ;;^UTILITY(U,$J,112,1308,4)
+56 ;;=^^^.035^.003^.004^.009^^210^.2
+57 ;;^UTILITY(U,$J,112,1308,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1309,0)
+60 ;;=LIMEADE, CONCENTRATE, FRZ, DILUTED W/4 1/3 PTS WTR BY VOL^14-303^fl oz.^31^100^N
+61 ;;^UTILITY(U,$J,112,1309,1)
+62 ;;=0^0^11^41^88.9^^^3^.03^1^1^13^2^.02^.005^0^^0^2.7^.002
+63 ;;^UTILITY(U,$J,112,1309,2)
+64 ;;=.002^.022^.021^0^1^0^.004^.002^0^.002^.002^.006^0^.1
+65 ;;^UTILITY(U,$J,112,1309,4)
+66 ;;=^^^.002^0^^.002
+67 ;;^UTILITY(U,$J,112,1309,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1310,0)
+70 ;;=BEEF, LIVER, FRIED^13-327^slices^85^65^N
+71 ;;^UTILITY(U,$J,112,1310,1)
+72 ;;=26.72^8^7.85^217^55.68^^^11^6.28^23^461^364^106^5.45^4.466^.423^^36105^23^.21
+73 ;;^UTILITY(U,$J,112,1310,2)
+74 ;;=4.14^14.44^5.92^1.43^220^111.8^1^0^482^2.67^1.62^1.71^10729^1.75^^^0
+75 ;;^UTILITY(U,$J,112,1310,3)
+76 ;;=.385^1.223^1.223^2.514^1.855^.675^.41^1.424^1.06^1.65^1.68^.731^1.595^2.569^3.621^1.531^1.411^1.283
+77 ;;^UTILITY(U,$J,112,1310,4)
+78 ;;=0^0^.07^.97^.05^1.6^1.57^.33^^57
+79 ;;^UTILITY(U,$J,112,1310,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1311,0)
+82 ;;=BEEF, (CALF), LIVER, FRIED^17-204^oz.^28.3^100^N
+83 ;;^UTILITY(U,$J,112,1311,1)
+84 ;;=29.77^11.38^3.94^245^53.11^^^12^5.23^26^439^438^132^7.87^9.882^.206^^18798^22^.25
+85 ;;^UTILITY(U,$J,112,1311,2)
+86 ;;=3.36^16.92^4.85^.86^320^63.95^1.01^.14^330^4.23^2.45^1.8^5628^1.79^^^0
+87 ;;^UTILITY(U,$J,112,1311,3)
+88 ;;=.312^1.267^1.311^2.424^1.342^.471^.329^1.44^1.07^1.665^1.43^.65^1.615^2.751^3.552^1.511^1.302^1.257
+89 ;;^UTILITY(U,$J,112,1311,4)
+90 ;;=^^^2.32^.34^1.91^2.11^.66
+91 ;;^UTILITY(U,$J,112,1311,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1312,0)
+94 ;;=PORK, (HOG), LIVER, FRIED^1274-0^oz.^28.3^100^N
+95 ;;^UTILITY(U,$J,112,1312,1)
+96 ;;=29.9^11.5^2.5^241^54^^^15^29.1^^539^395^111^^^^^23196^22^.34
+97 ;;^UTILITY(U,$J,112,1312,2)
+98 ;;=4.36^22.3^^^^^1.61^^438^3.37^^^^2.1
+99 ;;^UTILITY(U,$J,112,1312,4)
+100 ;;=^^^^^^4.5
+101 ;;^UTILITY(U,$J,112,1312,20)
+102 ;;=USDA Std. Reference, Release 8
