FHINI05N ; ; 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,1939,1)
;;=2^.4^25.4^106^68.6^^^22^.8^^50^363^20^^^^^1400^15^.09
;;^UTILITY(U,$J,112,1939,2)
;;=.07^1.6^^^^^0^^0^0
;;^UTILITY(U,$J,112,1939,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1940,0)
;;=SAUCE, TOMATO CHILI SAUCE, BOTTLED, W/SALT ADDED^2287-1^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1940,1)
;;=2.5^.3^24.8^104^68^^^20^.8^^52^370^1338^^^^^1400^16^.09
;;^UTILITY(U,$J,112,1940,2)
;;=.07^1.6^^^^^0^^0^0^^^^4.4
;;^UTILITY(U,$J,112,1940,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1940,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1941,0)
;;=SAUCE, TOMATO CHILI SAUCE, BOTTLED, WO/SALT, LO NA^2287-2^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1941,1)
;;=2.5^.3^24.8^104^68^^^20^.8^^52^370^20^^^^^1400^16^.09
;;^UTILITY(U,$J,112,1941,2)
;;=.07^1.6^^^^^0^^0^0^^^^4.4
;;^UTILITY(U,$J,112,1941,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1941,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1942,0)
;;=TOMATO JUICE, CND OR BOTTLED, REG PK^11-540^fl oz.^30.4^100^N
;;^UTILITY(U,$J,112,1942,1)
;;=.76^.06^4.23^17^93.9^^^9^.58^11^19^220^361^.14^.101^.077^^556^18.3^.047
;;^UTILITY(U,$J,112,1942,2)
;;=.031^.673^.25^.111^19.9^0^.023^.001^0^.008^.009^.024^56^1.05^^^.4
;;^UTILITY(U,$J,112,1942,3)
;;=.005^.017^.015^.021^.022^.004^.004^.016^.01^.015^.015^.012^.024^.095^.303^.012^.017^.018
;;^UTILITY(U,$J,112,1942,4)
;;=^^0^.006^0^.002^.009^^4^.5
;;^UTILITY(U,$J,112,1942,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1943,0)
;;=TOMATO JUICE, CND OR BOTTLED, DIET PK, LO NA^11-886^fl oz.^30.3^100^N
;;^UTILITY(U,$J,112,1943,1)
;;=.76^.06^4.23^17^93.9^^^9^.58^11^19^220^10^.14^.101^^^556^18.3^.047
;;^UTILITY(U,$J,112,1943,2)
;;=.031^.673^.25^.111^19.9^0^.023^.001^0^.008^.009^.024^56^1.05^^^.8
;;^UTILITY(U,$J,112,1943,3)
;;=.005^.017^.015^.021^.022^.004^.004^.016^.01^.015^.015^.012^.024^.095^.303^.012^.017^.018
;;^UTILITY(U,$J,112,1943,4)
;;=^^0^.006^0^.002^.009
;;^UTILITY(U,$J,112,1943,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1948,0)
;;=TOMATO PASTE, CND, WO/SALT ADDED, LO NA^11-546^cups^262^100^N
;;^UTILITY(U,$J,112,1948,1)
;;=3.78^.89^18.82^84^74.06^^^35^2.99^51^79^932^65^.8^.592^.52^^2468^42.3^.155
;;^UTILITY(U,$J,112,1948,2)
;;=.19^3.223^.753^.38^22.4^0^.347^.014^0^.127^.134^.362^247^2.45^^^4.4
;;^UTILITY(U,$J,112,1948,3)
;;=.026^.086^.073^.105^.108^.019^.022^.08^.051^.077^.076^.06^.118^.473^1.51^.062^.083^.09
;;^UTILITY(U,$J,112,1948,4)
;;=^^.001^.09^.003^.032^.131
;;^UTILITY(U,$J,112,1948,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1949,0)
;;=TOMATO PASTE, CND, W/SALT ADDED^11-887^cups^262^100^N
;;^UTILITY(U,$J,112,1949,1)
;;=3.78^.89^18.82^84^74.06^^^35^2.99^51^79^932^790^.8^.592^.52^^2468^42.3^.155
;;^UTILITY(U,$J,112,1949,2)
;;=.19^3.223^.753^.38^22.4^0^.347^.014^0^.127^.134^.362^247^2.45^^^4.3
;;^UTILITY(U,$J,112,1949,3)
;;=.026^.086^.073^.105^.108^.019^.022^.08^.051^.077^.076^.06^.118^.473^1.51^.062^.083^.09
;;^UTILITY(U,$J,112,1949,4)
;;=^^.001^.09^.003^.032^.131
;;^UTILITY(U,$J,112,1949,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1950,0)
;;=TOMATO PUREE, CND, REG PK^11-888^cups^250^100^N
;;^UTILITY(U,$J,112,1950,1)
;;=1.67^.12^10.02^41^87.26^^^15^.93^24^40^420^399^.22^.163^.256^^1361^35.3^.071
;;^UTILITY(U,$J,112,1950,2)
;;=.054^1.715^.44^.152^11^0^.045^.002^0^.016^.017^.047^136^.94^^^2.3
;;^UTILITY(U,$J,112,1950,3)
;;=.011^.038^.032^.046^.048^.009^.01^.035^.022^.034^.033^.026^.052^.209^.668^.028^.037^.04
;;^UTILITY(U,$J,112,1950,4)
;;=^^0^.012^0^.004^.017
;;^UTILITY(U,$J,112,1950,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1951,0)
;;=TOMATO PUREE, CND, DIET PK, LO NA^11-547^cups^250^100^N
;;^UTILITY(U,$J,112,1951,1)
;;=1.67^.12^10.02^41^87.26^^^15^.93^24^40^420^20^.22^.163^.256^^1361^35.3^.071
;;^UTILITY(U,$J,112,1951,2)
;;=.054^1.715^.44^.152^11^0^.045^.002^0^.016^.017^.047^136^.94^^^2.3
;;^UTILITY(U,$J,112,1951,3)
;;=.011^.038^.032^.046^.048^.009^.01^.035^.022^.034^.033^.026^.052^.209^.668^.028^.037^.04
;;^UTILITY(U,$J,112,1951,4)
;;=^^0^.012^0^.004^.017
;;^UTILITY(U,$J,112,1951,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1952,0)
;;=BEEF, TONGUE, SIMMERED^13-340^slices^20^57^N
;;^UTILITY(U,$J,112,1952,1)
;;=22.11^20.74^.33^283^56.05^^^7^3.39^17^142^180^60^4.8^.22^.026^^0^.5^.03
;;^UTILITY(U,$J,112,1952,2)
;;=.35^2.15^.52^.16^5^5.9^.58^0^107^8.93^9.47^.78^0^.77^^^0
;;^UTILITY(U,$J,112,1952,3)
;;=.17^.962^.952^1.652^1.705^.467^.29^.913^.715^1.058^1.408^.573^1.274^2.02^3.046^1.327^1.033^.892
FHINI05N ; ; 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,1939,1)
+2 ;;=2^.4^25.4^106^68.6^^^22^.8^^50^363^20^^^^^1400^15^.09
+3 ;;^UTILITY(U,$J,112,1939,2)
+4 ;;=.07^1.6^^^^^0^^0^0
+5 ;;^UTILITY(U,$J,112,1939,20)
+6 ;;=USDA Std. Reference, Release 8
+7 ;;^UTILITY(U,$J,112,1940,0)
+8 ;;=SAUCE, TOMATO CHILI SAUCE, BOTTLED, W/SALT ADDED^2287-1^tbsp.^15^100^N
+9 ;;^UTILITY(U,$J,112,1940,1)
+10 ;;=2.5^.3^24.8^104^68^^^20^.8^^52^370^1338^^^^^1400^16^.09
+11 ;;^UTILITY(U,$J,112,1940,2)
+12 ;;=.07^1.6^^^^^0^^0^0^^^^4.4
+13 ;;^UTILITY(U,$J,112,1940,4)
+14 ;;=^^^^^^0
+15 ;;^UTILITY(U,$J,112,1940,20)
+16 ;;=USDA Std. Reference, Release 8
+17 ;;^UTILITY(U,$J,112,1941,0)
+18 ;;=SAUCE, TOMATO CHILI SAUCE, BOTTLED, WO/SALT, LO NA^2287-2^tbsp.^15^100^N
+19 ;;^UTILITY(U,$J,112,1941,1)
+20 ;;=2.5^.3^24.8^104^68^^^20^.8^^52^370^20^^^^^1400^16^.09
+21 ;;^UTILITY(U,$J,112,1941,2)
+22 ;;=.07^1.6^^^^^0^^0^0^^^^4.4
+23 ;;^UTILITY(U,$J,112,1941,4)
+24 ;;=^^^^^^0
+25 ;;^UTILITY(U,$J,112,1941,20)
+26 ;;=USDA Std. Reference, Release 8
+27 ;;^UTILITY(U,$J,112,1942,0)
+28 ;;=TOMATO JUICE, CND OR BOTTLED, REG PK^11-540^fl oz.^30.4^100^N
+29 ;;^UTILITY(U,$J,112,1942,1)
+30 ;;=.76^.06^4.23^17^93.9^^^9^.58^11^19^220^361^.14^.101^.077^^556^18.3^.047
+31 ;;^UTILITY(U,$J,112,1942,2)
+32 ;;=.031^.673^.25^.111^19.9^0^.023^.001^0^.008^.009^.024^56^1.05^^^.4
+33 ;;^UTILITY(U,$J,112,1942,3)
+34 ;;=.005^.017^.015^.021^.022^.004^.004^.016^.01^.015^.015^.012^.024^.095^.303^.012^.017^.018
+35 ;;^UTILITY(U,$J,112,1942,4)
+36 ;;=^^0^.006^0^.002^.009^^4^.5
+37 ;;^UTILITY(U,$J,112,1942,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1943,0)
+40 ;;=TOMATO JUICE, CND OR BOTTLED, DIET PK, LO NA^11-886^fl oz.^30.3^100^N
+41 ;;^UTILITY(U,$J,112,1943,1)
+42 ;;=.76^.06^4.23^17^93.9^^^9^.58^11^19^220^10^.14^.101^^^556^18.3^.047
+43 ;;^UTILITY(U,$J,112,1943,2)
+44 ;;=.031^.673^.25^.111^19.9^0^.023^.001^0^.008^.009^.024^56^1.05^^^.8
+45 ;;^UTILITY(U,$J,112,1943,3)
+46 ;;=.005^.017^.015^.021^.022^.004^.004^.016^.01^.015^.015^.012^.024^.095^.303^.012^.017^.018
+47 ;;^UTILITY(U,$J,112,1943,4)
+48 ;;=^^0^.006^0^.002^.009
+49 ;;^UTILITY(U,$J,112,1943,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1948,0)
+52 ;;=TOMATO PASTE, CND, WO/SALT ADDED, LO NA^11-546^cups^262^100^N
+53 ;;^UTILITY(U,$J,112,1948,1)
+54 ;;=3.78^.89^18.82^84^74.06^^^35^2.99^51^79^932^65^.8^.592^.52^^2468^42.3^.155
+55 ;;^UTILITY(U,$J,112,1948,2)
+56 ;;=.19^3.223^.753^.38^22.4^0^.347^.014^0^.127^.134^.362^247^2.45^^^4.4
+57 ;;^UTILITY(U,$J,112,1948,3)
+58 ;;=.026^.086^.073^.105^.108^.019^.022^.08^.051^.077^.076^.06^.118^.473^1.51^.062^.083^.09
+59 ;;^UTILITY(U,$J,112,1948,4)
+60 ;;=^^.001^.09^.003^.032^.131
+61 ;;^UTILITY(U,$J,112,1948,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,1949,0)
+64 ;;=TOMATO PASTE, CND, W/SALT ADDED^11-887^cups^262^100^N
+65 ;;^UTILITY(U,$J,112,1949,1)
+66 ;;=3.78^.89^18.82^84^74.06^^^35^2.99^51^79^932^790^.8^.592^.52^^2468^42.3^.155
+67 ;;^UTILITY(U,$J,112,1949,2)
+68 ;;=.19^3.223^.753^.38^22.4^0^.347^.014^0^.127^.134^.362^247^2.45^^^4.3
+69 ;;^UTILITY(U,$J,112,1949,3)
+70 ;;=.026^.086^.073^.105^.108^.019^.022^.08^.051^.077^.076^.06^.118^.473^1.51^.062^.083^.09
+71 ;;^UTILITY(U,$J,112,1949,4)
+72 ;;=^^.001^.09^.003^.032^.131
+73 ;;^UTILITY(U,$J,112,1949,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,1950,0)
+76 ;;=TOMATO PUREE, CND, REG PK^11-888^cups^250^100^N
+77 ;;^UTILITY(U,$J,112,1950,1)
+78 ;;=1.67^.12^10.02^41^87.26^^^15^.93^24^40^420^399^.22^.163^.256^^1361^35.3^.071
+79 ;;^UTILITY(U,$J,112,1950,2)
+80 ;;=.054^1.715^.44^.152^11^0^.045^.002^0^.016^.017^.047^136^.94^^^2.3
+81 ;;^UTILITY(U,$J,112,1950,3)
+82 ;;=.011^.038^.032^.046^.048^.009^.01^.035^.022^.034^.033^.026^.052^.209^.668^.028^.037^.04
+83 ;;^UTILITY(U,$J,112,1950,4)
+84 ;;=^^0^.012^0^.004^.017
+85 ;;^UTILITY(U,$J,112,1950,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1951,0)
+88 ;;=TOMATO PUREE, CND, DIET PK, LO NA^11-547^cups^250^100^N
+89 ;;^UTILITY(U,$J,112,1951,1)
+90 ;;=1.67^.12^10.02^41^87.26^^^15^.93^24^40^420^20^.22^.163^.256^^1361^35.3^.071
+91 ;;^UTILITY(U,$J,112,1951,2)
+92 ;;=.054^1.715^.44^.152^11^0^.045^.002^0^.016^.017^.047^136^.94^^^2.3
+93 ;;^UTILITY(U,$J,112,1951,3)
+94 ;;=.011^.038^.032^.046^.048^.009^.01^.035^.022^.034^.033^.026^.052^.209^.668^.028^.037^.04
+95 ;;^UTILITY(U,$J,112,1951,4)
+96 ;;=^^0^.012^0^.004^.017
+97 ;;^UTILITY(U,$J,112,1951,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,1952,0)
+100 ;;=BEEF, TONGUE, SIMMERED^13-340^slices^20^57^N
+101 ;;^UTILITY(U,$J,112,1952,1)
+102 ;;=22.11^20.74^.33^283^56.05^^^7^3.39^17^142^180^60^4.8^.22^.026^^0^.5^.03
+103 ;;^UTILITY(U,$J,112,1952,2)
+104 ;;=.35^2.15^.52^.16^5^5.9^.58^0^107^8.93^9.47^.78^0^.77^^^0
+105 ;;^UTILITY(U,$J,112,1952,3)
+106 ;;=.17^.962^.952^1.652^1.705^.467^.29^.913^.715^1.058^1.408^.573^1.274^2.02^3.046^1.327^1.033^.892
