FHINI054 ; ; 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,1731,0)
;;=ORANGE JUICE, CND, UNSW^9-207^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1731,1)
;;=.59^.14^9.85^42^89.01^^^8^.44^11^14^175^2^.07^.057^.014^^175^34.4^.06
;;^UTILITY(U,$J,112,1731,2)
;;=.028^.314^.15^.088^18.1^0^.027^.007^0^.018^.025^.034^18^.41^^^.2
;;^UTILITY(U,$J,112,1731,3)
;;=.002^.007^.006^.011^.008^.003^.004^.007^.003^.009^.04^.003^.013^.063^.028^.008^.037^.011
;;^UTILITY(U,$J,112,1731,4)
;;=^^^.018^.004^^.021
;;^UTILITY(U,$J,112,1731,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1732,0)
;;=ORANGE JUICE, CHILLED, INCLUDES FROM CONCENTRATE^9-209^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1732,1)
;;=.8^.27^10.06^44^88.4^^^10^.17^11^11^190^1^.04^.04^.023^^78^32.9^.111
;;^UTILITY(U,$J,112,1732,2)
;;=.021^.28^.191^.054^18.1^0^.05^.014^0^.029^.046^.064^8^.48^^^.1
;;^UTILITY(U,$J,112,1732,3)
;;=.001^.005^.005^.009^.006^.002^.003^.006^.003^.007^.031^.002^.01^.049^.022^.006^.029^.009
;;^UTILITY(U,$J,112,1732,4)
;;=^^^.029^.007^^.039
;;^UTILITY(U,$J,112,1732,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1733,0)
;;=ORANGE JUICE, FRZ CONCENTRATE, UNSW, DILUTED W/3 VOL WATER^9-215^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1733,1)
;;=.68^.06^10.78^45^88.1^^^9^.1^10^16^190^1^.05^.044^.014^^78^38.9^.079
;;^UTILITY(U,$J,112,1733,2)
;;=.018^.202^.158^.044^43.8^0^.009^.003^0^.007^.01^.012^8^.39^^^.2
;;^UTILITY(U,$J,112,1733,3)
;;=.002^.008^.007^.013^.009^.003^.005^.008^.004^.011^.045^.003^.014^.072^.032^.009^.042^.013
;;^UTILITY(U,$J,112,1733,4)
;;=^^^.007^.001^^.009^^^.1
;;^UTILITY(U,$J,112,1733,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1734,0)
;;=ORANGE-GRAPEFRUIT JUICE, CND, UNSW^9-217^fl oz.^30.9^100^N
;;^UTILITY(U,$J,112,1734,1)
;;=.6^.1^10.28^43^88.64^^^8^.46^10^14^158^3^.07^.076^.017^^119^29.1^.056
;;^UTILITY(U,$J,112,1734,2)
;;=.03^.336^.14^.023^14.3^0^.014^.005^0^.011^.017^.019^12^.39^^^.1
;;^UTILITY(U,$J,112,1734,4)
;;=^^^.01^.002^^.015
;;^UTILITY(U,$J,112,1734,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1735,0)
;;=TANGERINES, (MANDARIN ORANGE), RAW^9-218^fruits^84^72^N
;;^UTILITY(U,$J,112,1735,1)
;;=.63^.19^11.19^44^87.6^^^14^.1^12^10^157^1^.24^.028^.032^^920^30.8^.105
;;^UTILITY(U,$J,112,1735,2)
;;=.022^.16^.2^.067^20.4^0^.027^.01^0^.022^.034^.037^92^.39^^^2.3
;;^UTILITY(U,$J,112,1735,3)
;;=.006^.01^.017^.016^.032^.013^.007^.021^.011^.027^.044^.012^.034^.077^.064^.064^.031^.022
;;^UTILITY(U,$J,112,1735,4)
;;=^^.001^.02^.004^.001^.03
;;^UTILITY(U,$J,112,1735,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1736,0)
;;=TANGERINES, (MANDARIN ORANGE), CND, JUICE PACK^9-219^cups^248^100^N
;;^UTILITY(U,$J,112,1736,1)
;;=.62^.03^9.57^37^89.51^^^11^.27^11^10^133^5^.51^.033^.032^^852^34.2^.082
;;^UTILITY(U,$J,112,1736,2)
;;=.029^.445^.125^.042^4.6^0^.004^.001^0^.003^.005^.005^85^.28^^^.7
;;^UTILITY(U,$J,112,1736,3)
;;=.006^.01^.017^.015^.031^.013^.006^.02^.01^.026^.043^.011^.033^.074^.062^.062^.03^.021
;;^UTILITY(U,$J,112,1736,4)
;;=^^^.003^.001^^.004
;;^UTILITY(U,$J,112,1736,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1737,0)
;;=TANGERINES, (MANDARIN ORANGE), CND, LIGHT SIRUP PACK^9-220^cups^252^100^N
;;^UTILITY(U,$J,112,1737,1)
;;=.45^.1^16.19^61^83.06^^^7^.37^8^10^78^6^.24^.044^.032^^840^19.8^.053
;;^UTILITY(U,$J,112,1737,2)
;;=.044^.445^.125^.042^4.6^0^.015^.005^0^.012^.018^.02^84^.19^^^.7
;;^UTILITY(U,$J,112,1737,3)
;;=.004^.007^.012^.011^.023^.01^.005^.015^.008^.019^.031^.008^.024^.055^.045^.045^.022^.015
;;^UTILITY(U,$J,112,1737,4)
;;=^^^.011^.002^^.016
;;^UTILITY(U,$J,112,1737,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1738,0)
;;=TANGERINE JUICE, RAW^9-221^fl oz.^30.9^100^N
;;^UTILITY(U,$J,112,1738,1)
;;=.5^.2^10.1^43^88.9^^^18^.2^8^14^178^1^.03^.025^.037^^420^31^.06
;;^UTILITY(U,$J,112,1738,2)
;;=.02^.1^.125^.042^4.6^0^.029^.011^0^.024^.036^.04^42^.3^^^.2
;;^UTILITY(U,$J,112,1738,3)
;;=.001^.006^.005^.01^.007^.002^.004^.006^.003^.008^.034^.002^.011^.053^.024^.007^.031^.009
;;^UTILITY(U,$J,112,1738,4)
;;=^^.001^.021^.005^.001^.032
;;^UTILITY(U,$J,112,1738,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1739,0)
;;=TANGERINE JUICE, CND, SWEETENED^9-223^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1739,1)
;;=.5^.2^12^50^87^^^18^.2^8^14^178^1^.03^.025^.037^^420^22^.06
;;^UTILITY(U,$J,112,1739,2)
;;=.02^.1^.125^.032^4.6^0^.02^.005^0^.013^.018^.025^42^.3^^^.2
;;^UTILITY(U,$J,112,1739,3)
;;=.001^.006^.005^.01^.007^.002^.004^.006^.003^.008^.034^.002^.011^.053^.024^.007^.031^.009
FHINI054 ; ; 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,1731,0)
+2 ;;=ORANGE JUICE, CND, UNSW^9-207^fl oz.^31.1^100^N
+3 ;;^UTILITY(U,$J,112,1731,1)
+4 ;;=.59^.14^9.85^42^89.01^^^8^.44^11^14^175^2^.07^.057^.014^^175^34.4^.06
+5 ;;^UTILITY(U,$J,112,1731,2)
+6 ;;=.028^.314^.15^.088^18.1^0^.027^.007^0^.018^.025^.034^18^.41^^^.2
+7 ;;^UTILITY(U,$J,112,1731,3)
+8 ;;=.002^.007^.006^.011^.008^.003^.004^.007^.003^.009^.04^.003^.013^.063^.028^.008^.037^.011
+9 ;;^UTILITY(U,$J,112,1731,4)
+10 ;;=^^^.018^.004^^.021
+11 ;;^UTILITY(U,$J,112,1731,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1732,0)
+14 ;;=ORANGE JUICE, CHILLED, INCLUDES FROM CONCENTRATE^9-209^fl oz.^31.1^100^N
+15 ;;^UTILITY(U,$J,112,1732,1)
+16 ;;=.8^.27^10.06^44^88.4^^^10^.17^11^11^190^1^.04^.04^.023^^78^32.9^.111
+17 ;;^UTILITY(U,$J,112,1732,2)
+18 ;;=.021^.28^.191^.054^18.1^0^.05^.014^0^.029^.046^.064^8^.48^^^.1
+19 ;;^UTILITY(U,$J,112,1732,3)
+20 ;;=.001^.005^.005^.009^.006^.002^.003^.006^.003^.007^.031^.002^.01^.049^.022^.006^.029^.009
+21 ;;^UTILITY(U,$J,112,1732,4)
+22 ;;=^^^.029^.007^^.039
+23 ;;^UTILITY(U,$J,112,1732,20)
+24 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+25 ;;^UTILITY(U,$J,112,1733,0)
+26 ;;=ORANGE JUICE, FRZ CONCENTRATE, UNSW, DILUTED W/3 VOL WATER^9-215^fl oz.^31.1^100^N
+27 ;;^UTILITY(U,$J,112,1733,1)
+28 ;;=.68^.06^10.78^45^88.1^^^9^.1^10^16^190^1^.05^.044^.014^^78^38.9^.079
+29 ;;^UTILITY(U,$J,112,1733,2)
+30 ;;=.018^.202^.158^.044^43.8^0^.009^.003^0^.007^.01^.012^8^.39^^^.2
+31 ;;^UTILITY(U,$J,112,1733,3)
+32 ;;=.002^.008^.007^.013^.009^.003^.005^.008^.004^.011^.045^.003^.014^.072^.032^.009^.042^.013
+33 ;;^UTILITY(U,$J,112,1733,4)
+34 ;;=^^^.007^.001^^.009^^^.1
+35 ;;^UTILITY(U,$J,112,1733,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1734,0)
+38 ;;=ORANGE-GRAPEFRUIT JUICE, CND, UNSW^9-217^fl oz.^30.9^100^N
+39 ;;^UTILITY(U,$J,112,1734,1)
+40 ;;=.6^.1^10.28^43^88.64^^^8^.46^10^14^158^3^.07^.076^.017^^119^29.1^.056
+41 ;;^UTILITY(U,$J,112,1734,2)
+42 ;;=.03^.336^.14^.023^14.3^0^.014^.005^0^.011^.017^.019^12^.39^^^.1
+43 ;;^UTILITY(U,$J,112,1734,4)
+44 ;;=^^^.01^.002^^.015
+45 ;;^UTILITY(U,$J,112,1734,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1735,0)
+48 ;;=TANGERINES, (MANDARIN ORANGE), RAW^9-218^fruits^84^72^N
+49 ;;^UTILITY(U,$J,112,1735,1)
+50 ;;=.63^.19^11.19^44^87.6^^^14^.1^12^10^157^1^.24^.028^.032^^920^30.8^.105
+51 ;;^UTILITY(U,$J,112,1735,2)
+52 ;;=.022^.16^.2^.067^20.4^0^.027^.01^0^.022^.034^.037^92^.39^^^2.3
+53 ;;^UTILITY(U,$J,112,1735,3)
+54 ;;=.006^.01^.017^.016^.032^.013^.007^.021^.011^.027^.044^.012^.034^.077^.064^.064^.031^.022
+55 ;;^UTILITY(U,$J,112,1735,4)
+56 ;;=^^.001^.02^.004^.001^.03
+57 ;;^UTILITY(U,$J,112,1735,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1736,0)
+60 ;;=TANGERINES, (MANDARIN ORANGE), CND, JUICE PACK^9-219^cups^248^100^N
+61 ;;^UTILITY(U,$J,112,1736,1)
+62 ;;=.62^.03^9.57^37^89.51^^^11^.27^11^10^133^5^.51^.033^.032^^852^34.2^.082
+63 ;;^UTILITY(U,$J,112,1736,2)
+64 ;;=.029^.445^.125^.042^4.6^0^.004^.001^0^.003^.005^.005^85^.28^^^.7
+65 ;;^UTILITY(U,$J,112,1736,3)
+66 ;;=.006^.01^.017^.015^.031^.013^.006^.02^.01^.026^.043^.011^.033^.074^.062^.062^.03^.021
+67 ;;^UTILITY(U,$J,112,1736,4)
+68 ;;=^^^.003^.001^^.004
+69 ;;^UTILITY(U,$J,112,1736,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1737,0)
+72 ;;=TANGERINES, (MANDARIN ORANGE), CND, LIGHT SIRUP PACK^9-220^cups^252^100^N
+73 ;;^UTILITY(U,$J,112,1737,1)
+74 ;;=.45^.1^16.19^61^83.06^^^7^.37^8^10^78^6^.24^.044^.032^^840^19.8^.053
+75 ;;^UTILITY(U,$J,112,1737,2)
+76 ;;=.044^.445^.125^.042^4.6^0^.015^.005^0^.012^.018^.02^84^.19^^^.7
+77 ;;^UTILITY(U,$J,112,1737,3)
+78 ;;=.004^.007^.012^.011^.023^.01^.005^.015^.008^.019^.031^.008^.024^.055^.045^.045^.022^.015
+79 ;;^UTILITY(U,$J,112,1737,4)
+80 ;;=^^^.011^.002^^.016
+81 ;;^UTILITY(U,$J,112,1737,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1738,0)
+84 ;;=TANGERINE JUICE, RAW^9-221^fl oz.^30.9^100^N
+85 ;;^UTILITY(U,$J,112,1738,1)
+86 ;;=.5^.2^10.1^43^88.9^^^18^.2^8^14^178^1^.03^.025^.037^^420^31^.06
+87 ;;^UTILITY(U,$J,112,1738,2)
+88 ;;=.02^.1^.125^.042^4.6^0^.029^.011^0^.024^.036^.04^42^.3^^^.2
+89 ;;^UTILITY(U,$J,112,1738,3)
+90 ;;=.001^.006^.005^.01^.007^.002^.004^.006^.003^.008^.034^.002^.011^.053^.024^.007^.031^.009
+91 ;;^UTILITY(U,$J,112,1738,4)
+92 ;;=^^.001^.021^.005^.001^.032
+93 ;;^UTILITY(U,$J,112,1738,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1739,0)
+96 ;;=TANGERINE JUICE, CND, SWEETENED^9-223^fl oz.^31.1^100^N
+97 ;;^UTILITY(U,$J,112,1739,1)
+98 ;;=.5^.2^12^50^87^^^18^.2^8^14^178^1^.03^.025^.037^^420^22^.06
+99 ;;^UTILITY(U,$J,112,1739,2)
+100 ;;=.02^.1^.125^.032^4.6^0^.02^.005^0^.013^.018^.025^42^.3^^^.2
+101 ;;^UTILITY(U,$J,112,1739,3)
+102 ;;=.001^.006^.005^.01^.007^.002^.004^.006^.003^.008^.034^.002^.011^.053^.024^.007^.031^.009
