/*Published: 12/31/2012*/
/************************************************************************/
/* IF YOU RECEIVED THE SUMDENOM FILE BEFORE DECEMBER 2012 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.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;
  infile sumin lrecl=1906 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  vdeath    $char1.
        @0021  med_dodm  $char2.
        @0023  med_dodd  $char2.
        @0025  med_dody  $char4.
        @0029  sex       $char1.
        @0030  race      $char1.
        @0031  rsncd1    $char1.
        @0032  cur_ent   $char1.
        @0033  cur_yr    $char4. /* New in 2012 Linkage */
        @0037  chr_esrd  $char1.
        @0038  chr_esrd_yr $char4. /* New in 2012 Linkage */
        @0042  med_stcd  $char2.
        @0044  medst_yr  $char4. /* New in 2012 Linkage */
        @0048  keepflg   $char1. /* New in 2012 Linkage */
        @0049  linkflag  $char1.
        @0050  sumstat   $char1.

        @0060  rtirace   $char1.
        @0061  cred06    $char1.
        @0062  (plan06_01-plan06_12) ($char1.)
        @0074  (cost06_01-cost06_12) ($char2.)
        @0098  (rds06_01-rds06_12) ($char1.)
        @0110  (dual06_01-dual06_12) ($char2.)
        @0134  ptd06       $char2.
        @0136  rdscnt06    $char2.
        @0138  dualcnt06   $char2.

        @0141  cred07    $char1.
        @0142  (plan07_01-plan07_12) ($char1.)
        @0154  (cost07_01-cost07_12) ($char2.)
        @0178  (rds07_01-rds07_12) ($char1.)
        @0190  (dual07_01-dual07_12) ($char2.)
        @0214  ptd07       $char2.
        @0216  rdscnt07    $char2.
        @0218  dualcnt07   $char2.
        @0221  cred08    $char1.
        @0222  (plan08_01-plan08_12) ($char1.)
        @0234  (cost08_01-cost08_12) ($char2.)
        @0258  (rds08_01-rds08_12) ($char1.)
        @0270  (dual08_01-dual08_12) ($char2.)
        @0294  ptd08       $char2.
        @0296  rdscnt08    $char2.
        @0298  dualcnt08   $char2.

        @0301  cred09    $char1.
        @0302  (plan09_01-plan09_12) ($char1.)
        @0314  (cost09_01-cost09_12) ($char2.)
        @0338  (rds09_01-rds09_12) ($char1.)
        @0350  (dual09_01-dual09_12) ($char2.)
        @0374  ptd09       $char2.
        @0376  rdscnt09    $char2.
        @0378  dualcnt09   $char2.
        @0381  cred10    $char1.
        @0382  (plan10_01-plan10_12) ($char1.)
        @0394  (cost10_01-cost10_12) ($char2.)
        @0418  (rds10_01-rds10_12) ($char1.)
        @0430  (dual10_01-dual10_12) ($char2.)
        @0454  ptd10       $char2.
        @0456  rdscnt10    $char2.
        @0458  dualcnt10   $char2.

        @0461  cred11    $char1.               /* New in 2012 Linkage */
        @0462  (plan11_01-plan11_12) ($char1.) /* New in 2012 Linkage */
        @0474  (cost11_01-cost11_12) ($char2.) /* New in 2012 Linkage */
        @0498  (rds11_01-rds11_12) ($char1.)   /* New in 2012 Linkage */
        @0510  (dual11_01-dual11_12) ($char2.) /* New in 2012 Linkage */
        @0534  ptd11       $char2.             /* New in 2012 Linkage */
        @0536  rdscnt11    $char2.             /* New in 2012 Linkage */
        @0538  dualcnt11   $char2.             /* New in 2012 Linkage */
        @;
      inc2=541;
      inc3=982;

  array urbancd(21)  $ urban1991-urban2011;
  array urbrec(21)   $ urbrec1991-urbrec2011;
  array hmom(252)    $ hmo1-hmo252;
  array ent(252)     $ ent1-ent252;
  array allflag(252) $ allflag1-allflag252;
  array pta(21)        pta1991-pta2011;
  array ptb(21)        ptb1991-ptb2011;
  array hmon(21)       hmon1991-hmon2011;
  array stbuy(21)      stbuyin1991-stbuyin2011;
  array state(21)    $ state1991-state2011;
  array cnty(21)     $ cnty1991-cnty2011;
  array zip(21)      $ 9 zip1991-zip2011;
  array registry(21) $ registry1991-registry2011;
  array reg2(21)     $ reg2cd1991-reg2cd2011;

      do i = 1 to 21;
      input @inc2     state(i)    $char2.
            @inc2+2   cnty(i)     $char3.
            @inc2+5   zip(i)      $char9.
            @inc2+14  urbancd(i)  $char2. /* named URBAN in 2010 Linkage */
            @inc2+16  urbrec(i)   $char1.
            @inc2+17  registry(i) $char2.
            @inc2+19  reg2(i)     $char2.
            @;
            inc2=inc2+21;
      end;
        retain begin end;
        begin=1;
        end=12;

      do i = 1 to 21;
        do p = begin to end;
             input @inc3 ent(p)       $char1.
                 @inc3 + 12 hmom(p)    $char1.
                 @inc3 + 24 allflag(p) $char1.  /* New in 2012 Linkage */

                 @;
              inc3=inc3 + 1;
              end;
            begin = begin + 12;
            end = end + 12;
        input @inc3 + 24 pta(i)   2.
              @inc3 + 26 ptb(i)   2.
              @inc3 + 28 hmon(i)  2.
              @inc3 + 30 stbuy(i) 2.
              @;
             inc3=inc3 + 32;
        end;
       input;


