FHINI0F9 ; ; 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,9403,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9404,0)
;;=SALAD DRESSING,ITALIAN,CREAMY,NUTRADIET^BC-02677^tbsp.^15
;;^UTILITY(U,$J,112,9404,1)
;;=0^6.667^6.667^66.667^^^^^^^^^1200
;;^UTILITY(U,$J,112,9404,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9405,0)
;;=SALAD DRESSING,ITALIAN,CREAMY,WISH-BONE^BC-02714^.5-floz.^15
;;^UTILITY(U,$J,112,9405,1)
;;=.667^36.667^9.333^360^^^^26.667^.667^0^0^0^993.333^0^0^0^^186.667^6.667^0
;;^UTILITY(U,$J,112,9405,2)
;;=0^0^^^^^^^0^6^16^13.333
;;^UTILITY(U,$J,112,9405,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9406,0)
;;=SALAD DRESSING,ITALIAN,FROM MIX,GOOD SEASONS LITE^BC-02679^tbsp.^15
;;^UTILITY(U,$J,112,9406,1)
;;=.667^16.667^5.333^180^72.667^^^6.667^.2^0^13.333^46.667^1180^.067^.007^^^300^0^0
;;^UTILITY(U,$J,112,9406,2)
;;=0^0^0^0^0^0^^^0^2.667^^6.667
;;^UTILITY(U,$J,112,9406,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9407,0)
;;=SALAD DRESSING,ITALIAN,GARLIC,FROM MIX,GOOD SEASONS LITE^BC-02680^tbsp.^15
;;^UTILITY(U,$J,112,9407,1)
;;=0^0^6.667^26.667^^^^^^^^600^100
;;^UTILITY(U,$J,112,9407,2)
;;=^^^^^^^^0^0
;;^UTILITY(U,$J,112,9407,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9408,0)
;;=SALAD DRESSING,ITALIAN,GARLIC,LITE,MARIE'S^BC-02681^tbsp.^15
;;^UTILITY(U,$J,112,9408,1)
;;=2.667^20.667^22.667^286.667^^^^86.667^.667^^^133.333^1206.667^^^^^0^0^0
;;^UTILITY(U,$J,112,9408,2)
;;=.067^0^^^^^^^20^4^^11.333
;;^UTILITY(U,$J,112,9408,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9409,0)
;;=SALAD DRESSING,ITALIAN,NO OIL,FROM MIX,GOOD SEASONS^BC-02682^tbsp.^17
;;^UTILITY(U,$J,112,9409,1)
;;=.588^0^10.588^41.176^88.824^^^5.882^.118^0^11.765^41.176^188.235^.059^.012^^^423.529^0^0
;;^UTILITY(U,$J,112,9409,2)
;;=0^0^0^0^0^0^^^0^0^^0
;;^UTILITY(U,$J,112,9409,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9410,0)
;;=SALAD DRESSING,ITALIAN,NO OIL,NUTRADIET^BC-02683^tbsp.^15
;;^UTILITY(U,$J,112,9410,1)
;;=0^0^0^13.333^^^^^^^^^1933.333
;;^UTILITY(U,$J,112,9410,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9411,0)
;;=SALAD DRESSING,ITALIAN,WISH-BONE^BC-02719^.5-floz.^15
;;^UTILITY(U,$J,112,9411,1)
;;=0^30^8.667^300^^^^6.667^.667^^^^1873.333^^^^^133.333^6.667^0
;;^UTILITY(U,$J,112,9411,2)
;;=0^0^^^^^^^0^4.667^12.667^11.333
;;^UTILITY(U,$J,112,9411,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9412,0)
;;=SALAD DRESSING,ITALIAN,ZESTY,FROM MIX,GOOD SEASONS LITE^BC-02685^tbsp.^15
;;^UTILITY(U,$J,112,9412,1)
;;=.667^17.333^5.333^173.333^74^^^13.333^.2^6.667^13.333^46.667^886.667^.067^.013^^^126.667^0^0
;;^UTILITY(U,$J,112,9412,2)
;;=0^0^0^0^^0^^^0^2.667^^6.667
;;^UTILITY(U,$J,112,9412,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9413,0)
;;=SALAD DRESSING,RANCH,FROM MIX,GOOD SEASONS LITE^BC-02686^tbsp.^15
;;^UTILITY(U,$J,112,9413,1)
;;=6.667^13.333^13.333^193.333^^^^140^^13.333^113.333^186.667^766.667^^.067^^^173.333^^.067
;;^UTILITY(U,$J,112,9413,2)
;;=.2^^.4^.133^6.667^.667^^^20
;;^UTILITY(U,$J,112,9413,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9414,0)
;;=SALAD DRESSING,RANCH,MARIE'S LITE^BC-02687^tbsp.^15
;;^UTILITY(U,$J,112,9414,1)
;;=2^22^25.333^306.667^^^^93.333^.667^^^93.333^1413.333^^^^^20^0^.067
;;^UTILITY(U,$J,112,9414,2)
;;=0^0^^^^^^^13.333^4^^12.667
;;^UTILITY(U,$J,112,9414,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9415,0)
;;=SALAD DRESSING,RANCH,WISH-BONE LITE^BC-02688^.5-floz.^15
;;^UTILITY(U,$J,112,9415,1)
;;=1.333^23.333^16.667^280^^^^0^0^0^0^0^986.667^0^0^0^^0^0^0
;;^UTILITY(U,$J,112,9415,2)
;;=0^0^^^^^^^33.333^4.667^6.667^15.333
;;^UTILITY(U,$J,112,9415,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9416,0)
;;=SALAD DRESSING,RED WINE VINEGAR,ESTEE^BC-02689^tbsp.^15
;;^UTILITY(U,$J,112,9416,1)
;;=0^0^2.667^13.333^^^^^^^^833.333^66.667
;;^UTILITY(U,$J,112,9416,2)
;;=^^^^^^^^0^0
;;^UTILITY(U,$J,112,9416,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9417,0)
;;=SALAD DRESSING,RUSSIAN,WISH-BONE^BC-02725^.5-floz.^15
;;^UTILITY(U,$J,112,9417,1)
;;=.667^16.667^39.333^306.667^^^^13.333^.667^0^0^0^980^0^0^0^^280^6.667^0
;;^UTILITY(U,$J,112,9417,2)
;;=0^0^^^^^^^0^2.667^7.333^6
;;^UTILITY(U,$J,112,9417,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0F9 ; ; 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,9403,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9404,0)
+4 ;;=SALAD DRESSING,ITALIAN,CREAMY,NUTRADIET^BC-02677^tbsp.^15
+5 ;;^UTILITY(U,$J,112,9404,1)
+6 ;;=0^6.667^6.667^66.667^^^^^^^^^1200
+7 ;;^UTILITY(U,$J,112,9404,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9405,0)
+10 ;;=SALAD DRESSING,ITALIAN,CREAMY,WISH-BONE^BC-02714^.5-floz.^15
+11 ;;^UTILITY(U,$J,112,9405,1)
+12 ;;=.667^36.667^9.333^360^^^^26.667^.667^0^0^0^993.333^0^0^0^^186.667^6.667^0
+13 ;;^UTILITY(U,$J,112,9405,2)
+14 ;;=0^0^^^^^^^0^6^16^13.333
+15 ;;^UTILITY(U,$J,112,9405,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9406,0)
+18 ;;=SALAD DRESSING,ITALIAN,FROM MIX,GOOD SEASONS LITE^BC-02679^tbsp.^15
+19 ;;^UTILITY(U,$J,112,9406,1)
+20 ;;=.667^16.667^5.333^180^72.667^^^6.667^.2^0^13.333^46.667^1180^.067^.007^^^300^0^0
+21 ;;^UTILITY(U,$J,112,9406,2)
+22 ;;=0^0^0^0^0^0^^^0^2.667^^6.667
+23 ;;^UTILITY(U,$J,112,9406,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9407,0)
+26 ;;=SALAD DRESSING,ITALIAN,GARLIC,FROM MIX,GOOD SEASONS LITE^BC-02680^tbsp.^15
+27 ;;^UTILITY(U,$J,112,9407,1)
+28 ;;=0^0^6.667^26.667^^^^^^^^600^100
+29 ;;^UTILITY(U,$J,112,9407,2)
+30 ;;=^^^^^^^^0^0
+31 ;;^UTILITY(U,$J,112,9407,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9408,0)
+34 ;;=SALAD DRESSING,ITALIAN,GARLIC,LITE,MARIE'S^BC-02681^tbsp.^15
+35 ;;^UTILITY(U,$J,112,9408,1)
+36 ;;=2.667^20.667^22.667^286.667^^^^86.667^.667^^^133.333^1206.667^^^^^0^0^0
+37 ;;^UTILITY(U,$J,112,9408,2)
+38 ;;=.067^0^^^^^^^20^4^^11.333
+39 ;;^UTILITY(U,$J,112,9408,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9409,0)
+42 ;;=SALAD DRESSING,ITALIAN,NO OIL,FROM MIX,GOOD SEASONS^BC-02682^tbsp.^17
+43 ;;^UTILITY(U,$J,112,9409,1)
+44 ;;=.588^0^10.588^41.176^88.824^^^5.882^.118^0^11.765^41.176^188.235^.059^.012^^^423.529^0^0
+45 ;;^UTILITY(U,$J,112,9409,2)
+46 ;;=0^0^0^0^0^0^^^0^0^^0
+47 ;;^UTILITY(U,$J,112,9409,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9410,0)
+50 ;;=SALAD DRESSING,ITALIAN,NO OIL,NUTRADIET^BC-02683^tbsp.^15
+51 ;;^UTILITY(U,$J,112,9410,1)
+52 ;;=0^0^0^13.333^^^^^^^^^1933.333
+53 ;;^UTILITY(U,$J,112,9410,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9411,0)
+56 ;;=SALAD DRESSING,ITALIAN,WISH-BONE^BC-02719^.5-floz.^15
+57 ;;^UTILITY(U,$J,112,9411,1)
+58 ;;=0^30^8.667^300^^^^6.667^.667^^^^1873.333^^^^^133.333^6.667^0
+59 ;;^UTILITY(U,$J,112,9411,2)
+60 ;;=0^0^^^^^^^0^4.667^12.667^11.333
+61 ;;^UTILITY(U,$J,112,9411,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9412,0)
+64 ;;=SALAD DRESSING,ITALIAN,ZESTY,FROM MIX,GOOD SEASONS LITE^BC-02685^tbsp.^15
+65 ;;^UTILITY(U,$J,112,9412,1)
+66 ;;=.667^17.333^5.333^173.333^74^^^13.333^.2^6.667^13.333^46.667^886.667^.067^.013^^^126.667^0^0
+67 ;;^UTILITY(U,$J,112,9412,2)
+68 ;;=0^0^0^0^^0^^^0^2.667^^6.667
+69 ;;^UTILITY(U,$J,112,9412,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9413,0)
+72 ;;=SALAD DRESSING,RANCH,FROM MIX,GOOD SEASONS LITE^BC-02686^tbsp.^15
+73 ;;^UTILITY(U,$J,112,9413,1)
+74 ;;=6.667^13.333^13.333^193.333^^^^140^^13.333^113.333^186.667^766.667^^.067^^^173.333^^.067
+75 ;;^UTILITY(U,$J,112,9413,2)
+76 ;;=.2^^.4^.133^6.667^.667^^^20
+77 ;;^UTILITY(U,$J,112,9413,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9414,0)
+80 ;;=SALAD DRESSING,RANCH,MARIE'S LITE^BC-02687^tbsp.^15
+81 ;;^UTILITY(U,$J,112,9414,1)
+82 ;;=2^22^25.333^306.667^^^^93.333^.667^^^93.333^1413.333^^^^^20^0^.067
+83 ;;^UTILITY(U,$J,112,9414,2)
+84 ;;=0^0^^^^^^^13.333^4^^12.667
+85 ;;^UTILITY(U,$J,112,9414,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9415,0)
+88 ;;=SALAD DRESSING,RANCH,WISH-BONE LITE^BC-02688^.5-floz.^15
+89 ;;^UTILITY(U,$J,112,9415,1)
+90 ;;=1.333^23.333^16.667^280^^^^0^0^0^0^0^986.667^0^0^0^^0^0^0
+91 ;;^UTILITY(U,$J,112,9415,2)
+92 ;;=0^0^^^^^^^33.333^4.667^6.667^15.333
+93 ;;^UTILITY(U,$J,112,9415,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9416,0)
+96 ;;=SALAD DRESSING,RED WINE VINEGAR,ESTEE^BC-02689^tbsp.^15
+97 ;;^UTILITY(U,$J,112,9416,1)
+98 ;;=0^0^2.667^13.333^^^^^^^^833.333^66.667
+99 ;;^UTILITY(U,$J,112,9416,2)
+100 ;;=^^^^^^^^0^0
+101 ;;^UTILITY(U,$J,112,9416,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9417,0)
+104 ;;=SALAD DRESSING,RUSSIAN,WISH-BONE^BC-02725^.5-floz.^15
+105 ;;^UTILITY(U,$J,112,9417,1)
+106 ;;=.667^16.667^39.333^306.667^^^^13.333^.667^0^0^0^980^0^0^0^^280^6.667^0
+107 ;;^UTILITY(U,$J,112,9417,2)
+108 ;;=0^0^^^^^^^0^2.667^7.333^6
+109 ;;^UTILITY(U,$J,112,9417,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
