-----------------------------------------------------------------------------------------------------
       log:  /disk/nber10/SCCS/mortality/1991/data/drug_deaths.log
  log type:  text
 opened on:  10 Aug 2006, 11:42:01

. set mem 1000m
(1024000k)

. 
. ** by Jean Roth , jroth@nber.org , 2006-08-10 
. ** National Vital Statistics Reports, Volume 48, No. 11 (7/24/00) 
. ** http://www.cdc.gov/nchs/data/nvsr/nvsr48/nvs48_11.pdf 
. ** lists number of deaths for drug-induced causes in Table 20 = 10,388 in 1991 
. ** 'E's, which are part of some drug death codes, are not included 
. ** in the underlying cause of death variable.
. ** However, http://www/mortality/1991/docs/put9101.txt indicates that 
. ** ICD-9 codes are (1) 3- or 4-digit numbers , or (2) "E" or "N" plus
. ** 3- or 4-digit numbers.  The all-numeric codes do not overlap the "E" codes,
. ** and the "N" codes are *not* used as underlying cause of death codes.
. 
. use ucod restatus using ucod1991 

. generate str3 ucod3=substr(ucod,1,3)

. ** Keeping U.S. residents 
. keep if restatus !=  4   
(3542 observations deleted)

. drop restatus 

. generate drug_death=0

. replace drug_death=1 if ucod3=="292" | ucod3=="304" | ( ucod>="3052" & ucod<="3059") /*
>    */ | ( ucod3>="850" & ucod3<="858" ) | ( ucod>="9500" & ucod<="9505" ) | ucod=="9620" /*
>    */ | ( ucod>="9800" & ucod<="9805" ) 
(10388 real changes made)

. tabulate drug_death

 drug_death |      Freq.     Percent        Cum.
------------+-----------------------------------
          0 |  2,159,130       99.52       99.52
          1 |     10,388        0.48      100.00
------------+-----------------------------------
      Total |  2,169,518      100.00

. 
end of do-file

. exit,clear