label
  patient_id = 'Patient ID'
  birthm     = 'Birth Month'
  birthd     = 'Birth Day'
  birthyr    = 'Birth Year'
  vdeath     = 'Valid Date of Death Indicator'
  med_dodm   = 'Death Month'
  med_dody   = 'Death Year'
  med_dodd   = 'Death Day'
  sex        = 'Sex'
  race       = 'Race'
  rsncd1     = 'Original Reason for Entitlement'
  cur_ent    = 'Current Reason for Entitlement'
  cur_yr     = 'Year of Current Reason for Entitlement'
  chr_esrd   = 'End Stage Renal Disease Indicator'
  chr_esrd_yr= 'Year of End Stage Renal Disease Indicator'
  med_stcd   = 'Medicare Status Code'
  medst_yr   = 'Year of Medicare Status Code'
  urban1991  = 'Urban/Rural Code for 1991'
  urbrec1991 = 'Urban/Rural Recode for 1991'
  registry1991= 'First Registry for 1991'
  reg2cd1991 = 'Last Registry for 1991'
  ent1       = 'PART A and B Entitlement Indicator'
  hmo1       = 'HMO Entitlement Indicator'
  allflag1   = 'State Buy in Coverage'
  pta1991    = 'Total Months Part A Coverage'
  ptb1991    = 'Total Months Part B Coverage'
  hmon1991   = 'Total Months HMO Coverage'
  stbuyin1991= 'Total Months State Buy-in Coverage'
  state1991  = 'State for 1991'
  cnty1991   = 'County for 1991'
  zip1991    = 'Zip Code for 1991'
  cred06     = "On/Off Creditable Coverage Switch (PartD - 2006)"
  cred07     = "On/Off Creditable Coverage Switch (PartD - 2007)"
  cred08     = "On/Off Creditable Coverage Switch (PartD - 2008)"
  cred09     = "On/Off Creditable Coverage Switch (PartD - 2009)"
  cred10     = "On/Off Creditable Coverage Switch (PartD - 2010)"
  cred11     = "On/Off Creditable Coverage Switch (PartD - 2011)"
  plan06_01  = "Plan-Value Indicators (January) (PartD - 2006)"
  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)"
  cost06_01  = "Denominator Cost Share Group (January) (PartD - 2006)"
  cost07_01  = "Denominator Cost Share Group (January) (PartD - 2007)"
  cost08_01  = "Denominator Cost Share Group (January) (PartD - 2008)"
  cost09_01  = "Denominator Cost Share Group (January) (PartD - 2009)"
  cost10_01  = "Denominator Cost Share Group (January) (PartD - 2010)"
  cost11_01  = "Denominator Cost Share Group (January) (PartD - 2011)"
  rds06_01   = "Retiree Drug Subsidy Indicators (January) (PartD - 2006)"
  rds07_01   = "Retiree Drug Subsidy Indicators (January) (PartD - 2007)"
  rds08_01   = "Retiree Drug Subsidy Indicators (January) (PartD - 2008)"
  rds09_01   = "Retiree Drug Subsidy Indicators (January) (PartD - 2009)"
  rds10_01   = "Retiree Drug Subsidy Indicators (January) (PartD - 2010)"
  rds11_01   = "Retiree Drug Subsidy Indicators (January) (PartD - 2011)"
  dual06_01  = "State Reported Dual Eligible Status Code (January) (PartD - 2006)"
  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)"
  ptd06      = "Plan Coverage Months (PartD - 2006)"
  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)"
  rdscnt06   = "Retiree Drug Subsidy Months (PartD - 2006)"
  rdscnt07   = "Retiree Drug Subsidy Months (PartD - 2007)"
  rdscnt08   = "Retiree Drug Subsidy Months (PartD - 2008)"
  rdscnt09   = "Retiree Drug Subsidy Months (PartD - 2009)"
  rdscnt10   = "Retiree Drug Subsidy Months (PartD - 2010)"
  rdscnt11   = "Retiree Drug Subsidy Months (PartD - 2011)"
  dualcnt06  = "Medicaid Dual Eligible Months (PartD - 2006)"
  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)"
  ;

run;

proc contents data=sumden position;
run;