#delimit ;
set more off;
version 11.0;

/***************************************/
/* Making RPI Expenditure Variables    */
/***************************************/

/*************************/
/* RPI Weights           */
/*************************/

/********* [2001,2002,2003,2004,2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016] **********/




mat  wbread         = [5,5,4,4,4,4,4,5,5,5,5,4,5,5,4,4];
mat  wcereals       = [4,4,3,3,3,3,3,4,4,4,4,4,4,4,4,4];
mat  wbiscuits      = [7,7,6,7,6,6,6,6,7,6,7,7,7,7,7,7];
mat  woth_meat      = [7,7,7,7,7,7,6,7,7,7,7,7,7,7,7,7];
mat  wfish          = [4,3,3,3,4,4,4,4,3,4,4,4,4,4,4,4];
mat  wpotatoes      = [6,6,5,5,5,4,5,5,5,5,5,5,5,5,5,5];
mat  woth_vegs      = [8,10,7,9,9,8,9,9,10,9,9,9,9,9,8,9];
mat  woth_food      = [13,12,15,15,12,11,10,10,11,11,11,11,11,11,11,11];
mat  wbeeron        = [37,36,36,35,37,36,34,31,32,31,29,26,26,25,24,26]; /*n.b. this is just the beer weight*/
mat  wwinespiron    = [31,32,32,33,30,31,32,28,31,33,31,30,35,33,32,30]; /*this is just the winespir weight*/
mat  wrent          = [47,47,45,43,42,45,53,59,62,69,73,75,86,87,84,75];
mat  wrates         = [34,34,36,38,39,39,40,39,40,39,40,41,43,42,40,41];
mat  wwater         = [10,11,11,11,11,12,12,12,14,13,13,13,14,14,14,13];
mat  wfurnit        = [21,22,23,24,24,26,23,23,26,26,24,22,21,21,22,22];
mat  wfurnish       = [13,13,13,13,14,11,11,12,12,10,10,9,9,9,9,9];
mat  welec_app      = [10,10,8,7,8,8,8,7,7,7,6,6,6,6,5,6];
mat  wothhheq       = [6,7,7,6,5,5,4,4,4,4,5,4,4,4,4,4];
mat  wp_artic       = [12,13,12,12,12,12,11,11,12,11,9,10,10,10,10,10];
mat  wfor_hols      = [29,32,34,31,32,30,34,31,36,31,29,33,35,34,41,33];
mat  wuk_hols       = [7,6,7,8,7,8,7,7,7,7,9,9,11,10,10,9];

foreach w in wbread wcereals wbiscuits woth_meat wfish wpotatoes woth_vegs woth_food wbeeron wwinespiron wrent wrates wwater wfurnit wfurnish welec_app wothhheq wp_artic wfor_hols wuk_hols {;
local `w' = `w'[1,`year'-2000];
};


/*************************/
/* 1. Food               */
/*************************/
if ("`dvvar'" == "bread")     gen bread    = c11121;
if ("`dvvar'" == "cereals")   gen cereals  = c11111 + c11131 + c11151;
if ("`dvvar'" == "biscuits")  gen biscuits = c11122 + c11141;
if ("`dvvar'" == "beef")      gen beef     = c11211;
if ("`dvvar'" == "lamb")      gen lamb     = c11231;
if ("`dvvar'" == "pork")      gen pork     = c11221;
if ("`dvvar'" == "bacon")     gen bacon    = c11252;
if ("`dvvar'" == "poul_oth")  gen poul_oth = 0;
if ("`dvvar'" == "poultry")   gen poultry  = c11241;
if ("`dvvar'" == "oth_meat")  gen oth_meat = c11271 + c11251 + c11253 + c11261;
if ("`dvvar'" == "fish")      gen fish     = c11311 + c11321 + c11331 + c11341;
if ("`dvvar'" == "butter")    gen butter   = c11511;
if ("`dvvar'" == "oil_fats")  gen oil_fats = c11521 + c11531 + c11541 + c11551;
if ("`dvvar'" == "cheese")    gen cheese   = c11451;
if ("`dvvar'" == "eggs")      gen eggs     = c11471;
if ("`dvvar'" == "milkfres")  gen milkfres = c11411 + c11421;
if ("`dvvar'" == "milkprod")  gen milkprod = c11431 + c11441 + c11461;
if ("`dvvar'" == "tea")       gen tea      = c12121;
if ("`dvvar'" == "coffee")    gen coffee   = c12111 + c12131;
if ("`dvvar'" == "softdrin")  gen softdrin = c12231 + c12241 + c12221 + c12211;
if ("`dvvar'" == "sug_pres")  gen sug_pres = c11811 + c11821 + c11861 + c11522;
if ("`dvvar'" == "swe_choc")  gen swe_choc = c11831 + c11841;
if ("`dvvar'" == "potatoes")  gen potatoes = c11771 + c11781;
if ("`dvvar'" == "oth_vegs")  gen oth_vegs = c11711 + c11721 + c11731 + c11741 + c11751 + c11761;
if ("`dvvar'" == "fruit")     gen fruit    = c11611 + c11621 + c11631 + c11641 + c11651 + c11661 + c11671 + c11681 + c11691;
if ("`dvvar'" == "oth_food")  gen oth_food = c11851 + c11911 + c11921 + c11142 + c11941 + c11931;

if ("`dvvar'" == "FOOD"){;
foreach var in bread cereals biscuits beef lamb pork bacon poul_oth poultry oth_meat fish butter oil_fats cheese eggs
               milkfres milkprod tea coffee softdrin sug_pres swe_choc potatoes oth_vegs fruit oth_food {;
capture getexpendvar `var', year(`year');
};
gen FOOD = bread + cereals + biscuits + beef + lamb + pork + bacon + poul_oth + poultry + oth_meat + fish + butter + oil_fats + cheese + eggs
           + milkfres + milkprod + tea + coffee + softdrin + sug_pres + swe_choc + potatoes + oth_vegs + fruit + oth_food;
};

/*************************/
/* 2. Kids' Food         */
/*************************/

