FHINI0FB ; ; 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,9431,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9432,0)
;;=SALAD DRESSING,CHEESE ITALIAN,MIX,GOOD SEASONS^BC-02705^tbsp.^16
;;^UTILITY(U,$J,112,9432,1)
;;=.625^50^3.75^450^34.375^^^12.5^.125^0^12.5^37.5^793.75^.063^.006^^^106.25^0^0
;;^UTILITY(U,$J,112,9432,2)
;;=0^0^.063^0^0^0^^^0^8.75^^21.25
;;^UTILITY(U,$J,112,9432,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9433,0)
;;=SALAD DRESSING,CLASSIC HERB,MIX,GOOD SEASONS^BC-02706^tbsp.^16
;;^UTILITY(U,$J,112,9433,1)
;;=.625^58.125^1.875^531.25^35.625^^^12.5^.313^6.25^12.5^37.5^937.5^.063^0^^^12.5^0^0
;;^UTILITY(U,$J,112,9433,2)
;;=0^0^^0^^0^^^0^8.75^^21.875
;;^UTILITY(U,$J,112,9433,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9434,0)
;;=SALAD DRESSING,FRENCH,CATALINA,KRAFT^BC-02707^tbsp.^15
;;^UTILITY(U,$J,112,9434,1)
;;=.667^36.667^24.667^433.333^34.667^^^13.333^.667^0^6.667^100^1233.333^.333^.067^^^353.333^6.667^0
;;^UTILITY(U,$J,112,9434,2)
;;=0^.667^.067^.067^33.333^0^^^0^5.333^^22
;;^UTILITY(U,$J,112,9434,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9435,0)
;;=SALAD DRESSING,FRENCH,RED,WISH-BONE^BC-02708^.5-floz.^15
;;^UTILITY(U,$J,112,9435,1)
;;=.667^37.333^26^426.667^^^^6.667^0^^^^1133.333^^^^^^6.667^0
;;^UTILITY(U,$J,112,9435,2)
;;=0^0^^^^^^^0^5.333^16^14
;;^UTILITY(U,$J,112,9435,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9436,0)
;;=SALAD DRESSING,FRENCH,SWEET 'N SPICY,WISH-BONE^BC-02709^.5-floz.^15
;;^UTILITY(U,$J,112,9436,1)
;;=.667^38^19.333^406.667^^^^6.667^.667^^^^1040^^^^^280^6.667^0
;;^UTILITY(U,$J,112,9436,2)
;;=0^0^^^^^^^0^5.333^16^14
;;^UTILITY(U,$J,112,9436,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9437,0)
;;=SALAD DRESSING,WISH-BONE DELUXE^BC-02710^.5-floz^15
;;^UTILITY(U,$J,112,9437,1)
;;=.667^36^15.333^380^^^^6.667^0^0^0^0^553.333^0^0^0^^80^0^0
;;^UTILITY(U,$J,112,9437,2)
;;=0^0^^^^^^^0^5.333^15.333^13.333
;;^UTILITY(U,$J,112,9437,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9438,0)
;;=SALAD DRESSING,GARLIC & HERBS,MIX,GOOD SEASONS^BC-02711^tbsp.^16
;;^UTILITY(U,$J,112,9438,1)
;;=.625^50^4.375^443.75^34.375^^^12.5^.188^0^12.5^31.25^1168.75^.063^0^^^81.25^50^0
;;^UTILITY(U,$J,112,9438,2)
;;=0^0^^^^0^^^0^8.125^^21.25
;;^UTILITY(U,$J,112,9438,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9439,0)
;;=SALAD DRESSING,ITALIAN,BLENDED,WISH-BONE^BC-02712^.5-floz.^15
;;^UTILITY(U,$J,112,9439,1)
;;=0^24^7.333^240^^^^6.667^0^^^^1326.667^^^^^60^0^0
;;^UTILITY(U,$J,112,9439,2)
;;=0^0^^^0^^^^0^3.333^10.667^9.333
;;^UTILITY(U,$J,112,9439,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9440,0)
;;=SALAD DRESSING,ITALIAN,CLASSIC OLIVE OIL,WISH-BONE^BC-02713^.5-floz.^15
;;^UTILITY(U,$J,112,9440,1)
;;=0^20^11.333^220^^^^0^.667^^^^1266.667^^^^^66.667^0^0
;;^UTILITY(U,$J,112,9440,2)
;;=0^0^^^^^^^0^2.667^9.333^6.667
;;^UTILITY(U,$J,112,9440,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9441,0)
;;=SALAD DRESSING,ITALIAN,CREAMY,WISH-BONE^BC-02714^.5-floz.^15
;;^UTILITY(U,$J,112,9441,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,9441,2)
;;=0^0^^^^^^^0^6^16^13.333
;;^UTILITY(U,$J,112,9441,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9442,0)
;;=SALAD DRESSING,ITALIAN,MIX,GOOD SEASONS^BC-02715^tbsp.^16
;;^UTILITY(U,$J,112,9442,1)
;;=.625^50^3.125^443.75^35^^^6.25^.188^0^12.5^43.75^1075^.063^.006^^^275^^0
;;^UTILITY(U,$J,112,9442,2)
;;=0^0^^0^0^0^^^0^8.75^^21.875
;;^UTILITY(U,$J,112,9442,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9443,0)
;;=SALAD DRESSING,ITALIAN,GARLIC,MARIE'S^BC-02716^tbsp.^15
;;^UTILITY(U,$J,112,9443,1)
;;=1.333^68.667^3.333^640^^^^46.667^.667^^^60^926.667^^^^^0^0^0
;;^UTILITY(U,$J,112,9443,2)
;;=.067^0^^^^^^^60^11.333^^40
;;^UTILITY(U,$J,112,9443,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9444,0)
;;=SALAD DRESSING,ITALIAN,MILD,MIX,GOOD SEASONS^BC-02717^tbsp.^17
;;^UTILITY(U,$J,112,9444,1)
;;=0^47.059^7.059^429.412^33.529^^^5.882^.176^0^5.882^29.412^1129.412^.059^.006^^^158.824^5.882^0
;;^UTILITY(U,$J,112,9444,2)
;;=0^0^^^0^0^^^0^8.235^^20.588
;;^UTILITY(U,$J,112,9444,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9445,0)
;;=SALAD DRESSING,ITALIAN,ROBUSTO,WISH-BONE^BC-02718^.5-floz.^15
FHINI0FB ; ; 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,9431,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9432,0)
+4 ;;=SALAD DRESSING,CHEESE ITALIAN,MIX,GOOD SEASONS^BC-02705^tbsp.^16
+5 ;;^UTILITY(U,$J,112,9432,1)
+6 ;;=.625^50^3.75^450^34.375^^^12.5^.125^0^12.5^37.5^793.75^.063^.006^^^106.25^0^0
+7 ;;^UTILITY(U,$J,112,9432,2)
+8 ;;=0^0^.063^0^0^0^^^0^8.75^^21.25
+9 ;;^UTILITY(U,$J,112,9432,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9433,0)
+12 ;;=SALAD DRESSING,CLASSIC HERB,MIX,GOOD SEASONS^BC-02706^tbsp.^16
+13 ;;^UTILITY(U,$J,112,9433,1)
+14 ;;=.625^58.125^1.875^531.25^35.625^^^12.5^.313^6.25^12.5^37.5^937.5^.063^0^^^12.5^0^0
+15 ;;^UTILITY(U,$J,112,9433,2)
+16 ;;=0^0^^0^^0^^^0^8.75^^21.875
+17 ;;^UTILITY(U,$J,112,9433,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9434,0)
+20 ;;=SALAD DRESSING,FRENCH,CATALINA,KRAFT^BC-02707^tbsp.^15
+21 ;;^UTILITY(U,$J,112,9434,1)
+22 ;;=.667^36.667^24.667^433.333^34.667^^^13.333^.667^0^6.667^100^1233.333^.333^.067^^^353.333^6.667^0
+23 ;;^UTILITY(U,$J,112,9434,2)
+24 ;;=0^.667^.067^.067^33.333^0^^^0^5.333^^22
+25 ;;^UTILITY(U,$J,112,9434,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9435,0)
+28 ;;=SALAD DRESSING,FRENCH,RED,WISH-BONE^BC-02708^.5-floz.^15
+29 ;;^UTILITY(U,$J,112,9435,1)
+30 ;;=.667^37.333^26^426.667^^^^6.667^0^^^^1133.333^^^^^^6.667^0
+31 ;;^UTILITY(U,$J,112,9435,2)
+32 ;;=0^0^^^^^^^0^5.333^16^14
+33 ;;^UTILITY(U,$J,112,9435,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9436,0)
+36 ;;=SALAD DRESSING,FRENCH,SWEET 'N SPICY,WISH-BONE^BC-02709^.5-floz.^15
+37 ;;^UTILITY(U,$J,112,9436,1)
+38 ;;=.667^38^19.333^406.667^^^^6.667^.667^^^^1040^^^^^280^6.667^0
+39 ;;^UTILITY(U,$J,112,9436,2)
+40 ;;=0^0^^^^^^^0^5.333^16^14
+41 ;;^UTILITY(U,$J,112,9436,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9437,0)
+44 ;;=SALAD DRESSING,WISH-BONE DELUXE^BC-02710^.5-floz^15
+45 ;;^UTILITY(U,$J,112,9437,1)
+46 ;;=.667^36^15.333^380^^^^6.667^0^0^0^0^553.333^0^0^0^^80^0^0
+47 ;;^UTILITY(U,$J,112,9437,2)
+48 ;;=0^0^^^^^^^0^5.333^15.333^13.333
+49 ;;^UTILITY(U,$J,112,9437,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9438,0)
+52 ;;=SALAD DRESSING,GARLIC & HERBS,MIX,GOOD SEASONS^BC-02711^tbsp.^16
+53 ;;^UTILITY(U,$J,112,9438,1)
+54 ;;=.625^50^4.375^443.75^34.375^^^12.5^.188^0^12.5^31.25^1168.75^.063^0^^^81.25^50^0
+55 ;;^UTILITY(U,$J,112,9438,2)
+56 ;;=0^0^^^^0^^^0^8.125^^21.25
+57 ;;^UTILITY(U,$J,112,9438,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9439,0)
+60 ;;=SALAD DRESSING,ITALIAN,BLENDED,WISH-BONE^BC-02712^.5-floz.^15
+61 ;;^UTILITY(U,$J,112,9439,1)
+62 ;;=0^24^7.333^240^^^^6.667^0^^^^1326.667^^^^^60^0^0
+63 ;;^UTILITY(U,$J,112,9439,2)
+64 ;;=0^0^^^0^^^^0^3.333^10.667^9.333
+65 ;;^UTILITY(U,$J,112,9439,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9440,0)
+68 ;;=SALAD DRESSING,ITALIAN,CLASSIC OLIVE OIL,WISH-BONE^BC-02713^.5-floz.^15
+69 ;;^UTILITY(U,$J,112,9440,1)
+70 ;;=0^20^11.333^220^^^^0^.667^^^^1266.667^^^^^66.667^0^0
+71 ;;^UTILITY(U,$J,112,9440,2)
+72 ;;=0^0^^^^^^^0^2.667^9.333^6.667
+73 ;;^UTILITY(U,$J,112,9440,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9441,0)
+76 ;;=SALAD DRESSING,ITALIAN,CREAMY,WISH-BONE^BC-02714^.5-floz.^15
+77 ;;^UTILITY(U,$J,112,9441,1)
+78 ;;=.667^36.667^9.333^360^^^^26.667^.667^0^0^0^993.333^0^0^0^^186.667^6.667^0
+79 ;;^UTILITY(U,$J,112,9441,2)
+80 ;;=0^0^^^^^^^0^6^16^13.333
+81 ;;^UTILITY(U,$J,112,9441,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9442,0)
+84 ;;=SALAD DRESSING,ITALIAN,MIX,GOOD SEASONS^BC-02715^tbsp.^16
+85 ;;^UTILITY(U,$J,112,9442,1)
+86 ;;=.625^50^3.125^443.75^35^^^6.25^.188^0^12.5^43.75^1075^.063^.006^^^275^^0
+87 ;;^UTILITY(U,$J,112,9442,2)
+88 ;;=0^0^^0^0^0^^^0^8.75^^21.875
+89 ;;^UTILITY(U,$J,112,9442,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9443,0)
+92 ;;=SALAD DRESSING,ITALIAN,GARLIC,MARIE'S^BC-02716^tbsp.^15
+93 ;;^UTILITY(U,$J,112,9443,1)
+94 ;;=1.333^68.667^3.333^640^^^^46.667^.667^^^60^926.667^^^^^0^0^0
+95 ;;^UTILITY(U,$J,112,9443,2)
+96 ;;=.067^0^^^^^^^60^11.333^^40
+97 ;;^UTILITY(U,$J,112,9443,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9444,0)
+100 ;;=SALAD DRESSING,ITALIAN,MILD,MIX,GOOD SEASONS^BC-02717^tbsp.^17
+101 ;;^UTILITY(U,$J,112,9444,1)
+102 ;;=0^47.059^7.059^429.412^33.529^^^5.882^.176^0^5.882^29.412^1129.412^.059^.006^^^158.824^5.882^0
+103 ;;^UTILITY(U,$J,112,9444,2)
+104 ;;=0^0^^^0^0^^^0^8.235^^20.588
+105 ;;^UTILITY(U,$J,112,9444,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,9445,0)
+108 ;;=SALAD DRESSING,ITALIAN,ROBUSTO,WISH-BONE^BC-02718^.5-floz.^15
