FHINI05W ; ; 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,2033,2)
;;=.108^.632^.258^.194^33.5^0^.099^.177^0^.058^.035^.276^0^1.33
;;^UTILITY(U,$J,112,2033,4)
;;=^^^.051^^.006^.035
;;^UTILITY(U,$J,112,2033,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2034,0)
;;=CABBAGE, RED, CKD, WO/SALT^11-113^cups^75^100^N
;;^UTILITY(U,$J,112,2034,1)
;;=1.05^.2^4.64^21^93.6^^^37^.35^11^29^140^8^.15^.069^.129^^27^34.4^.034
;;^UTILITY(U,$J,112,2034,2)
;;=.02^.2^.22^.14^12.6^0^.039^.051^0^.026^.015^.095^3^.52^^^3.4
;;^UTILITY(U,$J,112,2034,3)
;;=.011^.036^.053^.054^.05^.011^.009^.034^.018^.045^.06^.021^.037^.103^.234^.023^.206^.061
;;^UTILITY(U,$J,112,2034,4)
;;=0^.001^.001^.021^0^.001^.014^0
;;^UTILITY(U,$J,112,2034,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2035,0)
;;=CABBAGE, SAVOY, CKD, WO/SALT^11-115^cups^147^100^N
;;^UTILITY(U,$J,112,2035,1)
;;=1.8^.09^5.41^24^92^^^30^.38^24^33^184^24^.23^.052^.152^^889^17^.051
;;^UTILITY(U,$J,112,2035,2)
;;=.02^.024^.159^.152^46.3^0^.018^.023^0^.012^.007^.043^89^.7^^^3.3
;;^UTILITY(U,$J,112,2035,3)
;;=.018^.062^.091^.093^.085^.018^.015^.058^.031^.077^.102^.037^.063^.177^.4^.04^.353^.105
;;^UTILITY(U,$J,112,2035,4)
;;=0^0^0^.01^0^0^.006^0
;;^UTILITY(U,$J,112,2035,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2036,0)
;;=CABBAGE, CHINESE (PAK-CHOI), CKD, WO/SALT^11-117^cups^170^100^N
;;^UTILITY(U,$J,112,2036,1)
;;=1.56^.16^1.78^12^95.55^^^93^1.04^11^29^371^34^.17^.019^.144^^2568^26^.032
;;^UTILITY(U,$J,112,2036,2)
;;=.063^.428^.079^.166^40.6^0^.031^.041^0^.021^.012^.077^257^.95^^^1.6
;;^UTILITY(U,$J,112,2036,3)
;;=.015^.051^.089^.091^.093^.009^.017^.046^.03^.069^.087^.027^.09^.112^.374^.045^.032^.05
;;^UTILITY(U,$J,112,2036,4)
;;=0^.001^.001^.017^0^.001^.011^0
;;^UTILITY(U,$J,112,2036,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2037,0)
;;=CABBAGE, CHINESE (PE-TSAI), CKD, WO/SALT^11-120^cups^119^100^N
;;^UTILITY(U,$J,112,2037,1)
;;=1.5^.17^2.41^14^95.24^^^32^.3^10^39^225^9^.18^.029^.153^^967^15.8^.044
;;^UTILITY(U,$J,112,2037,2)
;;=.044^.5^.08^.177^53.4^0^.013^.048^0^.036^.02^.061^97^.68
;;^UTILITY(U,$J,112,2037,3)
;;=.015^.049^.085^.088^.089^.009^.017^.044^.029^.066^.084^.026^.086^.108^.36^.043^.031^.048
;;^UTILITY(U,$J,112,2037,4)
;;=^^^.032^.002^.004^.018
;;^UTILITY(U,$J,112,2037,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2038,0)
;;=CARROTS, FRZ, CKD, WO/SALT^11-131^cups^146^100^N
;;^UTILITY(U,$J,112,2038,1)
;;=1.19^.11^8.25^36^89.88^^^28^.47^10^26^158^59^.24^.073^.405^^17702^2.8^.027
;;^UTILITY(U,$J,112,2038,2)
;;=.037^.438^.161^.129^10.8^0^.046^.007^0^.021^.005^.053^1770^.58^^^3.5
;;^UTILITY(U,$J,112,2038,3)
;;=.013^.043^.047^.049^.046^.008^.01^.037^.023^.05^.049^.018^.068^.157^.232^.034^.033^.04
;;^UTILITY(U,$J,112,2038,4)
;;=^.001^.001^.016^.001^.001^.004
;;^UTILITY(U,$J,112,2038,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2039,0)
;;=CHAYOTE, CKD, WO/SALT^11-150^cups^160^100^N
;;^UTILITY(U,$J,112,2039,1)
;;=.62^.48^5.09^24^93.43^^^13^.22^12^29^173^1^.31^.11^.169^^47^8^.026
;;^UTILITY(U,$J,112,2039,2)
;;=.04^.42^.408^.118^18.1^0^^^0^^^^5^.38
;;^UTILITY(U,$J,112,2039,3)
;;=.008^.031^.033^.058^.03^.001^^.036^.024^.047^.026^.011^.038^.069^.094^.031^.033^.035
;;^UTILITY(U,$J,112,2039,4)
;;=^^^^^^^^270
;;^UTILITY(U,$J,112,2039,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2040,0)
;;=CORN WITH RED AND GREEN PEPPERS, CND^11-184^cups^227^100^N
;;^UTILITY(U,$J,112,2040,1)
;;=2.33^.55^18.17^75^77.5^^^5^.79^25^62^153^347^.37^.06^.043^^232^8.8^.022
;;^UTILITY(U,$J,112,2040,2)
;;=.08^.95^.447^.097^33.9^0^.253^.008^0^.085^.157^.261^23^1.45
;;^UTILITY(U,$J,112,2040,3)
;;=.017^.093^.093^.246^.099^.048^.02^.107^.087^.132^.095^.063^.208^.183^.453^.091^.206^.11
;;^UTILITY(U,$J,112,2040,4)
;;=^0^0^.079^0^.006^.157
;;^UTILITY(U,$J,112,2040,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2041,0)
;;=CRESS, GARDEN, CKD, WO/SALT^11-204^cups^135^100^N
;;^UTILITY(U,$J,112,2041,1)
;;=1.9^.6^3.8^23^92.5^^^61^.8^26^48^353^8^.15^.114^.372^^7700^23^.06
;;^UTILITY(U,$J,112,2041,2)
;;=.16^.8^.163^.157^37^0^.13^.065^0^.02^.205^.196^770^1.2^^^.7
;;^UTILITY(U,$J,112,2041,4)
;;=^^^.014^^.006^.075
;;^UTILITY(U,$J,112,2041,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2042,0)
;;=LEEKS, CKD, WO/SALT^11-247^cups^104^100^N
;;^UTILITY(U,$J,112,2042,1)
;;=.81^.2^7.62^31^90.8^^^30^1.1^14^17^87^10^.06^.062^.247^^46^4.2^.026
FHINI05W ; ; 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,2033,2)
+2 ;;=.108^.632^.258^.194^33.5^0^.099^.177^0^.058^.035^.276^0^1.33
+3 ;;^UTILITY(U,$J,112,2033,4)
+4 ;;=^^^.051^^.006^.035
+5 ;;^UTILITY(U,$J,112,2033,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2034,0)
+8 ;;=CABBAGE, RED, CKD, WO/SALT^11-113^cups^75^100^N
+9 ;;^UTILITY(U,$J,112,2034,1)
+10 ;;=1.05^.2^4.64^21^93.6^^^37^.35^11^29^140^8^.15^.069^.129^^27^34.4^.034
+11 ;;^UTILITY(U,$J,112,2034,2)
+12 ;;=.02^.2^.22^.14^12.6^0^.039^.051^0^.026^.015^.095^3^.52^^^3.4
+13 ;;^UTILITY(U,$J,112,2034,3)
+14 ;;=.011^.036^.053^.054^.05^.011^.009^.034^.018^.045^.06^.021^.037^.103^.234^.023^.206^.061
+15 ;;^UTILITY(U,$J,112,2034,4)
+16 ;;=0^.001^.001^.021^0^.001^.014^0
+17 ;;^UTILITY(U,$J,112,2034,20)
+18 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+19 ;;^UTILITY(U,$J,112,2035,0)
+20 ;;=CABBAGE, SAVOY, CKD, WO/SALT^11-115^cups^147^100^N
+21 ;;^UTILITY(U,$J,112,2035,1)
+22 ;;=1.8^.09^5.41^24^92^^^30^.38^24^33^184^24^.23^.052^.152^^889^17^.051
+23 ;;^UTILITY(U,$J,112,2035,2)
+24 ;;=.02^.024^.159^.152^46.3^0^.018^.023^0^.012^.007^.043^89^.7^^^3.3
+25 ;;^UTILITY(U,$J,112,2035,3)
+26 ;;=.018^.062^.091^.093^.085^.018^.015^.058^.031^.077^.102^.037^.063^.177^.4^.04^.353^.105
+27 ;;^UTILITY(U,$J,112,2035,4)
+28 ;;=0^0^0^.01^0^0^.006^0
+29 ;;^UTILITY(U,$J,112,2035,20)
+30 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+31 ;;^UTILITY(U,$J,112,2036,0)
+32 ;;=CABBAGE, CHINESE (PAK-CHOI), CKD, WO/SALT^11-117^cups^170^100^N
+33 ;;^UTILITY(U,$J,112,2036,1)
+34 ;;=1.56^.16^1.78^12^95.55^^^93^1.04^11^29^371^34^.17^.019^.144^^2568^26^.032
+35 ;;^UTILITY(U,$J,112,2036,2)
+36 ;;=.063^.428^.079^.166^40.6^0^.031^.041^0^.021^.012^.077^257^.95^^^1.6
+37 ;;^UTILITY(U,$J,112,2036,3)
+38 ;;=.015^.051^.089^.091^.093^.009^.017^.046^.03^.069^.087^.027^.09^.112^.374^.045^.032^.05
+39 ;;^UTILITY(U,$J,112,2036,4)
+40 ;;=0^.001^.001^.017^0^.001^.011^0
+41 ;;^UTILITY(U,$J,112,2036,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2037,0)
+44 ;;=CABBAGE, CHINESE (PE-TSAI), CKD, WO/SALT^11-120^cups^119^100^N
+45 ;;^UTILITY(U,$J,112,2037,1)
+46 ;;=1.5^.17^2.41^14^95.24^^^32^.3^10^39^225^9^.18^.029^.153^^967^15.8^.044
+47 ;;^UTILITY(U,$J,112,2037,2)
+48 ;;=.044^.5^.08^.177^53.4^0^.013^.048^0^.036^.02^.061^97^.68
+49 ;;^UTILITY(U,$J,112,2037,3)
+50 ;;=.015^.049^.085^.088^.089^.009^.017^.044^.029^.066^.084^.026^.086^.108^.36^.043^.031^.048
+51 ;;^UTILITY(U,$J,112,2037,4)
+52 ;;=^^^.032^.002^.004^.018
+53 ;;^UTILITY(U,$J,112,2037,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2038,0)
+56 ;;=CARROTS, FRZ, CKD, WO/SALT^11-131^cups^146^100^N
+57 ;;^UTILITY(U,$J,112,2038,1)
+58 ;;=1.19^.11^8.25^36^89.88^^^28^.47^10^26^158^59^.24^.073^.405^^17702^2.8^.027
+59 ;;^UTILITY(U,$J,112,2038,2)
+60 ;;=.037^.438^.161^.129^10.8^0^.046^.007^0^.021^.005^.053^1770^.58^^^3.5
+61 ;;^UTILITY(U,$J,112,2038,3)
+62 ;;=.013^.043^.047^.049^.046^.008^.01^.037^.023^.05^.049^.018^.068^.157^.232^.034^.033^.04
+63 ;;^UTILITY(U,$J,112,2038,4)
+64 ;;=^.001^.001^.016^.001^.001^.004
+65 ;;^UTILITY(U,$J,112,2038,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2039,0)
+68 ;;=CHAYOTE, CKD, WO/SALT^11-150^cups^160^100^N
+69 ;;^UTILITY(U,$J,112,2039,1)
+70 ;;=.62^.48^5.09^24^93.43^^^13^.22^12^29^173^1^.31^.11^.169^^47^8^.026
+71 ;;^UTILITY(U,$J,112,2039,2)
+72 ;;=.04^.42^.408^.118^18.1^0^^^0^^^^5^.38
+73 ;;^UTILITY(U,$J,112,2039,3)
+74 ;;=.008^.031^.033^.058^.03^.001^^.036^.024^.047^.026^.011^.038^.069^.094^.031^.033^.035
+75 ;;^UTILITY(U,$J,112,2039,4)
+76 ;;=^^^^^^^^270
+77 ;;^UTILITY(U,$J,112,2039,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2040,0)
+80 ;;=CORN WITH RED AND GREEN PEPPERS, CND^11-184^cups^227^100^N
+81 ;;^UTILITY(U,$J,112,2040,1)
+82 ;;=2.33^.55^18.17^75^77.5^^^5^.79^25^62^153^347^.37^.06^.043^^232^8.8^.022
+83 ;;^UTILITY(U,$J,112,2040,2)
+84 ;;=.08^.95^.447^.097^33.9^0^.253^.008^0^.085^.157^.261^23^1.45
+85 ;;^UTILITY(U,$J,112,2040,3)
+86 ;;=.017^.093^.093^.246^.099^.048^.02^.107^.087^.132^.095^.063^.208^.183^.453^.091^.206^.11
+87 ;;^UTILITY(U,$J,112,2040,4)
+88 ;;=^0^0^.079^0^.006^.157
+89 ;;^UTILITY(U,$J,112,2040,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2041,0)
+92 ;;=CRESS, GARDEN, CKD, WO/SALT^11-204^cups^135^100^N
+93 ;;^UTILITY(U,$J,112,2041,1)
+94 ;;=1.9^.6^3.8^23^92.5^^^61^.8^26^48^353^8^.15^.114^.372^^7700^23^.06
+95 ;;^UTILITY(U,$J,112,2041,2)
+96 ;;=.16^.8^.163^.157^37^0^.13^.065^0^.02^.205^.196^770^1.2^^^.7
+97 ;;^UTILITY(U,$J,112,2041,4)
+98 ;;=^^^.014^^.006^.075
+99 ;;^UTILITY(U,$J,112,2041,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,2042,0)
+102 ;;=LEEKS, CKD, WO/SALT^11-247^cups^104^100^N
+103 ;;^UTILITY(U,$J,112,2042,1)
+104 ;;=.81^.2^7.62^31^90.8^^^30^1.1^14^17^87^10^.06^.062^.247^^46^4.2^.026
