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
FHINI0FA ; ; 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,9418,0)
+2 ;;=SALAD DRESSING,SOUR CREAM & DILL,MARIE'S^BC-02726^tbsp.^15
+3 ;;^UTILITY(U,$J,112,9418,1)
+4 ;;=2^68^6^640^^^^53.333^.667^^^40^593.333^^^^^240^0^0
+5 ;;^UTILITY(U,$J,112,9418,2)
+6 ;;=.067^0^^^^^^^46.667^11.333^^39.333
+7 ;;^UTILITY(U,$J,112,9418,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9419,0)
+10 ;;=SALAD DRESSING,THOUSAND ISLAND,MARIE'S^BC-02727^tbsp.^15
+11 ;;^UTILITY(U,$J,112,9419,1)
+12 ;;=.667^52^18^540^^^^26.667^.667^^^73.333^753.333^^^^^573.333^0^0
+13 ;;^UTILITY(U,$J,112,9419,2)
+14 ;;=0^.667^^^^^^^46.667^8.667^^30
+15 ;;^UTILITY(U,$J,112,9419,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9420,0)
+18 ;;=SALAD DRESSING,THOUSAND ISLAND,NUTRADIET^BC-02693^tbsp.^15
+19 ;;^UTILITY(U,$J,112,9420,1)
+20 ;;=0^13.333^13.333^166.667^^^^^^^^^700
+21 ;;^UTILITY(U,$J,112,9420,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9421,0)
+24 ;;=SALAD DRESSING,THOUSAND ISLAND,WISH-BONE^BC-02728^.5-floz.^15
+25 ;;^UTILITY(U,$J,112,9421,1)
+26 ;;=.667^37.333^20.667^413.333^^^^13.333^.667^0^0^0^1020^0^0^0^^226.667^6.667^0
+27 ;;^UTILITY(U,$J,112,9421,2)
+28 ;;=0^0^^^^^^^46.667^6^16^14
+29 ;;^UTILITY(U,$J,112,9421,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9422,0)
+32 ;;=SALAD DRESSING,VINAIGRETTE,CLASSIC DIJON,WISH-BONE^BC-02729^.5-floz.^15
+33 ;;^UTILITY(U,$J,112,9422,1)
+34 ;;=1.333^38^9.333^380^^^^13.333^1.333^0^0^^1060^0^0^0^^880^13.333^0
+35 ;;^UTILITY(U,$J,112,9422,2)
+36 ;;=0^0^^^^^^^0^5.333^16^14
+37 ;;^UTILITY(U,$J,112,9422,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9423,0)
+40 ;;=SALAD DRESSING,VINAIGRETTE,OLIVE OIL,WISH-BONE^BC-02730^.5-floz.^15
+41 ;;^UTILITY(U,$J,112,9423,1)
+42 ;;=0^15.333^12.667^186.667^^^^6.667^0^^^^773.333^^^^^6.667^0^0
+43 ;;^UTILITY(U,$J,112,9423,2)
+44 ;;=0^0^^^^^^^0^2^8^4.667
+45 ;;^UTILITY(U,$J,112,9423,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9424,0)
+48 ;;=SALAD DRESSING,AVOCADO GODDESS,MARIE'S^BC-02697^tbsp.^15
+49 ;;^UTILITY(U,$J,112,9424,1)
+50 ;;=1.333^70.667^^646.667^^^^26.667^.667^^^40^620^^^^^0^0^0
+51 ;;^UTILITY(U,$J,112,9424,2)
+52 ;;=.067^0^^^^^^^53.333^11.333^^40
+53 ;;^UTILITY(U,$J,112,9424,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9425,0)
+56 ;;=SALAD DRESSING,BLEU CHEESE & HERBS,MIX,GOOD SEASON^BC-02698^tbsp.^16
+57 ;;^UTILITY(U,$J,112,9425,1)
+58 ;;=.625^50^4.375^450^34.375^^^18.75^.125^0^18.75^25^925^.125^.013^^^43.75^0^0
+59 ;;^UTILITY(U,$J,112,9425,2)
+60 ;;=0^0^.063^0^0^.063^^^0^8.75^^21.25
+61 ;;^UTILITY(U,$J,112,9425,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9426,0)
+64 ;;=SALAD DRESSING,BLEU CHEESE,MARIE'S^BC-02699^tbsp.^15
+65 ;;^UTILITY(U,$J,112,9426,1)
+66 ;;=4^65.333^5.333^626.667^^^^93.333^.667^^^46.667^580^^^^^0^0^0
+67 ;;^UTILITY(U,$J,112,9426,2)
+68 ;;=.067^0^^^^^^^60^12^^36.667
+69 ;;^UTILITY(U,$J,112,9426,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9427,0)
+72 ;;=SALAD DRESSING,BLEU CHEESE,WISH-BONE CHUNKY^BC-02700^.5-floz.^15
+73 ;;^UTILITY(U,$J,112,9427,1)
+74 ;;=2^52^5.333^486.667^^^^60^0^^^^993.333^^^^^40^0^0
+75 ;;^UTILITY(U,$J,112,9427,2)
+76 ;;=0^0^^^^^^^6.667^9.333^20.667^18
+77 ;;^UTILITY(U,$J,112,9427,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9428,0)
+80 ;;=SALAD DRESSING,BUTTERMILK FARM STYLE,MIX,GOOD SEASONS^BC-02701^tbsp.^16
+81 ;;^UTILITY(U,$J,112,9428,1)
+82 ;;=3.125^36.25^7.5^362.5^49.375^^^100^.313^12.5^87.5^150^856.25^.313^.125^^^200^0^.063
+83 ;;^UTILITY(U,$J,112,9428,2)
+84 ;;=.125^0^.375^.313^6.25^.625^^^31.25^6.25^^18.125
+85 ;;^UTILITY(U,$J,112,9428,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9429,0)
+88 ;;=SALAD DRESSING,BUTTERMILK SPICE,MARIE'S^BC-02702^tbsp.^15
+89 ;;^UTILITY(U,$J,112,9429,1)
+90 ;;=1.333^59.333^12.667^593.333^^^^40^.667^^^33.333^820^^^^^0^0^0
+91 ;;^UTILITY(U,$J,112,9429,2)
+92 ;;=.067^0^^^^^^^33.333^9.333^^34
+93 ;;^UTILITY(U,$J,112,9429,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9430,0)
+96 ;;=SALAD DRESSING,CAESAR,WISH-BONE^BC-02703^.5-floz.^15
+97 ;;^UTILITY(U,$J,112,9430,1)
+98 ;;=2.667^53.333^5.333^506.667^^^^40^0^0^0^0^1653.333^0^0^0^^20^0^0
+99 ;;^UTILITY(U,$J,112,9430,2)
+100 ;;=0^0^^^^^^^6.667^6.667^22.667^19.333
+101 ;;^UTILITY(U,$J,112,9430,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9431,0)
+104 ;;=SALAD DRESSING,CHEESE GARLIC,MIX,GOOD SEASONS^BC-02704^tbsp.^16
+105 ;;^UTILITY(U,$J,112,9431,1)
+106 ;;=1.25^50^3.125^450^34.375^^^25^.188^0^18.75^31.25^1043.75^.125^.013^^^43.75^0^0
+107 ;;^UTILITY(U,$J,112,9431,2)
+108 ;;=0^0^.063^0^0^.063^^^0^8.75^^21.25