if ("`dvvar'" == "kidsbread")     gen kidsbread    = c11121c;
if ("`dvvar'" == "kidscereals")   gen kidscereals  = c11111c + c11131c + c11151c;
if ("`dvvar'" == "kidsbiscuits")  gen kidsbiscuits = c11122c + c11141c;
if ("`dvvar'" == "kidsbeef")      gen kidsbeef     = c11211c;
if ("`dvvar'" == "kidslamb")      gen kidslamb     = c11231c;
if ("`dvvar'" == "kidspork")      gen kidspork     = c11221c;
if ("`dvvar'" == "kidsbacon")     gen kidsbacon    = c11252c;
if ("`dvvar'" == "kidspoul_oth")  gen kidspoul_oth = 0;
if ("`dvvar'" == "kidspoultry")   gen kidspoultry  = c11241c;
if ("`dvvar'" == "kidsoth_meat")  gen kidsoth_meat = c11271c + c11251c + c11253c + c11261c;
if ("`dvvar'" == "kidsfish")      gen kidsfish     = c11311c + c11321c + c11331c + c11341c;
if ("`dvvar'" == "kidsbutter")    gen kidsbutter   = c11511c;
if ("`dvvar'" == "kidsoil_fats")  gen kidsoil_fats = c11521c + c11531c + c11541c + c11551c;
if ("`dvvar'" == "kidscheese")    gen kidscheese   = c11451c;
if ("`dvvar'" == "kidseggs")      gen kidseggs     = c11471c;
if ("`dvvar'" == "kidsmilkfres")  gen kidsmilkfres = c11411c + c11421c;
if ("`dvvar'" == "kidsmilkprod")  gen kidsmilkprod = c11431c + c11441c + c11461c;
if ("`dvvar'" == "kidstea")       gen kidstea      = c12121c;
if ("`dvvar'" == "kidscoffee")    gen kidscoffee   = c12111c + c12131c;
if ("`dvvar'" == "kidssoftdrin")  gen kidssoftdrin = c12231c + c12241c + c12221c + c12211c;
if ("`dvvar'" == "kidssug_pres")  gen kidssug_pres = c11811c + c11821c + c11861c + c11522c;
if ("`dvvar'" == "kidsswe_choc")  gen kidsswe_choc = c11831c + c11841c;
if ("`dvvar'" == "kidspotatoes")  gen kidspotatoes = c11771c + c11781c;
if ("`dvvar'" == "kidsoth_vegs")  gen kidsoth_vegs = c11711c + c11721c + c11731c + c11741c + c11751c + c11761c;
if ("`dvvar'" == "kidsfruit")     gen kidsfruit    = c11611c + c11621c + c11631c + c11641c + c11651c + c11661c + c11671c + c11681c + c11691c;
if ("`dvvar'" == "kidsoth_food")  gen kidsoth_food = c11851c + c11911c + c11921c + c11142c + c11941c + c11931c;

if ("`dvvar'" == "kidsFOOD") {;
foreach var in kidsbread kidscereals kidsbiscuits kidsbeef kidslamb kidspork kidsbacon kidspoul_oth kidspoultry kidsoth_meat kidsfish
               kidsbutter kidsoil_fats kidscheese kidseggs kidsmilkfres kidsmilkprod kidstea kidscoffee kidssoftdrin kidssug_pres
               kidsswe_choc kidspotatoes kidsoth_vegs kidsfruit kidsoth_food {;
capture getexpendvar `var', year(`year');
};
gen kidsFOOD = kidsbread + kidscereals + kidsbiscuits + kidsbeef + kidslamb + kidspork + kidsbacon + kidspoul_oth + kidspoultry + kidsoth_meat
               + kidsfish + kidsbutter + kidsoil_fats + kidscheese + kidseggs + kidsmilkfres + kidsmilkprod + kidstea + kidscoffee
               + kidssoftdrin + kidssug_pres + kidsswe_choc + kidspotatoes + kidsoth_vegs + kidsfruit + kidsoth_food;
};

/*************************/
/* 3. Catering           */
/*************************/

if ("`dvvar'" == "restaur")  gen restaur  = cb1111 + cb1121;
if ("`dvvar'" == "canteen")  gen canteen  = b260 + cb1213;
if ("`dvvar'" == "oth_snac") gen oth_snac = 0;
if ("`dvvar'" == "takeaway") gen takeaway = cb1127 + cb1128 + cb1115 + cb1116 + cb1112 + cb1113 + cb1114 + cb1122 + cb1125 + cb1126 + cb1123 + cb1124;

if ("`dvvar'" == "CATERING")  {;
foreach var in restaur canteen oth_snac takeaway {;
capture getexpendvar `var', year(`year');
};
gen CATERING = restaur + canteen + oth_snac + takeaway;
};

/*************************/
/* 4. Kids' Catering     */
/*************************/

if ("`dvvar'" == "kidsrestaur")  gen kidsrestaur  = 0;
if ("`dvvar'" == "kidscanteen")  gen kidscanteen  = b260c;
if ("`dvvar'" == "kidsoth_snac") gen kidsoth_snac = 0;
if ("`dvvar'" == "kidstakeaway") gen kidstakeaway = cb1127c + cb1128c + cb111ac + cb111bc + cb1117c + cb1118c + cb1119c;

if ("`dvvar'" == "kidsCATERING") {;
foreach var in kidsrestaur kidscanteen kidsoth_snac kidstakeaway {;
capture getexpendvar `var', year(`year');
};
gen kidsCATERING = kidsrestaur + kidscanteen + kidsoth_snac + kidstakeaway;
};

/*************************/
/* 5. Alcohol            */
/*************************/

/***AL: I think Alcopops c21214 (check for on equiv) should go into wine spirits not beer. The RPI tech manual codes suggest this***/

if ("`dvvar'" == "beer")        gen beer     = c21311 + c21213 + cb111i + cb111f + cb111j*(`wbeeron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "onbeer")      gen onbeer   = cb111i + cb111f + cb111j*(`wbeeron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "offbeer")     gen offbeer  = c21311 + c21213;
if ("`dvvar'" == "winespir")    gen winespir = c21211 + c21221 + c21214 + c21212 + c21111 + cb111d + cb111h + cb111e + cb111c + cb111g + cb111j*(`wwinespiron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "onwinsp")     gen onwinsp  = cb111d + cb111h + cb111g + cb111e + cb111c + cb111j*(`wwinespiron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "offwinsp")    gen offwinsp = c21211 + c21221 + c21212 + c21111 + c21214;

if ("`dvvar'" == "ALCOHOL") {;
foreach var in beer onbeer offbeer winespir onwinspir offwinspir {;
capture getexpendvar `var', year(`year');
};
gen ALCOHOL = beer + winespir;
};

/*************************/
/* 6. Kids' Alcohol      */
/*************************/

if ("`dvvar'" == "kidsbeer")        gen kidsbeer        = c21311c + c21213c + cb111ic + cb111fc + cb111jc*(`wbeeron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "kidsonbeer")      gen kidsonbeer      = cb111ic + cb111fc + cb111jc*(`wbeeron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "kidsoffbeer")     gen kidsoffbeer     = c21311c + c21213c;
if ("`dvvar'" == "kidswinespir")    gen kidswinespir    = c21211c + c21221c + c21214c + c21212c + c21111c + cb111dc + cb111hc + cb111ec + cb111cc + cb111gc + cb111jc*(`wwinespiron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "kidsonwinsp")     gen kidsonwinsp     = cb111dc + cb111hc + cb111ec + cb111cc + cb111gc + cb111jc*(`wwinespiron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "kidsoffwinsp")    gen kidsoffwinsp    = c21211c + c21221c + c21212c + c21111c + c21214c;

if ("`dvvar'" == "kidsALCOHOL") {;
foreach var in kidsbeer kidsonbeer kidsoffbeer kidswinespir kidsonwinspir kidsoffwinspir {;
capture getexpendvar `var', year(`year');
};
gen kidsALCOHOL = kidsbeer + kidswinespir;
};

