FHINI057 ; ; 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,1758,4)
;;=^^^.001^^^.006^^.5
;;^UTILITY(U,$J,112,1758,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1759,0)
;;=PEARS, CND, JUICE PACK^9-254^halves^77^100^N
;;^UTILITY(U,$J,112,1759,1)
;;=.34^.07^12.94^50^86.47^^^9^.29^7^12^96^4^.09^.053^.034^^6^1.6^.011
;;^UTILITY(U,$J,112,1759,2)
;;=.011^.2^.022^.014^1.2^0^.015^^0^.004^.014^.015^1^.19^^^2
;;^UTILITY(U,$J,112,1759,3)
;;=^.009^.01^.017^.012^.004^.003^.009^.003^.012^.006^.004^.011^.068^.025^.01^.009^.012
;;^UTILITY(U,$J,112,1759,4)
;;=^^^.003^^^.013^^.46
;;^UTILITY(U,$J,112,1759,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1760,0)
;;=PEARS, CND, LIGHT SIRUP ^9-256^halves^79^100^N
;;^UTILITY(U,$J,112,1760,1)
;;=.19^.03^15.17^57^84.46^^^5^.28^4^7^66^5^.08^.049^.033^^0^.7^.01
;;^UTILITY(U,$J,112,1760,2)
;;=.016^.154^.022^.014^1.2^0^.007^^0^.002^.006^.007^0^.14^^^2
;;^UTILITY(U,$J,112,1760,3)
;;=^.005^.006^.01^.007^.002^.002^.005^.002^.007^.003^.002^.006^.038^.014^.006^.005^.007
;;^UTILITY(U,$J,112,1760,4)
;;=^^^.001^^^.006
;;^UTILITY(U,$J,112,1760,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1761,0)
;;=PEARS, CND, HEAVY SIRUP ^9-257^halves^79^100^N
;;^UTILITY(U,$J,112,1761,1)
;;=.2^.13^19.17^74^80.35^^^5^.22^4^7^65^5^.08^.049^.032^^0^1.1^.01
;;^UTILITY(U,$J,112,1761,2)
;;=.022^.242^.022^.014^1.2^0^.03^^0^.007^.027^.03^0^.15^^^2
;;^UTILITY(U,$J,112,1761,3)
;;=^.005^.006^.01^.007^.002^.002^.005^.002^.007^.003^.002^.007^.039^.014^.006^.005^.007
;;^UTILITY(U,$J,112,1761,4)
;;=^^^.006^.001^.001^.026
;;^UTILITY(U,$J,112,1761,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1762,0)
;;=PEARS, DRIED, UNCKD^9-259^halves^17.5^100^N
;;^UTILITY(U,$J,112,1762,1)
;;=1.87^.63^69.7^262^26.69^^^34^2.1^33^59^533^6^.39^.371^.327^^3^7^.008
;;^UTILITY(U,$J,112,1762,2)
;;=.145^1.372^.153^.072^0^0^.146^.002^0^.035^.132^.148^0^1.11^^^7.5
;;^UTILITY(U,$J,112,1762,3)
;;=^.049^.054^.094^.066^.022^.018^.049^.016^.066^.032^.02^.062^.368^.135^.054^.051^.067
;;^UTILITY(U,$J,112,1762,4)
;;=^^^.027^.003^.004^.128
;;^UTILITY(U,$J,112,1762,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1763,0)
;;=PEARS, DRIED, STEWED, WO/ADDED SUGAR^9-260^cups^256^161^N
;;^UTILITY(U,$J,112,1763,1)
;;=.91^.31^33.81^127^64.44^^^16^1.02^16^28^258^3^.19^.18^.159^^42^4^.004
;;^UTILITY(U,$J,112,1763,2)
;;=.02^.351^.074^.035^0^0^.071^.001^0^.017^.064^.072^4^.54^^^6.4
;;^UTILITY(U,$J,112,1763,3)
;;=^.023^.026^.046^.032^.011^.009^.024^.008^.032^.016^.01^.03^.178^.065^.026^.025^.032
;;^UTILITY(U,$J,112,1763,4)
;;=^^^.013^.001^.002^.062
;;^UTILITY(U,$J,112,1763,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1764,0)
;;=PEARS, DRIED, STEWED, W/ADDED SUGAR^9-261^cups^280^153^N
;;^UTILITY(U,$J,112,1764,1)
;;=.86^.29^37.14^140^61.2^^^15^.97^15^27^245^3^.18^.171^.151^^40^3.8^.004
;;^UTILITY(U,$J,112,1764,2)
;;=.019^.333^.07^.033^0^0^.067^.001^0^.016^.061^.068^4^.51^^^5.8
;;^UTILITY(U,$J,112,1764,3)
;;=^.022^.025^.043^.03^.01^.008^.023^.007^.03^.015^.009^.029^.169^.062^.025^.023^.031
;;^UTILITY(U,$J,112,1764,4)
;;=^^^.012^.001^.002^.059
;;^UTILITY(U,$J,112,1764,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1765,0)
;;=PEAR NECTAR, CND, WO/ADDED ASC ACID^9-262^fl oz.^31.2^100^N
;;^UTILITY(U,$J,112,1765,1)
;;=.11^.01^15.76^60^84.01^^^5^.26^3^3^13^4^.07^.067^.03^^1^1.1^.002
;;^UTILITY(U,$J,112,1765,2)
;;=.013^.128^.022^.014^1.2^0^.003^^0^.001^.003^.003^0^.1^^^.6
;;^UTILITY(U,$J,112,1765,4)
;;=^^^.001^^^.002
;;^UTILITY(U,$J,112,1765,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1766,0)
;;=PERSIMMONS, JAPANESE, RAW^9-263^fruits^168^84^N
;;^UTILITY(U,$J,112,1766,1)
;;=.58^.19^18.59^70^80.32^^^8^.15^9^17^161^1^.11^.113^.355^^2167^7.5^.03
;;^UTILITY(U,$J,112,1766,2)
;;=.02^.1^^^7.5^0^^^0^^^^217^.33^^^3.6
;;^UTILITY(U,$J,112,1766,3)
;;=.01^.03^.025^.042^.033^.005^.013^.026^.016^.03^.025^.012^.029^.057^.076^.025^.022^.022
;;^UTILITY(U,$J,112,1766,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1767,0)
;;=PERSIMMONS, JAPANESE, DRIED^9-264^fruits^34^92^N
;;^UTILITY(U,$J,112,1767,1)
;;=1.38^.59^73.43^274^23.01^^^25^.74^31^81^802^2^.42^.442^1.39^^558^0
;;^UTILITY(U,$J,112,1767,2)
;;=.029^.18^^^^0^^^0^^^^56^1.59^^^14.5
;;^UTILITY(U,$J,112,1767,3)
;;=.024^.071^.06^.101^.078^.012^.03^.063^.039^.072^.059^.027^.068^.136^.179^.06^.053^.053
;;^UTILITY(U,$J,112,1767,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1768,0)
;;=PERSIMMONS, NATIVE, RAW^9-265^fruits^25^82^N
FHINI057 ; ; 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,1758,4)
+2 ;;=^^^.001^^^.006^^.5
+3 ;;^UTILITY(U,$J,112,1758,20)
+4 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+5 ;;^UTILITY(U,$J,112,1759,0)
+6 ;;=PEARS, CND, JUICE PACK^9-254^halves^77^100^N
+7 ;;^UTILITY(U,$J,112,1759,1)
+8 ;;=.34^.07^12.94^50^86.47^^^9^.29^7^12^96^4^.09^.053^.034^^6^1.6^.011
+9 ;;^UTILITY(U,$J,112,1759,2)
+10 ;;=.011^.2^.022^.014^1.2^0^.015^^0^.004^.014^.015^1^.19^^^2
+11 ;;^UTILITY(U,$J,112,1759,3)
+12 ;;=^.009^.01^.017^.012^.004^.003^.009^.003^.012^.006^.004^.011^.068^.025^.01^.009^.012
+13 ;;^UTILITY(U,$J,112,1759,4)
+14 ;;=^^^.003^^^.013^^.46
+15 ;;^UTILITY(U,$J,112,1759,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1760,0)
+18 ;;=PEARS, CND, LIGHT SIRUP ^9-256^halves^79^100^N
+19 ;;^UTILITY(U,$J,112,1760,1)
+20 ;;=.19^.03^15.17^57^84.46^^^5^.28^4^7^66^5^.08^.049^.033^^0^.7^.01
+21 ;;^UTILITY(U,$J,112,1760,2)
+22 ;;=.016^.154^.022^.014^1.2^0^.007^^0^.002^.006^.007^0^.14^^^2
+23 ;;^UTILITY(U,$J,112,1760,3)
+24 ;;=^.005^.006^.01^.007^.002^.002^.005^.002^.007^.003^.002^.006^.038^.014^.006^.005^.007
+25 ;;^UTILITY(U,$J,112,1760,4)
+26 ;;=^^^.001^^^.006
+27 ;;^UTILITY(U,$J,112,1760,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1761,0)
+30 ;;=PEARS, CND, HEAVY SIRUP ^9-257^halves^79^100^N
+31 ;;^UTILITY(U,$J,112,1761,1)
+32 ;;=.2^.13^19.17^74^80.35^^^5^.22^4^7^65^5^.08^.049^.032^^0^1.1^.01
+33 ;;^UTILITY(U,$J,112,1761,2)
+34 ;;=.022^.242^.022^.014^1.2^0^.03^^0^.007^.027^.03^0^.15^^^2
+35 ;;^UTILITY(U,$J,112,1761,3)
+36 ;;=^.005^.006^.01^.007^.002^.002^.005^.002^.007^.003^.002^.007^.039^.014^.006^.005^.007
+37 ;;^UTILITY(U,$J,112,1761,4)
+38 ;;=^^^.006^.001^.001^.026
+39 ;;^UTILITY(U,$J,112,1761,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1762,0)
+42 ;;=PEARS, DRIED, UNCKD^9-259^halves^17.5^100^N
+43 ;;^UTILITY(U,$J,112,1762,1)
+44 ;;=1.87^.63^69.7^262^26.69^^^34^2.1^33^59^533^6^.39^.371^.327^^3^7^.008
+45 ;;^UTILITY(U,$J,112,1762,2)
+46 ;;=.145^1.372^.153^.072^0^0^.146^.002^0^.035^.132^.148^0^1.11^^^7.5
+47 ;;^UTILITY(U,$J,112,1762,3)
+48 ;;=^.049^.054^.094^.066^.022^.018^.049^.016^.066^.032^.02^.062^.368^.135^.054^.051^.067
+49 ;;^UTILITY(U,$J,112,1762,4)
+50 ;;=^^^.027^.003^.004^.128
+51 ;;^UTILITY(U,$J,112,1762,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1763,0)
+54 ;;=PEARS, DRIED, STEWED, WO/ADDED SUGAR^9-260^cups^256^161^N
+55 ;;^UTILITY(U,$J,112,1763,1)
+56 ;;=.91^.31^33.81^127^64.44^^^16^1.02^16^28^258^3^.19^.18^.159^^42^4^.004
+57 ;;^UTILITY(U,$J,112,1763,2)
+58 ;;=.02^.351^.074^.035^0^0^.071^.001^0^.017^.064^.072^4^.54^^^6.4
+59 ;;^UTILITY(U,$J,112,1763,3)
+60 ;;=^.023^.026^.046^.032^.011^.009^.024^.008^.032^.016^.01^.03^.178^.065^.026^.025^.032
+61 ;;^UTILITY(U,$J,112,1763,4)
+62 ;;=^^^.013^.001^.002^.062
+63 ;;^UTILITY(U,$J,112,1763,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,1764,0)
+66 ;;=PEARS, DRIED, STEWED, W/ADDED SUGAR^9-261^cups^280^153^N
+67 ;;^UTILITY(U,$J,112,1764,1)
+68 ;;=.86^.29^37.14^140^61.2^^^15^.97^15^27^245^3^.18^.171^.151^^40^3.8^.004
+69 ;;^UTILITY(U,$J,112,1764,2)
+70 ;;=.019^.333^.07^.033^0^0^.067^.001^0^.016^.061^.068^4^.51^^^5.8
+71 ;;^UTILITY(U,$J,112,1764,3)
+72 ;;=^.022^.025^.043^.03^.01^.008^.023^.007^.03^.015^.009^.029^.169^.062^.025^.023^.031
+73 ;;^UTILITY(U,$J,112,1764,4)
+74 ;;=^^^.012^.001^.002^.059
+75 ;;^UTILITY(U,$J,112,1764,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1765,0)
+78 ;;=PEAR NECTAR, CND, WO/ADDED ASC ACID^9-262^fl oz.^31.2^100^N
+79 ;;^UTILITY(U,$J,112,1765,1)
+80 ;;=.11^.01^15.76^60^84.01^^^5^.26^3^3^13^4^.07^.067^.03^^1^1.1^.002
+81 ;;^UTILITY(U,$J,112,1765,2)
+82 ;;=.013^.128^.022^.014^1.2^0^.003^^0^.001^.003^.003^0^.1^^^.6
+83 ;;^UTILITY(U,$J,112,1765,4)
+84 ;;=^^^.001^^^.002
+85 ;;^UTILITY(U,$J,112,1765,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1766,0)
+88 ;;=PERSIMMONS, JAPANESE, RAW^9-263^fruits^168^84^N
+89 ;;^UTILITY(U,$J,112,1766,1)
+90 ;;=.58^.19^18.59^70^80.32^^^8^.15^9^17^161^1^.11^.113^.355^^2167^7.5^.03
+91 ;;^UTILITY(U,$J,112,1766,2)
+92 ;;=.02^.1^^^7.5^0^^^0^^^^217^.33^^^3.6
+93 ;;^UTILITY(U,$J,112,1766,3)
+94 ;;=.01^.03^.025^.042^.033^.005^.013^.026^.016^.03^.025^.012^.029^.057^.076^.025^.022^.022
+95 ;;^UTILITY(U,$J,112,1766,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1767,0)
+98 ;;=PERSIMMONS, JAPANESE, DRIED^9-264^fruits^34^92^N
+99 ;;^UTILITY(U,$J,112,1767,1)
+100 ;;=1.38^.59^73.43^274^23.01^^^25^.74^31^81^802^2^.42^.442^1.39^^558^0
+101 ;;^UTILITY(U,$J,112,1767,2)
+102 ;;=.029^.18^^^^0^^^0^^^^56^1.59^^^14.5
+103 ;;^UTILITY(U,$J,112,1767,3)
+104 ;;=.024^.071^.06^.101^.078^.012^.03^.063^.039^.072^.059^.027^.068^.136^.179^.06^.053^.053
+105 ;;^UTILITY(U,$J,112,1767,20)
+106 ;;=USDA Std. Reference, Release 10
+107 ;;^UTILITY(U,$J,112,1768,0)
+108 ;;=PERSIMMONS, NATIVE, RAW^9-265^fruits^25^82^N
