/*Published: 11/01/2018*/
/************************************************************************/
/* IF YOU RECEIVED THE SUMDENOM FILE BEFORE NOVEMBER 2018 THEN YOU WILL */
/* NEED A DIFFERENT INPUT STATEMENT. PLEASE CONTACT IMS VIA E-MAIL      */
/* SEER-MEDICARE@IMSWEB.COM AND AN INPUT STATEMENT WILL BE SENT TO      */
/* YOU.                                                                 */
/* This input statement is used to read in the sumdenom.noncancer.txt   */
/* file.                                                                */
/************************************************************************/

*filename sumin '/directory/sumdenom.noncancer.txt';                   /*reading in an un-zipped file*/
filename sumin pipe 'gunzip -c /directory/sumdenom.noncancer.txt.gz';  /*reading in a zipped file*/

options nocenter validvarname=upcase;

data sumden(drop = i);
  infile sumin lrecl=2298 missover pad;
  input @0001  patient_id $char11.
        /*@001  HICBIC     $char11.*/  /*ID for Non Cancer Patients*/

        @0012  birthm    $char2.
        @0014  birthd    $char2.
        @0016  birthyr   $char4.
        @0020  VRFYDTH   $char1.        /*LINK 2018 changed vdeath to vrfydth to match PEDSF*/
        @0021  med_dodm  $char2.
        @0023  med_dodd  $char2.
        @0025  med_dody  $char4.
        @0029  m_sex     $char1.        /*LINK 2016 changed sex to m_sex to match PEDSF*/
        @0030  race      $char1.
        @0032  linkflag  $char1.
        @0033  sumstat   $char1.
        @0034  rsncd1    $char1.

        @0035  esrd_ever $char1.
     /* @0036  esrdstart1 mmddyy8. */
        @0036  ersstm1   $char2.
        @0038  ersstd1   $char2.
        @0040  erssty1   $char4.
     /* @0044  esrdstart2 mmddyy8. */
        @0044  ersstm2   $char2.
        @0046  ersstd2   $char2.
        @0048  erssty2   $char4.
     /* @0052  esrdstart3 mmddyy8. */
        @0052  ersstm3   $char2.
        @0054  ersstd3   $char2.
        @0056  erssty3   $char4.
     /* @0060  esrdstart4 mmddyy8. */
        @0060  ersstm4   $char2.
        @0062  ersstd4   $char2.
        @0064  erssty4   $char4.
     /* @0068  esrdstart5 mmddyy8. */
        @0068  ersstm5   $char2.
        @0070  ersstd5   $char2.
        @0072  erssty5   $char4.
      /*@0076  esrdend1   mmddyy8. */
        @0076  erstrm1   $char2.
        @0078  erstrd1   $char2.
        @0080  erstry1   $char4.
      /*@0084  esrdend2   mmddyy8. */
        @0084  erstrm2   $char2.
        @0086  erstrd2   $char2.
        @0088  erstry2   $char4.
      /*@0092  esrdend3   mmddyy8. */
        @0092  erstrm3   $char2.
        @0094  erstrd3   $char2.
        @0096  erstry3   $char4.
      /*@0100  esrdend4   mmddyy8. */
        @0100  erstrm4   $char2.
        @0102  erstrd4   $char2.
        @0104  erstry4   $char4.
      /*@0108  esrdend5   mmddyy8. */
        @0108  erstrm5   $char2.
        @0110  erstrd5   $char2.
        @0112  erstry5   $char4.
        @0116 (medcd1991-medcd2017)       ($char2.)  /*27*2*/
        @0170 (zip5_1991-zip5_2017)       ($char5.)  /*27*5*/
        @0305 (zip4_1991-zip4_2017)       ($char4.)  /*27*4*/
        @0413 (state1991-state2017)       ($char2.)  /*27*2*/
        @0467 (cnty1991-cnty2017)         ($char3.)  /*27*3*/
        @0548 (urban1991-urban2017)       ($char2.)  /*27*2*/
        @0602 (registry1991-registry2017) ($char2.)  /*27*2*/
        @0656 (reg2cd1991-reg2cd2017)     ($char2.)  /*27*2*/

        @0710 (mon1-mon324)               ($char1.)       /*Entitlement variables have been grouped together for 2018 linkage*/
        @1034 (gho1-gho324)               ($char1.)       /*Previously they were grouped by year. The same change was made for*/
        @1358 (allflag1-allflag324)       ($char1.)       /*Part D data*/
        @1682 (ptacnt1991-ptacnt2017)     ($char2.)
        @1736 (ptbcnt1991-ptbcnt2017)     ($char2.)
        @1790 (hmocnt1991-hmocnt2017)     ($char2.)
        @1844 (stbuyin1991-stbuyin2017)   ($char2.)

 /*       @1898 (planmon193-planmon312) ($char1.)  */
        @1898 (plan07_01-plan07_12) ($char1.)
        @1910 (plan08_01-plan08_12) ($char1.)
        @1922 (plan09_01-plan09_12) ($char1.)
        @1934 (plan10_01-plan10_12) ($char1.)
        @1946 (plan11_01-plan11_12) ($char1.)
        @1958 (plan12_01-plan12_12) ($char1.)
        @1970 (plan13_01-plan13_12) ($char1.)
        @1982 (plan14_01-plan14_12) ($char1.)
        @1994 (plan15_01-plan15_12) ($char1.)
        @2006 (plan16_01-plan16_12) ($char1.)

