FHINI056 ; ; 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,1749,4)
;;=^^^.003^^^.011
;;^UTILITY(U,$J,112,1749,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1750,0)
;;=PEACHES, CND, HEAVY SIRUP ^9-241^halves^81^100^N
;;^UTILITY(U,$J,112,1750,1)
;;=.45^.1^19.94^74^79.28^^^3^.27^5^11^92^6^.09^.051^.045^^332^2.8^.011
;;^UTILITY(U,$J,112,1750,2)
;;=.024^.614^.05^.019^3.2^0^.046^.001^0^.01^.035^.047^33^.24^^^1
;;^UTILITY(U,$J,112,1750,3)
;;=.001^.018^.013^.026^.015^.011^.004^.014^.012^.025^.012^.008^.027^.076^.069^.016^.019^.021
;;^UTILITY(U,$J,112,1750,4)
;;=^^^.009^.001^.001^.035
;;^UTILITY(U,$J,112,1750,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1751,0)
;;=PEACHES, SPICED, CND, HEAVY SIRUP ^9-243^fruits^88^96^N
;;^UTILITY(U,$J,112,1751,1)
;;=.41^.1^20.08^75^79.2^^^6^.28^7^9^85^4^.08^.098^^^317^5.3^.011
;;^UTILITY(U,$J,112,1751,2)
;;=.035^.537^.05^.019^3.2^0^.047^.001^0^.011^.036^.048^32^.21^^^1
;;^UTILITY(U,$J,112,1751,3)
;;=.001^.016^.012^.023^.013^.01^.003^.013^.011^.023^.01^.008^.025^.069^.063^.014^.017^.019
;;^UTILITY(U,$J,112,1751,4)
;;=^^^.009^.001^.001^.036
;;^UTILITY(U,$J,112,1751,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1752,0)
;;=PEACHES, DRIED, UNCKD^9-246^halves^13^100^N
;;^UTILITY(U,$J,112,1752,1)
;;=3.61^.76^61.33^239^31.8^^^28^4.06^42^119^996^7^.57^.364^.305^^2163^4.8^.002
;;^UTILITY(U,$J,112,1752,2)
;;=.212^4.375^.564^.067^.3^0^.358^.009^0^.082^.278^.367^216^2.5^^^8.2
;;^UTILITY(U,$J,112,1752,3)
;;=.01^.141^.104^.204^.116^.087^.029^.114^.094^.197^.092^.067^.215^.602^.548^.126^.152^.167
;;^UTILITY(U,$J,112,1752,4)
;;=^^^.071^.006^.01^.272^.002
;;^UTILITY(U,$J,112,1752,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1753,0)
;;=PEACHES, DRIED, STEWED, WO/ADDED SUGAR^9-247^cups^258^186^N
;;^UTILITY(U,$J,112,1753,1)
;;=1.16^.25^19.69^77^78.1^^^9^1.31^13^38^320^2^.18^.117^.098^^197^3.7^.005
;;^UTILITY(U,$J,112,1753,2)
;;=.021^1.519^.181^.038^.1^0^.115^.003^0^.026^.089^.118^20^.8^^^2.7
;;^UTILITY(U,$J,112,1753,3)
;;=.003^.045^.033^.065^.037^.028^.009^.036^.03^.063^.029^.021^.069^.193^.176^.04^.049^.053
;;^UTILITY(U,$J,112,1753,4)
;;=^^^.023^.002^.003^.087^.001
;;^UTILITY(U,$J,112,1753,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1754,0)
;;=PEACHES, DRIED, STEWED, W/ADDED SUGAR^9-248^cups^270^166^N
;;^UTILITY(U,$J,112,1754,1)
;;=1.06^.22^26.6^103^71.38^^^8^1.2^12^35^292^2^.17^.107^.089^^180^3.4^.005
;;^UTILITY(U,$J,112,1754,2)
;;=.019^1.388^.165^.035^.1^0^.105^.003^0^.024^.082^.108^18^.73^^^2.4
;;^UTILITY(U,$J,112,1754,3)
;;=.003^.041^.03^.06^.034^.026^.009^.033^.028^.058^.027^.02^.063^.176^.16^.037^.044^.049
;;^UTILITY(U,$J,112,1754,4)
;;=^^^.021^.002^.003^.08^.001
;;^UTILITY(U,$J,112,1754,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1755,0)
;;=PEACHES, FRZ, SLICED, SWEETENED^9-250^cups^250^100^N
;;^UTILITY(U,$J,112,1755,1)
;;=.63^.13^23.98^94^74.73^^^3^.37^5^11^130^6^.05^.024^.029^^284^94.2^.013
;;^UTILITY(U,$J,112,1755,2)
;;=.035^.653^.132^.018^3.2^0^.063^.002^0^.014^.048^.064^28^.53^^^1.4
;;^UTILITY(U,$J,112,1755,3)
;;=.002^.024^.018^.035^.02^.015^.005^.02^.016^.034^.016^.012^.037^.104^.095^.022^.026^.029
;;^UTILITY(U,$J,112,1755,4)
;;=^^^.012^.001^.002^.047
;;^UTILITY(U,$J,112,1755,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1756,0)
;;=PEACH NECTAR, CND, WO/ADDED ASC ACID^9-251^fl oz.^31.1^100^N
;;^UTILITY(U,$J,112,1756,1)
;;=.27^.02^13.92^54^85.64^^^5^.19^4^6^40^7^.08^.069^.019^^258^5.3^.003
;;^UTILITY(U,$J,112,1756,2)
;;=.014^.288^.068^.007^1.4^0^.01^^0^.002^.008^.011^26^.15^^^.6
;;^UTILITY(U,$J,112,1756,4)
;;=^^^.002^^^.008
;;^UTILITY(U,$J,112,1756,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1757,0)
;;=PEARS, RAW^9-252^fruits^166^92^N
;;^UTILITY(U,$J,112,1757,1)
;;=.39^.4^15.11^59^83.81^^^11^.25^6^11^125^0^.12^.113^.076^^20^4^.02
;;^UTILITY(U,$J,112,1757,2)
;;=.04^.1^.07^.018^7.3^0^.093^.001^0^.022^.084^.094^2^.28^^^3.5
;;^UTILITY(U,$J,112,1757,3)
;;=^.01^.011^.02^.014^.005^.004^.01^.003^.014^.007^.004^.013^.077^.028^.011^.011^.014
;;^UTILITY(U,$J,112,1757,4)
;;=^^^.017^.002^.003^.081^^^1
;;^UTILITY(U,$J,112,1757,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1758,0)
;;=PEARS, CND, WATER PACK^9-253^halves^77^100^N
;;^UTILITY(U,$J,112,1758,1)
;;=.19^.03^7.81^29^91.81^^^4^.21^4^7^53^2^.09^.051^.034^^0^1^.008
;;^UTILITY(U,$J,112,1758,2)
;;=.01^.054^.022^.014^1.2^0^.007^^0^.002^.006^.007^0^.16^^^3
;;^UTILITY(U,$J,112,1758,3)
;;=^.005^.005^.009^.007^.002^.002^.005^.002^.007^.003^.002^.006^.037^.013^.005^.005^.007
FHINI056 ; ; 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,1749,4)
+2 ;;=^^^.003^^^.011
+3 ;;^UTILITY(U,$J,112,1749,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1750,0)
+6 ;;=PEACHES, CND, HEAVY SIRUP ^9-241^halves^81^100^N
+7 ;;^UTILITY(U,$J,112,1750,1)
+8 ;;=.45^.1^19.94^74^79.28^^^3^.27^5^11^92^6^.09^.051^.045^^332^2.8^.011
+9 ;;^UTILITY(U,$J,112,1750,2)
+10 ;;=.024^.614^.05^.019^3.2^0^.046^.001^0^.01^.035^.047^33^.24^^^1
+11 ;;^UTILITY(U,$J,112,1750,3)
+12 ;;=.001^.018^.013^.026^.015^.011^.004^.014^.012^.025^.012^.008^.027^.076^.069^.016^.019^.021
+13 ;;^UTILITY(U,$J,112,1750,4)
+14 ;;=^^^.009^.001^.001^.035
+15 ;;^UTILITY(U,$J,112,1750,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1751,0)
+18 ;;=PEACHES, SPICED, CND, HEAVY SIRUP ^9-243^fruits^88^96^N
+19 ;;^UTILITY(U,$J,112,1751,1)
+20 ;;=.41^.1^20.08^75^79.2^^^6^.28^7^9^85^4^.08^.098^^^317^5.3^.011
+21 ;;^UTILITY(U,$J,112,1751,2)
+22 ;;=.035^.537^.05^.019^3.2^0^.047^.001^0^.011^.036^.048^32^.21^^^1
+23 ;;^UTILITY(U,$J,112,1751,3)
+24 ;;=.001^.016^.012^.023^.013^.01^.003^.013^.011^.023^.01^.008^.025^.069^.063^.014^.017^.019
+25 ;;^UTILITY(U,$J,112,1751,4)
+26 ;;=^^^.009^.001^.001^.036
+27 ;;^UTILITY(U,$J,112,1751,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1752,0)
+30 ;;=PEACHES, DRIED, UNCKD^9-246^halves^13^100^N
+31 ;;^UTILITY(U,$J,112,1752,1)
+32 ;;=3.61^.76^61.33^239^31.8^^^28^4.06^42^119^996^7^.57^.364^.305^^2163^4.8^.002
+33 ;;^UTILITY(U,$J,112,1752,2)
+34 ;;=.212^4.375^.564^.067^.3^0^.358^.009^0^.082^.278^.367^216^2.5^^^8.2
+35 ;;^UTILITY(U,$J,112,1752,3)
+36 ;;=.01^.141^.104^.204^.116^.087^.029^.114^.094^.197^.092^.067^.215^.602^.548^.126^.152^.167
+37 ;;^UTILITY(U,$J,112,1752,4)
+38 ;;=^^^.071^.006^.01^.272^.002
+39 ;;^UTILITY(U,$J,112,1752,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1753,0)
+42 ;;=PEACHES, DRIED, STEWED, WO/ADDED SUGAR^9-247^cups^258^186^N
+43 ;;^UTILITY(U,$J,112,1753,1)
+44 ;;=1.16^.25^19.69^77^78.1^^^9^1.31^13^38^320^2^.18^.117^.098^^197^3.7^.005
+45 ;;^UTILITY(U,$J,112,1753,2)
+46 ;;=.021^1.519^.181^.038^.1^0^.115^.003^0^.026^.089^.118^20^.8^^^2.7
+47 ;;^UTILITY(U,$J,112,1753,3)
+48 ;;=.003^.045^.033^.065^.037^.028^.009^.036^.03^.063^.029^.021^.069^.193^.176^.04^.049^.053
+49 ;;^UTILITY(U,$J,112,1753,4)
+50 ;;=^^^.023^.002^.003^.087^.001
+51 ;;^UTILITY(U,$J,112,1753,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1754,0)
+54 ;;=PEACHES, DRIED, STEWED, W/ADDED SUGAR^9-248^cups^270^166^N
+55 ;;^UTILITY(U,$J,112,1754,1)
+56 ;;=1.06^.22^26.6^103^71.38^^^8^1.2^12^35^292^2^.17^.107^.089^^180^3.4^.005
+57 ;;^UTILITY(U,$J,112,1754,2)
+58 ;;=.019^1.388^.165^.035^.1^0^.105^.003^0^.024^.082^.108^18^.73^^^2.4
+59 ;;^UTILITY(U,$J,112,1754,3)
+60 ;;=.003^.041^.03^.06^.034^.026^.009^.033^.028^.058^.027^.02^.063^.176^.16^.037^.044^.049
+61 ;;^UTILITY(U,$J,112,1754,4)
+62 ;;=^^^.021^.002^.003^.08^.001
+63 ;;^UTILITY(U,$J,112,1754,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,1755,0)
+66 ;;=PEACHES, FRZ, SLICED, SWEETENED^9-250^cups^250^100^N
+67 ;;^UTILITY(U,$J,112,1755,1)
+68 ;;=.63^.13^23.98^94^74.73^^^3^.37^5^11^130^6^.05^.024^.029^^284^94.2^.013
+69 ;;^UTILITY(U,$J,112,1755,2)
+70 ;;=.035^.653^.132^.018^3.2^0^.063^.002^0^.014^.048^.064^28^.53^^^1.4
+71 ;;^UTILITY(U,$J,112,1755,3)
+72 ;;=.002^.024^.018^.035^.02^.015^.005^.02^.016^.034^.016^.012^.037^.104^.095^.022^.026^.029
+73 ;;^UTILITY(U,$J,112,1755,4)
+74 ;;=^^^.012^.001^.002^.047
+75 ;;^UTILITY(U,$J,112,1755,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1756,0)
+78 ;;=PEACH NECTAR, CND, WO/ADDED ASC ACID^9-251^fl oz.^31.1^100^N
+79 ;;^UTILITY(U,$J,112,1756,1)
+80 ;;=.27^.02^13.92^54^85.64^^^5^.19^4^6^40^7^.08^.069^.019^^258^5.3^.003
+81 ;;^UTILITY(U,$J,112,1756,2)
+82 ;;=.014^.288^.068^.007^1.4^0^.01^^0^.002^.008^.011^26^.15^^^.6
+83 ;;^UTILITY(U,$J,112,1756,4)
+84 ;;=^^^.002^^^.008
+85 ;;^UTILITY(U,$J,112,1756,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1757,0)
+88 ;;=PEARS, RAW^9-252^fruits^166^92^N
+89 ;;^UTILITY(U,$J,112,1757,1)
+90 ;;=.39^.4^15.11^59^83.81^^^11^.25^6^11^125^0^.12^.113^.076^^20^4^.02
+91 ;;^UTILITY(U,$J,112,1757,2)
+92 ;;=.04^.1^.07^.018^7.3^0^.093^.001^0^.022^.084^.094^2^.28^^^3.5
+93 ;;^UTILITY(U,$J,112,1757,3)
+94 ;;=^.01^.011^.02^.014^.005^.004^.01^.003^.014^.007^.004^.013^.077^.028^.011^.011^.014
+95 ;;^UTILITY(U,$J,112,1757,4)
+96 ;;=^^^.017^.002^.003^.081^^^1
+97 ;;^UTILITY(U,$J,112,1757,20)
+98 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+99 ;;^UTILITY(U,$J,112,1758,0)
+100 ;;=PEARS, CND, WATER PACK^9-253^halves^77^100^N
+101 ;;^UTILITY(U,$J,112,1758,1)
+102 ;;=.19^.03^7.81^29^91.81^^^4^.21^4^7^53^2^.09^.051^.034^^0^1^.008
+103 ;;^UTILITY(U,$J,112,1758,2)
+104 ;;=.01^.054^.022^.014^1.2^0^.007^^0^.002^.006^.007^0^.16^^^3
+105 ;;^UTILITY(U,$J,112,1758,3)
+106 ;;=^.005^.005^.009^.007^.002^.002^.005^.002^.007^.003^.002^.006^.037^.013^.005^.005^.007
