FHINI051 ; ; 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,1699,2)
;;=.022^.125^.041^.065^2.6^0^.023^.007^0^.033^.004^.03^6^.24^^^.4
;;^UTILITY(U,$J,112,1699,3)
;;=.002^.013^.004^.01^.011^.016^.008^.01^.008^.013^.035^.018^.02^.059^.1^.015^.016^.023
;;^UTILITY(U,$J,112,1699,4)
;;=^^.001^.029^^.004^.004
;;^UTILITY(U,$J,112,1699,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1700,0)
;;=GRAPE JUICE, CND OR BOTTLED, UNSW^9-135^fl oz.^31.6^100^N
;;^UTILITY(U,$J,112,1700,1)
;;=.56^.08^14.96^61^84.12^^^9^.24^10^11^132^3^.05^.028^.36^^8^.1^.026
;;^UTILITY(U,$J,112,1700,2)
;;=.037^.262^.041^.065^2.6^0^.017^.005^0^.025^.003^.022^1^.29^^^.1
;;^UTILITY(U,$J,112,1700,3)
;;=^.016^.007^.012^.01^.001^^.012^.003^.01^.047^.007^.086^.022^.11^.012^.016^.013
;;^UTILITY(U,$J,112,1700,4)
;;=^^.001^.021^^.003^.003^^.2
;;^UTILITY(U,$J,112,1700,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1701,0)
;;=GRAPE JUICE, FRZ CONC, SWEETENED, DILUTED W/3 VOL WATER^9-137^fl oz.^31.2^100^N
;;^UTILITY(U,$J,112,1701,1)
;;=.19^.09^12.75^51^86.9^^^4^.1^4^4^21^2^.04^.013^.177^^8^23.9^.015
;;^UTILITY(U,$J,112,1701,2)
;;=.026^.124^.024^.042^1.3^0^.02^.006^0^.029^.004^.026^1^.08^^^.1
;;^UTILITY(U,$J,112,1701,3)
;;=^.005^.002^.004^.003^^^.004^.001^.003^.016^.002^.029^.007^.037^.004^.005^.004
;;^UTILITY(U,$J,112,1701,4)
;;=^^.001^.025^^.003^.004
;;^UTILITY(U,$J,112,1701,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1702,0)
;;=GUAVAS, RAW^9-139^fruits^90^80^N
;;^UTILITY(U,$J,112,1702,1)
;;=.82^.6^11.88^51^86.1^^^20^.31^10^25^284^3^.23^.103^.144^^792^183.5^.05
;;^UTILITY(U,$J,112,1702,2)
;;=.05^1.2^.15^.143^^0^.182^.071^0^.172^.055^.253^79^.6^^^5.2
;;^UTILITY(U,$J,112,1702,3)
;;=.007^.031^.03^.055^.023^.005^^.002^.01^.028^.021^.007^.041^.052^.107^.041^.025^.024
;;^UTILITY(U,$J,112,1702,4)
;;=^^.012^.144^.003^.016^.052
;;^UTILITY(U,$J,112,1702,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1703,0)
;;=GUAVAS, STRAWBERRY, RAW^9-140^fruits^6^85^N
;;^UTILITY(U,$J,112,1703,1)
;;=.58^.6^17.36^69^80.66^^^21^.22^17^27^292^37^^^^^90^37^.03
;;^UTILITY(U,$J,112,1703,2)
;;=.03^.6^^^^0^.182^.071^0^.172^.055^.253^9^.8
;;^UTILITY(U,$J,112,1703,3)
;;=.005^.022^.021^.039^.016^.004^^.001^.007^.02^.015^.005^.029^.037^.076^.029^.018^.017
;;^UTILITY(U,$J,112,1703,4)
;;=^^.012^.144^.003^.016^.052
;;^UTILITY(U,$J,112,1703,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1704,0)
;;=GUAVA SAUCE, CKD^9-143^cups^238^100^N
;;^UTILITY(U,$J,112,1704,1)
;;=.32^.14^9.48^36^89.56^^^7^.18^7^11^225^4^.17^.077^.108^^283^146.4^.026
;;^UTILITY(U,$J,112,1704,2)
;;=.013^.42^^^^0^.042^.017^0^.04^.013^.059^28^.5^^^3.6
;;^UTILITY(U,$J,112,1704,3)
;;=.003^.012^.012^.021^.009^.002^^.001^.004^.011^.008^.003^.016^.02^.042^.016^.01^.009
;;^UTILITY(U,$J,112,1704,4)
;;=^^.003^.034^.001^.004^.012
;;^UTILITY(U,$J,112,1704,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1705,0)
;;=KIWIFRUIT, (CHINESE GOOSEBERRIES), FRESH, RAW^9-148^fruits^76^86^N
;;^UTILITY(U,$J,112,1705,1)
;;=.99^.44^14.88^61^83.05^^^26^.41^30^40^332^5^^^^^175^98^.02
;;^UTILITY(U,$J,112,1705,2)
;;=.05^.5^^^^0^^^0^^^^18^.64^^^1.9
;;^UTILITY(U,$J,112,1705,4)
;;=^^^^^^^^25
;;^UTILITY(U,$J,112,1705,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1706,0)
;;=KUMQUATS, RAW^9-149^fruits^19^93^N
;;^UTILITY(U,$J,112,1706,1)
;;=.9^.1^16.43^63^81.7^^^44^.39^13^19^195^6^.08^.107^.086^^302^37.4^.08
;;^UTILITY(U,$J,112,1706,2)
;;=.1^.5^^^^0^^^0^^^^30^.87^^^6.6
;;^UTILITY(U,$J,112,1706,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1707,0)
;;=LEMON JUICE, RAW^9-152^tbsp.^15.2^100^N
;;^UTILITY(U,$J,112,1707,1)
;;=.38^0^8.63^25^90.73^^^7^.03^6^6^124^1^.05^.029^.008^^20^46^.03
;;^UTILITY(U,$J,112,1707,2)
;;=.01^.1^.103^.051^12.9^0^^^0^^^^2^.26^^^.1
;;^UTILITY(U,$J,112,1707,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1708,0)
;;=LEMON JUICE, CND OR BOTTLED^9-153^tbsp.^15.2^100^N
;;^UTILITY(U,$J,112,1708,1)
;;=.4^.29^6.48^21^92.46^^^11^.13^8^9^102^21^.06^.037^.02^^15^24.8^.041
;;^UTILITY(U,$J,112,1708,2)
;;=.009^.197^.091^.043^10.1^0^.06^.025^0^.038^.011^.085^2^.36^^^.4
;;^UTILITY(U,$J,112,1708,4)
;;=^^.001^.034^.001^.002^.01
;;^UTILITY(U,$J,112,1708,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1709,0)
;;=LEMON JUICE, FRZ, UNSW, SINGLE STRENGTH^9-154^tbsp.^15.2^100^N
;;^UTILITY(U,$J,112,1709,1)
;;=.46^.32^6.5^22^92.39^^^8^.12^8^8^89^1^.05^.03^.03^^13^31.5^.059
FHINI051 ; ; 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,1699,2)
+2 ;;=.022^.125^.041^.065^2.6^0^.023^.007^0^.033^.004^.03^6^.24^^^.4
+3 ;;^UTILITY(U,$J,112,1699,3)
+4 ;;=.002^.013^.004^.01^.011^.016^.008^.01^.008^.013^.035^.018^.02^.059^.1^.015^.016^.023
+5 ;;^UTILITY(U,$J,112,1699,4)
+6 ;;=^^.001^.029^^.004^.004
+7 ;;^UTILITY(U,$J,112,1699,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,1700,0)
+10 ;;=GRAPE JUICE, CND OR BOTTLED, UNSW^9-135^fl oz.^31.6^100^N
+11 ;;^UTILITY(U,$J,112,1700,1)
+12 ;;=.56^.08^14.96^61^84.12^^^9^.24^10^11^132^3^.05^.028^.36^^8^.1^.026
+13 ;;^UTILITY(U,$J,112,1700,2)
+14 ;;=.037^.262^.041^.065^2.6^0^.017^.005^0^.025^.003^.022^1^.29^^^.1
+15 ;;^UTILITY(U,$J,112,1700,3)
+16 ;;=^.016^.007^.012^.01^.001^^.012^.003^.01^.047^.007^.086^.022^.11^.012^.016^.013
+17 ;;^UTILITY(U,$J,112,1700,4)
+18 ;;=^^.001^.021^^.003^.003^^.2
+19 ;;^UTILITY(U,$J,112,1700,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,1701,0)
+22 ;;=GRAPE JUICE, FRZ CONC, SWEETENED, DILUTED W/3 VOL WATER^9-137^fl oz.^31.2^100^N
+23 ;;^UTILITY(U,$J,112,1701,1)
+24 ;;=.19^.09^12.75^51^86.9^^^4^.1^4^4^21^2^.04^.013^.177^^8^23.9^.015
+25 ;;^UTILITY(U,$J,112,1701,2)
+26 ;;=.026^.124^.024^.042^1.3^0^.02^.006^0^.029^.004^.026^1^.08^^^.1
+27 ;;^UTILITY(U,$J,112,1701,3)
+28 ;;=^.005^.002^.004^.003^^^.004^.001^.003^.016^.002^.029^.007^.037^.004^.005^.004
+29 ;;^UTILITY(U,$J,112,1701,4)
+30 ;;=^^.001^.025^^.003^.004
+31 ;;^UTILITY(U,$J,112,1701,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1702,0)
+34 ;;=GUAVAS, RAW^9-139^fruits^90^80^N
+35 ;;^UTILITY(U,$J,112,1702,1)
+36 ;;=.82^.6^11.88^51^86.1^^^20^.31^10^25^284^3^.23^.103^.144^^792^183.5^.05
+37 ;;^UTILITY(U,$J,112,1702,2)
+38 ;;=.05^1.2^.15^.143^^0^.182^.071^0^.172^.055^.253^79^.6^^^5.2
+39 ;;^UTILITY(U,$J,112,1702,3)
+40 ;;=.007^.031^.03^.055^.023^.005^^.002^.01^.028^.021^.007^.041^.052^.107^.041^.025^.024
+41 ;;^UTILITY(U,$J,112,1702,4)
+42 ;;=^^.012^.144^.003^.016^.052
+43 ;;^UTILITY(U,$J,112,1702,20)
+44 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+45 ;;^UTILITY(U,$J,112,1703,0)
+46 ;;=GUAVAS, STRAWBERRY, RAW^9-140^fruits^6^85^N
+47 ;;^UTILITY(U,$J,112,1703,1)
+48 ;;=.58^.6^17.36^69^80.66^^^21^.22^17^27^292^37^^^^^90^37^.03
+49 ;;^UTILITY(U,$J,112,1703,2)
+50 ;;=.03^.6^^^^0^.182^.071^0^.172^.055^.253^9^.8
+51 ;;^UTILITY(U,$J,112,1703,3)
+52 ;;=.005^.022^.021^.039^.016^.004^^.001^.007^.02^.015^.005^.029^.037^.076^.029^.018^.017
+53 ;;^UTILITY(U,$J,112,1703,4)
+54 ;;=^^.012^.144^.003^.016^.052
+55 ;;^UTILITY(U,$J,112,1703,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1704,0)
+58 ;;=GUAVA SAUCE, CKD^9-143^cups^238^100^N
+59 ;;^UTILITY(U,$J,112,1704,1)
+60 ;;=.32^.14^9.48^36^89.56^^^7^.18^7^11^225^4^.17^.077^.108^^283^146.4^.026
+61 ;;^UTILITY(U,$J,112,1704,2)
+62 ;;=.013^.42^^^^0^.042^.017^0^.04^.013^.059^28^.5^^^3.6
+63 ;;^UTILITY(U,$J,112,1704,3)
+64 ;;=.003^.012^.012^.021^.009^.002^^.001^.004^.011^.008^.003^.016^.02^.042^.016^.01^.009
+65 ;;^UTILITY(U,$J,112,1704,4)
+66 ;;=^^.003^.034^.001^.004^.012
+67 ;;^UTILITY(U,$J,112,1704,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1705,0)
+70 ;;=KIWIFRUIT, (CHINESE GOOSEBERRIES), FRESH, RAW^9-148^fruits^76^86^N
+71 ;;^UTILITY(U,$J,112,1705,1)
+72 ;;=.99^.44^14.88^61^83.05^^^26^.41^30^40^332^5^^^^^175^98^.02
+73 ;;^UTILITY(U,$J,112,1705,2)
+74 ;;=.05^.5^^^^0^^^0^^^^18^.64^^^1.9
+75 ;;^UTILITY(U,$J,112,1705,4)
+76 ;;=^^^^^^^^25
+77 ;;^UTILITY(U,$J,112,1705,20)
+78 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+79 ;;^UTILITY(U,$J,112,1706,0)
+80 ;;=KUMQUATS, RAW^9-149^fruits^19^93^N
+81 ;;^UTILITY(U,$J,112,1706,1)
+82 ;;=.9^.1^16.43^63^81.7^^^44^.39^13^19^195^6^.08^.107^.086^^302^37.4^.08
+83 ;;^UTILITY(U,$J,112,1706,2)
+84 ;;=.1^.5^^^^0^^^0^^^^30^.87^^^6.6
+85 ;;^UTILITY(U,$J,112,1706,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1707,0)
+88 ;;=LEMON JUICE, RAW^9-152^tbsp.^15.2^100^N
+89 ;;^UTILITY(U,$J,112,1707,1)
+90 ;;=.38^0^8.63^25^90.73^^^7^.03^6^6^124^1^.05^.029^.008^^20^46^.03
+91 ;;^UTILITY(U,$J,112,1707,2)
+92 ;;=.01^.1^.103^.051^12.9^0^^^0^^^^2^.26^^^.1
+93 ;;^UTILITY(U,$J,112,1707,20)
+94 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+95 ;;^UTILITY(U,$J,112,1708,0)
+96 ;;=LEMON JUICE, CND OR BOTTLED^9-153^tbsp.^15.2^100^N
+97 ;;^UTILITY(U,$J,112,1708,1)
+98 ;;=.4^.29^6.48^21^92.46^^^11^.13^8^9^102^21^.06^.037^.02^^15^24.8^.041
+99 ;;^UTILITY(U,$J,112,1708,2)
+100 ;;=.009^.197^.091^.043^10.1^0^.06^.025^0^.038^.011^.085^2^.36^^^.4
+101 ;;^UTILITY(U,$J,112,1708,4)
+102 ;;=^^.001^.034^.001^.002^.01
+103 ;;^UTILITY(U,$J,112,1708,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,1709,0)
+106 ;;=LEMON JUICE, FRZ, UNSW, SINGLE STRENGTH^9-154^tbsp.^15.2^100^N
+107 ;;^UTILITY(U,$J,112,1709,1)
+108 ;;=.46^.32^6.5^22^92.39^^^8^.12^8^8^89^1^.05^.03^.03^^13^31.5^.059
