FHINI060 ; ; 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,2068,2)
;;=.035^.714^.114^.017^5.4^0^.055^.002^0^.02^.021^.058^55^1.16
;;^UTILITY(U,$J,112,2068,3)
;;=.007^.023^.022^.034^.034^.008^.012^.024^.016^.024^.022^.014^.026^.128^.341^.023^.017^.025
;;^UTILITY(U,$J,112,2068,4)
;;=^^0^.014^0^.005^.021
;;^UTILITY(U,$J,112,2068,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2069,0)
;;=TOMATO SAUCE, CND^11-549^cups^246^100^N
;;^UTILITY(U,$J,112,2069,1)
;;=1.33^.17^7.18^30^89.07^^^14^.77^19^32^371^605^.25^.196^.219^^979^13.1^.066
;;^UTILITY(U,$J,112,2069,2)
;;=.058^1.149^.309^.155^9.4^0^.064^.003^0^.024^.025^.067^98^2.25^^^1.4
;;^UTILITY(U,$J,112,2069,3)
;;=.009^.03^.026^.037^.038^.007^.008^.028^.018^.027^.027^.021^.042^.166^.53^.022^.029^.032
;;^UTILITY(U,$J,112,2069,4)
;;=^^0^.017^.001^.006^.024^^7^.6
;;^UTILITY(U,$J,112,2069,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2070,0)
;;=TOMATO SAUCE, WITH MUSHROOMS, CND^11-551^cups^246^100^N
;;^UTILITY(U,$J,112,2070,1)
;;=1.45^.13^8.43^35^87.97^^^13^.89^19^32^380^452^.21^.199^.188^^955^12.4^.072
;;^UTILITY(U,$J,112,2070,2)
;;=.108^1.265^.367^.133^9.4^0^.048^.001^0^.017^.01^.05^95^2.02
;;^UTILITY(U,$J,112,2070,3)
;;=.017^.043^.037^.055^.074^.014^.007^.039^.023^.041^.042^.028^.065^.169^.486^.036^.053^.044
;;^UTILITY(U,$J,112,2070,4)
;;=0^.001^0^.01^.002^.004^.01
;;^UTILITY(U,$J,112,2070,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2071,0)
;;=TOMATO SAUCE, WITH ONIONS, CND^11-553^cups^246^100^N
;;^UTILITY(U,$J,112,2071,1)
;;=1.56^.19^9.94^42^86.09^^^17^.93^19^39^413^551^.23^.181^.301^^850^12.7^.073
;;^UTILITY(U,$J,112,2071,2)
;;=.133^1.242^.368^.267^22.4^0^.074^.004^0^.03^.028^.077^85^2.21
;;^UTILITY(U,$J,112,2071,3)
;;=.016^.037^.042^.049^.059^.01^.018^.036^.029^.034^.114^.025^.046^.145^.454^.044^.041^.041
;;^UTILITY(U,$J,112,2071,4)
;;=^^.001^.024^0^.005^.028
;;^UTILITY(U,$J,112,2071,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2072,0)
;;=TOMATO SAUCE, WITH HERBS AND CHEESE, CND^11-555^cups^244^100^N
;;^UTILITY(U,$J,112,2072,1)
;;=2.13^1.93^10.24^59^83.43^^^37^.87^19^54^356^543^.36^.174^.188^^987^10^.076
;;^UTILITY(U,$J,112,2072,2)
;;=.124^1.209^.275^.019^8.1^^.814^.008^^.627^.38^.825^99^2.27
;;^UTILITY(U,$J,112,2072,3)
;;=.021^.059^.07^.113^.111^.028^.016^.07^.06^.082^.089^.05^.063^.201^.639^.043^.113^.076
;;^UTILITY(U,$J,112,2072,4)
;;=.006^.006^.048^.456^.023^.08^.351
;;^UTILITY(U,$J,112,2072,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2073,0)
;;=TOMATO SAUCE, WITH ONIONS, GREEN PEPPERS, AND CELERY, CND^11-557^cups^244^100^N
;;^UTILITY(U,$J,112,2073,1)
;;=.94^.74^8.76^41^88.28^^^13^.76^21^38^398^546^.28^.198^.244^^810^13.2^.067
;;^UTILITY(U,$J,112,2073,2)
;;=.12^1.095^.221^.194^14.1^0^.321^.016^0^.133^.102^.337^81^1.27^^^3.4
;;^UTILITY(U,$J,112,2073,3)
;;=.008^.022^.021^.028^.03^.005^.007^.021^.014^.02^.037^.015^.029^.108^.336^.02^.022^.024
;;^UTILITY(U,$J,112,2073,4)
;;=^0^.003^.108^.003^.02^.099
;;^UTILITY(U,$J,112,2073,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2074,0)
;;=TOMATO SAUCE, WITH TOMATO TIDBITS, CND^11-559^cups^244^100^N
;;^UTILITY(U,$J,112,2074,1)
;;=1.32^.39^7.09^32^89.09^^^10^.68^20^42^373^15^.19^.014^.22^^801^21.5^.073
;;^UTILITY(U,$J,112,2074,2)
;;=.097^1.183^.219^.155^9.4^0^.15^.006^0^.055^.058^.157^80^2.11
;;^UTILITY(U,$J,112,2074,3)
;;=.009^.03^.026^.037^.038^.007^.008^.028^.018^.027^.027^.021^.042^.166^.53^.022^.029^.032
;;^UTILITY(U,$J,112,2074,4)
;;=^^0^.039^.001^.014^.057
;;^UTILITY(U,$J,112,2074,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2075,0)
;;=TURNIPS, FRZ, CKD, WO/SALT^11-567^cups^156^100^N
;;^UTILITY(U,$J,112,2075,1)
;;=1.53^.24^4.35^23^93.6^^^32^.98^14^26^182^36^.2^.063^.1^^25^3.9^.035
;;^UTILITY(U,$J,112,2075,2)
;;=.028^.56^.141^.067^8^0^.028^.094^0^.025^.015^.125^2^.28
;;^UTILITY(U,$J,112,2075,3)
;;=.015^.042^.062^.057^.061^.019^.009^.03^.023^.051^.041^.024^.059^.108^.221^.042^.045^.049
;;^UTILITY(U,$J,112,2075,4)
;;=^^^.023^.001^.002^.013
;;^UTILITY(U,$J,112,2075,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2076,0)
;;=TURNIP GREENS AND TURNIPS, FRZ, CKD, WO/SALT^11-577^cups^190^100^N
;;^UTILITY(U,$J,112,2076,1)
;;=2.08^.16^2.88^17^94.19^^^91^1.33^12^17^62^15^.13^.041^.177^^5161^9.4^.03
;;^UTILITY(U,$J,112,2076,2)
;;=.07^.295^.096^.058^21.5^0^.019^.054^0^.027^.01^.074^516^.7^^^3.1
;;^UTILITY(U,$J,112,2076,3)
;;=.031^.097^.101^.156^.12^.041^.02^.102^.066^.12^.108^.045^.124^.198^.288^.105^.087^.079
FHINI060 ; ; 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,2068,2)
+2 ;;=.035^.714^.114^.017^5.4^0^.055^.002^0^.02^.021^.058^55^1.16
+3 ;;^UTILITY(U,$J,112,2068,3)
+4 ;;=.007^.023^.022^.034^.034^.008^.012^.024^.016^.024^.022^.014^.026^.128^.341^.023^.017^.025
+5 ;;^UTILITY(U,$J,112,2068,4)
+6 ;;=^^0^.014^0^.005^.021
+7 ;;^UTILITY(U,$J,112,2068,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2069,0)
+10 ;;=TOMATO SAUCE, CND^11-549^cups^246^100^N
+11 ;;^UTILITY(U,$J,112,2069,1)
+12 ;;=1.33^.17^7.18^30^89.07^^^14^.77^19^32^371^605^.25^.196^.219^^979^13.1^.066
+13 ;;^UTILITY(U,$J,112,2069,2)
+14 ;;=.058^1.149^.309^.155^9.4^0^.064^.003^0^.024^.025^.067^98^2.25^^^1.4
+15 ;;^UTILITY(U,$J,112,2069,3)
+16 ;;=.009^.03^.026^.037^.038^.007^.008^.028^.018^.027^.027^.021^.042^.166^.53^.022^.029^.032
+17 ;;^UTILITY(U,$J,112,2069,4)
+18 ;;=^^0^.017^.001^.006^.024^^7^.6
+19 ;;^UTILITY(U,$J,112,2069,20)
+20 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+21 ;;^UTILITY(U,$J,112,2070,0)
+22 ;;=TOMATO SAUCE, WITH MUSHROOMS, CND^11-551^cups^246^100^N
+23 ;;^UTILITY(U,$J,112,2070,1)
+24 ;;=1.45^.13^8.43^35^87.97^^^13^.89^19^32^380^452^.21^.199^.188^^955^12.4^.072
+25 ;;^UTILITY(U,$J,112,2070,2)
+26 ;;=.108^1.265^.367^.133^9.4^0^.048^.001^0^.017^.01^.05^95^2.02
+27 ;;^UTILITY(U,$J,112,2070,3)
+28 ;;=.017^.043^.037^.055^.074^.014^.007^.039^.023^.041^.042^.028^.065^.169^.486^.036^.053^.044
+29 ;;^UTILITY(U,$J,112,2070,4)
+30 ;;=0^.001^0^.01^.002^.004^.01
+31 ;;^UTILITY(U,$J,112,2070,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2071,0)
+34 ;;=TOMATO SAUCE, WITH ONIONS, CND^11-553^cups^246^100^N
+35 ;;^UTILITY(U,$J,112,2071,1)
+36 ;;=1.56^.19^9.94^42^86.09^^^17^.93^19^39^413^551^.23^.181^.301^^850^12.7^.073
+37 ;;^UTILITY(U,$J,112,2071,2)
+38 ;;=.133^1.242^.368^.267^22.4^0^.074^.004^0^.03^.028^.077^85^2.21
+39 ;;^UTILITY(U,$J,112,2071,3)
+40 ;;=.016^.037^.042^.049^.059^.01^.018^.036^.029^.034^.114^.025^.046^.145^.454^.044^.041^.041
+41 ;;^UTILITY(U,$J,112,2071,4)
+42 ;;=^^.001^.024^0^.005^.028
+43 ;;^UTILITY(U,$J,112,2071,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2072,0)
+46 ;;=TOMATO SAUCE, WITH HERBS AND CHEESE, CND^11-555^cups^244^100^N
+47 ;;^UTILITY(U,$J,112,2072,1)
+48 ;;=2.13^1.93^10.24^59^83.43^^^37^.87^19^54^356^543^.36^.174^.188^^987^10^.076
+49 ;;^UTILITY(U,$J,112,2072,2)
+50 ;;=.124^1.209^.275^.019^8.1^^.814^.008^^.627^.38^.825^99^2.27
+51 ;;^UTILITY(U,$J,112,2072,3)
+52 ;;=.021^.059^.07^.113^.111^.028^.016^.07^.06^.082^.089^.05^.063^.201^.639^.043^.113^.076
+53 ;;^UTILITY(U,$J,112,2072,4)
+54 ;;=.006^.006^.048^.456^.023^.08^.351
+55 ;;^UTILITY(U,$J,112,2072,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2073,0)
+58 ;;=TOMATO SAUCE, WITH ONIONS, GREEN PEPPERS, AND CELERY, CND^11-557^cups^244^100^N
+59 ;;^UTILITY(U,$J,112,2073,1)
+60 ;;=.94^.74^8.76^41^88.28^^^13^.76^21^38^398^546^.28^.198^.244^^810^13.2^.067
+61 ;;^UTILITY(U,$J,112,2073,2)
+62 ;;=.12^1.095^.221^.194^14.1^0^.321^.016^0^.133^.102^.337^81^1.27^^^3.4
+63 ;;^UTILITY(U,$J,112,2073,3)
+64 ;;=.008^.022^.021^.028^.03^.005^.007^.021^.014^.02^.037^.015^.029^.108^.336^.02^.022^.024
+65 ;;^UTILITY(U,$J,112,2073,4)
+66 ;;=^0^.003^.108^.003^.02^.099
+67 ;;^UTILITY(U,$J,112,2073,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2074,0)
+70 ;;=TOMATO SAUCE, WITH TOMATO TIDBITS, CND^11-559^cups^244^100^N
+71 ;;^UTILITY(U,$J,112,2074,1)
+72 ;;=1.32^.39^7.09^32^89.09^^^10^.68^20^42^373^15^.19^.014^.22^^801^21.5^.073
+73 ;;^UTILITY(U,$J,112,2074,2)
+74 ;;=.097^1.183^.219^.155^9.4^0^.15^.006^0^.055^.058^.157^80^2.11
+75 ;;^UTILITY(U,$J,112,2074,3)
+76 ;;=.009^.03^.026^.037^.038^.007^.008^.028^.018^.027^.027^.021^.042^.166^.53^.022^.029^.032
+77 ;;^UTILITY(U,$J,112,2074,4)
+78 ;;=^^0^.039^.001^.014^.057
+79 ;;^UTILITY(U,$J,112,2074,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,2075,0)
+82 ;;=TURNIPS, FRZ, CKD, WO/SALT^11-567^cups^156^100^N
+83 ;;^UTILITY(U,$J,112,2075,1)
+84 ;;=1.53^.24^4.35^23^93.6^^^32^.98^14^26^182^36^.2^.063^.1^^25^3.9^.035
+85 ;;^UTILITY(U,$J,112,2075,2)
+86 ;;=.028^.56^.141^.067^8^0^.028^.094^0^.025^.015^.125^2^.28
+87 ;;^UTILITY(U,$J,112,2075,3)
+88 ;;=.015^.042^.062^.057^.061^.019^.009^.03^.023^.051^.041^.024^.059^.108^.221^.042^.045^.049
+89 ;;^UTILITY(U,$J,112,2075,4)
+90 ;;=^^^.023^.001^.002^.013
+91 ;;^UTILITY(U,$J,112,2075,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,2076,0)
+94 ;;=TURNIP GREENS AND TURNIPS, FRZ, CKD, WO/SALT^11-577^cups^190^100^N
+95 ;;^UTILITY(U,$J,112,2076,1)
+96 ;;=2.08^.16^2.88^17^94.19^^^91^1.33^12^17^62^15^.13^.041^.177^^5161^9.4^.03
+97 ;;^UTILITY(U,$J,112,2076,2)
+98 ;;=.07^.295^.096^.058^21.5^0^.019^.054^0^.027^.01^.074^516^.7^^^3.1
+99 ;;^UTILITY(U,$J,112,2076,3)
+100 ;;=.031^.097^.101^.156^.12^.041^.02^.102^.066^.12^.108^.045^.124^.198^.288^.105^.087^.079
