FHINI02N ; ; 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,778,4)
;;=^^^.027^^.001^.035
;;^UTILITY(U,$J,112,778,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,780,0)
;;=BEETS, CND, REG PK^11-082^cups^170^100^N
;;^UTILITY(U,$J,112,780,1)
;;=.83^.07^6.76^29^91.32^^^14^.67^16^16^142^263^.23^.097^.241^^11^3.9^.01
;;^UTILITY(U,$J,112,780,2)
;;=.038^.151^.15^.055^29^0^.023^.002^0^.011^.013^.025^1^1.01^^^1.1
;;^UTILITY(U,$J,112,780,3)
;;=.01^.024^.025^.035^.03^.009^.01^.024^.02^.029^.022^.011^.031^.06^.221^.016^.021^.03
;;^UTILITY(U,$J,112,780,4)
;;=^^^.011^^0^.013
;;^UTILITY(U,$J,112,780,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,782,0)
;;=BEETS, CND, DIET PK, LO NA^11-735^cups^170^100^N
;;^UTILITY(U,$J,112,782,1)
;;=.83^.07^6.76^29^91.32^^^14^.67^16^16^142^46^.23^.097^.241^^11^3.9^.01
;;^UTILITY(U,$J,112,782,2)
;;=.038^.151^.15^.055^29^0^.023^.002^0^.011^.013^.025^1^1.01^^^1.1
;;^UTILITY(U,$J,112,782,3)
;;=.01^.024^.025^.035^.03^.009^.01^.024^.02^.029^.022^.011^.031^.06^.221^.016^.021^.03
;;^UTILITY(U,$J,112,782,4)
;;=^^^.011^^0^.013
;;^UTILITY(U,$J,112,782,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,783,0)
;;=BEET GREENS, CKD WO/SALT^11-087^cups^145^100^N
;;^UTILITY(U,$J,112,783,1)
;;=2.57^.2^5.46^27^89.13^^^114^1.9^68^41^909^241^.5^.251^.514^^5100^24.9^.117
;;^UTILITY(U,$J,112,783,2)
;;=.289^.499^.329^.132^14.3^0^.065^.006^0^.031^.038^.07^510^2.64^^^2.9
;;^UTILITY(U,$J,112,783,3)
;;=.04^.076^.053^.115^.075^.021^.024^.068^.061^.076^.073^.039^.095^.152^.312^.094^.061^.082
;;^UTILITY(U,$J,112,783,4)
;;=^^^.03^^.001^.038
;;^UTILITY(U,$J,112,783,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,784,0)
;;=BEET GREENS, CKD W/SALT^11-736^cups^145^100^N
;;^UTILITY(U,$J,112,784,1)
;;=2.57^.2^5.46^27^89.13^^^114^1.9^68^41^909^477^.5^.251^.514^^5100^24.9^.117
;;^UTILITY(U,$J,112,784,2)
;;=.289^.499^.329^.132^14.3^0^.065^.006^0^.031^.038^.07^510^2.64
;;^UTILITY(U,$J,112,784,3)
;;=.04^.076^.053^.115^.075^.021^.024^.068^.061^.076^.073^.039^.095^.152^.312^.094^.061^.082
;;^UTILITY(U,$J,112,784,4)
;;=^^^.03^^.001^.038
;;^UTILITY(U,$J,112,784,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,785,0)
;;=BEVERAGE, BEER^14-003^fl. oz.^30^100^N
;;^UTILITY(U,$J,112,785,1)
;;=.3^0^3.7^41^92.3^^^5^.03^6^12^25^5^.02^.009^.012^^0^0^.006
;;^UTILITY(U,$J,112,785,2)
;;=.026^.453^.058^.05^6^.02^0^0^0^0^0^0^0^.1^3.6^^.2
;;^UTILITY(U,$J,112,785,3)
;;=.003^.005^.005^.006^.007^.001^.003^.006^.015^.009^.009^.005^.011^.012^.031^.009^.03^.005
;;^UTILITY(U,$J,112,785,4)
;;=0^0^0^0^0^0^0^0^^1.2
;;^UTILITY(U,$J,112,785,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,786,0)
;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 80 PROOF^14-037^fl. oz.^28.35^100^N
;;^UTILITY(U,$J,112,786,1)
;;=0^0^0^231^66.6^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
;;^UTILITY(U,$J,112,786,2)
;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^33.4^^0
;;^UTILITY(U,$J,112,786,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,786,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,786,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,787,0)
;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 86 PROOF^14-550^fl. oz.^28.35^100^N
;;^UTILITY(U,$J,112,787,1)
;;=0^0^.1^250^63.9^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
;;^UTILITY(U,$J,112,787,2)
;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^36^^0
;;^UTILITY(U,$J,112,787,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,787,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,787,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,788,0)
;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 90 PROOF^14-551^fl. oz.^28.35^100^N
;;^UTILITY(U,$J,112,788,1)
;;=0^0^0^263^62.1^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
;;^UTILITY(U,$J,112,788,2)
;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^37.9^^0
;;^UTILITY(U,$J,112,788,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,788,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,788,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,789,0)
;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 94 PROOF^14-532^fl. oz.^28.35^100^N
;;^UTILITY(U,$J,112,789,1)
;;=0^0^0^275^60.3^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
;;^UTILITY(U,$J,112,789,2)
;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^39.7
;;^UTILITY(U,$J,112,789,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,789,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,789,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,790,0)
;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 100 PROOF^14-533^fl. oz.^28.35^100^N
FHINI02N ; ; 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,778,4)
+2 ;;=^^^.027^^.001^.035
+3 ;;^UTILITY(U,$J,112,778,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,780,0)
+6 ;;=BEETS, CND, REG PK^11-082^cups^170^100^N
+7 ;;^UTILITY(U,$J,112,780,1)
+8 ;;=.83^.07^6.76^29^91.32^^^14^.67^16^16^142^263^.23^.097^.241^^11^3.9^.01
+9 ;;^UTILITY(U,$J,112,780,2)
+10 ;;=.038^.151^.15^.055^29^0^.023^.002^0^.011^.013^.025^1^1.01^^^1.1
+11 ;;^UTILITY(U,$J,112,780,3)
+12 ;;=.01^.024^.025^.035^.03^.009^.01^.024^.02^.029^.022^.011^.031^.06^.221^.016^.021^.03
+13 ;;^UTILITY(U,$J,112,780,4)
+14 ;;=^^^.011^^0^.013
+15 ;;^UTILITY(U,$J,112,780,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,782,0)
+18 ;;=BEETS, CND, DIET PK, LO NA^11-735^cups^170^100^N
+19 ;;^UTILITY(U,$J,112,782,1)
+20 ;;=.83^.07^6.76^29^91.32^^^14^.67^16^16^142^46^.23^.097^.241^^11^3.9^.01
+21 ;;^UTILITY(U,$J,112,782,2)
+22 ;;=.038^.151^.15^.055^29^0^.023^.002^0^.011^.013^.025^1^1.01^^^1.1
+23 ;;^UTILITY(U,$J,112,782,3)
+24 ;;=.01^.024^.025^.035^.03^.009^.01^.024^.02^.029^.022^.011^.031^.06^.221^.016^.021^.03
+25 ;;^UTILITY(U,$J,112,782,4)
+26 ;;=^^^.011^^0^.013
+27 ;;^UTILITY(U,$J,112,782,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,783,0)
+30 ;;=BEET GREENS, CKD WO/SALT^11-087^cups^145^100^N
+31 ;;^UTILITY(U,$J,112,783,1)
+32 ;;=2.57^.2^5.46^27^89.13^^^114^1.9^68^41^909^241^.5^.251^.514^^5100^24.9^.117
+33 ;;^UTILITY(U,$J,112,783,2)
+34 ;;=.289^.499^.329^.132^14.3^0^.065^.006^0^.031^.038^.07^510^2.64^^^2.9
+35 ;;^UTILITY(U,$J,112,783,3)
+36 ;;=.04^.076^.053^.115^.075^.021^.024^.068^.061^.076^.073^.039^.095^.152^.312^.094^.061^.082
+37 ;;^UTILITY(U,$J,112,783,4)
+38 ;;=^^^.03^^.001^.038
+39 ;;^UTILITY(U,$J,112,783,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,784,0)
+42 ;;=BEET GREENS, CKD W/SALT^11-736^cups^145^100^N
+43 ;;^UTILITY(U,$J,112,784,1)
+44 ;;=2.57^.2^5.46^27^89.13^^^114^1.9^68^41^909^477^.5^.251^.514^^5100^24.9^.117
+45 ;;^UTILITY(U,$J,112,784,2)
+46 ;;=.289^.499^.329^.132^14.3^0^.065^.006^0^.031^.038^.07^510^2.64
+47 ;;^UTILITY(U,$J,112,784,3)
+48 ;;=.04^.076^.053^.115^.075^.021^.024^.068^.061^.076^.073^.039^.095^.152^.312^.094^.061^.082
+49 ;;^UTILITY(U,$J,112,784,4)
+50 ;;=^^^.03^^.001^.038
+51 ;;^UTILITY(U,$J,112,784,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,785,0)
+54 ;;=BEVERAGE, BEER^14-003^fl. oz.^30^100^N
+55 ;;^UTILITY(U,$J,112,785,1)
+56 ;;=.3^0^3.7^41^92.3^^^5^.03^6^12^25^5^.02^.009^.012^^0^0^.006
+57 ;;^UTILITY(U,$J,112,785,2)
+58 ;;=.026^.453^.058^.05^6^.02^0^0^0^0^0^0^0^.1^3.6^^.2
+59 ;;^UTILITY(U,$J,112,785,3)
+60 ;;=.003^.005^.005^.006^.007^.001^.003^.006^.015^.009^.009^.005^.011^.012^.031^.009^.03^.005
+61 ;;^UTILITY(U,$J,112,785,4)
+62 ;;=0^0^0^0^0^0^0^0^^1.2
+63 ;;^UTILITY(U,$J,112,785,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,786,0)
+66 ;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 80 PROOF^14-037^fl. oz.^28.35^100^N
+67 ;;^UTILITY(U,$J,112,786,1)
+68 ;;=0^0^0^231^66.6^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
+69 ;;^UTILITY(U,$J,112,786,2)
+70 ;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^33.4^^0
+71 ;;^UTILITY(U,$J,112,786,3)
+72 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+73 ;;^UTILITY(U,$J,112,786,4)
+74 ;;=0^0^0^0^0^0^0^0
+75 ;;^UTILITY(U,$J,112,786,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,787,0)
+78 ;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 86 PROOF^14-550^fl. oz.^28.35^100^N
+79 ;;^UTILITY(U,$J,112,787,1)
+80 ;;=0^0^.1^250^63.9^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
+81 ;;^UTILITY(U,$J,112,787,2)
+82 ;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^36^^0
+83 ;;^UTILITY(U,$J,112,787,3)
+84 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+85 ;;^UTILITY(U,$J,112,787,4)
+86 ;;=0^0^0^0^0^0^0^0
+87 ;;^UTILITY(U,$J,112,787,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,788,0)
+90 ;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 90 PROOF^14-551^fl. oz.^28.35^100^N
+91 ;;^UTILITY(U,$J,112,788,1)
+92 ;;=0^0^0^263^62.1^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
+93 ;;^UTILITY(U,$J,112,788,2)
+94 ;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^37.9^^0
+95 ;;^UTILITY(U,$J,112,788,3)
+96 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+97 ;;^UTILITY(U,$J,112,788,4)
+98 ;;=0^0^0^0^0^0^0^0
+99 ;;^UTILITY(U,$J,112,788,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,789,0)
+102 ;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 94 PROOF^14-532^fl. oz.^28.35^100^N
+103 ;;^UTILITY(U,$J,112,789,1)
+104 ;;=0^0^0^275^60.3^^^0^.04^0^4^2^1^.04^.021^.018^^0^0^.006
+105 ;;^UTILITY(U,$J,112,789,2)
+106 ;;=.004^.013^0^.001^0^0^0^0^0^0^0^0^0^0^39.7
+107 ;;^UTILITY(U,$J,112,789,3)
+108 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+109 ;;^UTILITY(U,$J,112,789,4)
+110 ;;=0^0^0^0^0^0^0^0
+111 ;;^UTILITY(U,$J,112,789,20)
+112 ;;=USDA Std. Reference, Release 10
+113 ;;^UTILITY(U,$J,112,790,0)
+114 ;;=BEVERAGE, (GIN, RUM, VODKA, OR WHISKEY), 100 PROOF^14-533^fl. oz.^28.35^100^N
