/*Published: 04/22/2019*/
/***********************************************************************/
/* IF YOU RECEIVED THE PEDSF 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 pedsf.cancer.txt        */
/* file.                                                               */
/***********************************************************************/

*filename inped '/directory/pedsf.cancer.txt';                    /*reading in an unzipped file*/
filename inped pipe 'gunzip -c /directory/pedsf.cancer.txt.gz';   /*reading in a zipped file*/

options nocenter validvarname=upcase;


data pedsf(drop=i pos);
  infile inped lrecl=6240 missover pad;
  input
      @0001  patient_id $char10.
   /*   @0001  reg        $char2.  */
   /*   @0003  casenum    $char8.  */
      @0011  fivepct   $char1.
      @0012  mat_type  $char1.
      @0013  yobflg1   $char1.
      @0014  dobflg2   $char1.
      @0015  yodflg3   $char1.
      @0017  lstflg5   $char1.
      @0018  fstflg6   $char1.
      @0019  mobflg7   $char1.
      @0020  midflg8   $char1.
      @0021  numdigit  $char1.
      @0022  linkflag  $char1.
      @0023  birthm    $char2.
      @0027  birthyr   $char4.
      @0031  med_dodm  $char2.
      @0033  med_dodd  $char2.
      @0035  med_dody  $char4.
      @0039  VRFYDTH   $char1.
      @0040  dob_flg   $char1.
      @0041  dod_flg   $char1.
      @0042  m_sex     $char1.
      @0043  race      $char1.
      @0044  S_SEX     $char1.

      @0047  RAC_RECY  $char1.
      @0048  RAC_RECA  $char1.
      @0049  srace     $char2.
      @0053  origrecb  $char1.
      @0054  nhiade    $char1.

      @0055  stat_rec  $char1.
      @0058  yr_brth   $char4.
      @0062  dbrflag   $char2.
      @0064  ser_dodm  $char2.
      @0066  ser_dody  $char4.
      @0070  deathflag $char2.

      @0072  ICD_CODE  $char1.
      @0073  COD89V    $char4.
      @0077  COD10V    $char4.
      @0081  codkm     $char5.
      @0086  codpub    $char5.

      @0091  COUNT     $char2.
      @0093  oshufcase $char8.
      @0110  rsncd1    $char1.
      @0111  esrd_ever $char1.

     /* @0112  esrdstart1 mmddyy8. */
      @0112  ersstm1   $char2.
      @0114  ersstd1   $char2.
      @0116  erssty1   $char4.
     /* @0120  esrdstart2 mmddyy8. */
      @0120  ersstm2   $char2.
      @0122  ersstd2   $char2.
      @0124  erssty2   $char4.
      /*@0128  esrdstart3 mmddyy8. */
      @0128  ersstm3   $char2.
      @0130  ersstd3   $char2.
      @0132  erssty3   $char4.
      /*@0136  esrdstart4 mmddyy8. */
      @0136  ersstm4   $char2.
      @0138  ersstd4   $char2.
      @0140  erssty4   $char4.
      /*@0144  esrdstart5 mmddyy8. */
      @0144  ersstm5   $char2.
      @0146  ersstd5   $char2.
      @0148  erssty5   $char4.
      /*@0152  esrdend1   mmddyy8. */
      @0152  erstrm1   $char2.
      @0154  erstrd1   $char2.
      @0156  erstry1   $char4.
      /*@0160  esrdend2   mmddyy8. */
      @0160  erstrm2   $char2.
      @0162  erstrd2   $char2.
      @0164  erstry2   $char4.
      /*@0168  esrdend3   mmddyy8. */
      @0168  erstrm3   $char2.
      @0170  erstrd3   $char2.
      @0172  erstry3   $char4.
      /*@0176  esrdend4   mmddyy8. */
      @0176  erstrm4   $char2.
      @0178  erstrd4   $char2.
      @0180  erstry4   $char4.
      /*@0184  esrdend5   mmddyy8. */
      @0184  erstrm5   $char2.
      @0186  erstrd5   $char2.
      @0188  erstry5   $char4.
      @0192 (medcd1991-medcd2017)       ($char2.)  /*27*2*/
      @0246 (zip5_1991-zip5_2017)       ($char5.)  /*27*5*/
      @0381 (zip4_1991-zip4_2017)       ($char4.)  /*27*4*/
      @0489 (state1991-state2017)       ($char2.)  /*27*2*/
      @0543 (cnty1991-cnty2017)         ($char3.)  /*27*3*/
      @0624 (urban1991-urban2017)       ($char2.)  /*27*2*/

      @0678 (registry1991-registry2017) ($char2.)  /*27*2*/
      @0732 (reg2cd1991-reg2cd2017)     ($char2.)  /*27*2*/

      @0790 (mon1-mon324) ($char1.)
      @1114 (gho1-gho324) ($char1.)
      @1438 (allflag1-allflag324)   ($char1.)
      @1762 (ptacnt1991-ptacnt2017) ($char2.)
      @1816 (ptbcnt1991-ptbcnt2017) ($char2.)
      @1870 (hmocnt1991-hmocnt2017) ($char2.)
      @1924 (stbuyin1991-stbuyin2017) ($char2.)

/*      @1978 (planmon193-planmon312) ($char1.) */
      @1978 (plan07_01-plan07_12) ($char1.)
      @1990 (plan08_01-plan08_12) ($char1.)
      @2002 (plan09_01-plan09_12) ($char1.)
      @2014 (plan10_01-plan10_12) ($char1.)
      @2026 (plan11_01-plan11_12) ($char1.)
      @2038 (plan12_01-plan12_12) ($char1.)
      @2050 (plan13_01-plan13_12) ($char1.)
      @2062 (plan14_01-plan14_12) ($char1.)
      @2074 (plan15_01-plan15_12) ($char1.)
      @2086 (plan16_01-plan16_12) ($char1.)

