FHINI058 ; ; 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,1768,1)
;;=.8^.4^33.5^127^64.4^^^27^2.5^^26^310^1^^^^^^66
;;^UTILITY(U,$J,112,1768,2)
;;=^^^^^0^^^0^^^^^.9
;;^UTILITY(U,$J,112,1768,3)
;;=.014^.041^.035^.058^.045^.007^.018^.036^.023^.042^.034^.016^.039^.079^.104^.035^.031^.031
;;^UTILITY(U,$J,112,1768,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1769,0)
;;=PINEAPPLE, RAW^9-266^slices^84^52^N
;;^UTILITY(U,$J,112,1769,1)
;;=.39^.43^12.39^49^86.5^^^7^.37^14^7^113^1^.08^.11^1.649^.1^23^15.4^.092
;;^UTILITY(U,$J,112,1769,2)
;;=.036^.42^.16^.087^10.6^0^.084^.062^0^.032^.048^.146^2^.29^^^1.2
;;^UTILITY(U,$J,112,1769,3)
;;=.005^.012^.013^.019^.025^.011^.002^.012^.012^.016^.018^.009^.017^.057^.045^.017^.013^.025
;;^UTILITY(U,$J,112,1769,4)
;;=^^^.019^.003^.011^.045^^.1^.6
;;^UTILITY(U,$J,112,1769,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1770,0)
;;=PINEAPPLE, CND, WATER PACK, SOL&LIQ^9-267^slices^58^100^N
;;^UTILITY(U,$J,112,1770,1)
;;=.43^.09^8.3^32^90.82^^^15^.4^18^4^127^1^.12^.105^1.121^^15^7.7^.093
;;^UTILITY(U,$J,112,1770,2)
;;=.026^.298^.1^.074^4.8^0^.018^.013^0^.006^.011^.031^2^.35^^^1.7
;;^UTILITY(U,$J,112,1770,3)
;;=.006^.011^.011^.017^.02^.011^.001^.011^.01^.014^.015^.009^.022^.099^.05^.017^.011^.023
;;^UTILITY(U,$J,112,1770,4)
;;=^^^.004^.001^.002^.01
;;^UTILITY(U,$J,112,1770,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1771,0)
;;=PINEAPPLE, CND, JUICE PACK^9-268^slices^28^100^N
;;^UTILITY(U,$J,112,1771,1)
;;=.42^.08^15.7^60^83.51^^^14^.28^14^6^122^1^.1^.086^1.121^^38^9.5^.095
;;^UTILITY(U,$J,112,1771,2)
;;=.019^.284^.1^.074^4.8^0^.017^.012^0^.006^.01^.029^4^.3^^^.7
;;^UTILITY(U,$J,112,1771,3)
;;=.005^.01^.01^.016^.019^.011^.001^.01^.01^.013^.014^.009^.021^.095^.048^.016^.011^.022
;;^UTILITY(U,$J,112,1771,4)
;;=^^^.004^.001^.002^.009
;;^UTILITY(U,$J,112,1771,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1772,0)
;;=PINEAPPLE, CND, LIGHT SIRUP PACK, SOL&LIQ^9-269^slices^58^100^N
;;^UTILITY(U,$J,112,1772,1)
;;=.36^.12^13.45^52^85.73^^^14^.39^16^7^105^1^.12^.103^1.097^^15^7.5^.091
;;^UTILITY(U,$J,112,1772,2)
;;=.025^.292^.1^.074^4.7^0^.023^.017^0^.009^.013^.04^1^.35^^^.7
;;^UTILITY(U,$J,112,1772,3)
;;=.005^.009^.009^.014^.016^.009^.001^.009^.009^.012^.012^.008^.018^.082^.041^.014^.009^.019
;;^UTILITY(U,$J,112,1772,4)
;;=^^^.005^.001^.003^.012
;;^UTILITY(U,$J,112,1772,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1773,0)
;;=PINEAPPLE, CND, HEAVY SIRUP ^9-270^slices^58^100^N
;;^UTILITY(U,$J,112,1773,1)
;;=.35^.11^20.2^78^78.99^^^14^.38^16^7^104^1^.12^.101^1.08^^14^7.4^.09
;;^UTILITY(U,$J,112,1773,2)
;;=.025^.287^.1^.074^4.6^0^.023^.017^0^.009^.013^.04^1^.34^^^.7
;;^UTILITY(U,$J,112,1773,3)
;;=.005^.009^.009^.013^.016^.009^.001^.009^.008^.011^.012^.008^.018^.081^.041^.014^.009^.019
;;^UTILITY(U,$J,112,1773,4)
;;=^^^.005^.001^.003^.012
;;^UTILITY(U,$J,112,1773,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1774,0)
;;=PINEAPPLE, FRZ, CHUNKS, SWEETENED^9-272^cups^244^100^N
;;^UTILITY(U,$J,112,1774,1)
;;=.4^.1^22.2^85^77.1^^^9^.4^10^4^100^2^.11^.099^1.062^^30^8^.1
;;^UTILITY(U,$J,112,1774,2)
;;=.03^.3^.105^.075^10.6^0^.02^.015^0^.007^.012^.035^3^.2^^^1.1
;;^UTILITY(U,$J,112,1774,3)
;;=.005^.013^.013^.02^.026^.011^.002^.012^.013^.016^.018^.009^.018^.059^.047^.018^.013^.026
;;^UTILITY(U,$J,112,1774,4)
;;=^^^.004^.001^.003^.011
;;^UTILITY(U,$J,112,1774,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1775,0)
;;=PINEAPPLE JUICE, CND, UNSW, WO/ADDED ASC ACID^9-273^fl oz.^31.3^100^N
;;^UTILITY(U,$J,112,1775,1)
;;=.32^.08^13.78^56^85.53^^^17^.26^13^8^134^1^.11^.09^.99^^5^10.7^.055
;;^UTILITY(U,$J,112,1775,2)
;;=.022^.257^.1^.096^23.1^0^.016^.012^0^.005^.009^.028^0^.3^^^.1
;;^UTILITY(U,$J,112,1775,4)
;;=^^^.003^.001^.002^.008^^.7
;;^UTILITY(U,$J,112,1775,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1776,0)
;;=PINEAPPLE JUICE, FRZ CONC, UNSWTND, DILUTED W/3 VOL WATER^9-275^fl oz.^31.2^100^N
;;^UTILITY(U,$J,112,1776,1)
;;=.4^.03^12.77^52^86.5^^^11^.3^9^8^136^1^.11^.09^.99^^10^12^.07
;;^UTILITY(U,$J,112,1776,2)
;;=.02^.2^.125^.074^10.6^0^.006^.004^0^.002^.003^.01^1^.3^^^.1
;;^UTILITY(U,$J,112,1776,4)
;;=^^^.001^^.001^.003
;;^UTILITY(U,$J,112,1776,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1777,0)
;;=PLANTAIN, RAW^9-277^fruits^17^65^N
;;^UTILITY(U,$J,112,1777,1)
;;=1.3^.37^31.89^122^65.28^^^3^.6^37^34^499^4^.14^.081^^^1127^18.4^.052
FHINI058 ; ; 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,1768,1)
+2 ;;=.8^.4^33.5^127^64.4^^^27^2.5^^26^310^1^^^^^^66
+3 ;;^UTILITY(U,$J,112,1768,2)
+4 ;;=^^^^^0^^^0^^^^^.9
+5 ;;^UTILITY(U,$J,112,1768,3)
+6 ;;=.014^.041^.035^.058^.045^.007^.018^.036^.023^.042^.034^.016^.039^.079^.104^.035^.031^.031
+7 ;;^UTILITY(U,$J,112,1768,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,1769,0)
+10 ;;=PINEAPPLE, RAW^9-266^slices^84^52^N
+11 ;;^UTILITY(U,$J,112,1769,1)
+12 ;;=.39^.43^12.39^49^86.5^^^7^.37^14^7^113^1^.08^.11^1.649^.1^23^15.4^.092
+13 ;;^UTILITY(U,$J,112,1769,2)
+14 ;;=.036^.42^.16^.087^10.6^0^.084^.062^0^.032^.048^.146^2^.29^^^1.2
+15 ;;^UTILITY(U,$J,112,1769,3)
+16 ;;=.005^.012^.013^.019^.025^.011^.002^.012^.012^.016^.018^.009^.017^.057^.045^.017^.013^.025
+17 ;;^UTILITY(U,$J,112,1769,4)
+18 ;;=^^^.019^.003^.011^.045^^.1^.6
+19 ;;^UTILITY(U,$J,112,1769,20)
+20 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+21 ;;^UTILITY(U,$J,112,1770,0)
+22 ;;=PINEAPPLE, CND, WATER PACK, SOL&LIQ^9-267^slices^58^100^N
+23 ;;^UTILITY(U,$J,112,1770,1)
+24 ;;=.43^.09^8.3^32^90.82^^^15^.4^18^4^127^1^.12^.105^1.121^^15^7.7^.093
+25 ;;^UTILITY(U,$J,112,1770,2)
+26 ;;=.026^.298^.1^.074^4.8^0^.018^.013^0^.006^.011^.031^2^.35^^^1.7
+27 ;;^UTILITY(U,$J,112,1770,3)
+28 ;;=.006^.011^.011^.017^.02^.011^.001^.011^.01^.014^.015^.009^.022^.099^.05^.017^.011^.023
+29 ;;^UTILITY(U,$J,112,1770,4)
+30 ;;=^^^.004^.001^.002^.01
+31 ;;^UTILITY(U,$J,112,1770,20)
+32 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+33 ;;^UTILITY(U,$J,112,1771,0)
+34 ;;=PINEAPPLE, CND, JUICE PACK^9-268^slices^28^100^N
+35 ;;^UTILITY(U,$J,112,1771,1)
+36 ;;=.42^.08^15.7^60^83.51^^^14^.28^14^6^122^1^.1^.086^1.121^^38^9.5^.095
+37 ;;^UTILITY(U,$J,112,1771,2)
+38 ;;=.019^.284^.1^.074^4.8^0^.017^.012^0^.006^.01^.029^4^.3^^^.7
+39 ;;^UTILITY(U,$J,112,1771,3)
+40 ;;=.005^.01^.01^.016^.019^.011^.001^.01^.01^.013^.014^.009^.021^.095^.048^.016^.011^.022
+41 ;;^UTILITY(U,$J,112,1771,4)
+42 ;;=^^^.004^.001^.002^.009
+43 ;;^UTILITY(U,$J,112,1771,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,1772,0)
+46 ;;=PINEAPPLE, CND, LIGHT SIRUP PACK, SOL&LIQ^9-269^slices^58^100^N
+47 ;;^UTILITY(U,$J,112,1772,1)
+48 ;;=.36^.12^13.45^52^85.73^^^14^.39^16^7^105^1^.12^.103^1.097^^15^7.5^.091
+49 ;;^UTILITY(U,$J,112,1772,2)
+50 ;;=.025^.292^.1^.074^4.7^0^.023^.017^0^.009^.013^.04^1^.35^^^.7
+51 ;;^UTILITY(U,$J,112,1772,3)
+52 ;;=.005^.009^.009^.014^.016^.009^.001^.009^.009^.012^.012^.008^.018^.082^.041^.014^.009^.019
+53 ;;^UTILITY(U,$J,112,1772,4)
+54 ;;=^^^.005^.001^.003^.012
+55 ;;^UTILITY(U,$J,112,1772,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1773,0)
+58 ;;=PINEAPPLE, CND, HEAVY SIRUP ^9-270^slices^58^100^N
+59 ;;^UTILITY(U,$J,112,1773,1)
+60 ;;=.35^.11^20.2^78^78.99^^^14^.38^16^7^104^1^.12^.101^1.08^^14^7.4^.09
+61 ;;^UTILITY(U,$J,112,1773,2)
+62 ;;=.025^.287^.1^.074^4.6^0^.023^.017^0^.009^.013^.04^1^.34^^^.7
+63 ;;^UTILITY(U,$J,112,1773,3)
+64 ;;=.005^.009^.009^.013^.016^.009^.001^.009^.008^.011^.012^.008^.018^.081^.041^.014^.009^.019
+65 ;;^UTILITY(U,$J,112,1773,4)
+66 ;;=^^^.005^.001^.003^.012
+67 ;;^UTILITY(U,$J,112,1773,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1774,0)
+70 ;;=PINEAPPLE, FRZ, CHUNKS, SWEETENED^9-272^cups^244^100^N
+71 ;;^UTILITY(U,$J,112,1774,1)
+72 ;;=.4^.1^22.2^85^77.1^^^9^.4^10^4^100^2^.11^.099^1.062^^30^8^.1
+73 ;;^UTILITY(U,$J,112,1774,2)
+74 ;;=.03^.3^.105^.075^10.6^0^.02^.015^0^.007^.012^.035^3^.2^^^1.1
+75 ;;^UTILITY(U,$J,112,1774,3)
+76 ;;=.005^.013^.013^.02^.026^.011^.002^.012^.013^.016^.018^.009^.018^.059^.047^.018^.013^.026
+77 ;;^UTILITY(U,$J,112,1774,4)
+78 ;;=^^^.004^.001^.003^.011
+79 ;;^UTILITY(U,$J,112,1774,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1775,0)
+82 ;;=PINEAPPLE JUICE, CND, UNSW, WO/ADDED ASC ACID^9-273^fl oz.^31.3^100^N
+83 ;;^UTILITY(U,$J,112,1775,1)
+84 ;;=.32^.08^13.78^56^85.53^^^17^.26^13^8^134^1^.11^.09^.99^^5^10.7^.055
+85 ;;^UTILITY(U,$J,112,1775,2)
+86 ;;=.022^.257^.1^.096^23.1^0^.016^.012^0^.005^.009^.028^0^.3^^^.1
+87 ;;^UTILITY(U,$J,112,1775,4)
+88 ;;=^^^.003^.001^.002^.008^^.7
+89 ;;^UTILITY(U,$J,112,1775,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,1776,0)
+92 ;;=PINEAPPLE JUICE, FRZ CONC, UNSWTND, DILUTED W/3 VOL WATER^9-275^fl oz.^31.2^100^N
+93 ;;^UTILITY(U,$J,112,1776,1)
+94 ;;=.4^.03^12.77^52^86.5^^^11^.3^9^8^136^1^.11^.09^.99^^10^12^.07
+95 ;;^UTILITY(U,$J,112,1776,2)
+96 ;;=.02^.2^.125^.074^10.6^0^.006^.004^0^.002^.003^.01^1^.3^^^.1
+97 ;;^UTILITY(U,$J,112,1776,4)
+98 ;;=^^^.001^^.001^.003
+99 ;;^UTILITY(U,$J,112,1776,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1777,0)
+102 ;;=PLANTAIN, RAW^9-277^fruits^17^65^N
+103 ;;^UTILITY(U,$J,112,1777,1)
+104 ;;=1.3^.37^31.89^122^65.28^^^3^.6^37^34^499^4^.14^.081^^^1127^18.4^.052
