/************************************************************************/
/* IF YOU RECEIVED THE SUMDENOM FILE BEFORE APRIL 2007 THEN YOU WILL    */
/* NEED A DIFFERENT INPUT STATEMENT. PLEASE CONTACT ANGELA MEEKINS VIA  */
/* E-MAIL MEEKINSA@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;
  array state(20)    $ st1986-st2005;
  array cntys(20)    $ cnty1986-cnty2005;
  array zipcds(20)   $ 9 zip1986-zip2005;
  array hmo(240)     $ hmo1-hmo240;
  array ent(240)     $ ent1-ent240;
  array pta(20)      $ pta1986-pta2005;
  array ptb(20)      $ ptb1986-ptb2005;
  array hmon(20)     $ hmon1986-hmon2005;
  array stbuy(20)    $ stbuy1986-stbuy2005;
  array urban(20)    $ urban1986-urban2005;
  array urbrec(20)   $ urbrec1986-urbrec2005;
  array registry(20) $ registry1986-registry2005;
  infile sumin lrecl=1057 missover pad;
  input @001  HICBIC   $char11.
        @012  birthm   $char2.
        @014  birthd   $char2.
        @016  birthyr  $char4.
        @020  vdeath   $char1.
        @021  med_dodm $char2.
        @023  med_dodd $char2.
        @025  med_dody $char4.
        @029  sex      $char1.
        @030  race     $char1.
        @031  rsncd1   $char1.
        @032  cur_ent  $char1.
        @033  chr_esrd $char1.
        @034  med_stcd $char2.
        @;
                         
      inc2=37;
      inc3=417;
      do i = 1 to 20;
      input @inc2    state(i)   $char2.
            @inc2+2  cntys(i)   $char3.
            @inc2+5  zipcds(i)  $char9.
            @inc2+14 urban(i)   $char2.
            @inc2+16 urbrec(i)  $char1.
            @inc2+17 registry(i) $char2.
            @;
            inc2=inc2+19;
       end;     
           
        retain begin end;
        begin=1;
        end=12;    
       
      do i = 1 to 20;
              do p = begin to end;
               input @inc3 ent(p) $char1.
                     @inc3 + 12 hmo(p) $char1.
                     @;
                     inc3=inc3 + 1;
                     end;
                begin = begin + 12;
                end = end + 12;                 
              input @inc3 + 12 pta(i) $char2.
                    @inc3 + 14 ptb(i) $char2.
                    @inc3 + 16 hmon(i) $char2.
                    @inc3 + 18 stbuy(i) $char2.
                    @;
                    inc3=inc3 + 20;                      
        end;
        input;


label
  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'
  chr_esrd = 'End Stage Renal Disease Indicator'
  med_stcd = 'Medicare Status Code'
  hmo1     = 'HMO Entitlement Indicator'
  ent1     = 'PART A and B Entitlement Indicator'
  pta1986  = 'Total Months Part A Coverage in 1986'
  ptb1986  = 'Total Months Part B Coverage in 1986'
  hmon1986 = 'Total Months HMO Coverage in 1986'
  stbuy1986= 'Total Months State Buy-in Coverage in 1986'
  st1986   = 'State in 1986'
  cnty1986 = 'County in 1986'
  zip1986  = 'Zip Code in 1986'
  urban1986= 'Urban/Rural Code in 1986'
  urbrec1986= 'Urban/Rural Re-code in 1986'
  pta1987  = 'Total Months Part A Coverage in 1987'
  ptb1987  = 'Total Months Part B Coverage in 1987'
  hmon1987 = 'Total Months HMO Coverage in 1987'
  stbuy1987= 'Total Months State Buy-in Coverage in 1987'
  st1987   = 'State in 1987'
  cnty1987 = 'County in 1987'
  zip1987  = 'Zip Code in 1987'
  urban1987= 'Urban/Rural Code in 1987'
  urbrec1987= 'Urban/Rural Re-code in 1987'
  pta1988  = 'Total Months Part A Coverage in 1988'
  ptb1988  = 'Total Months Part B Coverage in 1988'
  hmon1988 = 'Total Months HMO Coverage in 1988'
  stbuy1988= 'Total Months State Buy-in Coverage in 1988'
  st1988   = 'State in 1988'
  cnty1988 = 'County in 1988'
  zip1988  = 'Zip Code in 1988'
  urban1988= 'Urban/Rural Code in 1988'
  urbrec1988= 'Urban/Rural Re-code in 1988'
  pta1989  = 'Total Months Part A Coverage in 1989'
  ptb1989  = 'Total Months Part B Coverage in 1989'
  hmon1989 = 'Total Months HMO Coverage in 1989'
  stbuy1989= 'Total Months State Buy-in Coverage in 1989'
  st1989   = 'State in 1989'
  cnty1989 = 'County in 1989'
  zip1989  = 'Zip Code in 1989'
  urban1989= 'Urban/Rural Code in 1989'
  urbrec1989= 'Urban/Rural Re-code in 1989'
  pta1990  = 'Total Months Part A Coverage in 1990'
  ptb1990  = 'Total Months Part B Coverage in 1990'
  hmon1990 = 'Total Months HMO Coverage in 1990'
  stbuy1990= 'Total Months State Buy-in Coverage in 1990'
  st1990   = 'State in 1990'
  cnty1990 = 'County in 1990'
  zip1990  = 'Zip Code in 1990'
  urban1990= 'Urban/Rural Code in 1990'
  urbrec1990= 'Urban/Rural Re-code in 1990'
  pta1991  = 'Total Months Part A Coverage in 1991'
  ptb1991  = 'Total Months Part B Coverage in 1991'
  hmon1991 = 'Total Months HMO Coverage in 1991'
  stbuy1991= 'Total Months State Buy-in Coverage in 1991'
  st1991   = 'State in 1991'
  cnty1991 = 'County in 1991'
  zip1991  = 'Zip Code in 1991'
  urban1991= 'Urban/Rural Code in 1991'
  urbrec1991= 'Urban/Rural Re-code in 1991'
  pta1992  = 'Total Months Part A Coverage in 1992'
  ptb1992  = 'Total Months Part B Coverage in 1992'
  hmon1992 = 'Total Months HMO Coverage in 1992'
  stbuy1992= 'Total Months State Buy-in Coverage in 1992'
  st1992   = 'State in 1992'
  cnty1992 = 'County in 1992'
  zip1992  = 'Zip Code in 1992'
  urban1992= 'Urban/Rural Code in 1992'
  urbrec1992= 'Urban/Rural Re-code in 1992'
  pta1993  = 'Total Months Part A Coverage in 1993'
  ptb1993  = 'Total Months Part B Coverage in 1993'
  hmon1993 = 'Total Months HMO Coverage in 1993'
  stbuy1993= 'Total Months State Buy-in Coverage in 1993'
  st1993   = 'State in 1993'
  cnty1993 = 'County in 1993'
  zip1993  = 'Zip Code in 1993'
  urban1993= 'Urban/Rural Code in 1993'
  urbrec1993= 'Urban/Rural Re-code in 1993'
  pta1994  = 'Total Months Part A Coverage in 1994'
  ptb1994  = 'Total Months Part B Coverage in 1994'
  hmon1994 = 'Total Months HMO Coverage in 1994'
  stbuy1994= 'Total Months State Buy-in Coverage in 1994'
  st1994   = 'State in 1994'
  cnty1994 = 'County in 1994'
  zip1994  = 'Zip Code in 1994'
  urban1994= 'Urban/Rural Code in 1994'
  urbrec1994= 'Urban/Rural Re-code in 1994'
  pta1995  = 'Total Months Part A Coverage in 1995'
  ptb1995  = 'Total Months Part B Coverage in 1995'
  hmon1995 = 'Total Months HMO Coverage in 1995'
  stbuy1995= 'Total Months State Buy-in Coverage in 1995'
  st1995   = 'State in 1995'
  cnty1995 = 'County in 1995'
  zip1995  = 'Zip Code in 1995'
  urban1995= 'Urban/Rural Code in 1995'
  urbrec1995= 'Urban/Rural Re-code in 1995'
  pta1996  = 'Total Months Part A Coverage in 1996'
  ptb1996  = 'Total Months Part B Coverage in 1996'
  hmon1996 = 'Total Months HMO Coverage in 1996'
  stbuy1996= 'Total Months State Buy-in Coverage in 1996'
  st1996   = 'State in 1996'
  cnty1996 = 'County in 1996'
  zip1996  = 'Zip Code in 1996'
  urban1996= 'Urban/Rural Code in 1996'
  urbrec1996= 'Urban/Rural Re-code in 1996'
  pta1997  = 'Total Months Part A Coverage in 1997'
  ptb1997  = 'Total Months Part B Coverage in 1997'
  hmon1997 = 'Total Months HMO Coverage in 1997'
  stbuy1997= 'Total Months State Buy-in Coverage in 1997'
  st1997   = 'State in 1997'
  cnty1997 = 'County in 1997'
  zip1997  = 'Zip Code in 1997'
  urban1997= 'Urban/Rural Code in 1997'
  urbrec1997= 'Urban/Rural Re-code in 1997'
  pta1998  = 'Total Months Part A Coverage in 1998'
  ptb1998  = 'Total Months Part B Coverage in 1998'
  hmon1998 = 'Total Months HMO Coverage in 1998'
  stbuy1998= 'Total Months State Buy-in Coverage in 1998'
  st1998   = 'State in 1998'
  cnty1998 = 'County in 1998'
  zip1998  = 'Zip Code in 1998'
  urban1998= 'Urban/Rural Code in 1998'
  urbrec1998= 'Urban/Rural Re-code in 1998'
  pta1999  = 'Total Months Part A Coverage in 1999'
  ptb1999  = 'Total Months Part B Coverage in 1999'
  hmon1999 = 'Total Months HMO Coverage in 1999'
  stbuy1999= 'Total Months State Buy-in Coverage in 1999'
  st1999   = 'State in 1999'
  cnty1999 = 'County in 1999'
  zip1999  = 'Zip Code in 1999'
  urban1999= 'Urban/Rural Code in 1999'
  urbrec1999= 'Urban/Rural Re-code in 1999'
  pta2000  = 'Total Months Part A Coverage in 2000'
  ptb2000  = 'Total Months Part B Coverage in 2000'
  hmon2000 = 'Total Months HMO Coverage in 2000'
  stbuy2000= 'Total Months State Buy-in Coverage in 2000'
  st2000   = 'State in 2000'
  cnty2000 = 'County in 2000'
  zip2000  = 'Zip Code in 2000'
  urban2000= 'Urban/Rural Code in 2000'
  urbrec2000= 'Urban/Rural Re-code in 2000'
  pta2001  = 'Total Months Part A Coverage in 2001'
  ptb2001  = 'Total Months Part B Coverage in 2001'
  hmon2001 = 'Total Months HMO Coverage in 2001'
  stbuy2001= 'Total Months State Buy-in Coverage in 2001'
  st2001   = 'State in 2001'
  cnty2001 = 'County in 2001'
  zip2001  = 'Zip Code in 2001'
  urban2001= 'Urban/Rural Code in 2001'
  urbrec2001= 'Urban/Rural Re-code in 2001'
  pta2002  = 'Total Months Part A Coverage in 2002'
  ptb2002  = 'Total Months Part B Coverage in 2002'
  hmon2002 = 'Total Months HMO Coverage in 2002'
  stbuy2002= 'Total Months State Buy-in Coverage in 2002'
  st2002   = 'State in 2002'
  cnty2002 = 'County in 2002'
  zip2002  = 'Zip Code in 2002'
  urban2002= 'Urban/Rural Code in 2002'
  urbrec2002= 'Urban/Rural Re-code in 2002'
  pta2003  = 'Total Months Part A Coverage in 2003'
  ptb2003  = 'Total Months Part B Coverage in 2003'
  hmon2003 = 'Total Months HMO Coverage in 2003'
  stbuy2003= 'Total Months State Buy-in Coverage in 2003'
  st2003   = 'State in 2003'
  cnty2003 = 'County in 2003'
  zip2003  = 'Zip Code in 2003'
  urban2003= 'Urban/Rural Code in 2003'
  urbrec2003= 'Urban/Rural Re-code in 2003'
  pta2004  = 'Total Months Part A Coverage in 2004'
  ptb2004  = 'Total Months Part B Coverage in 2004'
  hmon2004 = 'Total Months HMO Coverage in 2004'
  stbuy2004= 'Total Months State Buy-in Coverage in 2004'
  st2004   = 'State in 2004'
  cnty2004 = 'County in 2004'
  zip2004  = 'Zip Code in 2004'
  urban2004= 'Urban/Rural Code in 2004'
  urbrec2004= 'Urban/Rural Re-code in 2004'
  pta2005  = 'Total Months Part A Coverage in 2005'
  ptb2005  = 'Total Months Part B Coverage in 2005'
  hmon2005 = 'Total Months HMO Coverage in 2005'
  stbuy2005= 'Total Months State Buy-in Coverage in 2005'
  st2005   = 'State in 2005'
  cnty2005 = 'County in 2005'
  zip2005  = 'Zip Code in 2005'
  urban2005= 'Urban/Rural Code in 2005'
  urbrec2005= 'Urban/Rural Re-code in 2005'
  registry1986 = 'Registry in 1986'
  registry1987 = 'Registry in 1987'
  registry1988 = 'Registry in 1988'
  registry1989 = 'Registry in 1989'
  registry1990 = 'Registry in 1990'
  registry1991 = 'Registry in 1991'
  registry1992 = 'Registry in 1992'
  registry1993 = 'Registry in 1993'
  registry1994 = 'Registry in 1994'
  registry1995 = 'Registry in 1995'
  registry1996 = 'Registry in 1996'
  registry1997 = 'Registry in 1997'
  registry1998 = 'Registry in 1998'
  registry1999 = 'Registry in 1999'
  registry2000 = 'Registry in 2000'
  registry2001 = 'Registry in 2001'
  registry2002 = 'Registry in 2002'
  registry2003 = 'Registry in 2003'
  registry2004 = 'Registry in 2004'   
  registry2005 = 'Registry in 2005'   
  ;

run;

proc contents data=sumden position;
run;