- 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
