Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI04P

FHINI04P.m

Go to the documentation of this file.
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