/**********************   COMMENTS   *************************************/
/* IF YOU RECEIVED HOSPITAL FILES BEFORE APRIL 2006 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.*/
/*								                                                       */
/*************************************************************************/

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

options nocenter validvarname=upcase;

data hospital;
  infile inout lrecl=393 missover pad;
  input @001  prov_num  $char6.
        /*POS VARIABLES*/
	@007  prov3230  $char2.
 	@009  prov1520  $char6.	 
	@015  prov000m  $char2.
	@017  prov000d  $char2.
	@019  prov0000  $char4.
	@023  prov005m	$char2.
	@025  prov005d  $char2.
	@027  prov0005  $char4.
	@031  prov0010  $char1.
	@032  prov274m  $char2.
	@034  prov274d  $char2.
	@036  prov2740  $char4.
	@040  prov3555  $char1.
	@041  prov0075	$char2.
	@043  prov0085  $char2.
	@045  prov050m  $char2.
	@047  prov050d  $char2.
	@049  prov0500  $char4.
	@053  prov1670  $char1.
	@054  prov1720  $char1.
	@055  prov2045  $char1.
	@056  prov1615m $char2.
	@058  prov1615d $char2.
	@060  prov1615y $char4.
	@064  prov0095  8.
	@072  prov010m  $char2.
	@074  prov010d  $char2.
	@076  prov0100  $char4.
	@080  prov2885  $char2.
	@082  prov2890  $char2.
	@087  fipstate  $char2.
	@092  prov2700  $char2.
	@094  prov2710  $char3.
	@097  prov1725  $char2.
	@103  prov0645  $char1.
	@104  prov1810  $char1.
	@105  prov1815  $char1.
	@106  prov1820  $char1.
	@107  prov1165  8.2
	@115  prov0740  8.
	@123  prov0755  8.
	@131  prov2055  $char1.
	@132  prov2090  $char1.
	@133  prov2110  $char1.
	@134  prov2140  $char1.
	@135  prov2160  $char1.
	@136  prov2175  $char1.
	@137  prov2185  $char1.
	@138  prov2190  $char1.
	@139  prov2215  $char1.
	@140  prov2245  $char1.
	@141  prov2285  $char1.
	@142  prov2300  $char1.
	@143  prov2315  $char1.
	@144  prov2350  $char1.
	@145  prov2355  $char1.
	@146  prov2440  $char1.
	@147  prov2445  $char1.
	@148  prov2475  $char1.
	@149  prov0955  8.2
	@157  prov1110  8.2
	@165  prov1145  8.2
	/*HCRIS VARIABLES*/
	@173  f22m      2.
	@175  f22d      2.
	@177  f22y      4.
	@181  f23m      2.
	@183  f23d      2.
	@185  f23y      4.
	@189  f74       1.
	@190  f24       8.
	@198  f19       $char1.
	@199  f19b      $char1.
	@200  f30       $char1.
	@201  f25       2.
	@203  f26       2.
	@205  f71       $char2.
	@207  f77       $char2.
	@209  f47       $char1.
	@210  f29       1.
	@211  f39       1.
	@212  f38       $char1.
	@213  f164      11.2
	@224  f165      11.2
	@235  f85       8.
	@243  f78       8.
	@251  f80       8.
	@259  f91       8.
	@267  f79       8.
	@275  f82       8.
	@283  f32       $char1.
	@284  f107      8.
	@292  f123      8.
	@300  f143      8.
	@308  f153      8.
	@316  f163      8.
	@324  f172      8.
	@332  f175      8.
	@340  f178      8.
	@348  f31       $char1.
	@349  initl_rpt_sw  $char1.
	@350  last_rpt_sw   $char1.
	@351  fi_rcpt_m     $char2.
	@353  fi_rcpt_d     $char2.
	@355  fi_rcpt_y     $char4.
	/*NCI Variables*/
	@359  YEAR  	    $char4.
	@363  nci_cen_02    $char1.
	@364  acosog_02     $char1.
	@365  calgb_02      $char1.
	@366  ccg_02        $char1.
	@367  cog_02        $char1.
	@368  ctsu_02       $char1.
	@369  ecog_02       $char1.
	@370  epp_02        $char1.
	@371  gog_02        $char1.
	@372  mda_02        $char1.
	@373  ncctg_02      $char1.
	@374  nsabp_02      $char1.
	@375  pog_02        $char1.
	@376  rtog_02       $char1.
	@377  swog_02       $char1.
	@378  nabtc_02      $char1.
	@379  coop_cnt_02   $char2.
	@381  acosog_05     $char1.
	@382  acrin_05      $char1.
	@383  calgb_05      $char1.
	@384  ecog_05       $char1.
	@385  gog_05        $char1.
	@386  ncctg_05      $char1.
	@387  nsabp_05      $char1.
	@388  rtog_05       $char1.
	@389  swog_05       $char1.
	@390  coop_cnt_05   $char2.
	@392  nci_cen_05    $char1.
	 ;

