FHINI055 ; ; 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,1739,4)
;;=^^^.013^.003^^.015
;;^UTILITY(U,$J,112,1739,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1740,0)
;;=TANGERINE JUICE, FRZ CONC, SWEETENED, DILUTED W/3 VOL WATER^9-225^fl oz.^30.1^100^N
;;^UTILITY(U,$J,112,1740,1)
;;=.43^.11^11.06^46^88.1^^^8^.1^8^8^113^1^.03^.025^.037^^573^24.2^.052
;;^UTILITY(U,$J,112,1740,2)
;;=.019^.093^.125^.042^4.6^0^.011^.003^0^.007^.01^.014^57^.3
;;^UTILITY(U,$J,112,1740,3)
;;=.001^.005^.005^.008^.006^.002^.003^.005^.002^.007^.029^.002^.009^.045^.02^.006^.026^.008
;;^UTILITY(U,$J,112,1740,4)
;;=^^^.007^.001^^.008
;;^UTILITY(U,$J,112,1740,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1741,0)
;;=PAPAYAS, RAW^9-226^fruits^304^67^N
;;^UTILITY(U,$J,112,1741,1)
;;=.61^.14^9.81^39^88.83^^^24^.1^10^5^257^3^.07^.016^.011^^284^61.8^.027
;;^UTILITY(U,$J,112,1741,2)
;;=.032^.338^.218^.019^38^0^.006^.025^0^.043^.038^.031^28^.61^^^1.8
;;^UTILITY(U,$J,112,1741,3)
;;=.008^.011^.008^.016^.025^.002^^.009^.005^.01^.01^.005^.014^.049^.033^.018^.01^.015
;;^UTILITY(U,$J,112,1741,4)
;;=^.001^.007^.032^.02^.002^.018
;;^UTILITY(U,$J,112,1741,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1742,0)
;;=PAPAYA NECTAR, CND^9-229^fl oz.^31.2^100^N
;;^UTILITY(U,$J,112,1742,1)
;;=.17^.15^14.51^57^85.02^^^10^.34^3^0^31^5^.15^.013^.013^^111^3^.006
;;^UTILITY(U,$J,112,1742,2)
;;=.004^.15^.054^.009^2.1^0^.007^.028^0^.047^.041^.035^11^.15^^^.6
;;^UTILITY(U,$J,112,1742,4)
;;=^.002^.008^.035^.022^.002^.019
;;^UTILITY(U,$J,112,1742,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1743,0)
;;=PASSION-FRUIT, (GRANADILLA), PURPLE, RAW^9-231^fruits^18^52^N
;;^UTILITY(U,$J,112,1743,1)
;;=2.2^.7^23.38^97^72.93^^^12^1.6^29^68^348^28^^^^^700^30^0
;;^UTILITY(U,$J,112,1743,2)
;;=.13^1.5^^^^0^^^0^^^^70^.8^^^.7
;;^UTILITY(U,$J,112,1743,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1744,0)
;;=PASSION-FRUIT JUICE, PURPLE, RAW^9-232^fl oz.^30.9^100^N
;;^UTILITY(U,$J,112,1744,1)
;;=.39^.05^13.6^51^85.62^^^4^.24^17^13^278^6^^^^^717^29.8^0
;;^UTILITY(U,$J,112,1744,2)
;;=.131^1.46^^^^0^^^0^^^^72^.34^^^.2
;;^UTILITY(U,$J,112,1744,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1745,0)
;;=PASSION-FRUIT JUICE, YELLOW, RAW^9-233^fl oz.^30.9^100^N
;;^UTILITY(U,$J,112,1745,1)
;;=.67^.18^14.45^60^84.21^^^4^.36^17^25^278^6^^^^^2410^18.2^0
;;^UTILITY(U,$J,112,1745,2)
;;=.101^2.24^^^^0^^^0^^^^241^.49^^^.2
;;^UTILITY(U,$J,112,1745,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1746,0)
;;=PEACHES, RAW^9-236^fruits^87^76^N
;;^UTILITY(U,$J,112,1746,1)
;;=.7^.09^11.1^43^87.66^^^5^.11^7^12^197^0^.14^.068^.047^^535^6.6^.017
;;^UTILITY(U,$J,112,1746,2)
;;=.041^.99^.17^.018^3.4^0^.044^.001^0^.01^.034^.045^54^.46^^^1.6
;;^UTILITY(U,$J,112,1746,3)
;;=.002^.027^.02^.04^.023^.017^.006^.022^.018^.038^.018^.013^.042^.117^.106^.024^.029^.032
;;^UTILITY(U,$J,112,1746,4)
;;=^^^.009^.001^.001^.034^^3^.4
;;^UTILITY(U,$J,112,1746,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1747,0)
;;=PEACHES, CND, WATER PACK^9-237^halves^77^100^N
;;^UTILITY(U,$J,112,1747,1)
;;=.44^.06^6.11^24^93.13^^^2^.32^5^10^99^3^.09^.054^.048^^532^2.9^.009
;;^UTILITY(U,$J,112,1747,2)
;;=.019^.521^.05^.019^3.4^0^.027^.001^0^.006^.021^.028^53^.27^^^1.6
;;^UTILITY(U,$J,112,1747,3)
;;=.001^.017^.013^.025^.014^.011^.004^.014^.011^.024^.011^.008^.026^.073^.066^.015^.018^.02
;;^UTILITY(U,$J,112,1747,4)
;;=^^^.005^^.001^.021
;;^UTILITY(U,$J,112,1747,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1748,0)
;;=PEACHES, CND, JUICE PACK^9-238^halves^77^100^N
;;^UTILITY(U,$J,112,1748,1)
;;=.63^.03^11.57^44^87.49^^^6^.27^7^17^128^4^.11^.05^.048^^381^3.6^.008
;;^UTILITY(U,$J,112,1748,2)
;;=.017^.582^.05^.019^3.4^0^.016^^0^.004^.012^.016^38^.27^^^1
;;^UTILITY(U,$J,112,1748,3)
;;=.002^.025^.018^.036^.02^.015^.005^.02^.016^.034^.016^.012^.038^.105^.096^.022^.027^.029
;;^UTILITY(U,$J,112,1748,4)
;;=^^^.003^^^.012^^3
;;^UTILITY(U,$J,112,1748,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1749,0)
;;=PEACHES, CND, LIGHT SIRUP ^9-240^halves^81^100^N
;;^UTILITY(U,$J,112,1749,1)
;;=.45^.03^14.55^54^84.72^^^3^.36^5^11^97^5^.09^.052^.046^^354^2.4^.009
;;^UTILITY(U,$J,112,1749,2)
;;=.025^.593^.05^.019^3.3^0^.015^^0^.003^.012^.015^35^.25^^^1
;;^UTILITY(U,$J,112,1749,3)
;;=.001^.018^.013^.025^.014^.011^.004^.014^.012^.025^.011^.008^.027^.075^.068^.016^.019^.021
FHINI055 ; ; 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,1739,4)
+2 ;;=^^^.013^.003^^.015
+3 ;;^UTILITY(U,$J,112,1739,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1740,0)
+6 ;;=TANGERINE JUICE, FRZ CONC, SWEETENED, DILUTED W/3 VOL WATER^9-225^fl oz.^30.1^100^N
+7 ;;^UTILITY(U,$J,112,1740,1)
+8 ;;=.43^.11^11.06^46^88.1^^^8^.1^8^8^113^1^.03^.025^.037^^573^24.2^.052
+9 ;;^UTILITY(U,$J,112,1740,2)
+10 ;;=.019^.093^.125^.042^4.6^0^.011^.003^0^.007^.01^.014^57^.3
+11 ;;^UTILITY(U,$J,112,1740,3)
+12 ;;=.001^.005^.005^.008^.006^.002^.003^.005^.002^.007^.029^.002^.009^.045^.02^.006^.026^.008
+13 ;;^UTILITY(U,$J,112,1740,4)
+14 ;;=^^^.007^.001^^.008
+15 ;;^UTILITY(U,$J,112,1740,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1741,0)
+18 ;;=PAPAYAS, RAW^9-226^fruits^304^67^N
+19 ;;^UTILITY(U,$J,112,1741,1)
+20 ;;=.61^.14^9.81^39^88.83^^^24^.1^10^5^257^3^.07^.016^.011^^284^61.8^.027
+21 ;;^UTILITY(U,$J,112,1741,2)
+22 ;;=.032^.338^.218^.019^38^0^.006^.025^0^.043^.038^.031^28^.61^^^1.8
+23 ;;^UTILITY(U,$J,112,1741,3)
+24 ;;=.008^.011^.008^.016^.025^.002^^.009^.005^.01^.01^.005^.014^.049^.033^.018^.01^.015
+25 ;;^UTILITY(U,$J,112,1741,4)
+26 ;;=^.001^.007^.032^.02^.002^.018
+27 ;;^UTILITY(U,$J,112,1741,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1742,0)
+30 ;;=PAPAYA NECTAR, CND^9-229^fl oz.^31.2^100^N
+31 ;;^UTILITY(U,$J,112,1742,1)
+32 ;;=.17^.15^14.51^57^85.02^^^10^.34^3^0^31^5^.15^.013^.013^^111^3^.006
+33 ;;^UTILITY(U,$J,112,1742,2)
+34 ;;=.004^.15^.054^.009^2.1^0^.007^.028^0^.047^.041^.035^11^.15^^^.6
+35 ;;^UTILITY(U,$J,112,1742,4)
+36 ;;=^.002^.008^.035^.022^.002^.019
+37 ;;^UTILITY(U,$J,112,1742,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1743,0)
+40 ;;=PASSION-FRUIT, (GRANADILLA), PURPLE, RAW^9-231^fruits^18^52^N
+41 ;;^UTILITY(U,$J,112,1743,1)
+42 ;;=2.2^.7^23.38^97^72.93^^^12^1.6^29^68^348^28^^^^^700^30^0
+43 ;;^UTILITY(U,$J,112,1743,2)
+44 ;;=.13^1.5^^^^0^^^0^^^^70^.8^^^.7
+45 ;;^UTILITY(U,$J,112,1743,20)
+46 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+47 ;;^UTILITY(U,$J,112,1744,0)
+48 ;;=PASSION-FRUIT JUICE, PURPLE, RAW^9-232^fl oz.^30.9^100^N
+49 ;;^UTILITY(U,$J,112,1744,1)
+50 ;;=.39^.05^13.6^51^85.62^^^4^.24^17^13^278^6^^^^^717^29.8^0
+51 ;;^UTILITY(U,$J,112,1744,2)
+52 ;;=.131^1.46^^^^0^^^0^^^^72^.34^^^.2
+53 ;;^UTILITY(U,$J,112,1744,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1745,0)
+56 ;;=PASSION-FRUIT JUICE, YELLOW, RAW^9-233^fl oz.^30.9^100^N
+57 ;;^UTILITY(U,$J,112,1745,1)
+58 ;;=.67^.18^14.45^60^84.21^^^4^.36^17^25^278^6^^^^^2410^18.2^0
+59 ;;^UTILITY(U,$J,112,1745,2)
+60 ;;=.101^2.24^^^^0^^^0^^^^241^.49^^^.2
+61 ;;^UTILITY(U,$J,112,1745,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,1746,0)
+64 ;;=PEACHES, RAW^9-236^fruits^87^76^N
+65 ;;^UTILITY(U,$J,112,1746,1)
+66 ;;=.7^.09^11.1^43^87.66^^^5^.11^7^12^197^0^.14^.068^.047^^535^6.6^.017
+67 ;;^UTILITY(U,$J,112,1746,2)
+68 ;;=.041^.99^.17^.018^3.4^0^.044^.001^0^.01^.034^.045^54^.46^^^1.6
+69 ;;^UTILITY(U,$J,112,1746,3)
+70 ;;=.002^.027^.02^.04^.023^.017^.006^.022^.018^.038^.018^.013^.042^.117^.106^.024^.029^.032
+71 ;;^UTILITY(U,$J,112,1746,4)
+72 ;;=^^^.009^.001^.001^.034^^3^.4
+73 ;;^UTILITY(U,$J,112,1746,20)
+74 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+75 ;;^UTILITY(U,$J,112,1747,0)
+76 ;;=PEACHES, CND, WATER PACK^9-237^halves^77^100^N
+77 ;;^UTILITY(U,$J,112,1747,1)
+78 ;;=.44^.06^6.11^24^93.13^^^2^.32^5^10^99^3^.09^.054^.048^^532^2.9^.009
+79 ;;^UTILITY(U,$J,112,1747,2)
+80 ;;=.019^.521^.05^.019^3.4^0^.027^.001^0^.006^.021^.028^53^.27^^^1.6
+81 ;;^UTILITY(U,$J,112,1747,3)
+82 ;;=.001^.017^.013^.025^.014^.011^.004^.014^.011^.024^.011^.008^.026^.073^.066^.015^.018^.02
+83 ;;^UTILITY(U,$J,112,1747,4)
+84 ;;=^^^.005^^.001^.021
+85 ;;^UTILITY(U,$J,112,1747,20)
+86 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+87 ;;^UTILITY(U,$J,112,1748,0)
+88 ;;=PEACHES, CND, JUICE PACK^9-238^halves^77^100^N
+89 ;;^UTILITY(U,$J,112,1748,1)
+90 ;;=.63^.03^11.57^44^87.49^^^6^.27^7^17^128^4^.11^.05^.048^^381^3.6^.008
+91 ;;^UTILITY(U,$J,112,1748,2)
+92 ;;=.017^.582^.05^.019^3.4^0^.016^^0^.004^.012^.016^38^.27^^^1
+93 ;;^UTILITY(U,$J,112,1748,3)
+94 ;;=.002^.025^.018^.036^.02^.015^.005^.02^.016^.034^.016^.012^.038^.105^.096^.022^.027^.029
+95 ;;^UTILITY(U,$J,112,1748,4)
+96 ;;=^^^.003^^^.012^^3
+97 ;;^UTILITY(U,$J,112,1748,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,1749,0)
+100 ;;=PEACHES, CND, LIGHT SIRUP ^9-240^halves^81^100^N
+101 ;;^UTILITY(U,$J,112,1749,1)
+102 ;;=.45^.03^14.55^54^84.72^^^3^.36^5^11^97^5^.09^.052^.046^^354^2.4^.009
+103 ;;^UTILITY(U,$J,112,1749,2)
+104 ;;=.025^.593^.05^.019^3.3^0^.015^^0^.003^.012^.015^35^.25^^^1
+105 ;;^UTILITY(U,$J,112,1749,3)
+106 ;;=.001^.018^.013^.025^.014^.011^.004^.014^.012^.025^.011^.008^.027^.075^.068^.016^.019^.021