/*      @2098 (dualmon193-dualmon312) ($char2.) */
      @2098 (dual07_01-dual07_12) ($char2.)
      @2122 (dual08_01-dual08_12) ($char2.)
      @2146 (dual09_01-dual09_12) ($char2.)
      @2170 (dual10_01-dual10_12) ($char2.)
      @2194 (dual11_01-dual11_12) ($char2.)
      @2218 (dual12_01-dual12_12) ($char2.)
      @2242 (dual13_01-dual13_12) ($char2.)
      @2266 (dual14_01-dual14_12) ($char2.)
      @2290 (dual15_01-dual15_12) ($char2.)
      @2314 (dual16_01-dual16_12) ($char2.)
      @2338 (ptd07-ptd16)         ($char2.)
      @2358 (dualcnt07-dualcnt16) ($char2.)
      @;

  array registry4(10)  $  reg1-reg10;
  array marst(10)      $  marst1-marst10;
  array agedx(10)      $  agedx1-agedx10;
  array seq(10)        $  seq1-seq10;
  array modx(10)       $  modx1-modx10;
  array yrdx(10)       $  yrdx1-yrdx10;
  array site(10)       $  site1-site10;
  array lat(10)        $  lat1-lat10;
  array hist_2(10)     $  hist2_1-hist2_10;
  array beh_2(10)      $  beh2_1-beh2_10;
  array hist(10)       $  hist1-hist10;
  array beh(10)        $  beh1-beh10;
  array grde(10)       $  grade1-grade10;
  array dxconf(10)     $  dxconf1-dxconf10;
  array src(10)        $  src1-src10;
  array e10sz(10)      $  e10sz1-e10sz10;
  array e10ex(10)      $  e10ex1-e10ex10;
  array e10pe(10)      $  e10pe1-e10pe10;
  array e10nd(10)      $  e10nd1-e10nd10;
  array e10pn(10)      $  e10pn1-e10pn10;
  array e10ne(10)      $  e10ne1-e10ne10;
  array e13_1(10)      $  e13_1_1-e13_1_10;
  array e13_2(10)      $  e13_2_1-e13_2_10;
  array e13_3(10)      $  e13_3_1-e13_3_10;
  array e13_4(10)      $  e13_4_1-e13_4_10;
  array e13_5(10)      $  e13_5_1-e13_5_10;
  array e13_6(10)      $  e13_6_1-e13_6_10;
  array e13_7(10)      $  e13_7_1-e13_7_10;
  array e13_8(10)      $  e13_8_1-e13_8_10;
  array e13_9(10)      $  e13_9_1-e13_9_10;
  array e13_10(10)     $  e13_10_1-e13_10_10;
  array e13_11(10)     $  e13_11_1-e13_11_10;
  array e13_12(10)     $  e13_12_1-e13_12_10;
  array e13_13(10)     $  e13_13_1-e13_13_10;
  array e2_1(10)       $  e2_1_1-e2_1_10;
  array e2_2(10)       $  e2_2_1-e2_2_10;
  array e4siz(10)      $  e4siz1-e4siz10;
  array e4ext(10)      $  e4ext1-e4ext10;
  array e4nod(10)      $  e4nod1-e4nod10;
  array eodcde(10)     $  eod_cd1-eod_cd10;
  array tumor1(10)     $  tumor1_1-tumor1_10;
  array tumor2(10)     $  tumor2_1-tumor2_10;
  array tumor3(10)     $  tumor3_1-tumor3_10;
  array cstum(10)      $  cstum1-cstum10;
  array csex(10)       $  csex1-csex10;
  array cslym(10)      $  cslym1-cslym10;
  array csmet(10)      $  csmet1-csmet10;
  array cssite1(10)    $  cs1st1-cs1st10;
  array cssite2(10)    $  cs2st1-cs2st10;
  array cssite3(10)    $  cs3st1-cs3st10;
  array cssite4(10)    $  cs4st1-cs4st10;
  array cssite5(10)    $  cs5st1-cs5st10;
  array cssite6(10)    $  cs6st1-cs6st10;
  array cssite25(10)   $  cs25st1-cs25st10;
  array dajccts(10)    $  dajcct1-dajcct10;
  array dajccns(10)    $  dajccn1-dajccn10;
  array dajccms(10)    $  dajccm1-dajccm10;
  array dajcstg(10)    $  dajccstg1-dajccstg10;
  array dss77s(10)     $  dss77s1-dss77s10;
  array dss00s(10)     $  dss00s1-dss00s10;
  array dajcflg(10)    $  dajcflg1-dajcflg10;
  array csvf(10)       $  csvf1-csvf10;
  array csvl(10)       $  csvl1-csvl10;
  array cscur(10)      $  cscurrent1-cscurrent10;
  array sxprif(10)     $  sxprif1-sxprif10;
  array sxscof(10)     $  sxscof1-sxscof10;
  array sxsitf(10)     $  sxsitf1-sxsitf10;
  array numnd(10)      $  numnd1-numnd10;
  array nosrg(10)      $  nosrg1-nosrg10;
  array sssurg(10)     $  sssurg1-sssurg10;
  array sxscop(10)     $  sxscop1-sxscop10;
  array sxsite(10)     $  sxsite1-sxsite10;
  array typefu(10)     $  typefu1-typefu10;
  array ager(10)       $  ager1-ager10;
  array sterwho(10)    $  siterwho1-siterwho10;
  array icd09(10)      $  icdot09_1-icdot09_10;
  array icd10(10)      $  icdot10_1-icdot10_10;
  array ICCC3_WH(10)   $  ICCC3WHO1-ICCC3WHO10;
  array ICC3X_WH(10)   $  ICC3XWHO1-ICC3XWHO10;
  array behtrnd(10)    $  behtrend1-behtrend10;
  array histrecs(10)   $  histrec1-histrec10;
  array hisrcb(10)     $  hisrcb1-hisrcb10;
  array cs04sch(10)    $  cs04sch1-cs04sch10;
  array hstst(10)      $  hstst1-hstst10;
  array ajccstg(10)    $  ajccstg1-ajccstg10;
  array aj3sr(10)      $  aj3sr1-aj3sr10;
  array sss77(10)      $  sss77v1-sss77v10;
  array sssm2z(10)     $  sssm2Z1-sssm2Z10;
  array frstprm(10)    $  frstprm1-frstprm10;
  array statecd(10)    $  statecd1-statecd10;
  array cnty(10)       $  cnty1-cnty10;
  array ihscd(10)      $  ihscd1-ihscd10;
  array sum2k(10)      $  summ2k1-summ2k10;
  array aya_who(10)    $  ayawho1-ayawho10;
  array lym_who(10)    $  lymwho1-lymwho10;
  array vsrtdx(10)     $  vsrtdx1-vsrtdx10;
  array odthcls(10)    $  odthclass1-odthclass10;
  array csts(10)       $  csts1-csts10;
  array csrg(10)       $  csrg1-csrg10;
  array csmt(10)       $  csmt1-csmt10;
  array intprims(10)   $  intprim1-intprim10;
  array erstat(10)     $  erstat1-erstat10;
  array prstat(10)     $  prstat1-prstat10;
  array cssch(10)      $  cssch1-cssch10;
  array cssite8(10)    $  cs8st1-cs8st10;
  array cssite10(10)   $  cs10st1-cs10st10;
  array cssite11(10)   $  cs11st1-cs11st10;
  array cssite13(10)   $  cs13st1-cs13st10;
  array cssite15(10)   $  cs15st1-cs15st10;
  array cssite16(10)   $  cs16st1-cs16st10;
  array vasinvv(10)    $  vasinv1-vasinv10;
  /*  Public variables added in 2014 linkage  */
  array srvm(10)       $  srvm1-srvm10;
  array srvmflag(10)   $  srvmflag1-srvmflag10;
  array insrecpb(10)   $  insrecpb1-insrecpb10;
  array dajcc7ts(10)   $  dajcc7t1-dajcc7t10;
  array dajcc7ns(10)   $  dajcc7n1-dajcc7n10;
  array dajcc7ms(10)   $  dajcc7m1-dajcc7m10;
  array dajcc7(10)     $  dajcc7_01-dajcc7_10;
  array adjajc6t(10)   $  adjajc6t1-adjajc6t10;
  array adjajc6n(10)   $  adjajc6n1-adjajc6n10;
  array adjajc6m(10)   $  adjajc6m1-adjajc6m10;
  array adjajc6(10)    $  adjajc6_01-adjajc6_10;
  array cssite7(10)    $  cs7st1-cs7st10;
  array cssite9(10)    $  cs9st1-cs9st10;
  array cssite12(10)   $  cs12st1-cs12st10;
  array her2rec(10)    $  her2rec1-her2rec10;
  array brstsub(10)    $  brstsub1-brstsub10;
  array anarbor(10)    $  annarbor1-annarbor10;

  /*  Public variables added in 2016 linkage   */
  array csmetb(10)     $  CSMETSDXB_PUB1-CSMETSDXB_PUB10;
  array csmetbr(10)    $  CSMETSDXBR_PUB1-CSMETSDXBR_PUB10;
  array csmetliv(10)   $  CSMETSDXLIV_PUB1-CSMETSDXLIV_PUB10;
  array csmetlun(10)   $  CSMETSDXLUNG_PUB1-CSMETSDXLUNG_PUB10;
  array tvalue(10)     $  T_VALUE1-T_VALUE10;
  array nvalue(10)     $  N_VALUE1-N_VALUE10;
  array mvalue(10)     $  M_VALUE1-M_VALUE10;

  /*  Public variables added in 2018 linkage  */
  array maligcnt(10)   $  maligcnt1-maligcnt10;
  array benbdcnt(10)   $  benbdcnt1-benbdcnt10;

  /*not public but on PEDSF and released*/

  array centrt1990(10) $  centrt1990_1-centrt1990_10;
  array centrt2000(10) $  centrt2000_1-centrt2000_10;
  array centrt2010(10) $  centrt2010_1-centrt2010_10;
  array trtcode(10)    $  trtcode1-trtcode10;
  array trtcrt1990(10) $  trtcert1990_1-trtcert1990_10;
  array trtcrt2000(10) $  trtcert2000_1-trtcert2000_10;
  array trtcrt2010(10) $  trtcert2010_1-trtcert2010_10;
  array cenpvind(10)   $  cenpvind1-cenpvind10;

  array rururbc00(10)  $ ruca00c1-ruca00c10;
  array rururbc10(10)  $ ruca10c1-ruca10c10;
  array rururbi00(10)  $ ruic00c1-ruic00c10;
  array rururbi10(10)  $ ruic10c1-ruic10c10;
  array rucd93(10)     $ rucd93ss1-rucd93ss10;
  array rucd03(10)     $ rucd03ss1-rucd03ss10;
  array rucd13(10)     $ rucd13ss1-rucd13ss10;
  array hsacd(10)      $ hsa_ss1-hsa_ss10;
  array hsanci(10)     $ hsanci_ss1-hsanci_ss10;
  array cnty90dx(10)   $ cnty90dx1-cnty90dx10;
  array cnty00dx(10)   $ cnty00dx1-cnty00dx10;
  array cnty10dx(10)   $ cnty10dx1-cnty10dx10;
  array medstcd(10)    $ med_stcd1-med_stcd10;         /*FROM EDB Data*/

  array dss77f(10)     $ dss77f1-dss77f10;
  array dss00f(10)     $ dss00f1-dss00f10;
  array recstr(10)     $ recstr1-recstr10;
  array rad(10)        $ rad1-rad10;
  array radbrn(10)     $ radbrn1-radbrn10;
  array radsurg(10)    $ radsurg1-radsurg10;

  array ositage(10)    $ ositage1-ositage10;
  array oseqcon(10)    $ oseqcon1-oseqcon10;
  array oseqlat(10)    $ oseqlat1-oseqlat10;
  array osurcon(10)    $ osurcon1-osurcon10;
  array osittyp(10)    $ osittyp1-osittyp10;
  array hbenign(10)    $ hbenign1-hbenign10;
  array orptsrc(10)    $ orptsrc1-orptsrc10;
  array odfsite(10)    $ odfsite1-odfsite10;
  array oleukdx(10)    $ oleukdx1-oleukdx10;
  array ositbeh(10)    $ ositbeh1-ositbeh10;
  array oeoddt(10)     $ oeoddt1-oeoddt10;
  array ositeod(10)    $ ositeod1-ositeod10;
  array ositmor(10)    $ ositmor1-ositmor10;

  array ddxflg(10)     $ ddxflag1-ddxflag10;
  array dthflg(10)     $ dthflag1-dthflag10;
  array monrx(10)      $ monrx1-monrx10;
  array yr_rx(10)      $ yearrx1-yearrx10;
  array other_tx(10)   $ other_tx1-other_tx10;
  array icdo(10)       $ icdo1-icdo10;
  array napia_cd(10)   $ napiia1-napiia10;
  array payer_dx(10)   $ payer_dx1-payer_dx10;

  array onco_sc(10)    $ onco_score1-onco_score10;     /*Need special permission*/
  array onco_rg(10)    $ onco_rg1-onco_rg10;           /*Need special permission*/
  array onco_rns(10)   $ onco_rns1-onco_rns10;         /*Need special permission*/
  array onco_yr(10)    $ onco_year1-onco_year10;       /*Need special permission*/
  array onco_mon(10)   $ onco_month1-onco_month10;     /*Need special permission*/
  array onco_tm(10)    $ onco_time1-onco_time10;       /*Need special permission*/

  pos = 2390;
  do i = 1 to 10;
     input
         @(pos +000) registry4(i) $char2.
         @(pos +002) marst(i)    $char1.
         @(pos +006) agedx(i)    $char3.
         @(pos +009) seq(i)      $char2.
         @(pos +011) modx(i)     $char2.
         @(pos +013) yrdx(i)     $char4.
         @(pos +017) site(i)     $char4.
         @(pos +021) lat(i)      $char1.
         @(pos +022) hist_2(i)   $char4.
         @(pos +026) beh_2(i)    $char1.
         @(pos +027) hist(i)     $char4.
         @(pos +031) beh(i)      $char1.
         @(pos +032) grde(i)     $char1.
         @(pos +033) dxconf(i)   $char1.
         @(pos +034) src(i)      $char1.
         @(pos +035) e10sz(i)    $char3.
         @(pos +038) e10ex(i)    $char2.
         @(pos +040) e10pe(i)    $char2.
         @(pos +042) e10nd(i)    $char1.
         @(pos +043) e10pn(i)    $char2.
         @(pos +045) e10ne(i)    $char2.
         @(pos +047) e13_1(i)    $char1.
         @(pos +048) e13_2(i)    $char1.
         @(pos +049) e13_3(i)    $char1.
         @(pos +050) e13_4(i)    $char1.
         @(pos +051) e13_5(i)    $char1.
         @(pos +052) e13_6(i)    $char1.
         @(pos +053) e13_7(i)    $char1.
         @(pos +054) e13_8(i)    $char1.
         @(pos +055) e13_9(i)    $char1.
         @(pos +056) e13_10(i)   $char1.
         @(pos +057) e13_11(i)   $char1.
         @(pos +058) e13_12(i)   $char1.
         @(pos +059) e13_13(i)   $char1.
         @(pos +060) e2_1(i)     $char1.
         @(pos +061) e2_2(i)     $char1.
         @(pos +062) e4siz(i)    $char2.
         @(pos +064) e4ext(i)    $char1.
         @(pos +065) e4nod(i)    $char1.
         @(pos +066) eodcde(i)   $char1.
         @(pos +067) tumor1(i)   $char1.
         @(pos +068) tumor2(i)   $char1.
         @(pos +069) tumor3(i)   $char1.
         @(pos +070) cstum(i)    $char3.
         @(pos +073) csex(i)     $char3.
         @(pos +076) cslym(i)    $char3.
         @(pos +079) csmet(i)    $char2.
         @(pos +081) cssite1(i)  $char3.
         @(pos +084) cssite2(i)  $char3.
         @(pos +087) cssite3(i)  $char3.
         @(pos +090) cssite4(i)  $char3.
         @(pos +093) cssite5(i)  $char3.
         @(pos +096) cssite6(i)  $char3.
         @(pos +099) cssite25(i) $char3.
         @(pos +102) dajccts(i)  $char2.
         @(pos +104) dajccns(i)  $char2.
         @(pos +106) dajccms(i)  $char2.
         @(pos +108) dajcstg(i)  $char2.
         @(pos +110) dss77s(i)   $char1.
         @(pos +111) dss00s(i)   $char1.
         @(pos +112) dajcflg(i)  $char1.
         @(pos +113) csvf(i)     $char6.
         @(pos +119) csvl(i)     $char6.
         @(pos +125) cscur(i)    $char6.
         @(pos +131) sxprif(i)   $char2.
         @(pos +133) sxscof(i)   $char1.
         @(pos +134) sxsitf(i)   $char1.
         @(pos +135) numnd(i)    $char2.
         @(pos +137) nosrg(i)    $char1.
         @(pos +138) sssurg(i)   $char2.
         @(pos +140) sxscop(i)   $char1.
         @(pos +141) sxsite(i)   $char1.
         @(pos +144) typefu(i)   $char1.
         @(pos +145) ager(i)     $char2.
         @(pos +147) sterwho(i)  $char5.
         @(pos +152) icd09(i)    $char4.
         @(pos +156) icd10(i)    $char4.
         @(pos +160) ICCC3_WH(i) $char3.
         @(pos +163) ICC3X_WH(i) $char3.
         @(pos +166) behtrnd(i)  $char1.
         @(pos +167) histrecs(i) $char2.
         @(pos +169) hisrcb(i)   $char2.
         @(pos +171) cs04sch(i)  $char3.

         @(pos +177) hstst(i)    $char1.
         @(pos +178) ajccstg(i)  $char2.
         @(pos +180) aj3sr(i)    $char2.
         @(pos +182) sss77(i)    $char1.
         @(pos +183) sssm2z(i)   $char1.
         @(pos +184) frstprm(i)  $char1.
         @(pos +185) statecd(i)  $char2.
         @(pos +187) cnty(i)     $char3.
         @(pos +190) ihscd(i)    $char1.
         @(pos +191) sum2k(i)    $char1.
         @(pos +192) aya_who(i)  $char2.
         @(pos +194) lym_who(i)  $char2.
         @(pos +196) vsrtdx(i)   $char1.
         @(pos +197) odthcls(i)  $char1.
         @(pos +198) csts(i)     $char1.
         @(pos +199) csrg(i)     $char1.
         @(pos +200) csmt(i)     $char1.
         @(pos +201) intprims(i) $char1.
         @(pos +202) erstat(i)   $char1.
         @(pos +203) prstat(i)   $char1.
         @(pos +204) cssch(i)    $char2.

         @(pos +206) cssite8(i)  $char3.
         @(pos +209) cssite10(i) $char3.
         @(pos +212) cssite11(i) $char3.
         @(pos +215) cssite13(i) $char3.
         @(pos +218) cssite15(i) $char3.
         @(pos +221) cssite16(i) $char3.
         @(pos +224) vasinvv(i)  $char1.
         @(pos +225) srvm(i)     $char4.
         @(pos +229) srvmflag(i) $char1.

         @(pos +231) insrecpb(i) $char1.
         @(pos +232) dajcc7ts(i) $char3.
         @(pos +235) dajcc7ns(i) $char3.
         @(pos +238) dajcc7ms(i) $char3.
         @(pos +241) dajcc7(i)   $char3.
         @(pos +244) adjajc6t(i) $char2.
         @(pos +246) adjajc6n(i) $char2.
         @(pos +248) adjajc6m(i) $char2.
         @(pos +250) adjajc6(i)  $char2.
         @(pos +252) cssite7(i)  $char3.
         @(pos +255) cssite9(i)  $char3.
         @(pos +258) cssite12(i) $char3.
         @(pos +261) her2rec(i)  $char1.
         @(pos +262) brstsub(i)  $char1.
         @(pos +263) anarbor(i)  $char1.