/*        @2018 (dualmon193-dualmon312)  ($char2.)  */
        @2018 (dual07_01-dual07_12) ($char2.)
        @2042 (dual08_01-dual08_12) ($char2.)
        @2066 (dual09_01-dual09_12) ($char2.)
        @2090 (dual10_01-dual10_12) ($char2.)
        @2114 (dual11_01-dual11_12) ($char2.)
        @2138 (dual12_01-dual12_12) ($char2.)
        @2162 (dual13_01-dual13_12) ($char2.)
        @2186 (dual14_01-dual14_12) ($char2.)
        @2210 (dual15_01-dual15_12) ($char2.)
        @2234 (dual16_01-dual16_12) ($char2.)
        @2258 (ptd07-ptd16)         ($char2.)
        @2278 (dualcnt07-dualcnt16) ($char2.)
         ;

array urbancd(27)  $ 2 urban1991-urban2017;
array urbanrec(27) $ 1 urbrec1991-urbrec2017;
  do i = 1 to 27;
     urbanrec(i) = ' ';
     if 0 <= input(urbancd(i),2.) < 1.5 then urbanrec(i) = '1';          /*Big Metro*/
       else if 1.5 <= input(urbancd(i),2.) < 3.5 then urbanrec(i) = '2';   /*Metro*/
       else if 3.5 <= input(urbancd(i),2.) < 5.5 then urbanrec(i) = '3';   /*Urban*/
       else if 5.5 <= input(urbancd(i),2.) < 7.5 then urbanrec(i) = '4';   /*Less Urban*/
       else if 7.5 <= input(urbancd(i),2.) < 88 then urbanrec(i)  = '5';   /*Rural*/
       else if urbancd(i) = '88' then urbanrec(i) = '8';                   /*Missing/unknown Alaska/Hawaii*/
       else if urbancd(i) = '99' then urbanrec(i) = '9';                   /*Missing/unknown*/
   end;