label
  f22m = 'Cost Reporting Period Begin Date (Month)'
  f22d = 'Cost Reporting Period Begin Date (Day)'
  f22y = 'Cost Reporting Period Begin Date (Year)'
  f23m = 'Cost Reporting Period End Date (Month)'
  f23d = 'Cost Reporting Period End Date (Day)'
  f23y = 'Cost Reporting Period End Date (Year)'
  f74 = 'Cost Report Status'
  f24 = 'Number of Months in Reporting Period'
  f19 = 'Title XVIII Hospital Payment System'
  f19b= 'Title XIX Hospital Payment System'
  f30 = 'Does This Facility Qualify for Disproportionate Share (DSH) payments?'
  f25 = 'Type of Control'
  f26 = 'Type of Facility'
  f71 = 'SSA State Code'
  f77 = 'CMS Region'
  f47 = 'Does Hospital Qualify as a Rural Primay Hospital?'
  f29 = 'Is Hospital Urban/rural?'
  f39 = 'Sole Community Hospital'
  f38 = 'Is This a Teaching Hospital or Affilaited With a Teaching Hospital?'
  f164= 'Interns and Residents - Total Hospital'
  f165= 'Interns and Residents - Total Facility'
  f85 = 'Beds - Total'
  f78 = 'Hospital Adults and Pediatric Beds'
  f80 = 'CCU Beds'
  f91 = 'Hospice Beds'
  f79 = 'ICU Beds'
  f82 = 'SICU Beds'
  f32 = 'Transplant Center'
  f107= 'Medicare Hospital Days'
  f123= 'Medicaid Hospital Days'
  f143= 'Total Adult and Pediatric Bed Days'
  f153= 'Total Inpatient Days - Hospital'
  f163= 'Total Observation Bed Days'
  f172= 'Medicare Discharges - Total Hospital'
  f175= 'Medicaid Discharges - Total Hospital'
  f178= 'Total Discharges - All Patients - Hospital'
  f31 = 'Is Hospital Classified as Referral Center?'
  fi_rcpt_m='Fiscal Intermediary Receipt Month'
  fi_rcpt_d='Fiscal Intermediary Receipt Day'
  fi_rcpt_y='Fiscal Intermediary Receipt Year'
  initl_rpt_sw='Initial Report Switch'
  last_rpt_sw='Last Report Switch'
  prov3230 = 'State Abbreviation'
  prov1520 = 'PPS Previous Provider Number'
  prov0000 = 'Accreditation Effective Date (Year)'
  prov000m = 'Accreditation Effective Date (Month)'
  prov000d = 'Accreditation Effective Date (Day)'
  prov0005 = 'Accreditation Expiration Date (Year)'
  prov005m = 'Accreditation Expiration Date (Month)'
  prov005d = 'Accreditation Expiration Date (Day)'
  prov0010 = 'Accreditation Indicator'
  prov2740 = 'Current Survey Date (Year)'
  prov274m = 'Current Survey Date (Month)'
  prov274d = 'Current Survey Date (Day)'
  prov3555 = 'Ever non-accredited during survey period'
  prov0075 = 'Category of provider/supplier'
  prov0085 = 'Subtype of Provider'
  prov0500 = 'Current FMS Survey Date (Year)'
  prov050m = 'Current FMS Survey Date (Month)'
  prov050d = 'Current FMS Survey Date (Day)'
  prov1670 = 'Program Participation'
  prov1720 = 'Record Type'
  prov2045 = 'Skeleton record Indicator'
  prov1615m= 'Prior Change of Ownership (Month)'
  prov1615d= 'Prior Change of Ownership (Day)'
  prov1615y= 'Prior Change of Ownership (Year)'
  prov0095 = 'Change of Ownership Counter'
  prov0100 = 'Change of Ownership Date (Year)'
  prov010m = 'Change of Ownership Date (Month)'
  prov010d = 'Change of Ownership Date (Day)'
  prov2885 = 'Type of Control'
  prov2890 = 'Type of Facility'
  fipstate = 'FIPS State Code'
  prov2700 = 'SSA State Code'
  prov2710 = 'States Region Code'
  prov1725 = 'CMS Regional Office'
  prov0645 = 'Medical School Affiliation'
  prov1810 = 'Resident Program Approved by AMA'
  prov1815 = 'Resident Program Approved by AOA'
  prov1820 = 'Resident Program Approved by Other'
  prov1165 = 'Number of FT Residents'
  prov0740 = 'Beds - Total'
  prov0755 = 'Beds - Total Certified'
  prov2055 = 'Acute Renal Dialysis'
  prov2090 = 'Burn Care Unit'
  prov2110 = 'Coronary Care Unit'
  prov2140 = 'Emergency Services'
  prov2160 = 'Home Care Services'
  prov2175 = 'Hospice Services'
  prov2185 = 'Intensive Care Unit'
  prov2190 = 'Inpatient Surgical Services'
  prov2215 = 'Long Term Care Unit'
  prov2245 = 'Nuclear Medicine'
  prov2285 = 'Open Heart Surgery Facility'
  prov2300 = 'Operating Rooms'
  prov2315 = 'Organ Transplant'
  prov2350 = 'Outpatient Services'
  prov2355 = 'Outpatient Surgery'
  prov2440 = 'Radiology (diagnostic)'
  prov2445 = 'Radiology (therapeutic)'
  prov2475 = 'Shock Trauma Unit'
  prov0955 = 'Number of FT LPNs/VNs'
  prov1110 = 'Number of Full-Time Equivalent Physicians Employed'
  prov1145 = 'Number of FT RNs'
  nci_cen_02= 'NCI Designated Cancer Center as of 2002'
  acosog_02= 'ACOSOG Co-operative Group'
  calgb_02 = 'CALGB Co-operative Group'
  ccg_02   = 'CCG Co-operative Group'
  cog_02   = 'COG Co-operative Group'
  ctsu_02  = 'CTSU Co-operative Group'
  ecog_02  = 'ECOG Co-operative Group'
  epp_02   = 'EPP Co-operative Group'
  gog_02   = 'GOG Co-operative Group'
  mda_02   = 'MDA Co-operative Group'
  ncctg_02 = 'NCCTG Co-operative Group'
  nsabp_02 = 'NSABP Co-operative Group'
  pog_02   = 'POG Co-operative Group'
  rtog_02  = 'RTOG Co-operative Group'
  swog_02  = 'SWOG Co-operative Group'
  nabtc_02 = 'NABTC Co-operative Group'
  coop_cnt_02= 'Co-operative Group Count'
  Year     = 'Year of File'
  prov_num = 'Provider Number'
  acosog_05= 'ACOSOG Co-operative Group 2005'
  acrin_05 = 'ACRIN Co-operative Group 2005'
  calgb_05 = 'CALGB Co-operative Group 2005'
  ecog_05  = 'ECOG Co-operative Group 2005'
  gog_05   = 'GOG Co-operative Group 2005'
  ncctg_05 = 'NCCTG Co-operative Group 2005'
  nsabp_05 = 'NSABP Co-operative Group 2005'
  rtog_05  = 'RTOG Co-operative Group 2005'
  swog_05  = 'SWOG Co-operative Group 2005'
  coop_cnt_05= 'Co-operative Group Count 2005'
  nci_cen_05= 'NCI Designated Cancer Center as of 2005'
   ;
   
run;
   
proc contents data=hospital position;
run;