/* Public variables added in the 2016 linkage  */

         @(pos +264) csmetb(i)   $char1.
         @(pos +265) csmetbr(i)  $char1.
         @(pos +266) csmetliv(i) $char1.
         @(pos +267) csmetlun(i) $char1.
         @(pos +268) tvalue(i)   $char2.
         @(pos +270) nvalue(i)   $char2.
         @(pos +272) mvalue(i)   $char2.

/* Public variables added in the 2018 linkage  */

         @(pos +274) maligcnt(i) $char2.
         @(pos +276) benbdcnt(i) $char2.

/*  On PEDSF but not public, RELEASED DATA    */

         @(pos +278) centrt1990(i) 6.
         @(pos +284) centrt2000(i) 6.
         @(pos +290) centrt2010(i) 6.
         @(pos +296) trtcode(i)    $char1.
         @(pos +297) trtcrt1990(i) $char1.
         @(pos +298) trtcrt2000(i) $char1.
         @(pos +299) trtcrt2010(i) $char1.
         @(pos +300) cenpvind(i)   $char1.
         @(pos +301) rururbc00(i)  $char2.
         @(pos +303) rururbc10(i)  $char2.
         @(pos +305) rururbi00(i)  $char2.
         @(pos +307) rururbi10(i)  $char2.

         @(pos +309) rucd93(i)     $char2.        /*Variables from SEER*Stat county file*/
         @(pos +311) rucd03(i)     $char2.        /*Variables from SEER*Stat county file*/
         @(pos +313) rucd13(i)     $char2.        /*Variables from SEER*Stat county file*/
         @(pos +315) hsacd(i)      $char4.        /*Variables from SEER*Stat county file*/
         @(pos +319) hsanci(i)     $char4.        /*Variables from SEER*Stat county file*/
         @(pos +323) cnty90dx(i)   $char3.
         @(pos +326) cnty00dx(i)   $char3.
         @(pos +329) cnty10dx(i)   $char3.
         @(pos +332) medstcd(i)    $char2.        /*From EDB Data, added in 2018 linkage*/

         @(pos +334) dss77f(i)     $char1.
         @(pos +335) dss00f(i)     $char1.
         @(pos +336) recstr(i)     $char1.

         @(pos +337) rad(i)        $char1.
         @(pos +338) radbrn(i)     $char1.
         @(pos +339) radsurg(i)    $char1.

         @(pos +340) ositage(i)    $char1.
         @(pos +341) oseqcon(i)    $char1.
         @(pos +342) oseqlat(i)    $char1.
         @(pos +343) osurcon(i)    $char1.
         @(pos +344) osittyp(i)    $char1.
         @(pos +345) hbenign(i)    $char1.
         @(pos +346) orptsrc(i)    $char1.
         @(pos +347) odfsite(i)    $char1.
         @(pos +348) oleukdx(i)    $char1.
         @(pos +349) ositbeh(i)    $char1.
         @(pos +350) oeoddt(i)     $char1.
         @(pos +351) ositeod(i)    $char1.
         @(pos +352) ositmor(i)    $char1.

