-------------------------------------------------------------------------------
       log:  /zeno/d/zeno_a/DOL/Othercodes_ahg/logs/population_analysis_out.log
  log type:  text
 opened on:  17 Dec 2008, 20:06:53

. 
. 
. /*
> This program pulls in the cohort analysis output by year and puts it out into
>  csv files.
> September 25, 2008
> */
. 
. global tabdata "/zeno/a/DOL/Tables_ahg"

. global tabdata "/zeno/a/DOL/Output_prev2"

. global tabdata "/zeno/a/DOL/Output_prev2"

. 
. #d ; 
delimiter now ;
.         global sumvar0  dage5164 dage6574 dage7584 dage85p male hispan black 
> hsless college;

.         global sumvar1  pop qaly meanage pop_healthy pop_disability 
>                         pop_iadl1 pop_adl12 pop_adl3 pop_nhm pop_work pop_ssc
> laim pop_diclaim pop_ssiclaim  pop_lfhibpe pop_lfdiabe pop_lfsmoken pop_lfobe
> se;

.         global sumvar2  died cancre diabe hearte hibpe lunge stroke anycond c
> ond3p iadl1 
>                         adl12 adl3 nhmliv obese overwt smokev smoken $addvars
>  wlth_nonzero;

.         global sumvar3   ttl_earn ttl_ssben ttl_diben ttl_ssiben;

.         global sumvar4   work ry_earn ssclaim ssben diclaim diben ssiclaim ss
> iben anyhi;

.         global sumvar5   hhwealth ftax stax ctax hoasi hmed gross net;

.         global sumvar6   raime totmd caremd oopmd caidmd hsptim hspnit doctim
> ;

.         global sumvar7   ttl_totmd ttl_oopmd ttl_caremd ttl_caidmd ttl_hsptim
>  ttl_hspnit ttl_doctim;

.         global sumvar8   ttl_raime ttl_hhwealth ttl_ftax ttl_stax ttl_ctax tt
> l_hoasi ttl_hmed ttl_gross ttl_net;

.         global sumvar9   mhhwealth mraime mry_earn mry_earnwork;

.         global sumvar10  tot65 oop65 fracss62 fracss65;

.         global sumvar11  treat_now treat_new diabe_new hibpe_new;

.                 global sumvar12 totmd65l caremd65l oopmd65l caidmd65l hsptim6
> 5l hspnit65l doctim65l ;

.         global sumvar13 totmd65p caremd65p oopmd65p caidmd65p hsptim65p hspni
> t65p doctim65p ;

.         global sumvar14 ttl_totmdl ttl_oopmdl ttl_caremdl ttl_caidmdl ttl_hsp
> timl ttl_hspnitl ttl_doctiml;

.         global sumvar15 ttl_totmdp ttl_oopmdp ttl_caremdp ttl_caidmdp ttl_hsp
> timp ttl_hspnitp ttl_doctimp;

.                 global sumvars year $sumvar0 $sumvar1 $sumvar2 $sumvar3 $sumv
> ar4 $sumvar5 $sumvar6 
>         $sumvar7 $sumvar8 $sumvar9 $sumvar10 $sumvar11 ;

.     global sumvars year pop cancre diabe hearte hibpe 
>     lunge stroke smokev smoken ttl_totmd ttl_caremd ttl_caidmd caremd;

. #d cr
delimiter now cr
. 
. clear

. 
. local status_quo_file "/zeno/a/DOL/Output_ahg/51p_sstatus_quo_c.dta"  

. local obesity_r_file = "/zeno/a/DOL/Output_ahg/51p_sobese_r_c.dta"  

. local nosmoke_r_file = "/zeno/a/DOL/Output_ahg/51p_snosmoke_r_c.dta"

. local shareprev_file = "/zeno/a/DOL/Output_ahg/51p_sshareprev_c.dta"

. local invobese_r_file = "/zeno/a/DOL/Output_ahg/51p_sinvobese_r_c.dta"

. 
. local status_quo_file "/zeno/a/DOL/Output_prev2/51p_sstatus_quo_c.dta" 

. local ebmall_file "/zeno/a/DOL/Output_prev2/51p_sebmall_c.dta" 

. local Hbp_R_file "/zeno/a/DOL/Output_prev2/51p_sHbp_R_c.dta" 

. local Diabetes_R_file "/zeno/a/DOL/Output_prev2/51p_sDiabetes_R_c.dta" 

. local Smoking_R_file "/zeno/a/DOL/Output_prev2/51p_sSmoking_R_c.dta" 

. 
. local Diab_Hibpe_file "/zeno/a/DOL/Output_prev2/51p_sDiab_Hibpe_c.dta" 

. 
. local adj_totmd65l = 1.31

. local adj_caremd65l = 1.59

. local adj_caidmd65l = 2.53

. local adj_totmd65p = 1.14

. local adj_caremd65p = 1.11

. local adj_caidmd65p = 1.64

. 
. * foreach i in status_quo obesity_r nosmoke_r shareprev invobese_r{
. * foreach i in status_quo ebmall {
. * foreach i in Hbp_R Diabetes_R Smoking_R {
.     foreach i in Diab_Hibpe {
  2.         clear
  3.         use "``i'_file'"
  4.         
.         foreach v in totmd caremd caidmd {
  5.                 replace ttl_`v'l = ttl_`v'l * `adj_`v'65l'
  6.                 replace ttl_`v'p = ttl_`v'p * `adj_`v'65p'
  7.                 replace ttl_`v' = (ttl_`v'l + ttl_`v'p)/10^9
  8.         }
  9.         
.         gen tot65 = .
 10.         gen oop65 = .
 11.                 
.         outsheet $sumvars using "$tabdata//`i'.csv", c names replace
 12. }
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 real changes made)
(9 missing values generated)
(9 missing values generated)

. 
. log close
       log:  /zeno/d/zeno_a/DOL/Othercodes_ahg/logs/population_analysis_out.log
  log type:  text
 closed on:  17 Dec 2008, 20:06:53
-------------------------------------------------------------------------------