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

FHINI0DS.m

Go to the documentation of this file.
FHINI0DS	; ; 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,8686,2)
	;;=.357^4.643
	;;^UTILITY(U,$J,112,8686,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8687,0)
	;;=STUFFING FOR BEEF,MIX,STOVE TOP^BC-01960^1/2-cup^108
	;;^UTILITY(U,$J,112,8687,1)
	;;=3.796^7.963^19.815^164.815^66.574^^^30.556^.926^11.111^38.889^82.407^53.704^.241^.074^^^690.741^.926^.111
	;;^UTILITY(U,$J,112,8687,2)
	;;=.083^1.111^.12^.046^18.519^.019^^^0^4.63^^.556
	;;^UTILITY(U,$J,112,8687,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8688,0)
	;;=STUFFING,HARVEST VEG MIX,PEPPERIDGE FARMS^BC-01961^oz.^28
	;;^UTILITY(U,$J,112,8688,1)
	;;=13.571^8.929^67.143^403.571^^^^164.286^9.286^^^546.429^878.571^^^^^0^0^.5
	;;^UTILITY(U,$J,112,8688,2)
	;;=.393^4.286
	;;^UTILITY(U,$J,112,8688,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8689,0)
	;;=STUFFING,HERB,TRADITIONAL,MIX,GENERAL MILLS^BC-01962^1/6-pkg.^37
	;;^UTILITY(U,$J,112,8689,1)
	;;=10.811^24.324^59.459^513.514^^^^^^^^189.189^1729.73
	;;^UTILITY(U,$J,112,8689,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8690,0)
	;;=STUFFING,HOMESTYLE HERB,MIX,STOVE TOP^BC-01963^1/2-cup^96
	;;^UTILITY(U,$J,112,8690,1)
	;;=3.958^8.958^20.938^180.208^64.271^^^37.5^1.333^11.458^40.625^79.167^536.458^.26^.073^^^359.375^1.042^.115
	;;^UTILITY(U,$J,112,8690,2)
	;;=.094^1.25^.115^.031^19.792^.021^^^1.042^4.271^^1.25
	;;^UTILITY(U,$J,112,8690,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8691,0)
	;;=STUFFING,LONG GRAIN & WILD RICE,MIX,STOVE TOP^BC-01964^1/2-cup^109
	;;^UTILITY(U,$J,112,8691,1)
	;;=3.578^7.982^20.367^166.972^66.33^^^29.358^1.009^11.009^37.615^66.055^507.339^.257^.064^^^355.046^0^.11
	;;^UTILITY(U,$J,112,8691,2)
	;;=.083^1.101^.11^.028^16.514^.018^^^.917^4.587^^.55
	;;^UTILITY(U,$J,112,8691,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8692,0)
	;;=STUFFING,WILD RICE & MUSHROOM,MIX,PEPPERIDGE FARMS^BC-01965^oz.^28
	;;^UTILITY(U,$J,112,8692,1)
	;;=12.857^17.5^60.357^450^^^^103.571^5.357^^^467.857^1100^^^^^0^0^.464
	;;^UTILITY(U,$J,112,8692,2)
	;;=.393^4.643
	;;^UTILITY(U,$J,112,8692,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8693,0)
	;;=STUFFING,WILD RICE,FRZN,STUFFING ORIGINALS^BC-01966^1/2-cup^100
	;;^UTILITY(U,$J,112,8693,1)
	;;=2.9^7^20.9^160^47.5^^^18^1.14^^38^95^548^^^^^70^1^.14
	;;^UTILITY(U,$J,112,8693,2)
	;;=.1^1.3
	;;^UTILITY(U,$J,112,8693,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8694,0)
	;;=TORTILLAS,TACO SHELL,GEBHARDT^BC-01967^shell^11
	;;^UTILITY(U,$J,112,8694,1)
	;;=9.091^18.182^63.636^454.545^^^^109.091^5.455^^^227.273^0^^^^^^^1.091
	;;^UTILITY(U,$J,112,8694,2)
	;;=.636^7.273^^^^^^^0^16.364^^1.818^^^^^0
	;;^UTILITY(U,$J,112,8694,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8695,0)
	;;=WAFFLES,FRZN,AUNT JEMIMA^BC-01968^2-waffles^71
	;;^UTILITY(U,$J,112,8695,1)
	;;=6.056^7.887^39.155^243.662^43.662^^^201.408^5.845^18.31^314.085^136.62^832.394^.394^.099^.394^^0^0^.493
	;;^UTILITY(U,$J,112,8695,2)
	;;=.479^5.211^.423^.704^8.451^2.366^^^8.451^1.972^2.676^.845^^^^^2.113
	;;^UTILITY(U,$J,112,8695,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8696,0)
	;;=WAFFLES,FRZN,APPLE & CINN,AUNT JEMIMA^BC-01969^2-waffles^71
	;;^UTILITY(U,$J,112,8696,1)
	;;=6.338^7.887^40.563^247.887^41.972^^^198.592^5.549^19.718^319.718^130.986^867.606^.423^.085^.352^^0^0^.451
	;;^UTILITY(U,$J,112,8696,2)
	;;=.408^4.507^.408^.704^8.451^2.592^^^8.451^1.831^1.69^.986^^^^^2.817
	;;^UTILITY(U,$J,112,8696,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8697,0)
	;;=WAFFLES,APPLE CINN/BLUEBERRY/STRAWBERRY,EGGO^BC-01970^1.38-oz.^39
	;;^UTILITY(U,$J,112,8697,1)
	;;=7.692^12.821^46.154^333.333^^^^51.282^4.615^^^^641.026^^^^^1282.051^0^.385
	;;^UTILITY(U,$J,112,8697,2)
	;;=.436^.513^^.513^102.564^1.538^^^38.462^2.564^7.692^2.564
	;;^UTILITY(U,$J,112,8697,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8698,0)
	;;=WAFFLES,BLUEBERRY,AUNT JEMIMA^BC-01971^2-waffles^71
	;;^UTILITY(U,$J,112,8698,1)
	;;=5.915^7.324^41.127^246.479^42.535^^^219.718^6.296^15.493^321.127^138.028^963.38^1.408^.07^0^^0^0^.521
	;;^UTILITY(U,$J,112,8698,2)
	;;=.535^5.352^0^.803^42.254^2.972^^^7.042^1.831^2.817^.563^^^^^1.831
	;;^UTILITY(U,$J,112,8698,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,8699,0)
	;;=WAFFLES,BUTTERMILK,AUNT JEMIMA^BC-01972^2-waffles^71