FHINI059 ; ; 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,1777,2)
;;=.054^.686^.26^.299^22^0^^^0^^^^113^1.17^^^2.3
;;^UTILITY(U,$J,112,1777,3)
;;=.015^.034^.036^.059^.06^.017^.02^.044^.032^.046^.108^.064^.051^.108^.116^.045^.05^.041
;;^UTILITY(U,$J,112,1777,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1778,0)
;;=PLANTAIN, CKD^9-278^cups^154^100^N
;;^UTILITY(U,$J,112,1778,1)
;;=.79^.18^31.15^116^67.3^^^2^.58^32^28^465^5^.13^.066^^^909^10.9^.046
;;^UTILITY(U,$J,112,1778,2)
;;=.052^.756^.233^.24^26^0^^^0^^^^91^.58^^^1.3
;;^UTILITY(U,$J,112,1778,3)
;;=.009^.021^.022^.036^.037^.01^.012^.027^.02^.028^.066^.039^.031^.065^.07^.027^.03^.025
;;^UTILITY(U,$J,112,1778,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1779,0)
;;=PLUMS, RAW^9-279^fruits^66^94^N
;;^UTILITY(U,$J,112,1779,1)
;;=.79^.62^13.01^55^85.2^^^4^.1^7^10^172^0^.1^.043^.049^^323^9.5^.043
;;^UTILITY(U,$J,112,1779,2)
;;=.096^.5^.182^.081^2.2^0^.134^^0^.049^.406^.134^32^.39^^^1.8
;;^UTILITY(U,$J,112,1779,3)
;;=^.016^.016^.021^.017^.006^.004^.017^.006^.019^.013^.013^.029^.249^.037^.012^.034^.02
;;^UTILITY(U,$J,112,1779,4)
;;=^^^.041^.005^.009^.4^^12
;;^UTILITY(U,$J,112,1779,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1780,0)
;;=PLUMS, CND, PURPLE, WATER PACK^9-281^plums^32^95^N
;;^UTILITY(U,$J,112,1780,1)
;;=.39^.01^11.03^41^88.35^^^7^.16^5^13^126^1^.08^.039^.033^^914^2.7^.021
;;^UTILITY(U,$J,112,1780,2)
;;=.041^.37^.072^.027^2.6^0^.002^^0^.001^.005^.002^91^.23^^^2.2
;;^UTILITY(U,$J,112,1780,3)
;;=^.008^.008^.01^.008^.003^.002^.008^.003^.009^.006^.006^.014^.122^.018^.006^.017^.01
;;^UTILITY(U,$J,112,1780,4)
;;=^^^.001^^^.005
;;^UTILITY(U,$J,112,1780,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1781,0)
;;=PLUMS, CND, PURPLE, JUICE PACK^9-282^plums^32^95^N
;;^UTILITY(U,$J,112,1781,1)
;;=.51^.02^15.15^58^84.02^^^10^.34^8^15^154^1^.11^.054^.033^^1009^2.8^.023
;;^UTILITY(U,$J,112,1781,2)
;;=.059^.473^.072^.027^2.6^0^.005^^0^.002^.014^.005^101^.3^^^1
;;^UTILITY(U,$J,112,1781,3)
;;=^.011^.01^.014^.011^.004^.003^.011^.004^.012^.009^.008^.019^.162^.024^.008^.022^.013
;;^UTILITY(U,$J,112,1781,4)
;;=^^^.001^^^.014
;;^UTILITY(U,$J,112,1781,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1782,0)
;;=PLUMS, CND, PURPLE, LIGHT SIRUP ^9-283^plums^44^95^N
;;^UTILITY(U,$J,112,1782,1)
;;=.37^.1^16.28^63^83^^^9^.86^5^13^93^20^.08^.038^.032^^264^.4^.016
;;^UTILITY(U,$J,112,1782,2)
;;=.039^.297^.072^.027^2.6^0^.023^^0^.008^.069^.023^26^.25^^^1
;;^UTILITY(U,$J,112,1782,3)
;;=^.008^.007^.01^.008^.003^.002^.008^.003^.009^.006^.006^.014^.116^.017^.006^.016^.009
;;^UTILITY(U,$J,112,1782,4)
;;=^^^.007^.001^.001^.068
;;^UTILITY(U,$J,112,1782,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1783,0)
;;=PLUMS, CND, PURPLE, HEAVY SIRUP ^9-284^plums^44^95^N
;;^UTILITY(U,$J,112,1783,1)
;;=.36^.1^23.24^89^76.06^^^9^.84^5^13^91^19^.07^.037^.031^^259^.4^.016
;;^UTILITY(U,$J,112,1783,2)
;;=.038^.291^.072^.027^2.5^0^.022^^0^.008^.066^.022^26^.24^^^1
;;^UTILITY(U,$J,112,1783,3)
;;=^.008^.007^.01^.008^.003^.002^.008^.003^.009^.006^.006^.013^.114^.017^.006^.016^.009
;;^UTILITY(U,$J,112,1783,4)
;;=^^^.007^.001^.001^.065
;;^UTILITY(U,$J,112,1783,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1784,0)
;;=POMEGRANATE, RAW^9-286^fruits^154^56^N
;;^UTILITY(U,$J,112,1784,1)
;;=.95^.3^17.17^68^80.97^^^3^.3^3^8^259^3^^.07^^^0^6.1^.03
;;^UTILITY(U,$J,112,1784,2)
;;=.03^.3^.596^.105^^0^^^0^^^^0^.61^^^3.7
;;^UTILITY(U,$J,112,1784,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1785,0)
;;=PRICKLYPEARS, RAW^9-287^fruits^103^75^N
;;^UTILITY(U,$J,112,1785,1)
;;=.73^.51^9.57^41^87.55^^^56^.3^85^24^220^5^^^^^51^14^.014
;;^UTILITY(U,$J,112,1785,2)
;;=.06^.46^^^^0^^^0^^^^5^1.64^^^3.6
;;^UTILITY(U,$J,112,1785,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1786,0)
;;=PRUNES, CND, HEAVY SIRUP PACK, SOL&LIQ^9-288^prunes^17^88^N
;;^UTILITY(U,$J,112,1786,1)
;;=.87^.2^27.8^105^70.67^^^17^.41^15^26^226^3^.19^.118^.098^^797^2.8^.034
;;^UTILITY(U,$J,112,1786,2)
;;=.122^.866^.1^.203^.1^0^.043^^0^.016^.13^.043^80^.46^^^3.8
;;^UTILITY(U,$J,112,1786,4)
;;=^^^.013^.002^.003^.128
;;^UTILITY(U,$J,112,1786,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1787,0)
;;=PRUNES, DRIED, UNCKD^9-291^prunes^8.4^87^N
;;^UTILITY(U,$J,112,1787,1)
;;=2.61^.52^62.73^239^32.39^^^51^2.48^45^79^745^4^.53^.43^.22^^1987^3.3^.081
FHINI059 ; ; 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,1777,2)
+2 ;;=.054^.686^.26^.299^22^0^^^0^^^^113^1.17^^^2.3
+3 ;;^UTILITY(U,$J,112,1777,3)
+4 ;;=.015^.034^.036^.059^.06^.017^.02^.044^.032^.046^.108^.064^.051^.108^.116^.045^.05^.041
+5 ;;^UTILITY(U,$J,112,1777,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1778,0)
+8 ;;=PLANTAIN, CKD^9-278^cups^154^100^N
+9 ;;^UTILITY(U,$J,112,1778,1)
+10 ;;=.79^.18^31.15^116^67.3^^^2^.58^32^28^465^5^.13^.066^^^909^10.9^.046
+11 ;;^UTILITY(U,$J,112,1778,2)
+12 ;;=.052^.756^.233^.24^26^0^^^0^^^^91^.58^^^1.3
+13 ;;^UTILITY(U,$J,112,1778,3)
+14 ;;=.009^.021^.022^.036^.037^.01^.012^.027^.02^.028^.066^.039^.031^.065^.07^.027^.03^.025
+15 ;;^UTILITY(U,$J,112,1778,20)
+16 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+17 ;;^UTILITY(U,$J,112,1779,0)
+18 ;;=PLUMS, RAW^9-279^fruits^66^94^N
+19 ;;^UTILITY(U,$J,112,1779,1)
+20 ;;=.79^.62^13.01^55^85.2^^^4^.1^7^10^172^0^.1^.043^.049^^323^9.5^.043
+21 ;;^UTILITY(U,$J,112,1779,2)
+22 ;;=.096^.5^.182^.081^2.2^0^.134^^0^.049^.406^.134^32^.39^^^1.8
+23 ;;^UTILITY(U,$J,112,1779,3)
+24 ;;=^.016^.016^.021^.017^.006^.004^.017^.006^.019^.013^.013^.029^.249^.037^.012^.034^.02
+25 ;;^UTILITY(U,$J,112,1779,4)
+26 ;;=^^^.041^.005^.009^.4^^12
+27 ;;^UTILITY(U,$J,112,1779,20)
+28 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+29 ;;^UTILITY(U,$J,112,1780,0)
+30 ;;=PLUMS, CND, PURPLE, WATER PACK^9-281^plums^32^95^N
+31 ;;^UTILITY(U,$J,112,1780,1)
+32 ;;=.39^.01^11.03^41^88.35^^^7^.16^5^13^126^1^.08^.039^.033^^914^2.7^.021
+33 ;;^UTILITY(U,$J,112,1780,2)
+34 ;;=.041^.37^.072^.027^2.6^0^.002^^0^.001^.005^.002^91^.23^^^2.2
+35 ;;^UTILITY(U,$J,112,1780,3)
+36 ;;=^.008^.008^.01^.008^.003^.002^.008^.003^.009^.006^.006^.014^.122^.018^.006^.017^.01
+37 ;;^UTILITY(U,$J,112,1780,4)
+38 ;;=^^^.001^^^.005
+39 ;;^UTILITY(U,$J,112,1780,20)
+40 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+41 ;;^UTILITY(U,$J,112,1781,0)
+42 ;;=PLUMS, CND, PURPLE, JUICE PACK^9-282^plums^32^95^N
+43 ;;^UTILITY(U,$J,112,1781,1)
+44 ;;=.51^.02^15.15^58^84.02^^^10^.34^8^15^154^1^.11^.054^.033^^1009^2.8^.023
+45 ;;^UTILITY(U,$J,112,1781,2)
+46 ;;=.059^.473^.072^.027^2.6^0^.005^^0^.002^.014^.005^101^.3^^^1
+47 ;;^UTILITY(U,$J,112,1781,3)
+48 ;;=^.011^.01^.014^.011^.004^.003^.011^.004^.012^.009^.008^.019^.162^.024^.008^.022^.013
+49 ;;^UTILITY(U,$J,112,1781,4)
+50 ;;=^^^.001^^^.014
+51 ;;^UTILITY(U,$J,112,1781,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1782,0)
+54 ;;=PLUMS, CND, PURPLE, LIGHT SIRUP ^9-283^plums^44^95^N
+55 ;;^UTILITY(U,$J,112,1782,1)
+56 ;;=.37^.1^16.28^63^83^^^9^.86^5^13^93^20^.08^.038^.032^^264^.4^.016
+57 ;;^UTILITY(U,$J,112,1782,2)
+58 ;;=.039^.297^.072^.027^2.6^0^.023^^0^.008^.069^.023^26^.25^^^1
+59 ;;^UTILITY(U,$J,112,1782,3)
+60 ;;=^.008^.007^.01^.008^.003^.002^.008^.003^.009^.006^.006^.014^.116^.017^.006^.016^.009
+61 ;;^UTILITY(U,$J,112,1782,4)
+62 ;;=^^^.007^.001^.001^.068
+63 ;;^UTILITY(U,$J,112,1782,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,1783,0)
+66 ;;=PLUMS, CND, PURPLE, HEAVY SIRUP ^9-284^plums^44^95^N
+67 ;;^UTILITY(U,$J,112,1783,1)
+68 ;;=.36^.1^23.24^89^76.06^^^9^.84^5^13^91^19^.07^.037^.031^^259^.4^.016
+69 ;;^UTILITY(U,$J,112,1783,2)
+70 ;;=.038^.291^.072^.027^2.5^0^.022^^0^.008^.066^.022^26^.24^^^1
+71 ;;^UTILITY(U,$J,112,1783,3)
+72 ;;=^.008^.007^.01^.008^.003^.002^.008^.003^.009^.006^.006^.013^.114^.017^.006^.016^.009
+73 ;;^UTILITY(U,$J,112,1783,4)
+74 ;;=^^^.007^.001^.001^.065
+75 ;;^UTILITY(U,$J,112,1783,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1784,0)
+78 ;;=POMEGRANATE, RAW^9-286^fruits^154^56^N
+79 ;;^UTILITY(U,$J,112,1784,1)
+80 ;;=.95^.3^17.17^68^80.97^^^3^.3^3^8^259^3^^.07^^^0^6.1^.03
+81 ;;^UTILITY(U,$J,112,1784,2)
+82 ;;=.03^.3^.596^.105^^0^^^0^^^^0^.61^^^3.7
+83 ;;^UTILITY(U,$J,112,1784,20)
+84 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+85 ;;^UTILITY(U,$J,112,1785,0)
+86 ;;=PRICKLYPEARS, RAW^9-287^fruits^103^75^N
+87 ;;^UTILITY(U,$J,112,1785,1)
+88 ;;=.73^.51^9.57^41^87.55^^^56^.3^85^24^220^5^^^^^51^14^.014
+89 ;;^UTILITY(U,$J,112,1785,2)
+90 ;;=.06^.46^^^^0^^^0^^^^5^1.64^^^3.6
+91 ;;^UTILITY(U,$J,112,1785,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1786,0)
+94 ;;=PRUNES, CND, HEAVY SIRUP PACK, SOL&LIQ^9-288^prunes^17^88^N
+95 ;;^UTILITY(U,$J,112,1786,1)
+96 ;;=.87^.2^27.8^105^70.67^^^17^.41^15^26^226^3^.19^.118^.098^^797^2.8^.034
+97 ;;^UTILITY(U,$J,112,1786,2)
+98 ;;=.122^.866^.1^.203^.1^0^.043^^0^.016^.13^.043^80^.46^^^3.8
+99 ;;^UTILITY(U,$J,112,1786,4)
+100 ;;=^^^.013^.002^.003^.128
+101 ;;^UTILITY(U,$J,112,1786,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1787,0)
+104 ;;=PRUNES, DRIED, UNCKD^9-291^prunes^8.4^87^N
+105 ;;^UTILITY(U,$J,112,1787,1)
+106 ;;=2.61^.52^62.73^239^32.39^^^51^2.48^45^79^745^4^.53^.43^.22^^1987^3.3^.081
