FHINI04P ; ; 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,1576,0)
;;=RUTABAGAS, BOILED, WO/SALT^11-436^cups^170^100^N
;;^UTILITY(U,$J,112,1576,1)
;;=1.29^.22^8.74^39^88.88^^^48^.53^23^56^326^20^.35^.041^.174^^561^18.8^.082
;;^UTILITY(U,$J,112,1576,2)
;;=.041^.715^.155^.102^15^0^.038^.057^0^.029^.027^.095^56^.87^^^1.8
;;^UTILITY(U,$J,112,1576,3)
;;=.014^.05^.053^.041^.042^.01^.012^.034^.025^.051^.159^.032^.035^.094^.152^.03^^.037
;;^UTILITY(U,$J,112,1576,4)
;;=^^^.026^^.003^.027
;;^UTILITY(U,$J,112,1576,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1577,0)
;;=RUTABAGAS, BOILED, W/SALT^11-851^cups^170^100^N
;;^UTILITY(U,$J,112,1577,1)
;;=1.29^.22^8.74^39^88.88^^^48^.53^23^56^326^254^.35^.041^.174^^561^18.8^.082
;;^UTILITY(U,$J,112,1577,2)
;;=.041^.715^.155^.102^15^0^.038^.057^0^.029^.027^.095^56^.87^^^1.8
;;^UTILITY(U,$J,112,1577,3)
;;=.014^.05^.053^.041^.042^.01^.012^.034^.025^.051^.159^.032^.035^.094^.152^.03^^.037
;;^UTILITY(U,$J,112,1577,4)
;;=^^^.026^^.003^.027
;;^UTILITY(U,$J,112,1577,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1578,0)
;;=RYE, WHOLE-GRAIN FLOUR, MEDIUM^20-064^cups^88^100^N
;;^UTILITY(U,$J,112,1578,1)
;;=9.39^1.77^77.49^354^9.85^^^24^2.12^75^207^340^3^1.99^.287^5.46^.79^0^0^.287
;;^UTILITY(U,$J,112,1578,2)
;;=.114^1.727^.492^.268^19^0^.659^.108^0^.198^.208^.767^0^1.5^^^12.9
;;^UTILITY(U,$J,112,1578,3)
;;=.106^.325^.362^.649^.325^.14^.185^.475^.185^.47^.425^.209^.388^.646^2.621^.358^1.005^.511
;;^UTILITY(U,$J,112,1578,4)
;;=^^.002^.187^.007^.006^.192^^^35.7
;;^UTILITY(U,$J,112,1578,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1579,0)
;;=RYE WAFERS, WHOLE-GRAIN^18-226^wafers^6.5^100^N
;;^UTILITY(U,$J,112,1579,1)
;;=9.6^.9^80.4^334^5^^^40^5.94^121^334^495^794^2.8^.461^2.515^^23^.1^.427
;;^UTILITY(U,$J,112,1579,2)
;;=.289^1.581^.569^.271^45^0^.349^.048^0^.108^.152^.397^2^4.1
;;^UTILITY(U,$J,112,1579,4)
;;=0^0^.001^.101^.003^.006^.145^^^23.8
;;^UTILITY(U,$J,112,1579,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1580,0)
;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 5 CAL/TSP, W/SALT^1930-1^tbsp.^16^100^N
;;^UTILITY(U,$J,112,1580,1)
;;=3^5.9^4.1^76^83.7^^^64^.1^^47^34^1108^^^^^170^2^.004
;;^UTILITY(U,$J,112,1580,2)
;;=.07^.1^^^^^.18^^0^3.24^^^^3.3
;;^UTILITY(U,$J,112,1580,4)
;;=^^^^^^1.95
;;^UTILITY(U,$J,112,1580,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1581,0)
;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 5 CAL/TSP, WO/SALT^1930-2^tbsp.^16^100^N
;;^UTILITY(U,$J,112,1581,1)
;;=3^5.9^4.1^76^83.7^^^64^.1^^47^34^30^^^^^170^2^.004
;;^UTILITY(U,$J,112,1581,2)
;;=.07^.1^^^^^.18^^0^3.24^^^^3.3
;;^UTILITY(U,$J,112,1581,4)
;;=^^^^^^1.95
;;^UTILITY(U,$J,112,1581,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1582,0)
;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 1 CAL/TSP, W/SALT^1931-1^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1582,1)
;;=1.4^1.1^1.4^19^93.1^^^35^.1^^24^29^1134^^^^^80^2^.003
;;^UTILITY(U,$J,112,1582,2)
;;=.04^.03^^^^^0^^0^1^^^^3
;;^UTILITY(U,$J,112,1582,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1582,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1583,0)
;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 1 CAL/TSP, WO/SALT^1931-2^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1583,1)
;;=1.4^1.1^1.4^19^93.1^^^35^.1^^24^29^30^^^^^80^2^.003
;;^UTILITY(U,$J,112,1583,2)
;;=.04^.03^^^^^0^^0^1^^^^3
;;^UTILITY(U,$J,112,1583,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1583,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1584,0)
;;=SALAD DRESSING, FRENCH, DIET, 1 CAL/TSP, W/ART SWEET^1934-0^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1584,1)
;;=.4^.2^1.8^10^95.2^^^11^.4^^14^79^787^^^^^0^0^0
;;^UTILITY(U,$J,112,1584,2)
;;=0^0^^^^^0^^0^0^^^^2.4
;;^UTILITY(U,$J,112,1584,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1584,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1585,0)
;;=SALAD DRESSING, FRENCH, DIET, 10 CAL/TSP, W/ART SWEET, W/SLT^1935-0^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1585,1)
;;=.7^16.9^1.2^156^78.8^^^11^.4^^14^79^787^^^^^0^0^0
;;^UTILITY(U,$J,112,1585,2)
;;=0^0^^^^^9^^0^3^^^^2.4
;;^UTILITY(U,$J,112,1585,4)
;;=^^^^^^4
;;^UTILITY(U,$J,112,1585,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1586,0)
;;=MAYONNAISE, REGULAR, WO/SALT^1940-2^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1586,1)
;;=1^42.3^14.4^435^40.6^^^14^.2^^26^9^30^^^^^220^0^.01
;;^UTILITY(U,$J,112,1586,2)
;;=.03^0^^^^^21.02^^50^7.66^^^^1.7
;;^UTILITY(U,$J,112,1586,4)
;;=^^^^^^9.35
;;^UTILITY(U,$J,112,1586,20)
;;=USDA Std. Reference, Release 8
FHINI04P ; ; 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,1576,0)
+2 ;;=RUTABAGAS, BOILED, WO/SALT^11-436^cups^170^100^N
+3 ;;^UTILITY(U,$J,112,1576,1)
+4 ;;=1.29^.22^8.74^39^88.88^^^48^.53^23^56^326^20^.35^.041^.174^^561^18.8^.082
+5 ;;^UTILITY(U,$J,112,1576,2)
+6 ;;=.041^.715^.155^.102^15^0^.038^.057^0^.029^.027^.095^56^.87^^^1.8
+7 ;;^UTILITY(U,$J,112,1576,3)
+8 ;;=.014^.05^.053^.041^.042^.01^.012^.034^.025^.051^.159^.032^.035^.094^.152^.03^^.037
+9 ;;^UTILITY(U,$J,112,1576,4)
+10 ;;=^^^.026^^.003^.027
+11 ;;^UTILITY(U,$J,112,1576,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1577,0)
+14 ;;=RUTABAGAS, BOILED, W/SALT^11-851^cups^170^100^N
+15 ;;^UTILITY(U,$J,112,1577,1)
+16 ;;=1.29^.22^8.74^39^88.88^^^48^.53^23^56^326^254^.35^.041^.174^^561^18.8^.082
+17 ;;^UTILITY(U,$J,112,1577,2)
+18 ;;=.041^.715^.155^.102^15^0^.038^.057^0^.029^.027^.095^56^.87^^^1.8
+19 ;;^UTILITY(U,$J,112,1577,3)
+20 ;;=.014^.05^.053^.041^.042^.01^.012^.034^.025^.051^.159^.032^.035^.094^.152^.03^^.037
+21 ;;^UTILITY(U,$J,112,1577,4)
+22 ;;=^^^.026^^.003^.027
+23 ;;^UTILITY(U,$J,112,1577,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1578,0)
+26 ;;=RYE, WHOLE-GRAIN FLOUR, MEDIUM^20-064^cups^88^100^N
+27 ;;^UTILITY(U,$J,112,1578,1)
+28 ;;=9.39^1.77^77.49^354^9.85^^^24^2.12^75^207^340^3^1.99^.287^5.46^.79^0^0^.287
+29 ;;^UTILITY(U,$J,112,1578,2)
+30 ;;=.114^1.727^.492^.268^19^0^.659^.108^0^.198^.208^.767^0^1.5^^^12.9
+31 ;;^UTILITY(U,$J,112,1578,3)
+32 ;;=.106^.325^.362^.649^.325^.14^.185^.475^.185^.47^.425^.209^.388^.646^2.621^.358^1.005^.511
+33 ;;^UTILITY(U,$J,112,1578,4)
+34 ;;=^^.002^.187^.007^.006^.192^^^35.7
+35 ;;^UTILITY(U,$J,112,1578,20)
+36 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+37 ;;^UTILITY(U,$J,112,1579,0)
+38 ;;=RYE WAFERS, WHOLE-GRAIN^18-226^wafers^6.5^100^N
+39 ;;^UTILITY(U,$J,112,1579,1)
+40 ;;=9.6^.9^80.4^334^5^^^40^5.94^121^334^495^794^2.8^.461^2.515^^23^.1^.427
+41 ;;^UTILITY(U,$J,112,1579,2)
+42 ;;=.289^1.581^.569^.271^45^0^.349^.048^0^.108^.152^.397^2^4.1
+43 ;;^UTILITY(U,$J,112,1579,4)
+44 ;;=0^0^.001^.101^.003^.006^.145^^^23.8
+45 ;;^UTILITY(U,$J,112,1579,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1580,0)
+48 ;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 5 CAL/TSP, W/SALT^1930-1^tbsp.^16^100^N
+49 ;;^UTILITY(U,$J,112,1580,1)
+50 ;;=3^5.9^4.1^76^83.7^^^64^.1^^47^34^1108^^^^^170^2^.004
+51 ;;^UTILITY(U,$J,112,1580,2)
+52 ;;=.07^.1^^^^^.18^^0^3.24^^^^3.3
+53 ;;^UTILITY(U,$J,112,1580,4)
+54 ;;=^^^^^^1.95
+55 ;;^UTILITY(U,$J,112,1580,20)
+56 ;;=USDA Std. Reference, Release 8
+57 ;;^UTILITY(U,$J,112,1581,0)
+58 ;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 5 CAL/TSP, WO/SALT^1930-2^tbsp.^16^100^N
+59 ;;^UTILITY(U,$J,112,1581,1)
+60 ;;=3^5.9^4.1^76^83.7^^^64^.1^^47^34^30^^^^^170^2^.004
+61 ;;^UTILITY(U,$J,112,1581,2)
+62 ;;=.07^.1^^^^^.18^^0^3.24^^^^3.3
+63 ;;^UTILITY(U,$J,112,1581,4)
+64 ;;=^^^^^^1.95
+65 ;;^UTILITY(U,$J,112,1581,20)
+66 ;;=USDA Std. Reference, Release 8
+67 ;;^UTILITY(U,$J,112,1582,0)
+68 ;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 1 CAL/TSP, W/SALT^1931-1^tbsp.^15^100^N
+69 ;;^UTILITY(U,$J,112,1582,1)
+70 ;;=1.4^1.1^1.4^19^93.1^^^35^.1^^24^29^1134^^^^^80^2^.003
+71 ;;^UTILITY(U,$J,112,1582,2)
+72 ;;=.04^.03^^^^^0^^0^1^^^^3
+73 ;;^UTILITY(U,$J,112,1582,4)
+74 ;;=^^^^^^0
+75 ;;^UTILITY(U,$J,112,1582,20)
+76 ;;=USDA Std. Reference, Release 8
+77 ;;^UTILITY(U,$J,112,1583,0)
+78 ;;=SALAD DRESSING, BLUE+ROQUEFORT, DIET, 1 CAL/TSP, WO/SALT^1931-2^tbsp.^15^100^N
+79 ;;^UTILITY(U,$J,112,1583,1)
+80 ;;=1.4^1.1^1.4^19^93.1^^^35^.1^^24^29^30^^^^^80^2^.003
+81 ;;^UTILITY(U,$J,112,1583,2)
+82 ;;=.04^.03^^^^^0^^0^1^^^^3
+83 ;;^UTILITY(U,$J,112,1583,4)
+84 ;;=^^^^^^0
+85 ;;^UTILITY(U,$J,112,1583,20)
+86 ;;=USDA Std. Reference, Release 8
+87 ;;^UTILITY(U,$J,112,1584,0)
+88 ;;=SALAD DRESSING, FRENCH, DIET, 1 CAL/TSP, W/ART SWEET^1934-0^tbsp.^15^100^N
+89 ;;^UTILITY(U,$J,112,1584,1)
+90 ;;=.4^.2^1.8^10^95.2^^^11^.4^^14^79^787^^^^^0^0^0
+91 ;;^UTILITY(U,$J,112,1584,2)
+92 ;;=0^0^^^^^0^^0^0^^^^2.4
+93 ;;^UTILITY(U,$J,112,1584,4)
+94 ;;=^^^^^^0
+95 ;;^UTILITY(U,$J,112,1584,20)
+96 ;;=USDA Std. Reference, Release 8
+97 ;;^UTILITY(U,$J,112,1585,0)
+98 ;;=SALAD DRESSING, FRENCH, DIET, 10 CAL/TSP, W/ART SWEET, W/SLT^1935-0^tbsp.^15^100^N
+99 ;;^UTILITY(U,$J,112,1585,1)
+100 ;;=.7^16.9^1.2^156^78.8^^^11^.4^^14^79^787^^^^^0^0^0
+101 ;;^UTILITY(U,$J,112,1585,2)
+102 ;;=0^0^^^^^9^^0^3^^^^2.4
+103 ;;^UTILITY(U,$J,112,1585,4)
+104 ;;=^^^^^^4
+105 ;;^UTILITY(U,$J,112,1585,20)
+106 ;;=USDA Std. Reference, Release 8
+107 ;;^UTILITY(U,$J,112,1586,0)
+108 ;;=MAYONNAISE, REGULAR, WO/SALT^1940-2^tbsp.^15^100^N
+109 ;;^UTILITY(U,$J,112,1586,1)
+110 ;;=1^42.3^14.4^435^40.6^^^14^.2^^26^9^30^^^^^220^0^.01
+111 ;;^UTILITY(U,$J,112,1586,2)
+112 ;;=.03^0^^^^^21.02^^50^7.66^^^^1.7
+113 ;;^UTILITY(U,$J,112,1586,4)
+114 ;;=^^^^^^9.35
+115 ;;^UTILITY(U,$J,112,1586,20)
+116 ;;=USDA Std. Reference, Release 8