/*not public but on PEDSF and released*/
         @(pos +353) ddxflg(i)     $char2.
         @(pos +355) dthflg(i)     $char2.
         @(pos +357) monrx(i)      $char2.
         @(pos +359) yr_rx(i)      $char4.
         @(pos +363) other_tx(i)   $char1.
         @(pos +364) icdo(i)       $char1.
         @(pos +365) napia_cd(i)   $char2.
         @(pos +367) payer_dx(i)   $char2.

         @(pos +371) onco_sc(i)    $char3.               /*Need special permission*/
         @(pos +374) onco_rg(i)    $char1.               /*Need special permission*/
         @(pos +375) onco_rns(i)   $char1.               /*Need special permission*/
         @(pos +376) onco_yr(i)    $char4.               /*Need special permission*/
         @(pos +380) onco_mon(i)   $char2.               /*Need special permission*/
         @(pos +382) onco_tm(i)    $char3.               /*Need special permission*/
         @;
     pos = pos + 385;
     end;
  input;

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
 /*  reg      = 'Registry'    */
 /*  casenum  = 'Case Number' */
  Patient_ID= 'Patient ID'
  fivepct  = 'Five Percent Indicator'
  mat_type = 'Match Type'
  yobflg1  = 'Year of Birth Flag'
  dobflg2  = 'Day of Birth Flag'
  yodflg3  = 'Year of Death Flag'
  lstflg5  = 'Last Name Flag'
  fstflg6  = 'First Name Flag'
  mobflg7  = 'Month of Birth Flag'
  midflg8  = 'Middle Initial Flag'
  numdigit = 'Number of Digits in SSN that Matched'
  linkflag = 'Linkage Flag'
  birthm   = 'Medicare Month of Birth'
  birthyr  = 'Medicare Year of Birth'
  med_dodm = 'Medicare Month of Death'
  med_dodd = 'Medicare Day of Death'
  med_dody = 'Medicare Year of Death'
  vrfydth  = 'Valid Date of Death'
  dob_flg  = 'Date of Birth Flag'
  dod_flg  = 'Date of Death Flag'
  m_sex    = 'Medicare Sex'
  race     = 'Medicare Race'
  s_sex    = 'SEER Sex'

  rac_recy = 'Race recode (W, B, AI, API)'
  rac_reca = 'Race recode (White, Black, Other)'
  srace    = 'SEER Race/Ethnicity'
  origrecb = 'Origin recode NHIA'
  nhiade   = 'NHIA Derived Hispanic Origin'
  STAT_REC = 'Vital status recode (study cutoff used)'
  yr_brth  = 'Year of Birth'
  dbrflag  = 'Date of Birth Flag'
  ser_dodm = 'SEER Month of Death'
  ser_dody = 'SEER Year of Death'
  deathflag= 'Date of Death Flag'
  icd_code = 'ICD Code - Cause of Death'
  cod89v   = 'Cause of Death (ICD-8 or 9)'
  cod10v   = 'Cause of Death (ICD-10)'
  codkm    = 'COD to site recode KM'
  codpub   = 'COD to site recode'
  count    = 'Number of SEER records'
  oshufcase= 'Old Encrypted Casenum'
  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 (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1992   = 'Zip Code in 1992, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1993   = 'Zip Code in 1993, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1994   = 'Zip Code in 1994, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1995   = 'Zip Code in 1995, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1996   = 'Zip Code in 1996, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1997   = 'Zip Code in 1997, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1998   = 'Zip Code in 1998, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_1999   = 'Zip Code in 1999, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2000   = 'Zip Code in 2000, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2001   = 'Zip Code in 2001, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2002   = 'Zip Code in 2002, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2003   = 'Zip Code in 2003, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2004   = 'Zip Code in 2004, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2005   = 'Zip Code in 2005, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2006   = 'Zip Code in 2006, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2007   = 'Zip Code in 2007, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2008   = 'Zip Code in 2008, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2009   = 'Zip Code in 2009, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2010   = 'Zip Code in 2010, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2011   = 'Zip Code in 2011, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2012   = 'Zip Code in 2012, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2013   = 'Zip Code in 2013, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2014   = 'Zip Code in 2014, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2015   = 'Zip Code in 2015, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2016   = 'Zip Code in 2016, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip5_2017   = 'Zip Code in 2017, first 5 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1991   = 'Zip Code in 1991, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1992   = 'Zip Code in 1992, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1993   = 'Zip Code in 1993, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1994   = 'Zip Code in 1994, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1995   = 'Zip Code in 1995, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1996   = 'Zip Code in 1996, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1997   = 'Zip Code in 1997, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1998   = 'Zip Code in 1998, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_1999   = 'Zip Code in 1999, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2000   = 'Zip Code in 2000, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2001   = 'Zip Code in 2001, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2002   = 'Zip Code in 2002, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2003   = 'Zip Code in 2003, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2004   = 'Zip Code in 2004, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2005   = 'Zip Code in 2005, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2006   = 'Zip Code in 2006, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2007   = 'Zip Code in 2007, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2008   = 'Zip Code in 2008, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2009   = 'Zip Code in 2009, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2010   = 'Zip Code in 2010, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2011   = 'Zip Code in 2011, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2012   = 'Zip Code in 2012, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2013   = 'Zip Code in 2013, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2014   = 'Zip Code in 2014, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2015   = 'Zip Code in 2015, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2016   = 'Zip Code in 2016, last 4 digits (From EDB)'  /* Special Permission required for unencypted zip */
  zip4_2017   = 'Zip Code in 2017, last 4 digits (From EDB)'  /* 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= "Stage 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)"


  reg1    = 'Registry ID 1'
  marst1  = 'Marital Status at Diagnosis 1'
  agedx1  = 'Age at Diagnosis 1'
  seq1    = 'Sequence at Diagnosis 1'
  modx1   = 'Month of Diagnosis 1'
  yrdx1   = 'Year of Diagnosis 1'
  site1   = 'Primary Site 1'
  lat1    = 'Laterality 1'
  hist2_1 = 'Histology (92-00) ICD-O-2 1'
  beh2_1  = 'Behavior (92-00) ICD-O-2 1'
  hist1   = 'Histologic Type ICD-O-3 1'
  beh1    = 'Behavior Code ICD-O-3 1'
  grade1  = 'Grade 1'
  dxconf1 = 'Diagnostic Confirmation 1'
  src1    = 'Type of Reporting Source 1'
  e10sz1  = 'EOD 10 - Tumor Size 1'
  e10ex1  = 'EOD 10 - Extension 1'
  e10pe1  = 'EOD 10 - Extension Prostate Path 1'
  e10nd1  = 'EOD 10 - Lymph Node Involement 1'
  e10pn1  = 'EOD 10 - Regional Nodes Postive 1'
  e10ne1  = 'EOD 10 - Regional Nodes Examined 1'
  e13_1_1 = 'EOD -- OLD 13 Digit (First digit) 1'
  e13_2_1 = 'EOD -- OLD 13 Digit (Second digit) 1'
  e13_3_1 = 'EOD -- OLD 13 Digit (Third digit) 1'
  e13_4_1 = 'EOD -- OLD 13 Digit (Fourth digit) 1'
  e13_5_1 = 'EOD -- OLD 13 Digit (Fifth digit) 1'
  e13_6_1 = 'EOD -- OLD 13 Digit (sixth digit) 1'
  e13_7_1 = 'EOD -- OLD 13 Digit (Seventh digit) 1'
  e13_8_1 = 'EOD -- OLD 13 Digit (Eighth digit) 1'
  e13_9_1 = 'EOD -- OLD 13 Digit (Nineth digit) 1'
  e13_10_1= 'EOD -- OLD 13 Digit (Tenth digit) 1'
  e13_11_1= 'EOD -- OLD 13 Digit (Eleventh digit) 1'
  e13_12_1= 'EOD -- OLD 13 Digit (Twelvth digit) 1'
  e13_13_1= 'EOD -- OLD 13 Digit (Thirteenth digit) 1'
  e2_1_1  = 'EOD -- OLD 2 Digit (First Digit) 1'
  e2_2_1  = 'EOD -- OLD 2 Digit (Second Digit) 1'
  e4siz1  = 'EOD -- OLD 4 Digit (First Two Digits) 1'
  e4ext1  = 'EOD -- OLD 4 Digit (Third Digit) 1'
  e4nod1  = 'EOD -- OLD 4 Digit (Fourth Digit) 1'
  eod_cd1 = 'Coding System for EOD 1'
  tumor1_1= 'Tumor Marker 1 1'
  tumor2_1= 'Tumor Marker 2 1'
  tumor3_1= 'Tumor Marker 3 1'
  cstum1  = 'CS Tumor Size 1'
  csex1   = 'CS Extension 1'
  cslym1  = 'CS Lymph Nodes 1'
  csmet1  = 'CS Mets at DX 1'
  cs1st1  = 'CS Site-Specific Factor 1 1'
  cs2st1  = 'CS Site-Specific Factor 2 1'
  cs3st1  = 'CS Site-Specific Factor 3 1'
  cs4st1  = 'CS Site-Specific Factor 4 1'
  cs5st1  = 'CS Site-Specific Factor 5 1'
  cs6st1  = 'CS Site-Specific Factor 6 1'
  cs25st1 = 'CS Site-Specific Factor 25 1'
  dajcct1 = 'Derived AJCC T 1'
  dajccn1 = 'Derived AJCC N 1'
  dajccm1 = 'Derived AJCC M 1'
  dajccstg1='Derived AJCC Stage Group 1'
  dss77s1 = 'Derived SS1977 1'
  dss00s1 = 'Derived SS2000 1'
  dajcflg1= 'Derived AJCC - Flag 1'
  csvf1   = 'CS Version Input Original 1'
  csvl1   = 'CS Version Latest 1'
  cscurrent1= 'CS Version Input Current 1'
  sxprif1 = 'RX Summ--Surg Prim Site 1'
  sxscof1 = 'RX Summ--Scope Reg LN Sur 1'
  sxsitf1 = 'RX Summ--Surg Oth Reg/Dis 1'
  numnd1  = 'RX Summ--Reg LN Examined 1'
  nosrg1  = 'Reason for no surgery 1'
  sssurg1 = 'RX Summ--Surgery Type 1'
  sxscop1 = 'RX Summ--Scope Reg 98-02 1'
  sxsite1 = 'RX Summ--Surg Oth 98-02 1'
  typefu1 = 'Type of followup expected 1'
  ager1   = 'Age Recode <1 Year olds 1'
  siterwho1= 'Site recode ICD-O-3/WHO 2008 1'
  icdot09_1= 'Recode ICD-O-2 to 9 1'
  icdot10_1= 'Recode ICD-O-2 to 10 1'
  iccc3who1= 'ICCC site recode ICD-O-3/WHO 2008 1'
  icc3xwho1= 'ICCC site recode extended ICD-O-3/WHO 2008 1'
  behtrend1= 'Behavior Recode for Analysis 1'
  histrec1 = 'Histology Recode--Broad Groupings 1'
  hisrcb1  = 'Histology Recode--Brain Groupings 1'
  cs04sch1 = 'CS Schema v0204 1'
  hstst1   = 'SEER Historic Stage A 1'
  ajccstg1 = 'AJCC Stage 3rd edition (1988-2003) 1'
  aj3sr1   = 'SEER Modified AJCC stage 3rd ed 1'
  sss77v1  = 'SEER Summary Stage 1977 (1995-2000) 1'
  sssm2z1  = 'SEER Summary Stage 2000 (2001-2003) 1'
  frstprm1 = 'First malignant primary indicator 1'
  statecd1 = 'FIPS State Code 1'
  cnty1    = 'FIPS County code 1'
  ihscd1   = 'IHS Link 1'
  summ2k1  = 'Summary Stage 2000 (1998+) 1'
  ayawho1  = 'AYA site recode/WHO 2008 1'
  lymwho1  = 'Lymphoma subtype recode/WHO 2008 1'
  vsrtdx1  = 'SEER Cause-Specific Death Classification 1'
  odthclass1= 'SEER Other Cause of Death Classification 1'
  csts1    = 'CS Tumor Size/Ext Eval 1'
  csrg1    = 'CS Reg Lymph Nodes Eval 1'
  csmt1    = 'CS Mets Eval 1'
  intprim1 = 'Primary by International Rules 1'
  erstat1  = 'ER Status Recode Breast Cancer 1'
  prstat1  = 'PR Status Recode Breat Cancer 1'
  cssch1   = 'CS Schema - AJCC 6th ed (previously called v1) 1'
  cs8st1   = 'CS Site-Specific Factor 8 1'
  cs10st1  = 'CS Site-Specific Factor 10 1'
  cs11st1  = 'CS Site-Specific Factor 11 1'
  cs13st1  = 'CS Site-Specific Factor 13 1'
  cs15st1  = 'CS Site-Specific Factor 15 1'
  cs16st1  = 'CS Site-Specific Factor 16 1'
  vasinv1  = 'Lymph-vascular Invasion (2004+) 1'
  srvm1    = 'Survival Months 1'
  srvmflag1= 'Survival Months Flag 1'
  insrecpb1= 'Insurance Recode (2007+) 1'
  dajcc7t1 = 'Derived AJCC T 7th ed 1'
  dajcc7n1 = 'Derived AJCC N 7th ed 1'
  dajcc7m1 = 'Derived AJCC M 7th ed 1'
  dajcc7_01= 'Derived AJCC 7 Stage Group 1'
  adjajc6t1= 'Breast - Adjusted AJCC 6th T (1988+) 1'
  adjajc6n1= 'Breast - Adjusted AJCC 6th N (1988+) 1'
  adjajc6m1= 'Breast - Adjusted AJCC 6th M (1988+) 1'
  adjajc6_01='Breast - Adjusted AJCC 6th Stage (1988+) 1'
  cs7st1   = 'CS Site-Specific Factor 7 1'
  cs9st1   = 'CS Site-Specific Factor 9 1'
  cs12st1  = 'CS Site-Specific Factor 12 1'
  her2rec1 = 'Derived HER2 Recode (2010+) 1'
  brstsub1 = 'Breast Subtype (2010+) 1'
  annarbor1= 'Lymphoma - Ann Arbor Stage (1983+) 1'

  csmetsdxb_pub1 ='CS Mets at DX-bone 1'
  csmetsdxbr_pub1='CS Mets at DX-brain 1'
  csmetsdxliv_pub1='CS Mets at DX-liver 1'
  csmetsdxlung_pub1='CS Mets at DX-lung 1'
  t_value1='T value - based on AJCC 3rd (1988-2003) 1'
  n_value1='N value - based on AJCC 3rd (1988-2003) 1'
  m_value1='M value - based on AJCC 3rd (1988-2003) 1'
  maligcnt1 = 'Total number of insitu/malignant tumors 1'
  benbdcnt1 = 'Total number of benign/borderline tumors 1'

  centrt1990_1 = 'Census Tract 1970/1980/1990 1'
  centrt2000_1 = 'Census Tract 2000 1'
  centrt2010_1 = 'Census Tract 2010 1'
  trtcode1 = 'Census Track Flag 1'
  trtcert1990_1 = 'Census Tract Certainty 70/80/90 1'
  trtcert2000_1 = 'Census Tract Certainty 2000 1'
  trtcert2010_1 = 'Census Tract Certainty 2010 1'
  cenpvind1 = 'Census Tract Poverty Indicator 1'

  ruca00c1 = 'Rural Urban Commuting Area Codes 2000 (RUCA 00) (US only) 1'
  ruca10c1 = 'Rural Urban Commuting Area Codes 2010 (RUCA 10) (US only) 1'
  ruic00c1 = 'Urban Rural Indicator Codes 2000 (URIC 00) (US only) 1'
  ruic10c1 = 'Urban Rural Indicator Codes 2010 (URIC 10) (US only) 1'
  rucd93ss1 = 'Rural-Urban Continuum code 1993 (From SEER*Stat) 1'
  rucd03ss1 = 'Rural-Urban Continuum code 2003 (From SEER*Stat) 1'
  rucd13ss1 = 'Rural-Urban Continuum code 2013 (From SEER*Stat) 1'
  hsa_ss1  = 'Health Service Area (From SEER*stat) 1'
  hsanci_ss1 = 'Health Service Area (NCI Modified) (From SEER*Stat) 1'
  cnty90dx1 = 'County at DX Geocode 1990 1'
  cnty00dx1 = 'County at DX Geocode 2000 1'
  cnty10dx1 = 'County at DX Geocode 2010 1'
  med_stcd1 = 'Medicare Status Code (from EDB) 1'

  dss77f1 = 'Derived SS1977 - Flag 1'
  dss00f1 = 'Derived SS2000 - Flag 1'
  recstr1 = 'RX Summ--Reconstruct 1st 1'
  rad1    = 'RX Summ--Radiation 1'
  radbrn1 = 'RX Summ--Rad to CNS 1'
  radsurg1= 'RX Summ--Surg/Rad Seq 1'

  ositage1= 'Over-ride age/site/morph 1'
  oseqcon1= 'Over-ride seqno/dxconf 1'
  oseqlat1= 'Over-ride site/lat/seqno 1'
  osurcon1= 'Over-ride surg/dxconf 1'
  osittyp1= 'Over-ride site/type 1'
  hbenign1= 'Over-ride histology 1'
  orptsrc1= 'Over-ride report source 1'
  odfsite1= 'Over-ride ill-define site 1'
  oleukdx1= 'Over-ride Leuk, Lymph 1'
  ositbeh1= 'Over-ride site/behavior 1'
  oeoddt1 = 'Over-ride site/eod/dx dt 1'
  ositeod1= 'Over-ride site/lat/eod 1'
  ositmor1= 'Over-ride site/lat/morph 1'

  ddxflag1 = 'Diagnosis Date Flag 1'
  dthflag1 = 'Therapy Date Flag 1'
  monrx1   = 'Month Therapy Started 1'
  yearrx1  = 'Year Therapy Started 1'
  other_tx1= 'Other Therapy 1'
  icdo1    = 'ICD-O Coding Scheme 1'
  napiia1  = 'NAPIIA Derived API Race 1'
  payer_dx1= 'Primary Payer at DX 1'

  onco_score1 = "OncoType DX recurrence score"
  onco_rg1 = "OncoType DX risk group"
  onco_rns1 = "OncoType DX reason no score"
  onco_year1 = "OncoType DX delivered year"
  onco_month1 = "OncoType DX delivered month"
  onco_time1 = "OncoType DX months since diagnosis"

  ;

run;

proc contents data=pedsf position;
   title 'proc contents, of PEDSF file';

run;