label
  patient_id = 'Patient ID'
  birthm     = 'Birth Month'
  birthd     = 'Birth Day'
  birthyr    = 'Birth Year'
  VRFYDTH    = 'Valid Date of Death'
  med_dodm   = 'Death Month'
  med_dody   = 'Death Year'
  med_dodd   = 'Death Day'
  m_sex      = 'Medicare Sex'
  race       = 'Medicare Race'
  linkflag   = 'Linkage Flag'
  sumstat    = 'Summary Status Flag'
  rsncd1     = 'Original Reason for Entitlement'
  esrd_ever  = 'End Stage Renal Disease Ever'
  ersstm1  = 'ESRD Start Month 1'
  ersstd1  = 'ESRD Start Day 1'
  erssty1  = 'ESRD Start Year 1'
  ersstm2  = 'ESRD Start Month 2'
  ersstd2  = 'ESRD Start Day 2'
  erssty2  = 'ESRD Start Year 2'
  ersstm3  = 'ESRD Start Month 3'
  ersstd3  = 'ESRD Start Day 3'
  erssty3  = 'ESRD Start Year 3'
  ersstm4  = 'ESRD Start Month 4'
  ersstd4  = 'ESRD Start Day 4'
  erssty4  = 'ESRD Start Year 4'
  ersstm5  = 'ESRD Start Month 5'
  ersstd5  = 'ESRD Start Day 5'
  erssty5  = 'ESRD Start Year 5'

  erstrm1  = 'ESRD End Month 1'
  erstrd1  = 'ESRD End Day 1'
  erstry1  = 'ESRD End Year 1'
  erstrm2  = 'ESRD End Month 2'
  erstrd2  = 'ESRD End Day 2'
  erstry2  = 'ESRD End Year 2'
  erstrm3  = 'ESRD End Month 3'
  erstrd3  = 'ESRD End Day 3'
  erstry3  = 'ESRD End Year 3'
  erstrm4  = 'ESRD End Month 4'
  erstrd4  = 'ESRD End Day 4'
  erstry4  = 'ESRD End Year 4'
  erstrm5  = 'ESRD End Month 5'
  erstrd5  = 'ESRD End Day 5'
  erstry5  = 'ESRD End Year 5'

  medcd1991 = 'Medicare Status Code 1991 (From EDB)'
  medcd1992 = 'Medicare Status Code 1992 (From EDB)'
  medcd1993 = 'Medicare Status Code 1993 (From EDB)'
  medcd1994 = 'Medicare Status Code 1994 (From EDB)'
  medcd1995 = 'Medicare Status Code 1995 (From EDB)'
  medcd1996 = 'Medicare Status Code 1996 (From EDB)'
  medcd1997 = 'Medicare Status Code 1997 (From EDB)'
  medcd1998 = 'Medicare Status Code 1998 (From EDB)'
  medcd1999 = 'Medicare Status Code 1999 (From EDB)'
  medcd2000 = 'Medicare Status Code 2000 (From EDB)'
  medcd2001 = 'Medicare Status Code 2001 (From EDB)'
  medcd2002 = 'Medicare Status Code 2002 (From EDB)'
  medcd2003 = 'Medicare Status Code 2003 (From EDB)'
  medcd2004 = 'Medicare Status Code 2004 (From EDB)'
  medcd2005 = 'Medicare Status Code 2005 (From EDB)'
  medcd2006 = 'Medicare Status Code 2006 (From EDB)'
  medcd2007 = 'Medicare Status Code 2007 (From EDB)'
  medcd2008 = 'Medicare Status Code 2008 (From EDB)'
  medcd2009 = 'Medicare Status Code 2009 (From EDB)'
  medcd2010 = 'Medicare Status Code 2010 (From EDB)'
  medcd2011 = 'Medicare Status Code 2011 (From EDB)'
  medcd2012 = 'Medicare Status Code 2012 (From EDB)'
  medcd2013 = 'Medicare Status Code 2013 (From EDB)'
  medcd2014 = 'Medicare Status Code 2014 (From EDB)'
  medcd2015 = 'Medicare Status Code 2015 (From EDB)'
  medcd2016 = 'Medicare Status Code 2016 (From EDB)'
  medcd2017 = 'Medicare Status Code 2017 (From EDB)'

  zip5_1991   = 'Zip Code in 1991, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1992   = 'Zip Code in 1992, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1993   = 'Zip Code in 1993, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1994   = 'Zip Code in 1994, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1995   = 'Zip Code in 1995, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1996   = 'Zip Code in 1996, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1997   = 'Zip Code in 1997, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1998   = 'Zip Code in 1998, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_1999   = 'Zip Code in 1999, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2000   = 'Zip Code in 2000, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2001   = 'Zip Code in 2001, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2002   = 'Zip Code in 2002, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2003   = 'Zip Code in 2003, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2004   = 'Zip Code in 2004, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2005   = 'Zip Code in 2005, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2006   = 'Zip Code in 2006, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2007   = 'Zip Code in 2007, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2008   = 'Zip Code in 2008, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2009   = 'Zip Code in 2009, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2010   = 'Zip Code in 2010, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2011   = 'Zip Code in 2011, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2012   = 'Zip Code in 2012, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2013   = 'Zip Code in 2013, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2014   = 'Zip Code in 2014, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2015   = 'Zip Code in 2015, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2016   = 'Zip Code in 2016, first 5 digits'  /* Special Permission required for unencypted zip */
  zip5_2017   = 'Zip Code in 2017, first 5 digits'  /* Special Permission required for unencypted zip */

  zip4_1991   = 'Zip Code in 1991, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1992   = 'Zip Code in 1992, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1993   = 'Zip Code in 1993, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1994   = 'Zip Code in 1994, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1995   = 'Zip Code in 1995, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1996   = 'Zip Code in 1996, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1997   = 'Zip Code in 1997, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1998   = 'Zip Code in 1998, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_1999   = 'Zip Code in 1999, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2000   = 'Zip Code in 2000, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2001   = 'Zip Code in 2001, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2002   = 'Zip Code in 2002, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2003   = 'Zip Code in 2003, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2004   = 'Zip Code in 2004, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2005   = 'Zip Code in 2005, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2006   = 'Zip Code in 2006, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2007   = 'Zip Code in 2007, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2008   = 'Zip Code in 2008, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2009   = 'Zip Code in 2009, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2010   = 'Zip Code in 2010, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2011   = 'Zip Code in 2011, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2012   = 'Zip Code in 2012, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2013   = 'Zip Code in 2013, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2014   = 'Zip Code in 2014, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2015   = 'Zip Code in 2015, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2016   = 'Zip Code in 2016, last 4 digits'  /* Special Permission required for unencypted zip */
  zip4_2017   = 'Zip Code in 2017, last 4 digits'  /* Special Permission required for unencypted zip */

  state1991 ='State 1991 (From EDB - FIPS)'
  state1992 ='State 1992 (From EDB - FIPS)'
  state1993 ='State 1993 (From EDB - FIPS)'
  state1994 ='State 1994 (From EDB - FIPS)'
  state1995 ='State 1995 (From EDB - FIPS)'
  state1996 ='State 1996 (From EDB - FIPS)'
  state1997 ='State 1997 (From EDB - FIPS)'
  state1998 ='State 1998 (From EDB - FIPS)'
  state1999 ='State 1999 (From EDB - FIPS)'
  state2000 ='State 2000 (From EDB - FIPS)'
  state2001 ='State 2001 (From EDB - FIPS)'
  state2002 ='State 2002 (From EDB - FIPS)'
  state2003 ='State 2003 (From EDB - FIPS)'
  state2004 ='State 2004 (From EDB - FIPS)'
  state2005 ='State 2005 (From EDB - FIPS)'
  state2006 ='State 2006 (From EDB - FIPS)'
  state2007 ='State 2007 (From EDB - FIPS)'
  state2008 ='State 2008 (From EDB - FIPS)'
  state2009 ='State 2009 (From EDB - FIPS)'
  state2010 ='State 2010 (From EDB - FIPS)'
  state2011 ='State 2011 (From EDB - FIPS)'
  state2012 ='State 2012 (From EDB - FIPS)'
  state2013 ='State 2013 (From EDB - FIPS)'
  state2014 ='State 2014 (From EDB - FIPS)'
  state2015 ='State 2015 (From EDB - FIPS)'
  state2016 ='State 2016 (From EDB - FIPS)'
  state2017 ='State 2017 (From EDB - FIPS)'

  CNTY1991 ='County 1991 (From EDB - FIPS)'
  CNTY1992 ='County 1992 (From EDB - FIPS)'
  CNTY1993 ='County 1993 (From EDB - FIPS)'
  CNTY1994 ='County 1994 (From EDB - FIPS)'
  CNTY1995 ='County 1995 (From EDB - FIPS)'
  CNTY1996 ='County 1996 (From EDB - FIPS)'
  CNTY1997 ='County 1997 (From EDB - FIPS)'
  CNTY1998 ='County 1998 (From EDB - FIPS)'
  CNTY1999 ='County 1999 (From EDB - FIPS)'
  CNTY2000 ='County 2000 (From EDB - FIPS)'
  CNTY2001 ='County 2001 (From EDB - FIPS)'
  CNTY2002 ='County 2002 (From EDB - FIPS)'
  CNTY2003 ='County 2003 (From EDB - FIPS)'
  CNTY2004 ='County 2004 (From EDB - FIPS)'
  CNTY2005 ='County 2005 (From EDB - FIPS)'
  CNTY2006 ='County 2006 (From EDB - FIPS)'
  CNTY2007 ='County 2007 (From EDB - FIPS)'
  CNTY2008 ='County 2008 (From EDB - FIPS)'
  CNTY2009 ='County 2009 (From EDB - FIPS)'
  CNTY2010 ='County 2010 (From EDB - FIPS)'
  CNTY2011 ='County 2011 (From EDB - FIPS)'
  CNTY2012 ='County 2012 (From EDB - FIPS)'
  CNTY2013 ='County 2013 (From EDB - FIPS)'
  CNTY2014 ='County 2014 (From EDB - FIPS)'
  CNTY2015 ='County 2015 (From EDB - FIPS)'
  CNTY2016 ='County 2016 (From EDB - FIPS)'
  CNTY2017 ='County 2017 (From EDB - FIPS)'

  urban1991 ='Rural-Urban 1993 Continuum code 1991 (From SEER*Stat)'
  urban1992 ='Rural-Urban 1993 Continuum code 1992 (From SEER*Stat)'
  urban1993 ='Rural-Urban 1993 Continuum code 1993 (From SEER*Stat)'
  urban1994 ='Rural-Urban 1993 Continuum code 1994 (From SEER*Stat)'
  urban1995 ='Rural-Urban 1993 Continuum code 1995 (From SEER*Stat)'
  urban1996 ='Rural-Urban 1993 Continuum code 1996 (From SEER*Stat)'
  urban1997 ='Rural-Urban 1993 Continuum code 1997 (From SEER*Stat)'
  urban1998 ='Rural-Urban 1993 Continuum code 1998 (From SEER*Stat)'
  urban1999 ='Rural-Urban 2003 Continuum code 1999 (From SEER*Stat)'
  urban2000 ='Rural-Urban 2003 Continuum code 2000 (From SEER*Stat)'
  urban2001 ='Rural-Urban 2003 Continuum code 2001 (From SEER*Stat)'
  urban2002 ='Rural-Urban 2003 Continuum code 2002 (From SEER*Stat)'
  urban2003 ='Rural-Urban 2003 Continuum code 2003 (From SEER*Stat)'
  urban2004 ='Rural-Urban 2003 Continuum code 2004 (From SEER*Stat)'
  urban2005 ='Rural-Urban 2003 Continuum code 2005 (From SEER*Stat)'
  urban2006 ='Rural-Urban 2003 Continuum code 2006 (From SEER*Stat)'
  urban2007 ='Rural-Urban 2003 Continuum code 2007 (From SEER*Stat)'
  urban2008 ='Rural-Urban 2003 Continuum code 2008 (From SEER*Stat)'
  urban2009 ='Rural-Urban 2013 Continuum code 2009 (From SEER*Stat)'
  urban2010 ='Rural-Urban 2013 Continuum code 2010 (From SEER*Stat)'
  urban2011 ='Rural-Urban 2013 Continuum code 2011 (From SEER*Stat)'
  urban2012 ='Rural-Urban 2013 Continuum code 2012 (From SEER*Stat)'
  urban2013 ='Rural-Urban 2013 Continuum code 2013 (From SEER*Stat)'
  urban2014 ='Rural-Urban 2013 Continuum code 2014 (From SEER*Stat)'
  urban2015 ='Rural-Urban 2013 Continuum code 2015 (From SEER*Stat)'
  urban2016 ='Rural-Urban 2013 Continuum code 2016 (From SEER*Stat)'
  urban2017 ='Rural-Urban 2013 Continuum code 2017 (From SEER*Stat)'

  urbrec1991 ='Rural-Urban 1993 Continuum recode 1991 (From input statement)'
  urbrec1992 ='Rural-Urban 1993 Continuum recode 1992 (From input statement)'
  urbrec1993 ='Rural-Urban 1993 Continuum recode 1993 (From input statement)'
  urbrec1994 ='Rural-Urban 1993 Continuum recode 1994 (From input statement)'
  urbrec1995 ='Rural-Urban 1993 Continuum recode 1995 (From input statement)'
  urbrec1996 ='Rural-Urban 1993 Continuum recode 1996 (From input statement)'
  urbrec1997 ='Rural-Urban 1993 Continuum recode 1997 (From input statement)'
  urbrec1998 ='Rural-Urban 1993 Continuum recode 1998 (From input statement)'
  urbrec1999 ='Rural-Urban 2003 Continuum recode 1999 (From input statement)'
  urbrec2000 ='Rural-Urban 2003 Continuum recode 2000 (From input statement)'
  urbrec2001 ='Rural-Urban 2003 Continuum recode 2001 (From input statement)'
  urbrec2002 ='Rural-Urban 2003 Continuum recode 2002 (From input statement)'
  urbrec2003 ='Rural-Urban 2003 Continuum recode 2003 (From input statement)'
  urbrec2004 ='Rural-Urban 2003 Continuum recode 2004 (From input statement)'
  urbrec2005 ='Rural-Urban 2003 Continuum recode 2005 (From input statement)'
  urbrec2006 ='Rural-Urban 2003 Continuum recode 2006 (From input statement)'
  urbrec2007 ='Rural-Urban 2003 Continuum recode 2007 (From input statement)'
  urbrec2008 ='Rural-Urban 2003 Continuum recode 2008 (From input statement)'
  urbrec2009 ='Rural-Urban 2013 Continuum recode 2009 (From input statement)'
  urbrec2010 ='Rural-Urban 2013 Continuum recode 2010 (From input statement)'
  urbrec2011 ='Rural-Urban 2013 Continuum recode 2011 (From input statement)'
  urbrec2012 ='Rural-Urban 2013 Continuum recode 2012 (From input statement)'
  urbrec2013 ='Rural-Urban 2013 Continuum recode 2013 (From input statement)'
  urbrec2014 ='Rural-Urban 2013 Continuum recode 2014 (From input statement)'
  urbrec2015 ='Rural-Urban 2013 Continuum recode 2015 (From input statement)'
  urbrec2016 ='Rural-Urban 2013 Continuum recode 2016 (From input statement)'
  urbrec2017 ='Rural-Urban 2013 Continuum recode 2017 (From input statement)'

  registry1991 ='SEER registry code in 1991 (retained over years) (FROM EDB)'
  registry1992 ='SEER registry code in 1992 (retained over years) (FROM EDB)'
  registry1993 ='SEER registry code in 1993 (retained over years) (FROM EDB)'
  registry1994 ='SEER registry code in 1994 (retained over years) (FROM EDB)'
  registry1995 ='SEER registry code in 1995 (retained over years) (FROM EDB)'
  registry1996 ='SEER registry code in 1996 (retained over years) (FROM EDB)'
  registry1997 ='SEER registry code in 1997 (retained over years) (FROM EDB)'
  registry1998 ='SEER registry code in 1998 (retained over years) (FROM EDB)'
  registry1999 ='SEER registry code in 1999 (retained over years) (FROM EDB)'
  registry2000 ='SEER registry code in 2000 (retained over years) (FROM EDB)'
  registry2001 ='SEER registry code in 2001 (retained over years) (FROM EDB)'
  registry2002 ='SEER registry code in 2002 (retained over years) (FROM EDB)'
  registry2003 ='SEER registry code in 2003 (retained over years) (FROM EDB)'
  registry2004 ='SEER registry code in 2004 (retained over years) (FROM EDB)'
  registry2005 ='SEER registry code in 2005 (retained over years) (FROM EDB)'
  registry2006 ='SEER registry code in 2006 (retained over years) (FROM EDB)'
  registry2007 ='SEER registry code in 2007 (retained over years) (FROM EDB)'
  registry2008 ='SEER registry code in 2008 (retained over years) (FROM EDB)'
  registry2009 ='SEER registry code in 2009 (retained over years) (FROM EDB)'
  registry2010 ='SEER registry code in 2010 (retained over years) (FROM EDB)'
  registry2011 ='SEER registry code in 2011 (retained over years) (FROM EDB)'
  registry2012 ='SEER registry code in 2012 (retained over years) (FROM EDB)'
  registry2013 ='SEER registry code in 2013 (retained over years) (FROM EDB)'
  registry2014 ='SEER registry code in 2014 (retained over years) (FROM EDB)'
  registry2015 ='SEER registry code in 2015 (retained over years) (FROM EDB)'
  registry2016 ='SEER registry code in 2016 (retained over years) (FROM EDB)'
  registry2017 ='SEER registry code in 2017 (retained over years) (FROM EDB)'

  reg2cd1991   = 'SEER registry code at the end of the year (1991) (FROM EDB)'
  reg2cd1992   = 'SEER registry code at the end of the year (1992) (FROM EDB)'
  reg2cd1993   = 'SEER registry code at the end of the year (1993) (FROM EDB)'
  reg2cd1994   = 'SEER registry code at the end of the year (1994) (FROM EDB)'
  reg2cd1995   = 'SEER registry code at the end of the year (1995) (FROM EDB)'
  reg2cd1996   = 'SEER registry code at the end of the year (1996) (FROM EDB)'
  reg2cd1997   = 'SEER registry code at the end of the year (1997) (FROM EDB)'
  reg2cd1998   = 'SEER registry code at the end of the year (1998) (FROM EDB)'
  reg2cd1999   = 'SEER registry code at the end of the year (1999) (FROM EDB)'
  reg2cd2000   = 'SEER registry code at the end of the year (2000) (FROM EDB)'
  reg2cd2001   = 'SEER registry code at the end of the year (2001) (FROM EDB)'
  reg2cd2002   = 'SEER registry code at the end of the year (2002) (FROM EDB)'
  reg2cd2003   = 'SEER registry code at the end of the year (2003) (FROM EDB)'
  reg2cd2004   = 'SEER registry code at the end of the year (2004) (FROM EDB)'
  reg2cd2005   = 'SEER registry code at the end of the year (2005) (FROM EDB)'
  reg2cd2006   = 'SEER registry code at the end of the year (2006) (FROM EDB)'
  reg2cd2007   = 'SEER registry code at the end of the year (2007) (FROM EDB)'
  reg2cd2008   = 'SEER registry code at the end of the year (2008) (FROM EDB)'
  reg2cd2009   = 'SEER registry code at the end of the year (2009) (FROM EDB)'
  reg2cd2010   = 'SEER registry code at the end of the year (2010) (FROM EDB)'
  reg2cd2011   = 'SEER registry code at the end of the year (2011) (FROM EDB)'
  reg2cd2012   = 'SEER registry code at the end of the year (2012) (FROM EDB)'
  reg2cd2013   = 'SEER registry code at the end of the year (2013) (FROM EDB)'
  reg2cd2014   = 'SEER registry code at the end of the year (2014) (FROM EDB)'
  reg2cd2015   = 'SEER registry code at the end of the year (2015) (FROM EDB)'
  reg2cd2016   = 'SEER registry code at the end of the year (2016) (FROM EDB)'
  reg2cd2017   = 'SEER registry code at the end of the year (2017) (FROM EDB)'

  mon1       = 'PART A and B Entitlement Monthly Indicator 1'
  gho1       = 'HMO Entitlement Monthly Indicator 1'
  allflag1   = 'State Buy-in Monthly Indicator 1'

  ptacnt1991 = 'Number of Months in 1991 Covered for Part A'
  ptacnt1992 = 'Number of Months in 1992 Covered for Part A'
  ptacnt1993 = 'Number of Months in 1993 Covered for Part A'
  ptacnt1994 = 'Number of Months in 1994 Covered for Part A'
  ptacnt1995 = 'Number of Months in 1995 Covered for Part A'
  ptacnt1996 = 'Number of Months in 1996 Covered for Part A'
  ptacnt1997 = 'Number of Months in 1997 Covered for Part A'
  ptacnt1998 = 'Number of Months in 1998 Covered for Part A'
  ptacnt1999 = 'Number of Months in 1999 Covered for Part A'
  ptacnt2000 = 'Number of Months in 2000 Covered for Part A'
  ptacnt2001 = 'Number of Months in 2001 Covered for Part A'
  ptacnt2002 = 'Number of Months in 2002 Covered for Part A'
  ptacnt2003 = 'Number of Months in 2003 Covered for Part A'
  ptacnt2004 = 'Number of Months in 2004 Covered for Part A'
  ptacnt2005 = 'Number of Months in 2005 Covered for Part A'
  ptacnt2006 = 'Number of Months in 2006 Covered for Part A'
  ptacnt2007 = 'Number of Months in 2007 Covered for Part A'
  ptacnt2008 = 'Number of Months in 2008 Covered for Part A'
  ptacnt2009 = 'Number of Months in 2009 Covered for Part A'
  ptacnt2010 = 'Number of Months in 2010 Covered for Part A'
  ptacnt2011 = 'Number of Months in 2011 Covered for Part A'
  ptacnt2012 = 'Number of Months in 2012 Covered for Part A'
  ptacnt2013 = 'Number of Months in 2013 Covered for Part A'
  ptacnt2014 = 'Number of Months in 2014 Covered for Part A'
  ptacnt2015 = 'Number of Months in 2015 Covered for Part A'
  ptacnt2016 = 'Number of Months in 2016 Covered for Part A'
  ptacnt2017 = 'Number of Months in 2017 Covered for Part A'

  ptbcnt1991 = 'Number of Months in 1991 Covered for Part B'
  ptbcnt1992 = 'Number of Months in 1992 Covered for Part B'
  ptbcnt1993 = 'Number of Months in 1993 Covered for Part B'
  ptbcnt1994 = 'Number of Months in 1994 Covered for Part B'
  ptbcnt1995 = 'Number of Months in 1995 Covered for Part B'
  ptbcnt1996 = 'Number of Months in 1996 Covered for Part B'
  ptbcnt1997 = 'Number of Months in 1997 Covered for Part B'
  ptbcnt1998 = 'Number of Months in 1998 Covered for Part B'
  ptbcnt1999 = 'Number of Months in 1999 Covered for Part B'
  ptbcnt2000 = 'Number of Months in 2000 Covered for Part B'
  ptbcnt2001 = 'Number of Months in 2001 Covered for Part B'
  ptbcnt2002 = 'Number of Months in 2002 Covered for Part B'
  ptbcnt2003 = 'Number of Months in 2003 Covered for Part B'
  ptbcnt2004 = 'Number of Months in 2004 Covered for Part B'
  ptbcnt2005 = 'Number of Months in 2005 Covered for Part B'
  ptbcnt2006 = 'Number of Months in 2006 Covered for Part B'
  ptbcnt2007 = 'Number of Months in 2007 Covered for Part B'
  ptbcnt2008 = 'Number of Months in 2008 Covered for Part B'
  ptbcnt2009 = 'Number of Months in 2009 Covered for Part B'
  ptbcnt2010 = 'Number of Months in 2010 Covered for Part B'
  ptbcnt2011 = 'Number of Months in 2011 Covered for Part B'
  ptbcnt2012 = 'Number of Months in 2012 Covered for Part B'
  ptbcnt2013 = 'Number of Months in 2013 Covered for Part B'
  ptbcnt2014 = 'Number of Months in 2014 Covered for Part B'
  ptbcnt2015 = 'Number of Months in 2015 Covered for Part B'
  ptbcnt2016 = 'Number of Months in 2016 Covered for Part B'
  ptbcnt2017 = 'Number of Months in 2017 Covered for Part B'

  hmocnt1991 = 'Number of Months in 1991 as an HMO member'
  hmocnt1992 = 'Number of Months in 1992 as an HMO member'
  hmocnt1993 = 'Number of Months in 1993 as an HMO member'
  hmocnt1994 = 'Number of Months in 1994 as an HMO member'
  hmocnt1995 = 'Number of Months in 1995 as an HMO member'
  hmocnt1996 = 'Number of Months in 1996 as an HMO member'
  hmocnt1997 = 'Number of Months in 1997 as an HMO member'
  hmocnt1998 = 'Number of Months in 1998 as an HMO member'
  hmocnt1999 = 'Number of Months in 1999 as an HMO member'
  hmocnt2000 = 'Number of Months in 2000 as an HMO member'
  hmocnt2001 = 'Number of Months in 2001 as an HMO member'
  hmocnt2002 = 'Number of Months in 2002 as an HMO member'
  hmocnt2003 = 'Number of Months in 2003 as an HMO member'
  hmocnt2004 = 'Number of Months in 2004 as an HMO member'
  hmocnt2005 = 'Number of Months in 2005 as an HMO member'
  hmocnt2006 = 'Number of Months in 2006 as an HMO member'
  hmocnt2007 = 'Number of Months in 2007 as an HMO member'
  hmocnt2008 = 'Number of Months in 2008 as an HMO member'
  hmocnt2009 = 'Number of Months in 2009 as an HMO member'
  hmocnt2010 = 'Number of Months in 2010 as an HMO member'
  hmocnt2011 = 'Number of Months in 2011 as an HMO member'
  hmocnt2012 = 'Number of Months in 2012 as an HMO member'
  hmocnt2013 = 'Number of Months in 2013 as an HMO member'
  hmocnt2014 = 'Number of Months in 2014 as an HMO member'
  hmocnt2015 = 'Number of Months in 2015 as an HMO member'
  hmocnt2016 = 'Number of Months in 2016 as an HMO member'
  hmocnt2017 = 'Number of Months in 2017 as an HMO member'

  stbuyin1991 = 'Number of Months in 1991 with State Buy-in Coverage'
  stbuyin1992 = 'Number of Months in 1992 with State Buy-in Coverage'
  stbuyin1993 = 'Number of Months in 1993 with State Buy-in Coverage'
  stbuyin1994 = 'Number of Months in 1994 with State Buy-in Coverage'
  stbuyin1995 = 'Number of Months in 1995 with State Buy-in Coverage'
  stbuyin1996 = 'Number of Months in 1996 with State Buy-in Coverage'
  stbuyin1997 = 'Number of Months in 1997 with State Buy-in Coverage'
  stbuyin1998 = 'Number of Months in 1998 with State Buy-in Coverage'
  stbuyin1999 = 'Number of Months in 1999 with State Buy-in Coverage'
  stbuyin2000 = 'Number of Months in 2000 with State Buy-in Coverage'
  stbuyin2001 = 'Number of Months in 2001 with State Buy-in Coverage'
  stbuyin2002 = 'Number of Months in 2002 with State Buy-in Coverage'
  stbuyin2003 = 'Number of Months in 2003 with State Buy-in Coverage'
  stbuyin2004 = 'Number of Months in 2004 with State Buy-in Coverage'
  stbuyin2005 = 'Number of Months in 2005 with State Buy-in Coverage'
  stbuyin2006 = 'Number of Months in 2006 with State Buy-in Coverage'
  stbuyin2007 = 'Number of Months in 2007 with State Buy-in Coverage'
  stbuyin2008 = 'Number of Months in 2008 with State Buy-in Coverage'
  stbuyin2009 = 'Number of Months in 2009 with State Buy-in Coverage'
  stbuyin2010 = 'Number of Months in 2010 with State Buy-in Coverage'
  stbuyin2011 = 'Number of Months in 2011 with State Buy-in Coverage'
  stbuyin2012 = 'Number of Months in 2012 with State Buy-in Coverage'
  stbuyin2013 = 'Number of Months in 2013 with State Buy-in Coverage'
  stbuyin2014 = 'Number of Months in 2014 with State Buy-in Coverage'
  stbuyin2015 = 'Number of Months in 2015 with State Buy-in Coverage'
  stbuyin2016 = 'Number of Months in 2016 with State Buy-in Coverage'
  stbuyin2017 = 'Number of Months in 2017 with State Buy-in Coverage'

  plan07_01  = "Plan-Value Indicators (January) (PartD - 2007)"
  plan08_01  = "Plan-Value Indicators (January) (PartD - 2008)"
  plan09_01  = "Plan-Value Indicators (January) (PartD - 2009)"
  plan10_01  = "Plan-Value Indicators (January) (PartD - 2010)"
  plan11_01  = "Plan-Value Indicators (January) (PartD - 2011)"
  plan12_01  = "Plan-Value Indicators (January) (PartD - 2012)"
  plan13_01  = "Plan-Value Indicators (January) (PartD - 2013)"
  plan14_01  = "Plan-Value Indicators (January) (PartD - 2014)"
  plan15_01  = "Plan-Value Indicators (January) (PartD - 2015)"
  plan16_01  = "Plan-Value Indicators (January) (PartD - 2016)"

  dual07_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2007)"
  dual08_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2008)"
  dual09_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2009)"
  dual10_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2010)"
  dual11_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2011)"
  dual12_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2012)"
  dual13_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2013)"
  dual14_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2014)"
  dual15_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2015)"
  dual16_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2016)"

  ptd07      = "Plan Coverage Months (PartD - 2007)"
  ptd08      = "Plan Coverage Months (PartD - 2008)"
  ptd09      = "Plan Coverage Months (PartD - 2009)"
  ptd10      = "Plan Coverage Months (PartD - 2010)"
  ptd11      = "Plan Coverage Months (PartD - 2011)"
  ptd12      = "Plan Coverage Months (PartD - 2012)"
  ptd13      = "Plan Coverage Months (PartD - 2013)"
  ptd14      = "Plan Coverage Months (PartD - 2014)"
  ptd15      = "Plan Coverage Months (PartD - 2015)"
  ptd16      = "Plan Coverage Months (PartD - 2016)"

  dualcnt07  = "Medicaid Dual Eligible Months (PartD - 2007)"
  dualcnt08  = "Medicaid Dual Eligible Months (PartD - 2008)"
  dualcnt09  = "Medicaid Dual Eligible Months (PartD - 2009)"
  dualcnt10  = "Medicaid Dual Eligible Months (PartD - 2010)"
  dualcnt11  = "Medicaid Dual Eligible Months (PartD - 2011)"
  dualcnt12  = "Medicaid Dual Eligible Months (PartD - 2012)"
  dualcnt13  = "Medicaid Dual Eligible Months (PartD - 2013)"
  dualcnt14  = "Medicaid Dual Eligible Months (PartD - 2014)"
  dualcnt15  = "Medicaid Dual Eligible Months (PartD - 2015)"
  dualcnt16  = "Medicaid Dual Eligible Months (PartD - 2016)"
  ;

run;

proc contents data=sumden position;
run;