/*************************/
/* 7. Tobacco            */
/*************************/

if ("`dvvar'" == "cigs")   gen cigs   = c22111;;
if ("`dvvar'" == "othtob") gen othtob = c22121 + c22131;

if ("`dvvar'" == "TOBACCO") {;
foreach var in cigs othtob {;
capture getexpendvar `var', year(`year');
};
gen TOBACCO = cigs + othtob;
};

/*************************/
/* 8. Kids' Tobacco      */
/*************************/

if ("`dvvar'" == "kidscigs")   gen kidscigs   = c22111c;
if ("`dvvar'" == "kidsothtob") gen kidsothtob = c22121c + c22131c;

if ("`dvvar'" == "kidsTOBACCO") {;
foreach var in kidscigs kidsothtob {;
capture getexpendvar `var', year(`year');
};
gen kidsTOBACCO = kidscigs + kidsothtob;
};

/*************************/
/* 9. Housing            */
/*************************/
if ("`dvvar'" == "rent") {;
      gen renter = a121==1|a121==2|a121==3|a121==4|a121==6;

      gen rent = ((b010+b020+b040+b230)*(`wrent'/(`wrates'+`wrent'+`wwater')) - b230)     if gorx==13&renter==1 &b030==0&b050==0;    /* N. Ireland, pays rent, rates and water all together                  */
      replace rent =  (b010+b020)                                                         if gorx==13&renter==1 &b030!=0&b050==0;    /* N. Ireland, rates paid separately but zero water charges - assume water paid with rates*/

      replace rent = (b010+b020)                                                          if gorx<13|(gorx==13& renter==0);
      drop renter;
};

if ("`dvvar'" == "mortgagetot") {;
    if `year'<=2006                gen mortgagetot = b130+b200+b201+b202;
    if `year'>=2007 & `year'<=2009 gen mortgagetot = b130+b200+b201+b202+b203; /*see (M:\newfes\Extractor\usefuldocs\EFS mixed mortgage Enquiry.eml)*/
    if `year'>=2010                gen mortgagetot = b130+b200+b2011+b203+b204;
    };
if ("`dvvar'" == "mortgageint") gen mortgageint = b130+b150;

if ("`dvvar'" == "ratewat")  gen ratewat  = 0;
if ("`dvvar'" == "rates")    gen rates    = 0;
if ("`dvvar'" == "ratecomm") gen ratecomm = 0;
if ("`dvvar'" == "ratectcc") gen ratectcc = 0;

if ("`dvvar'" == "ratect") {;
       gen renter = a121==1|a121==2|a121==3|a121==4|a121==6;

       gen     ratect = ((b010+b020+b040+b230)*(`wrates'/(`wrent'+`wrates'+`wwater'))) - b040 if gorx==13&renter==1&b030==0&b050==0;      /* N. Ireland, renter, rates paid with rents and water  */
       replace ratect = ((b030+b040)*(`wrates'/(`wrates'+`wwater'))) - b040                   if gorx==13&renter==1&b030!=0&b050==0;      /* N. Ireland, renter, water paid with rates   */
       replace ratect = ((b030+b040)*(`wrates'/(`wrates'+`wwater'))) - b040                   if gorx==13&renter==0;                      /* N. Ireland, non-renter, water paid with reates*/

       replace ratect = b038p                                                                 if gorx<13;
       drop renter;
};
if ("`dvvar'" == "water")    gen water    = 0;

if ("`dvvar'" == "wat_oth") {;
        gen renter = a121==1|a121==2|a121==3|a121==4|a121==6;

        gen     wat_oth = ((b010+b020+b040+b230)*(`wwater'/(`wrent'+`wrates'+`wwater')))   if gorx==13&renter==1&b030==0&b050==0;    /* water paid together with rent and rates, in N Ireland                    */
        replace wat_oth = ((b030+b040)*(`wwater'/(`wrates'+`wwater')))                     if gorx==13&renter==1&b030~=0&b050==0;    /* water paid together with rates, in N Ireland           */
        replace wat_oth = ((b030+b040)*(`wwater'/(`wrates'+`wwater')))                     if gorx==13&renter==0;                   /* water paid together with rates, in N Ireland - can't be paid with rent for non-renters*/


        replace wat_oth = b053p + b056p                                                    if gorx==12;                               /*scotland has water council tax*/
        replace wat_oth = b050                                                             if gorx< 12;                              /* water rates in England, can't be paid with council tax   */
        drop renter;
};
if ("`dvvar'" == "repair")   gen repair   = b102 + b104 + b107 + b108;
if ("`dvvar'" == "diy") {;
             if `year'==2001 gen diy      = c55212 + c51112 + c55211 + c43111 + c43112 + c56125;
             if `year'>=2002 gen diy      = c55212 + ck1316 + c55211 + c43111 + c43112 + c56125;
};
if ("`dvvar'" == "insgr")    gen insgr    = b110+b060;

if ("`dvvar'" == "HOUSING") {;
foreach var in rent mortgageint ratewat rates ratecomm ratectcc ratect water wat_oth repair diy insgr {;
capture getexpendvar `var', year(`year');
};
capture drop renter;
gen HOUSING = rent + mortgageint + ratewat + rates + ratecomm + ratectcc + ratect + water + wat_oth + repair + diy + insgr;
};


/*************************/
/* 10. Kids' Housing     */
/*************************/

if ("`dvvar'" == "kidsrent")        gen kidsrent        = 0;
if ("`dvvar'" == "kidsmortgageint") gen kidsmortgageint = 0;
if ("`dvvar'" == "kidsmortgagetot") gen kidsmortgagetot = 0;
if ("`dvvar'" == "kidsratewat")     gen kidsratewat     = 0;
if ("`dvvar'" == "kidsrates")       gen kidsrates       = 0;
if ("`dvvar'" == "kidsratecomm")    gen kidsratecomm    = 0;
if ("`dvvar'" == "kidsratectcc")    gen kidsratectcc    = 0;
if ("`dvvar'" == "kidsratect")      gen kidsratect      = 0;
if ("`dvvar'" == "kidswater")       gen kidswater       = 0;
if ("`dvvar'" == "kidswat_oth")     gen kidswat_oth     = 0;
if ("`dvvar'" == "kidsrepair")      gen kidsrepair      = c43212c;
if ("`dvvar'" == "kidsdiy") {;
                 if `year'==2001 gen kidsdiy      = c55212c + c51112c + c55211c + c43111c + c43112c + c56125c;
                 if `year'>=2002 gen kidsdiy      = c55212c + ck1316c + c55211c + c43111c + c43112c + c56125c;
};
if ("`dvvar'" == "kidsinsgr")    gen kidsinsgr    = 0;

if ("`dvvar'" == "kidsHOUSING") {;
foreach var in kidsrent kidsmortgageint kidsratewat kidsrates kidsratecomm kidsratectcc kidsratect kidswater kidswat_oth kidsrepair kidsdiy kidsinsgr {;
capture getexpendvar `var', year(`year');
};
gen kidsHOUSING = kidsrent + kidsmortgageint + kidsratewat + kidsrates + kidsratecomm + kidsratectcc + kidsratect + kidswater + kidswat_oth + kidsrepair + kidsdiy + kidsinsgr;
};

/*************************/
/* 11. Fuel              */
/*************************/
/*n.b new codes in 2013 for gas/elec payments less rebates (b489-b492) These codes are derived from the respective gas/elec payment codes less the rebate code
  so we don't need to change anything*/

if ("`dvvar'" == "coal")     gen coal     = c45411;
if ("`dvvar'" == "electric"){;
                    if `year'<2009                gen electric = b175 + b222 + c45114 + c45112 - b178;
                    if `year'>=2009 & `year'<2015 gen electric = b175 + b224 + c45114 + c45112 - b178;
                    if `year'>=2015               gen electric = b175        + c45114 + c45112 - b178;
                    };
if ("`dvvar'" == "gas") {;
                    if `year'< 2009               gen gas      = b170 + b221 + c45214 + c45212 - b173;
                    if `year'>=2009 & `year'<2015 gen gas      = b170 + b223 + c45214 + c45212 - b173;
                    if `year'>=2015               gen gas      = b170        + c45214 + c45212 - b173;
                    };
if ("`dvvar'" == "oil_oth")  gen oil_oth  = b017 + b018 + c45412 + c45312 + c45222 + c45511;

if ("`dvvar'" == "FUEL_LIG") {;
foreach var in coal electric gas oil_oth {;
capture getexpendvar `var', year(`year');
};
gen FUEL_LIG = coal + electric + gas + oil_oth;
};

/*************************/
/* 12. Kids' Fuel        */
/*************************/

if ("`dvvar'" == "kidscoal")     gen kidscoal     = c45411c;
if ("`dvvar'" == "kidselectric") gen kidselectric = c45114c;
if ("`dvvar'" == "kidsgas")      gen kidsgas      = c45214c;
if ("`dvvar'" == "kidsoil_oth")  {;

if `year'<=2010 gen kidsoil_oth  = c45412c + c45312c + c45222c + c45221c + c45311c + c45511c;
if `year'>=2011 gen kidsoil_oth  = c45412c + c45312c + c45222c + c45511c;
};

if ("`dvvar'" == "kidsFUEL_LIG") {;
foreach var in kidscoal kidselectric kidsgas kidsoil_oth {;
capture getexpendvar `var', year(`year');
};
gen kidsFUEL_LIG = kidscoal + kidselectric + kidsgas + kidsoil_oth;
};

/*************************/
/* 13. HH Goods          */
/*************************/

if ("`dvvar'" == "furnit")   {;
             if `year'==2001 gen furnit   = b270;
             if `year'>=2002 gen furnit   = b270 + (c56223)*(`wfurnit'/(`wfurnit'+`wfurnish'));
};
if ("`dvvar'" == "furnish")  {;
             if `year'==2001 gen furnish  = b271 + c51212 + c52111 + c52112;
             if `year'>=2002 gen furnish  = b271 + c51212 + c52111 + c52112 + c56223*(`wfurnish'/(`wfurnit'+`wfurnish'));
};
if ("`dvvar'" == "elec_app") {;
             if `year'==2001 gen elec_app = c53132 + c53121 + c53111 + c53141 + c53122 + c53133 + c53151 + cc1211 + c55111 + c53211 + c53161 + c53312 + c53311*(`welec_app'/(`welec_app'+`wothhheq'));
             if `year'>=2002 gen elec_app = c53132 + c53121 + c53111 + c53314 + c53141 + c53122 + c53133 + c53151 + cc1211 + c55111 + c53211 + c53161 + c53312 + c53311*(`welec_app'/(`welec_app'+`wothhheq'));
};
if ("`dvvar'" == "othhheq")  {;
             if `year'==2001 gen othhheq  = c53131 + c53313 + c54131 + c54111 + c53311*(`wothhheq'/(`welec_app'+`wothhheq')) + c54121 + c56123 + c51113 + c56122 + c93114 + c93313 + c53171 + c55112 + c93212 + c51114 + c93312 + c55213;
             if `year'>=2002 gen othhheq  = c53131 + c53313 + c54131 + c54132 + c54111 + c53311*(`wothhheq'/(`welec_app'+`wothhheq')) + c54121 + c56123 + c51113 + c56122 + c93114 + c93313 + c53171 + c55112 + c93212 + c51114 + c93312 + c55213;
};
if ("`dvvar'" == "consuma")  gen consuma  = c55214 + c56121 + c56111 + c56112 + cc1311 + c95411 + c95311;

if ("`dvvar'" == "petcare")  gen petcare  = c93411 + c93412 + c93511;

if ("`dvvar'" == "HHGOODS") {;
foreach var in furnit furnish elec_app othhheq consuma petcare {;
capture getexpendvar `var', year(`year');
};
gen HHGOODS = furnit + furnish + elec_app + othhheq + consuma + petcare;
};

/*************************/
/* 14. Kids' HH Goods    */
/*************************/

if ("`dvvar'" == "kidsfurnit")   {;
                 if `year'==2001 gen kidsfurnit   = c51111c;
                 if `year'>=2002 gen kidsfurnit   = c51111c + (c56223c)*(`wfurnit'/(`wfurnit'+`wfurnish'));
};
if ("`dvvar'" == "kidsfurnish")  {;
                 if `year'==2001 gen kidsfurnish  = c51211c + c51212c + c52111c + c52112c;
                 if `year'>=2002 gen kidsfurnish  = c51211c + c51212c + c52111c + c52112c + c56223c*(`wfurnish'/(`wfurnit'+`wfurnish'));
};
if ("`dvvar'" == "kidselec_app") {;
                 if `year'==2001 gen kidselec_app = c53132c + c53121c + c53111c + c53141c + c53122c + c53133c + c53151c + cc1211c + c55111c + c53211c + c53161c + c53311c*(`welec_app'/(`welec_app'+`wothhheq'));
                 if `year'>=2002 gen kidselec_app = c53132c + c53121c + c53111c + c53314c + c53141c + c53122c + c53133c + c53151c + cc1211c + c55111c + c53211c + c53161c + c53311c*(`welec_app'/(`welec_app'+`wothhheq'));
};
if ("`dvvar'" == "kidsothhheq")  {;
                 if `year'==2001 gen kidsothhheq  = c53131c + c53313c + c54131c + c54111c + c53311c*(`wothhheq'/(`welec_app'+`wothhheq')) + c54121c + c56123c + c51113c + c56122c + c93114c + c93313c + c53171c + c55213c + c55112c + c93212c + c51114c + c93312c + c55213c;
                 if `year'>=2002 gen kidsothhheq  = c53131c + c53313c + c54131c + c54132c + c54111c + c53311c*(`wothhheq'/(`welec_app'+`wothhheq')) + c54121c + c56123c + c51113c + c56122c + c93114c + c93313c + c53171c + c55213c + c55112c + c93212c + c51114c + c93312c + c55213c;
};
if ("`dvvar'" == "kidsconsuma")  gen kidsconsuma  = c55214c + c56121c + c56111c + c56112c + cc1311c + c95411c + c95311c;
if ("`dvvar'" == "kidspetcare")  gen kidspetcare  = c93411c + c93412c + c93511c;

if ("`dvvar'" == "kidsHHGOODS") {;
foreach var in kidsfurnit kidsfurnish kidselec_app kidsothhheq kidsconsuma kidspetcare {;
capture getexpendvar `var', year(`year');
};
gen kidsHHGOODS = kidsfurnit + kidsfurnish + kidselec_app + kidsothhheq + kidsconsuma + kidspetcare;
};

/*************************/
/* 15. HH Services       */
/*************************/

if ("`dvvar'" == "postage")  gen postage  = c81111;
if ("`dvvar'" == "telephon") gen telephon = 0;
if ("`dvvar'" == "telemess") gen telemess = b166 + b1661 + c83112 + c83114 + c83115;
if ("`dvvar'" == "domservs") gen domservs = b159 + c56211 + c56221 + c56222 + cc4112 + cc3112 + cc4122 + cc4121 + c31412 + c31413 + c32211 + c44211 + c51311 + c54141 + c91127 + c92311;
if ("`dvvar'" == "fees_sub") {;
  if `year'<=2010 gen fees_sub = b168 + b1802 + b273 + b280 + b281+ b282 + b283 + c41211 + cc7116 + c94243 + c94244 + cc6212 + ck3111 + cc7111 + cc7112 + cc7115 + cc7114 + cb112b + cb2114 + c94245;
  if `year'>=2011 gen fees_sub = b168 + b1802 + b273 + b280 + b281+ b282 + b283 + c41211 + cc7116 + c94243 + c94244 + cc6212 + ck3111 + cc7111 + cc7112 + cc7115 + cc7114 + cb112b + cb2114 + b195; /*diary internet fees replaced with an interview (b) code - mean is a lot higher*/
  };
if ("`dvvar'" == "HHSERVS") {;
foreach var in postage telephon telemess domservs fees_sub {;
capture getexpendvar `var', year(`year');
};
gen HHSERVS = postage + telephon + telemess + domservs + fees_sub;
};

/*************************/
/* 16. Kids' HH Services */
/*************************/

if ("`dvvar'" == "kidspostage")  gen kidspostage  = c81111c;
if ("`dvvar'" == "kidstelephon") gen kidstelephon = 0;
if ("`dvvar'" == "kidstelemess") gen kidstelemess = c83111c + c83112c + c83113c + c83114c + c83115c;
if ("`dvvar'" == "kidsdomservs") gen kidsdomservs = c56211c + c56221c + c56222c + cc4112c + cc4122c + cc4121c + c31412c + c31413c + c32211c + c44211c + c51311c + c54141c + c91127c + c92311c;
if ("`dvvar'" == "kidsfees_sub") gen kidsfees_sub = cc7116c + c94243c + c94244c + cc6212c + ck3111c + cc7111c + cc7112c + cc7115c + cc7114c + cb112bc + cb2114c + c94245c;

if ("`dvvar'" == "kidsHHSERVS"){;
foreach var in kidspostage kidstelephon kidstelemess kidsdomservs kidsfees_sub {;
capture getexpendvar `var', year(`year');
};
gen kidsHHSERVS = kidspostage + kidstelephon + kidstelemess + kidsdomservs + kidsfees_sub;
};

/*************************/
/* 17. Clothing          */
/*************************/

if ("`dvvar'" == "menouter") gen menouter = c31211;
if ("`dvvar'" == "womouter") gen womouter = c31221;
if ("`dvvar'" == "kidouter") gen kidouter = c31231 + c31232 + c31233;
if ("`dvvar'" == "othcloth") gen othcloth = c31212 + c31222 + c31234 + c31311 + c31312 + c31313 + c31314 + c56124 + c31411 + c31111;
if ("`dvvar'" == "footwear") gen footwear = c32111 + c32121 + c32131;

if ("`dvvar'" == "CLOTH_SH") {;
foreach var in menouter womouter kidouter othcloth footwear {;
capture getexpendvar `var', year(`year');
};
gen CLOTH_SH = menouter + womouter + kidouter + othcloth + footwear;
};

/*************************/
/* 18. Kids' Clothing    */
/*************************/

if ("`dvvar'" == "kidsmenouter") gen kidsmenouter = c31211c;
if ("`dvvar'" == "kidswomouter") gen kidswomouter = c31221c;
if ("`dvvar'" == "kidskidouter") gen kidskidouter = c31231c + c31232c + c31233c;
if ("`dvvar'" == "kidsothcloth") gen kidsothcloth = c31212c + c31222c + c31234c + c31311c + c31312c + c31313c + c31314c + c56124c + c31411c + c31111c;
if ("`dvvar'" == "kidsfootwear") gen kidsfootwear = c32111c + c32121c + c32131c;

if ("`dvvar'" == "kidsCLOTH_SH") {;
foreach var in kidsmenouter kidswomouter kidskidouter kidsothcloth kidsfootwear {;
capture getexpendvar `var', year(`year');
};
gen kidsCLOTH_SH = kidsmenouter + kidswomouter + kidskidouter + kidsothcloth + kidsfootwear;
};

/*********************************/
/* 19. Personal Goods & Services */
/*********************************/

if ("`dvvar'" == "p_artic")  gen p_artic  = cc3211 + cc3221 + cc3222 + cc3223 + c61311 + cc3111;
if ("`dvvar'" == "chemgood") gen chemgood = cc1313 + cc1312 + cc1314 + cc1315 + cc1316 + cc3224 + cc1317 + c61111 + c61112 + c61211 + c61312 + c61313;
if ("`dvvar'" == "p_servs")  gen p_servs  = c62111 + c62112 + c62113 + c62114 + c62211 + c62212 + c62311 + c62321 + c62322 + c62331 + cc1111 + c63111 + cc7113;

if ("`dvvar'" == "P_GD_SER") {;
foreach var in p_artic chemgood p_servs {;
capture getexpendvar `var', year(`year');
};
gen P_GD_SER = p_artic + chemgood + p_servs;
};

/***************************************/
/* 20. Kids' Personal Goods & Services */
/***************************************/

if ("`dvvar'" == "kidsp_artic")  gen kidsp_artic  = cc3211c + cc3221c + cc3222c + cc3223c + c61311c + cc3111c;
if ("`dvvar'" == "kidschemgood") gen kidschemgood = cc1313c + cc1312c + cc1314c + cc1315c + cc1316c + cc3224c + cc1317c + c61111c + c61112c + c61211c + c61312c + c61313c;
if ("`dvvar'" == "kidsp_servs")  gen kidsp_servs  = c62111c + c62112c + c62113c + c62114c + c62211c + c62212c + c62311c + c62321c + c62322c + c62331c + cc1111c + c63111c + cc3112c + cc7113c;

if ("`dvvar'" == "kidsP_GD_SER") {;
foreach var in kidsp_artic kidschemgood kidsp_servs {;
capture getexpendvar `var', year(`year');
};
gen kidsP_GD_SER = kidsp_artic + kidschemgood + kidsp_servs;
};

/*************************/
/* 21. Motoring          */
/*************************/

if ("`dvvar'" == "motorveh") gen motorveh = b244 + b2441 + b245 + b2451 + b247 + c92114 + c71112 + c71122 + c92116 + c71212;
if ("`dvvar'" == "maintmot") gen maintmot = b249 + b250 + b252 + c72112 + c72111 + c72113 + c31315 + c72313 + c72413 + c72114 + c72411 + c72412 + c72314 + ck3112;
if ("`dvvar'" == "pet_oil")  gen pet_oil  = c72211 + c72212 + c72213;
if ("`dvvar'" == "tax_ins")  gen tax_ins  = b187 + b188 - b179;

if ("`dvvar'" == "MOTORING") {;
foreach var in motorveh maintmot pet_oil tax_ins {;
capture getexpendvar `var', year(`year');
};
gen MOTORING =  motorveh + maintmot + pet_oil + tax_ins;
};

/*************************/
/* 22. Kids' Motoring    */
/*************************/

if ("`dvvar'" == "kidsmotorveh") gen kidsmotorveh = c71111c + c71121c + c71211c + c92113c + c92115c;
if ("`dvvar'" == "kidsmaintmot") gen kidsmaintmot = c72112c + c72111c + c72311c + c72312c + c72113c + c31315c + c72313c + c72413c + c72114c + c72411c + c72412c + c72314c + ck3112c;
if ("`dvvar'" == "kidspet_oil")  gen kidspet_oil  = c72211c + c72212c + c72213c;
if ("`dvvar'" == "kidstax_ins")  gen kidstax_ins  = 0;

if ("`dvvar'" == "kidsMOTORING") {;
foreach var in kidsmotorveh kidsmaintmot kidspet_oil kidstax_ins {;
capture getexpendvar `var', year(`year');
};
gen kidsMOTORING = kidsmotorveh + kidsmaintmot + kidspet_oil + kidstax_ins;
};

/*************************/
/* 23. Fares, Etc.       */
/*************************/

if ("`dvvar'" == "railfare") gen railfare = b216 + b218 + c73112 + c73512;
if ("`dvvar'" == "busfares") gen busfares = b217 + c73212;
if ("`dvvar'" == "othtrav")  gen othtrav  = b219 + b248 + c92111 + c92112 + c92117 + c71311 + c71411 + c72115 + c72414 + c73311 + c73312 + c73411 + c73513 + c73213 + c73214 + c73611;

if ("`dvvar'" == "FARESET") {;
foreach var in railfare busfares othtrav {;
capture getexpendvar `var', year(`year');
};
gen FARESET = railfare + busfares + othtrav ;
};

/*******************************/
/* 23. Kids' Fares, Etc.       */
/*******************************/

if ("`dvvar'" == "kidsrailfare") gen kidsrailfare = c73112c + c73512c;
if ("`dvvar'" == "kidsbusfares") gen kidsbusfares = c73212c;
if ("`dvvar'" == "kidsothtrav")  gen kidsothtrav  = c92111c + c92117c + c71311c + c71411c + c72115c + c72414c + c73311c + c73312c + c73411c + c73513c + c73213c + c73214c + c73611c;

if ("`dvvar'" == "kidsFARESET") {;
foreach var in kidsrailfare kidsbusfares kidsothtrav {;
capture getexpendvar `var', year(`year');
};
gen kidsFARESET = kidsrailfare + kidsbusfares + kidsothtrav ;
};
/*******************************/
/* 24. Leisure Goods           */
/*******************************/

if ("`dvvar'" == "aud_vis")  {;
             if `year'<=2002 gen aud_vis  = c82111 + c82113 + c82112 + c91121 + c91122 + c91123 + c91124 + c91111 + c91311 + c92211 + c91511 + c91126 + c91125 + c91112;
             if `year'>=2003 gen aud_vis  = c82111 + c82113 + c82112 + c91121 + c91122 + c91123 + c91124 + c91111 + c91311 + c92211 + c91511 + c91126 + c91125 + c91112 + c91128;
};
if ("`dvvar'" == "rec_toys") gen rec_toys = 0;
if ("`dvvar'" == "rec_tape") gen rec_tape = 0;
if ("`dvvar'" == "cd_tape")  {;
             if `year'<=2004 gen cd_tape  = c91411 + c94239 + c91113 + c91412 + c94238;
             if `year'>=2005 gen cd_tape  = c91411 + c94239 + c91113 + c91412 + c94238 + c91414;
};
if ("`dvvar'" == "toysetc")  {;
             if `year'==2001 gen toysetc  = c93112 + c93113 + c93111 + c93211 + c91211 + c91221 + c94246 + c91413 + c92221;
             if `year'>=2002 gen toysetc  = c93112 + c93113 + c93111 + c93211 + c91211 + c91221 + c94246 + c91413 + c94115 + c92221;
};
if ("`dvvar'" == "book_new") gen book_new = c95111 + c95212 + c95211;
if ("`dvvar'" == "garden")   gen garden   = c93311;

if ("`dvvar'" == "LGOODS") {;
foreach var in aud_vis rec_toys rec_tape cd_tape toysetc book_new garden {;
capture getexpendvar `var', year(`year');
};
gen LGOODS = aud_vis + rec_toys + rec_tape + cd_tape + toysetc + book_new + garden;
};

/*******************************/
/* 25. Kids' Leisure Goods     */
/*******************************/

if ("`dvvar'" == "kidsaud_vis")  {;
                 if `year'<=2002 gen kidsaud_vis  = c82111c + c82113c + c82113c + c91121c + c91122c + c91123c + c91124c + c91111c + c91311c + c92211c + c91511c + c91126c + c91125c + c91112c;
                 if `year'>=2003 gen kidsaud_vis  = c82111c + c82113c + c82113c + c91121c + c91122c + c91123c + c91124c + c91111c + c91311c + c92211c + c91511c + c91126c + c91125c + c91112c + c91128c;
};
if ("`dvvar'" == "kidsrec_toys") gen kidsrec_toys = 0;
if ("`dvvar'" == "kidsrec_tape") gen kidsrec_tape = 0;
if ("`dvvar'" == "kidscd_tape")  {;
                 if `year'<=2004 gen kidscd_tape  = c91411c + c94239c + c91113c + c91412c + c94238c;
                 if `year'>=2005 gen kidscd_tape  = c91411c + c94239c + c91113c + c91412c + c94238c + c91414c ;
};
if ("`dvvar'" == "kidstoysetc")  {;
                 if `year'==2001 gen kidstoysetc  = c93112c + c93113c + c93111c + c93211c + c91211c + c91221c + c94246c + c91413c + c92221c;
                 if `year'>=2002 gen kidstoysetc  = c93112c + c93113c + c93111c + c93211c + c91211c + c91221c + c94246c + c91413c + c94115c + c92221c;
};
if ("`dvvar'" == "kidsbook_new") gen kidsbook_new = c95111c + c95212c + c95211c;
if ("`dvvar'" == "kidsgarden")   gen kidsgarden   = c93311c;

if ("`dvvar'" == "kidsLGOODS"){;
foreach var in kidsaud_vis kidsrec_toys kidsrec_tape kidscd_tape kidstoysetc kidsbook_new kidsgarden {;
capture getexpendvar `var', year(`year');
};
gen kidsLGOODS = kidsaud_vis + kidsrec_toys + kidsrec_tape + kidscd_tape + kidstoysetc + kidsbook_new + kidsgarden;
};

/*******************************/
/* 26. Leisure Services        */
/*******************************/
/*n.b in 2013 there are additional codes for holiday but these are subcategories of b481 and b480. If we include them, we will be double counting b481 and b480*/

if ("`dvvar'" == "tvlicen")  gen tvlicen  = b181 + b194 + c94232 + c94236;
if ("`dvvar'" == "entertai") gen entertai = b160 + b162 + b164 + b265 + b334h + c94113 + c94211 + c94212 + c94241 + c94221 + c94242 + c94112 + c94111 + ca1113 + ca2113 + ca3113 + ca4113 + ca5113 + cc6214 + ck5221 + ck5222 + ck5223 + cc4111;
if ("`dvvar'" == "for_hols") gen for_hols = b481 + b483 + b485 + ck4111 + ck4112 + cc5413*(`wfor_hols'/(`wfor_hols'+`wuk_hols'));
if ("`dvvar'" == "uk_hols")  gen uk_hols  = b480 + b482 + b484 + cc5413*(`wuk_hols'/(`wfor_hols'+`wuk_hols'));

if ("`dvvar'" == "LSERVS") {;
foreach var in tvlicen entertai for_hols uk_hols {;
capture getexpendvar `var', year(`year');
};
gen LSERVS = tvlicen + entertai + for_hols + uk_hols;
};

/*******************************/
/* 27. Kids' Leisure Services  */
/*******************************/

if ("`dvvar'" == "kidstvlicen")  {;
                 if `year'==2001 gen kidstvlicen  = c94236c + c94237c + c94234c + c94231c ;
                 if `year'>=2002 gen kidstvlicen  = c94236c + c94237c +           c94231c ;
};
if ("`dvvar'" == "kidsentertai") gen kidsentertai = c94113c + c94211c + c94212c + c94241c + c94221c + c94242c + c94112c + cc6214c + ca1113c + ca2113c + ca3113c + ca4113c + ca5113c + ck5221c + ck5222c + ck5223c + cc4111c;
if ("`dvvar'" == "kidsfor_hols") gen kidsfor_hols = ck4111c + ck4112c + cb2112c + cc5413c*(`wfor_hols'/(`wfor_hols'+`wuk_hols'));
if ("`dvvar'" == "kidsuk_hols")  gen kidsuk_hols  = cb2111c + cc5413*(`wuk_hols'/(`wfor_hols'+`wuk_hols'));

if ("`dvvar'" == "kidsLSERVS") {;
foreach var in kidstvlicen kidsentertai kidsfor_hols kidsuk_hols {;
capture getexpendvar `var', year(`year');
};
gen kidsLSERVS = kidstvlicen + kidsentertai + kidsfor_hols + kidsuk_hols;
};

/**********************/
/* 28. Non-RPI Groups */
/**********************/

if ("`dvvar'" == "wine")     gen wine     = c21211 + c21221 + c21212 + cb111d + cb111h + cb111e + cb111j*0.5*(`wwinespiron'/(`wwinespiron'+`wbeeron'));
if ("`dvvar'" == "offwine")  gen offwine  = c21211 + c21221 + c21212;
if ("`dvvar'" == "onwine")   gen onwine   = cb111d + cb111h + cb111e + cb111j*0.5*(`wwinespiron'/(`wwinespiron'+`wbeeron'));
if ("`dvvar'" == "spirits")  gen spirits  = c21111 + cb111c + c21214 + cb111g + cb111j*0.5*(`wwinespiron'/(`wwinespiron'+`wbeeron'));
if ("`dvvar'" == "offspir")  gen offspir  = c21111 + c21214;
if ("`dvvar'" == "onspir")   gen onspir   = cb111c + cb111g + cb111j*0.5*(`wwinespiron'/(`wwinespiron'+`wbeeron'));


/********************************/
/** adult aggregate measures ****/
/********************************/

if ("`dvvar'" == "totexp") {;
foreach var in FOOD CATERING ALCOHOL TOBACCO HOUSING FUEL_LIG HHGOODS HHSERVS CLOTH_SH P_GD_SER MOTORING FARESET LGOODS LSERVS {;
capture getexpendvar `var', year(`year');
};
gen totexp = FOOD + CATERING + ALCOHOL + TOBACCO + HOUSING+ FUEL_LIG + HHGOODS + HHSERVS + CLOTH_SH + P_GD_SER + MOTORING + FARESET + LGOODS + LSERVS;
};

if ("`dvvar'" == "nondur") {;
foreach var in FOOD CATERING ALCOHOL TOBACCO FUEL consuma petcare HHSERVS chemgood p_servs maintmot pet_oil tax_ins FARESET book_new LSERVS{;
capture getexpendvar `var', year(`year');
};
gen nondur = FOOD + CATERING + ALCOHOL + TOBACCO + FUEL + consuma + petcare + HHSERVS + chemgood + p_servs + maintmot + pet_oil + tax_ins + FARESET + book_new + LSERVS;
};

if ("`dvvar'" == "semidur") {;
foreach var in CLOTH_SH p_artic cd_tape rec_tape rec_toys toysetc {;
capture getexpendvar `var', year(`year');
};
gen semidur = CLOTH_SH + p_artic + cd_tape + rec_tape + rec_toys + toysetc;
};

if ("`dvvar'" == "durables") {;
foreach var in furnit furnish elec_app othhheq motorveh aud_vis garden {;
capture getexpendvar `var', year(`year');
};
gen durables = furnit + furnish + elec_app + othhheq + motorveh + aud_vis + garden;
};

/********************************/
/** child aggregate measures ****/
/********************************/

if ("`dvvar'" == "kidstotexp") {;
foreach var in kidsFOOD kidsCATERING kidsALCOHOL kidsTOBACCO kidsHOUSING kidsFUEL_LIG kidsHHGOODS kidsHHSERVS kidsCLOTH_SH kidsP_GD_SER
               kidsMOTORING kidsFARESET kidsLGOODS kidsLSERVS {;
capture getexpendvar `var', year(`year');
};
gen kidstotexp = kidsFOOD + kidsCATERING + kidsALCOHOL + kidsTOBACCO + kidsHOUSING+ kidsFUEL_LIG + kidsHHGOODS + kidsHHSERVS + kidsCLOTH_SH +
                kidsP_GD_SER + kidsMOTORING + kidsFARESET + kidsLGOODS + kidsLSERVS;
};

if ("`dvvar'" == "kidsnondur") {;
foreach var in kidsFOOD kidsCATERING kidsALCOHOL kidsTOBACCO kidsFUEL kidsconsuma kidspetcare kidsHHSERVS kidschemgood kidsp_servs kidsmaintmot
               kidspet_oil kidstax_ins kidsFARESET kidsbook_new kidsLSERVS {;
capture getexpendvar `var', year(`year');
};
gen kidsnondur = kidsFOOD + kidsCATERING + kidsALCOHOL + kidsTOBACCO + kidsFUEL + kidsconsuma + kidspetcare + kidsHHSERVS + kidschemgood +
                 kidsp_servs + kidsmaintmot + kidspet_oil + kidstax_ins + kidsFARESET + kidsbook_new + kidsLSERVS;
};

if ("`dvvar'" == "kidssemidur") {;
foreach var in kidsCLOTH_SH kidsp_artic kidscd_tape kidsrec_tape kidsrec_toys kidstoysetc {;
capture getexpendvar `var', year(`year');
};
gen kidssemidur = kidsCLOTH_SH + kidsp_artic + kidscd_tape + kidsrec_tape + kidsrec_toys + kidstoysetc;
};

if ("`dvvar'" == "kidsdurables") {;
foreach var in kidsfurnit kidsfurnish kidselec_app kidsothhheq kidsmotorveh kidsaud_vis kidsgarden {;
capture getexpendvar `var', year(`year');
};
gen kidsdurables = kidsfurnit + kidsfurnish + kidselec_app + kidsothhheq + kidsmotorveh + kidsaud_vis + kidsgarden;
};


/**************************/
/* 29. Extra TAXBEN codes */
/**************************/

if ("`dvvar'" == "rawpotatoes")           gen rawpotatoes           = c11771 + c11781*(0.296);  /* Estimated weight from 2000/1 data for VAT-exempt potato products (d030702 / (d030702 + d031102)) */
if ("`dvvar'" == "crisps")                gen crisps                = c11781*(0.704);                /* Estimated weight from 2000/1 data for VAT-prone potato products (d031102 / (d030702 + d031102)) */
if ("`dvvar'" == "icecream")              gen icecream              = c11851;
if ("`dvvar'" == "othfoodexcicecream")    gen othfoodexcicecream    = c11911 + c11921 + c11931 + c11142 + c11941;
if ("`dvvar'" == "restaurant2")           gen restaurant2           = cb1111 + cb1121;
if ("`dvvar'" == "hottakeaway")           gen hottakeaway           = cb1127 + cb1125;
if ("`dvvar'" == "coldtakeaway")          gen coldtakeaway          = cb1128 + cb1116 + cb1112 + cb1113 + cb1114 + cb1125 + cb1126 + cb1123 + cb1124;
if ("`dvvar'" == "beerexccider")          gen beerexccider          = c21311 + c21214 + cb111i + cb111g + cb111j*(`wbeeron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "cider")                 gen cider                 = c21213 + cb111f;
if ("`dvvar'" == "wineexcfortwine")       gen wineexcfortwine       = c21211 + c21221 + cb111d + cb111h + cb111j*(`wwinespiron'/(`wbeeron'+`wwinespiron'));
if ("`dvvar'" == "fortwine")              gen fortwine              = c21212 + c21111;
if ("`dvvar'" == "dwellinginsurance")     gen dwellinginsurance     = b110;
if ("`dvvar'" == "whitegoods")            gen whitegoods            = c53131 + c53132 + c53121 + c53111 + c53141 + c53122 + c53133 + c53151 + cc1211 + c55111 + c53211 + c53161 + c53312 + c53311*(`welec_app'/(`welec_app'+`wothhheq'));
if ("`dvvar'" == "othhheqexcgascookers")  {;
                          if `year'==2001 gen othhheqexcgascookers  = c53313 + c54131 + c54111 + c54121 + c56123 + c51113 + c56122 + c93114 + c93313 + c53171 + c55213 + c55112 + c93212 + c51114 + c93312 + c55213;
                          if `year'>=2002 gen othhheqexcgascookers  = c53313 + c54131 + c54132 + c54111 + c54121 + c56123 + c51113 + c56122 + c93114 + c93313 + c53171 + c55213 + c55112 + c93212 + c51114 + c93312 + c55213;
};
if ("`dvvar'" == "domservexcchildcare")   gen domservexcchildcare   = b159 + c56211 + c56221 + c56222 + cc4112 + c31412 + c31413 + c32211;
if ("`dvvar'" == "childcare")             gen childcare             = cc4121 + cc4122;
if ("`dvvar'" == "feessubexccontentsins") gen feessubexccontentsins = b1802 + b273 + b280 + b281 + b282 + b283 + c41211 + cc7116 + c94243 + c94244 + cc6212 + ck3111 + cc7111 + cc7112 + cc7115 + cc7114 + cb112b + cb2114 + c94245;
if ("`dvvar'" == "contentsinsurance")     gen contentsinsurance     = b168;
if ("`dvvar'" == "otherinsurance")        gen otherinsurance        = b206 + b229;
if ("`dvvar'" == "adultsclothing")        gen adultsclothing        = c31211 + c31221 + c31212 + c31222 + c31311 + c31312 + c31314 + c56124 + c31411 + c31111 + c32111 + c32121;
if ("`dvvar'" == "kidsclothing")          gen kidsclothing          = c31231 + c31232 + c31233 + c31234 + c31313 + c32131;
if ("`dvvar'" == "nonmedicalchemgoods")   gen nonmedicalchemgoods   = cc1313 + cc1312 + cc1314 + cc1315 + cc1316 + cc3224 + cc1317 + c61211 + c61312;
if ("`dvvar'" == "nonmedicalp_servs")     gen nonmedicalp_servs     = cc1111;
if ("`dvvar'" == "medical_gd_ser")        gen medical_gd_ser        = c61111 + c61112 + c61211 + c62111 + c62113 + c62211 + c62311 + c62321 + c62112 + c62114 + c62212 + c62322;
if ("`dvvar'" == "newmotorveh")           gen newmotorveh           = b244 + b2441 + b247 + c92114 + c71112 + c71212;
if ("`dvvar'" == "secondhandmotorveh")    gen secondhandmotorveh    = b245 + b2451 + c71122 + c92116;
if ("`dvvar'" == "petrol")                gen petrol                = c72211;
if ("`dvvar'" == "diesel")                gen diesel                = c72212;
if ("`dvvar'" == "othermotoroils")        gen othermotoroils        = c72213;
if ("`dvvar'" == "vehicleinsurance")      gen vehicleinsurance      = b187 - b179;
if ("`dvvar'" == "othpublictransport")    gen othpublictransport    = b219 + c73311 + c73312 + c73411 + c73513;
if ("`dvvar'" == "othprivatetransport")   gen othprivatetransport   = b248 + c92111 + c92112 + c92117 + c71311 + c71411 + c72115 + c72414 + c73213 + c73214 + c73611;

end;