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

FHINI0FA.m

Go to the documentation of this file.
FHINI0FA	; ; 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,9418,0)
	;;=SALAD DRESSING,SOUR CREAM & DILL,MARIE'S^BC-02726^tbsp.^15
	;;^UTILITY(U,$J,112,9418,1)
	;;=2^68^6^640^^^^53.333^.667^^^40^593.333^^^^^240^0^0
	;;^UTILITY(U,$J,112,9418,2)
	;;=.067^0^^^^^^^46.667^11.333^^39.333
	;;^UTILITY(U,$J,112,9418,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9419,0)
	;;=SALAD DRESSING,THOUSAND ISLAND,MARIE'S^BC-02727^tbsp.^15
	;;^UTILITY(U,$J,112,9419,1)
	;;=.667^52^18^540^^^^26.667^.667^^^73.333^753.333^^^^^573.333^0^0
	;;^UTILITY(U,$J,112,9419,2)
	;;=0^.667^^^^^^^46.667^8.667^^30
	;;^UTILITY(U,$J,112,9419,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9420,0)
	;;=SALAD DRESSING,THOUSAND ISLAND,NUTRADIET^BC-02693^tbsp.^15
	;;^UTILITY(U,$J,112,9420,1)
	;;=0^13.333^13.333^166.667^^^^^^^^^700
	;;^UTILITY(U,$J,112,9420,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9421,0)
	;;=SALAD DRESSING,THOUSAND ISLAND,WISH-BONE^BC-02728^.5-floz.^15
	;;^UTILITY(U,$J,112,9421,1)
	;;=.667^37.333^20.667^413.333^^^^13.333^.667^0^0^0^1020^0^0^0^^226.667^6.667^0
	;;^UTILITY(U,$J,112,9421,2)
	;;=0^0^^^^^^^46.667^6^16^14
	;;^UTILITY(U,$J,112,9421,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9422,0)
	;;=SALAD DRESSING,VINAIGRETTE,CLASSIC DIJON,WISH-BONE^BC-02729^.5-floz.^15
	;;^UTILITY(U,$J,112,9422,1)
	;;=1.333^38^9.333^380^^^^13.333^1.333^0^0^^1060^0^0^0^^880^13.333^0
	;;^UTILITY(U,$J,112,9422,2)
	;;=0^0^^^^^^^0^5.333^16^14
	;;^UTILITY(U,$J,112,9422,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9423,0)
	;;=SALAD DRESSING,VINAIGRETTE,OLIVE OIL,WISH-BONE^BC-02730^.5-floz.^15
	;;^UTILITY(U,$J,112,9423,1)
	;;=0^15.333^12.667^186.667^^^^6.667^0^^^^773.333^^^^^6.667^0^0
	;;^UTILITY(U,$J,112,9423,2)
	;;=0^0^^^^^^^0^2^8^4.667
	;;^UTILITY(U,$J,112,9423,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9424,0)
	;;=SALAD DRESSING,AVOCADO GODDESS,MARIE'S^BC-02697^tbsp.^15
	;;^UTILITY(U,$J,112,9424,1)
	;;=1.333^70.667^^646.667^^^^26.667^.667^^^40^620^^^^^0^0^0
	;;^UTILITY(U,$J,112,9424,2)
	;;=.067^0^^^^^^^53.333^11.333^^40
	;;^UTILITY(U,$J,112,9424,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9425,0)
	;;=SALAD DRESSING,BLEU CHEESE & HERBS,MIX,GOOD SEASON^BC-02698^tbsp.^16
	;;^UTILITY(U,$J,112,9425,1)
	;;=.625^50^4.375^450^34.375^^^18.75^.125^0^18.75^25^925^.125^.013^^^43.75^0^0
	;;^UTILITY(U,$J,112,9425,2)
	;;=0^0^.063^0^0^.063^^^0^8.75^^21.25
	;;^UTILITY(U,$J,112,9425,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9426,0)
	;;=SALAD DRESSING,BLEU CHEESE,MARIE'S^BC-02699^tbsp.^15
	;;^UTILITY(U,$J,112,9426,1)
	;;=4^65.333^5.333^626.667^^^^93.333^.667^^^46.667^580^^^^^0^0^0
	;;^UTILITY(U,$J,112,9426,2)
	;;=.067^0^^^^^^^60^12^^36.667
	;;^UTILITY(U,$J,112,9426,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9427,0)
	;;=SALAD DRESSING,BLEU CHEESE,WISH-BONE CHUNKY^BC-02700^.5-floz.^15
	;;^UTILITY(U,$J,112,9427,1)
	;;=2^52^5.333^486.667^^^^60^0^^^^993.333^^^^^40^0^0
	;;^UTILITY(U,$J,112,9427,2)
	;;=0^0^^^^^^^6.667^9.333^20.667^18
	;;^UTILITY(U,$J,112,9427,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9428,0)
	;;=SALAD DRESSING,BUTTERMILK FARM STYLE,MIX,GOOD SEASONS^BC-02701^tbsp.^16
	;;^UTILITY(U,$J,112,9428,1)
	;;=3.125^36.25^7.5^362.5^49.375^^^100^.313^12.5^87.5^150^856.25^.313^.125^^^200^0^.063
	;;^UTILITY(U,$J,112,9428,2)
	;;=.125^0^.375^.313^6.25^.625^^^31.25^6.25^^18.125
	;;^UTILITY(U,$J,112,9428,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9429,0)
	;;=SALAD DRESSING,BUTTERMILK SPICE,MARIE'S^BC-02702^tbsp.^15
	;;^UTILITY(U,$J,112,9429,1)
	;;=1.333^59.333^12.667^593.333^^^^40^.667^^^33.333^820^^^^^0^0^0
	;;^UTILITY(U,$J,112,9429,2)
	;;=.067^0^^^^^^^33.333^9.333^^34
	;;^UTILITY(U,$J,112,9429,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9430,0)
	;;=SALAD DRESSING,CAESAR,WISH-BONE^BC-02703^.5-floz.^15
	;;^UTILITY(U,$J,112,9430,1)
	;;=2.667^53.333^5.333^506.667^^^^40^0^0^0^0^1653.333^0^0^0^^20^0^0
	;;^UTILITY(U,$J,112,9430,2)
	;;=0^0^^^^^^^6.667^6.667^22.667^19.333
	;;^UTILITY(U,$J,112,9430,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,9431,0)
	;;=SALAD DRESSING,CHEESE GARLIC,MIX,GOOD SEASONS^BC-02704^tbsp.^16
	;;^UTILITY(U,$J,112,9431,1)
	;;=1.25^50^3.125^450^34.375^^^25^.188^0^18.75^31.25^1043.75^.125^.013^^^43.75^0^0
	;;^UTILITY(U,$J,112,9431,2)
	;;=0^0^.063^0^0^.063^^^0^8.75^^21.25