FHINI05C ; ; 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,1808,3)
;;=.007^.027^.019^.018^.062^.006^.002^.015^.012^.016^.059^.006^.017^.039^.063^.01^.024^.016
;;^UTILITY(U,$J,112,1808,4)
;;=^^^^^^^^^.1
;;^UTILITY(U,$J,112,1808,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1809,0)
;;=APPLE JUICE, CND, UNSW, W/VIT C^9-400^fl oz.^31^100^N
;;^UTILITY(U,$J,112,1809,1)
;;=.06^.11^11.68^47^87.93^^^7^.37^3^7^119^3^.03^.022^.113^.01^1^41.6^.021
;;^UTILITY(U,$J,112,1809,2)
;;=.017^^^.03^.1^0^.028^.006^0^.019^.005^.033^0^.22
;;^UTILITY(U,$J,112,1809,4)
;;=^^.001^.015^^.002^.004
;;^UTILITY(U,$J,112,1809,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1810,0)
;;=APPLESAUCE, CND, UNSW, W/VIT C^9-401^cups^244^100^N
;;^UTILITY(U,$J,112,1810,1)
;;=.17^.05^11.29^43^88.35^^^3^.12^3^7^75^2^.03^.026^.075^^29^21.2^.013
;;^UTILITY(U,$J,112,1810,2)
;;=.025^.188^.095^.026^.6^0^.012^.003^0^.008^.002^.014^3^.15
;;^UTILITY(U,$J,112,1810,3)
;;=.002^.006^.006^.01^.01^.002^.002^.005^.003^.008^.005^.003^.006^.028^.017^.006^.006^.007
;;^UTILITY(U,$J,112,1810,4)
;;=^^^.007^^.001^.002
;;^UTILITY(U,$J,112,1810,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1811,0)
;;=APPLESAUCE, CND, SWEETENED, W/SALT^9-402^cups^256^100^N
;;^UTILITY(U,$J,112,1811,1)
;;=.18^.18^19.91^76^79.58^^^4^.35^3^7^61^28^.04^.043^.075^^11^1.7^.013
;;^UTILITY(U,$J,112,1811,2)
;;=.028^.188^.052^.026^.6^0^.045^.009^0^.03^.007^.054^1^.14
;;^UTILITY(U,$J,112,1811,3)
;;=.002^.007^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.007^.032^.019^.007^.006^.007
;;^UTILITY(U,$J,112,1811,4)
;;=^.001^.001^.025^^.004^.007
;;^UTILITY(U,$J,112,1811,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1812,0)
;;=APRICOT NECTAR, CND, W/VIT C^9-403^fl oz.^31.4^100^N
;;^UTILITY(U,$J,112,1812,1)
;;=.37^.09^14.39^56^84.87^^^7^.38^5^9^114^3^.09^.073^.032^^1316^54.4^.009
;;^UTILITY(U,$J,112,1812,2)
;;=.014^.26^.096^.022^1.3^0^.017^^0^.006^.038^.017^132^.29
;;^UTILITY(U,$J,112,1812,4)
;;=^^^.005^^.001^.038
;;^UTILITY(U,$J,112,1812,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1813,0)
;;=GRAPEFRUIT JUICE, PINK, RAW^9-404^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1813,1)
;;=.5^.1^9.2^39^90^^^9^.2^12^15^162^1^.05^.033^.02^^440^38^.04
;;^UTILITY(U,$J,112,1813,2)
;;=.02^.2^.189^.044^10.2^0^.019^.005^0^.014^.013^.024^44^.2
;;^UTILITY(U,$J,112,1813,4)
;;=^^^.012^.001^.001^.012
;;^UTILITY(U,$J,112,1813,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1814,0)
;;=ORANGE JUICE, CALIF, CHILLED, INCLUDES FROM CONCENTRATE^9-406^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1814,1)
;;=.8^.27^10.06^44^88.4^^^10^.17^11^11^190^1^.04^.04^.023^^146^42.7^.111
;;^UTILITY(U,$J,112,1814,2)
;;=.021^.28^.191^.054^29^0^.05^.014^0^.029^.046^.064^15^.48
;;^UTILITY(U,$J,112,1814,3)
;;=.001^.005^.005^.009^.006^.002^.003^.006^.003^.007^.031^.002^.01^.049^.022^.006^.029^.009
;;^UTILITY(U,$J,112,1814,4)
;;=^^^.029^.007^^.039
;;^UTILITY(U,$J,112,1814,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1815,0)
;;=PEACH NECTAR, CND, W/ADDED ASC ACID^9-407^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1815,1)
;;=.27^.02^13.92^54^85.64^^^5^.19^4^6^40^7^.08^.069^.019^^258^26.8^.003
;;^UTILITY(U,$J,112,1815,2)
;;=.014^.288^.068^.007^1.4^0^.01^^0^.002^.008^.011^26^.15
;;^UTILITY(U,$J,112,1815,4)
;;=^^^.002^^^.008
;;^UTILITY(U,$J,112,1815,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1816,0)
;;=PEAR NECTAR, CND, W/ADDED ASC ACID^9-408^fl oz.^31.2^100^N
;;^UTILITY(U,$J,112,1816,1)
;;=.11^.01^15.76^60^84.01^^^5^.26^3^3^13^4^.07^.067^.03^^1^27^.002
;;^UTILITY(U,$J,112,1816,2)
;;=.013^.128^.022^.014^1.2^0^.003^^0^.001^.003^.003^0^.1
;;^UTILITY(U,$J,112,1816,4)
;;=^^^.001^^^.002
;;^UTILITY(U,$J,112,1816,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1817,0)
;;=PINEAPPLE JUICE, CND, W/ADDED ASCORBIC ACID, UNSW^9-409^fl oz.^31.3^100^N
;;^UTILITY(U,$J,112,1817,1)
;;=.32^.08^13.78^56^85.53^^^17^.26^13^8^134^1^.11^.09^.99^^5^38.5^.055
;;^UTILITY(U,$J,112,1817,2)
;;=.022^.257^.1^.096^23.1^0^.016^.012^0^.005^.009^.028^0^.3
;;^UTILITY(U,$J,112,1817,4)
;;=^^^.003^.001^.002^.008
;;^UTILITY(U,$J,112,1817,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1818,0)
;;=APPLE JUICE, FRZ, UNSW, W/VIT C^9-411^fl oz.^29.9^100^N
;;^UTILITY(U,$J,112,1818,1)
;;=.14^.1^11.54^47^87.9^^^6^.26^5^7^126^7^.04^.014^.063^^0^25^.003
;;^UTILITY(U,$J,112,1818,2)
;;=.015^.038^.063^.033^.3^0^.027^.004^0^.018^.002^.031^0^.32^^^.1
;;^UTILITY(U,$J,112,1818,4)
;;=^^^.016^^.002^.002
FHINI05C ; ; 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,1808,3)
+2 ;;=.007^.027^.019^.018^.062^.006^.002^.015^.012^.016^.059^.006^.017^.039^.063^.01^.024^.016
+3 ;;^UTILITY(U,$J,112,1808,4)
+4 ;;=^^^^^^^^^.1
+5 ;;^UTILITY(U,$J,112,1808,20)
+6 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+7 ;;^UTILITY(U,$J,112,1809,0)
+8 ;;=APPLE JUICE, CND, UNSW, W/VIT C^9-400^fl oz.^31^100^N
+9 ;;^UTILITY(U,$J,112,1809,1)
+10 ;;=.06^.11^11.68^47^87.93^^^7^.37^3^7^119^3^.03^.022^.113^.01^1^41.6^.021
+11 ;;^UTILITY(U,$J,112,1809,2)
+12 ;;=.017^^^.03^.1^0^.028^.006^0^.019^.005^.033^0^.22
+13 ;;^UTILITY(U,$J,112,1809,4)
+14 ;;=^^.001^.015^^.002^.004
+15 ;;^UTILITY(U,$J,112,1809,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1810,0)
+18 ;;=APPLESAUCE, CND, UNSW, W/VIT C^9-401^cups^244^100^N
+19 ;;^UTILITY(U,$J,112,1810,1)
+20 ;;=.17^.05^11.29^43^88.35^^^3^.12^3^7^75^2^.03^.026^.075^^29^21.2^.013
+21 ;;^UTILITY(U,$J,112,1810,2)
+22 ;;=.025^.188^.095^.026^.6^0^.012^.003^0^.008^.002^.014^3^.15
+23 ;;^UTILITY(U,$J,112,1810,3)
+24 ;;=.002^.006^.006^.01^.01^.002^.002^.005^.003^.008^.005^.003^.006^.028^.017^.006^.006^.007
+25 ;;^UTILITY(U,$J,112,1810,4)
+26 ;;=^^^.007^^.001^.002
+27 ;;^UTILITY(U,$J,112,1810,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1811,0)
+30 ;;=APPLESAUCE, CND, SWEETENED, W/SALT^9-402^cups^256^100^N
+31 ;;^UTILITY(U,$J,112,1811,1)
+32 ;;=.18^.18^19.91^76^79.58^^^4^.35^3^7^61^28^.04^.043^.075^^11^1.7^.013
+33 ;;^UTILITY(U,$J,112,1811,2)
+34 ;;=.028^.188^.052^.026^.6^0^.045^.009^0^.03^.007^.054^1^.14
+35 ;;^UTILITY(U,$J,112,1811,3)
+36 ;;=.002^.007^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.007^.032^.019^.007^.006^.007
+37 ;;^UTILITY(U,$J,112,1811,4)
+38 ;;=^.001^.001^.025^^.004^.007
+39 ;;^UTILITY(U,$J,112,1811,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1812,0)
+42 ;;=APRICOT NECTAR, CND, W/VIT C^9-403^fl oz.^31.4^100^N
+43 ;;^UTILITY(U,$J,112,1812,1)
+44 ;;=.37^.09^14.39^56^84.87^^^7^.38^5^9^114^3^.09^.073^.032^^1316^54.4^.009
+45 ;;^UTILITY(U,$J,112,1812,2)
+46 ;;=.014^.26^.096^.022^1.3^0^.017^^0^.006^.038^.017^132^.29
+47 ;;^UTILITY(U,$J,112,1812,4)
+48 ;;=^^^.005^^.001^.038
+49 ;;^UTILITY(U,$J,112,1812,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1813,0)
+52 ;;=GRAPEFRUIT JUICE, PINK, RAW^9-404^oz.^28.3^100^N
+53 ;;^UTILITY(U,$J,112,1813,1)
+54 ;;=.5^.1^9.2^39^90^^^9^.2^12^15^162^1^.05^.033^.02^^440^38^.04
+55 ;;^UTILITY(U,$J,112,1813,2)
+56 ;;=.02^.2^.189^.044^10.2^0^.019^.005^0^.014^.013^.024^44^.2
+57 ;;^UTILITY(U,$J,112,1813,4)
+58 ;;=^^^.012^.001^.001^.012
+59 ;;^UTILITY(U,$J,112,1813,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,1814,0)
+62 ;;=ORANGE JUICE, CALIF, CHILLED, INCLUDES FROM CONCENTRATE^9-406^fl oz.^31.1^100^N
+63 ;;^UTILITY(U,$J,112,1814,1)
+64 ;;=.8^.27^10.06^44^88.4^^^10^.17^11^11^190^1^.04^.04^.023^^146^42.7^.111
+65 ;;^UTILITY(U,$J,112,1814,2)
+66 ;;=.021^.28^.191^.054^29^0^.05^.014^0^.029^.046^.064^15^.48
+67 ;;^UTILITY(U,$J,112,1814,3)
+68 ;;=.001^.005^.005^.009^.006^.002^.003^.006^.003^.007^.031^.002^.01^.049^.022^.006^.029^.009
+69 ;;^UTILITY(U,$J,112,1814,4)
+70 ;;=^^^.029^.007^^.039
+71 ;;^UTILITY(U,$J,112,1814,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1815,0)
+74 ;;=PEACH NECTAR, CND, W/ADDED ASC ACID^9-407^fl oz.^31.1^100^N
+75 ;;^UTILITY(U,$J,112,1815,1)
+76 ;;=.27^.02^13.92^54^85.64^^^5^.19^4^6^40^7^.08^.069^.019^^258^26.8^.003
+77 ;;^UTILITY(U,$J,112,1815,2)
+78 ;;=.014^.288^.068^.007^1.4^0^.01^^0^.002^.008^.011^26^.15
+79 ;;^UTILITY(U,$J,112,1815,4)
+80 ;;=^^^.002^^^.008
+81 ;;^UTILITY(U,$J,112,1815,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1816,0)
+84 ;;=PEAR NECTAR, CND, W/ADDED ASC ACID^9-408^fl oz.^31.2^100^N
+85 ;;^UTILITY(U,$J,112,1816,1)
+86 ;;=.11^.01^15.76^60^84.01^^^5^.26^3^3^13^4^.07^.067^.03^^1^27^.002
+87 ;;^UTILITY(U,$J,112,1816,2)
+88 ;;=.013^.128^.022^.014^1.2^0^.003^^0^.001^.003^.003^0^.1
+89 ;;^UTILITY(U,$J,112,1816,4)
+90 ;;=^^^.001^^^.002
+91 ;;^UTILITY(U,$J,112,1816,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1817,0)
+94 ;;=PINEAPPLE JUICE, CND, W/ADDED ASCORBIC ACID, UNSW^9-409^fl oz.^31.3^100^N
+95 ;;^UTILITY(U,$J,112,1817,1)
+96 ;;=.32^.08^13.78^56^85.53^^^17^.26^13^8^134^1^.11^.09^.99^^5^38.5^.055
+97 ;;^UTILITY(U,$J,112,1817,2)
+98 ;;=.022^.257^.1^.096^23.1^0^.016^.012^0^.005^.009^.028^0^.3
+99 ;;^UTILITY(U,$J,112,1817,4)
+100 ;;=^^^.003^.001^.002^.008
+101 ;;^UTILITY(U,$J,112,1817,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1818,0)
+104 ;;=APPLE JUICE, FRZ, UNSW, W/VIT C^9-411^fl oz.^29.9^100^N
+105 ;;^UTILITY(U,$J,112,1818,1)
+106 ;;=.14^.1^11.54^47^87.9^^^6^.26^5^7^126^7^.04^.014^.063^^0^25^.003
+107 ;;^UTILITY(U,$J,112,1818,2)
+108 ;;=.015^.038^.063^.033^.3^0^.027^.004^0^.018^.002^.031^0^.32^^^.1
+109 ;;^UTILITY(U,$J,112,1818,4)
+110 ;;=^^^.016^^.002^.002
