/********************** PLEASE NOTE  **********************************/
/*                                                                    */
/* THIS INPUT STATMENT IS FOR THE MEDPAR FILES IN THE 2005 SEER-      */
/* MEDICARE LINKAGE.  IF YOU HAVE RECEIVED DATA BEFORE JANUARY 2006   */
/* PLEASE CONTACT ANGELA MEEKINS VIA E-MAIL MEEKINSA@IMSWEB.COM AND   */
/* AN INPUT STATEMENT WILL BE SENT TO YOU.                            */
/**********************************************************************/
/*                        COMMENTS                                    */
/**********************************************************************/
/* Starting with the 2005 Linkage the MEDPAR files were expanded out  */ 
/* so that the file is in ASCII format rather than the binary format  */
/* used in previous linkages.                                         */
/*                                                                    */
/* For cancer files, Patient Identifier is @01 REGCASE $char10.       */
/* For non-cancer files, Patient Identifier is @01 HICBIC $char11.    */
/*                                                                    */
/* Dates are no longer packed and can be read in as character or as   */
/* numeric using the format mmddyy8.  Both are created in the input   */
/* statement below.                                                   */
/*                                                                    */
/* The CONVERT flag indicates if the records were converted from      */
/* length 330.  The 330 file format (MEDPAR 86) contained some        */
/* variables not found in the original Medpar 500 format and did not  */
/* contain some other (newer) variables.  All MEDPAR files were       */
/* standardized to a 500 format, as given below and in the file       */
/* documentation.                                                     */
/*                                                                    */
/**********************************************************************/

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

options nocenter validvarname=upcase;

DATA medpar; 
  INFILE medpar recfm=f lrecl=817 missover pad;
  INPUT   @01  REGCASE  $char10.                
          /*@01  HICBIC   $char11.*/    /*Non Cancer ID*/
          @12   AGE         $char3.                                 
          @15   SEX         $char1.                                 
          @16   RACE        $char1.                                
          @17   MDCRSTAT    $char2.                            
          @19   STDSTATE    $char2.                            
          @21   STD_CNTY    $char3.                           
          @24   ZIPCODE     $char5.   		/**************Special Permission Required************/                          
          @33   ADMDAY      $char1.                              
          @34   DSCHGSTA    $char1.                            
          @35   HMOREADM    $char1.                            
          @36   PPSIND      $char1.                              
          @37   PROVNUMB    $char6.                              
          @43   PROVCODE    $char1.                            
          @44   SNFIND      $char1.                            
          @45   NUMBILLS    4.
          @49   acr_m       $char2.
          @51   acr_d       $char2.
          @53   acr_y       $char4.
          @57   ben_m       $char2.
          @59   ben_d       $char2.
          @61   ben_y       $char4.
          @65   snf_m       $char2.
          @67   snf_d       $char2.
          @69   snf_y       $char4.
          @73   snt_m       $char2.
          @75   snt_d       $char2.
          @77   snt_y       $char4.
          @81   adm_m       $char2.
          @83   adm_d       $char2.
          @85   adm_y       $char4.
          @89   dis_m       $char2.
          @91   dis_d       $char2.
          @93   dis_y       $char4.
          @97   cve_m       $char2.
          @99   cve_d       $char2.
          @101  cve_y       $char4.
          @105  dod_m       $char2.
          @107  dod_d       $char2.
          @109  dod_y       $char4.
          @113  HIMASIND    $char1.                                 
          @114  SSI_IND     $char1.                            
          @115  SSI_DAYS    4.                                 
          @119  LOS         6.                                 
          @125  OUTLRDAY    4.                                 
          @129  CVRDDAYS    4.                                  
          @133  COINDAYS    4.                                 
          @137  LIFRESDY    4.                                 
          @141  CHR_CRO     6.        
          @147  COINAMT     8.                                 
          @155  INPATDED    8.                                 
          @163  BLOODDED    8.                                 
          @171  PRIPYAMT    8.                                 
          @179  OUTLRAMT    8.                                 
          @187  DISHRAMT    8.                                 
          @195  INDMEDED    8.                                 
          @203  DRGPRICE    8.                                 
          @211  BILTOTPD    8.                                  
          @219  CAPACC92    8.
          @227  TOTALPD     8.
          @235  IMECOST     8.
          @243  AQUCHRGS    8.                             
          @251  TOTCHRGS    8.                                    
          @259  CVRDCHRG    8.                                
          @267  REIMBAMT    8.                                
          @275  TOTACCHR    8.                               
          @283  TOTDPCHR    8.                                          
          @291  PRIVDAYS    4.                                
          @295  SEMIDAYS    4.                                
          @299  WARDDAYS    4.                                
          @303  INCRDAYS    4.                                
          @307  CRCRDAYS    4.                                
          @311  PRIVCHRG    8.                                                
          @319  SEMICHRG    8.                                
          @327  WARDCHRG    8.                                
          @335  INCRCHRG    8.                                
          @343  CRCRCHRG    8.                                
          @351  OTHRCHRG    8.                                 
          @359  PHRMCHRG    8.                                
          @367  MDSRCHRG    8.                                
          @375  DMECHRG     8.                                
          @383  UDMECHRG    8.                                
          @391  PHYTCHRG    8.                                
          @399  OCPTCHRG    8.                                
          @407  SPPTCHRG    8.                                
          @415  INHTCHRG    8.                                
          @423  BLDDCHRG    8.                                
          @431  BLADCHRG    8.                                
          @439  OPRTCHRG    8.                                
          @447  LITHCHRG    8.                                
          @455  CARDCHRG    8.                                
          @463  ANSTCHRG    8.                                 
          @471  LABRCHRG    8.                                
          @479  RADICHRG    8.                                
          @487  MRICHRG     8.                                
          @495  OPSRCHRG    8.                                
          @503  EMRMCHRG    8.                                
          @511  AMBLCHRG    8.                                
          @519  PROFFEES    8.                                
          @527  ORAQCHRG    8.                                
          @535  ESRDCHRG    8.                                
          @543  CLVTCHRG    8.                                
          @551  INCREIND    $char1.                           
          @552  CRCREIND    $char1.                           
          @553  PHRMYIND    $char1.                           
          @554  TRNSPIND    $char1.                           
          @555  ONCLGIND    $char1.                           
          @556  RADDGIND    $char1.                           
          @557  RADTHIND    $char1.                           
          @558  NUCMDIND    $char1.                           
          @559  CTSCNIND    $char1.                           
          @560  OIMSRIND    $char1.                           
          @561  OUTSRIND    $char1.                           
          @562  ORGANIND    $char2.                           
          @564  ESRDSET1    $char2.                           
          @566  ESRDSET2    $char2.                           
          @568  ESRDSET3    $char2.                           
          @570  ESRDSET4    $char2.                          
          @572  ESRDSET5    $char2.                            
          @574  NUMDXCDE    $char2.       
          @576  DIAGCD1     $char5. 
          @581  DIAGCD2     $char5.                           
          @586  DIAGCD3     $char5.                           
          @591  DIAGCD4     $char5.                           
          @596  DIAGCD5     $char5.                            
          @601  DIAGCD6     $char5.                            
          @606  DIAGCD7     $char5.                           
          @611  DIAGCD8     $char5.                           
          @616  DIAGCD9     $char5.                           
          @621  DIAGCD10    $char5.                          
          @626  SURGIND     $char1.                            
          @627  NUMSRGCD    $char2.                            
          @629  NUMSRGDT    $char2.                            
          @631  SRGCDE1     $char4.                            
          @635  SRGCDE2     $char4.                            
          @639  SRGCDE3     $char4.                            
          @643  SRGCDE4     $char4.                           
          @647  SRGCDE5     $char4.                            
          @651  SRGCDE6     $char4.
          @655  SRGCDE7     $char4.                            
          @659  SRGCDE8     $char4.                           
          @663  SRGCDE9     $char4.                            
          @667  SRGCDE10    $char4.
          @671  SG1_M       $char2.
          @673  SG1_D       $char2.
          @675  SG1_Y       $char4.
          @679  SG2_M       $char2.
          @681  SG2_D       $char2.                       
          @683  SG2_Y       $char4.
          @687  SG3_M       $char2.
          @689  SG3_D       $char2.
          @691  SG3_Y       $char4.
          @695  SG4_M       $char2.
          @697  SG4_D       $char2.
          @699  SG4_Y       $char4.
          @703  SG5_M       $char2.
          @705  SG5_D       $char2.
          @707  SG5_Y       $char4.
          @711  SG6_M       $char2.
          @713  SG6_D       $char2.
          @715  SG6_Y       $char4.
          @719  SG7_M       $char2.
          @721  SG7_D       $char2.
          @723  SG7_Y       $char4.
          @727  SG8_M       $char2.
          @729  SG8_D       $char2.
          @731  SG8_Y       $char4.
          @735  SG9_M       $char2.
          @737  SG9_D       $char2.
          @739  SG9_Y       $char4.                  
          @743  SG10_M      $char2.
          @745  SG10_D      $char2.
          @747  SG10_Y      $char4.                                       
          @751  BLDPINTS    4.                                 
          @755  OBIC        $char2.                            
          @757  DRGCODE     $char3.                           
          @760  DISCDEST    $char2.                            
          @762  OUTLRCDE    $char1.                                  
          @763  PRIMPAYR    $char1.                          
          @764  ESRDCOND    $char2.                               
          @766  ADMSRCE     $char1.                          
          @767  ADMTYPE     $char1.                                         
          @768  INTMNMBR    $char5.                           
          @773  ADMDXCDE    $char5. 
          @778  HMONUMBR    5.
          @783  HMOOPCDE    $char1.                              
          @784  DEATHADM    6.    
          @790  CONVERT     $char1.
          @791  UNIBILL     $char1.
          @792  QUERYCD     $char1.
          @793  YRAPPRVD    $char1.
          @794  IMCABIN     $char3.                            
          @797  DATADATE    $char1.                            
          @798  SAMPSIZE    $char1.                          
          @799  WARNINDC    18.
           ;
           
  if not (CONVERT='1') then CHR_CRO = .;

LABEL
        AGE      ='AGE OF BENEFICIARY'
        SEX      ='SEX OF BENEFICIARY'
        RACE     ='RACE OF BENEFICIARY'
        MDCRSTAT ='MEDICARE STATUS CODE'
        STDSTATE ='STATE CODE'
        STD_CNTY ='COUNTY CODE'
        ZIPCODE  ='ZIP CODE OF RESIDENCE'
        ADMDAY   ='DAY OF ADMISSION'
        DSCHGSTA ='DISCHARGE STATUS'
        HMOREADM ='HMO/READMISSION INDICATOR'
        PPSIND   ='PPS INDICATOR'
        PROVNUMB ='MEDICARE PROVIDER NUMBER'
        PROVCODE ='PROVIDER CODE (SPECIAL UNIT CODE)'
        SNFIND   ='FACILITY TYPE'
        NUMBILLS ='NUMBER OF BILLS'
        ACR_M    ='ACCRETION MONTH'
        ACR_D    ='ACCRETION DAY'
        ACR_Y    ='ACCRETION YEAR'
        BEN_M    ='EXAUSTED MONTH OF BENEFITS'
        BEN_D    ='EXAUSTED DAY OF BENEFITS'
        BEN_Y    ='EXAUSTED YEAR OF BENEFITS'
        SNF_M    ='SNF QUALIFICATION FROM MONTH'
        SNF_D    ='SNF QUALIFICATION FROM DAY'
        SNF_Y    ='SNF QUALIFICATION FROM YEAR'
        SNT_M    ='SNF THROUGH MONTH'
        SNT_D    ='SNF THROUGH DAY'  
        SNT_Y    ='SNF THROUGH YEAR' 
        ADM_M    ='MONTH OF ADMISSION'
        ADM_D    ='DAY OF ADMISSION'
        ADM_Y    ='YEAR OF ADMISSION'
        DIS_M    ='MONTH OF DISCHARGE'
        DIS_D    ='DAY OF DISCHARGE'
        DIS_Y    ='YEAR OF DISCHARGE'
        CVE_M    ='MONTH CARE ENDED'
        CVE_D    ='DAY CARE ENDED'
        CVE_Y    ='YEAR CARE ENDED'
        DOD_M    ='MONTH OF DEATH'
        DOD_D    ='DAY OF DEATH'
        DOD_Y    ='YEAR OF DEATH'
        HIMASIND ='DATE OF DEATH INDICATOR'
        SSI_IND  ='SSI INDICATOR'
        SSI_DAYS ='SSI DAY COUNT'
        LOS      ='LENGTH OF STAY'
        OUTLRDAY ='OUTLIER DAYS'
        CVRDDAYS ='COVERED DAYS'
        COINDAYS ='COINSURANCE DAYS'
        LIFRESDY ='LIFETIME RESERVE DAYS USED'
        CHR_CRO  =' COST REPORT ORGAN ACQUISITION CHRGS'
        COINAMT  ='COINSURANCE AMOUNT'
        INPATDED ='INPATIENT DEDUCTIBLE'
        BLOODDED ='BLOOD DEDUCTIBLE'
        PRIPYAMT ='PRIMARY PAYER AMOUNT'
        OUTLRAMT ='OUTLIER AMOUNT'
        DISHRAMT ='DISPROPORTIONATE SHARE AMOUNT'
        INDMEDED ='INDIRECT MEDICAL EDUCATION AMOUNT'
        DRGPRICE ='DRG PRICE'
        BILTOTPD ='BILL TOTAL PER DIEM'
        CAPACC92 ='PPS CAPITAL TOTAL AMOUNT'
        TOTALPD  ='TOTAL PER DIEM'
        IMECOST  ='INDIRECT MEDICAL EDUCATION COST'
        AQUCHRGS ='ACQUISITION CHARGES'
        TOTCHRGS ='TOTAL CHARGES'
        CVRDCHRG ='COVERED CHARGES'
        REIMBAMT ='AMOUNT REIMBURSED'
        TOTACCHR ='TOTAL ACCOMMODATION CHARGES'
        TOTDPCHR ='TOTAL DEPARTMENTAL CHARGES'
        PRIVDAYS ='PRIVATE ROOM DAYS'
        SEMIDAYS ='SEMI-PRIVATE ROOM DAYS'
        WARDDAYS ='WARD DAYS'
        INCRDAYS ='INTENSIVE CARE DAYS'
        CRCRDAYS ='CORONARY CARE DAYS'
        PRIVCHRG ='PRIVATE ROOM CHARGES'
        SEMICHRG ='SEMI-PRIVATE ROOM CHARGES'
        WARDCHRG ='WARD CHARGES'
        INCRCHRG ='INTENSIVE CARE CHARGES'
        CRCRCHRG ='CORONARY CARE CHARGES'
        OTHRCHRG ='OTHER CHARGES'
        PHRMCHRG ='PHARMACY CHARGES'
        MDSRCHRG ='MEDICAL/SURGICAL SUPPLIES CHARGES'
        DMECHRG  ='DURABLE MEDICAL EQUIPMENT'
        UDMECHRG ='USED DURABLE MEDICAL EQUIPMENT'
        PHYTCHRG ='PHYSICAL THERAPY CHARGES'
        OCPTCHRG ='OCCUPATIONAL THERAPY CHARGES'
        SPPTCHRG ='SPEECH PATHOLOGY CHARGES'
        INHTCHRG ='INHALATION THERAPY CHARGES'
        BLDDCHRG ='BLOOD CHARGES'
        BLADCHRG ='BLOOD ADMINISTRATION CHARGES'
        OPRTCHRG ='OPERATING ROOM CHARGES'
        LITHCHRG ='LITHOTRIPSY CHARGES'
        CARDCHRG ='CARDIOLOGY CHARGES'
        ANSTCHRG ='ANESTHESIA CHARGES'
        LABRCHRG ='LABORATORY CHARGES'
        RADICHRG ='RADIOLOGY CHARGES'
        MRICHRG  ='MRI CHARGES'
        OPSRCHRG ='OUTPATIENT SERVICE CHARGES'
        EMRMCHRG ='EMERGENCY ROOM CHARGES'
        AMBLCHRG ='AMBULANCE CHARGES'
        PROFFEES ='PROFESSIONAL FEES'
        ORAQCHRG ='ORGAN ACQUISITION CHARGES'
        ESRDCHRG ='ESRD REVENUE SETTING CHARGES'
        CLVTCHRG ='CLINIC VISIT CHARGES'
        INCREIND ='INTENSIVE CARE INDICATOR'
        CRCREIND ='CORONARY CARE INDICATOR'
        PHRMYIND ='PHARMACY INDICATOR'
        TRNSPIND ='TRANSPLANT INDICATOR'
        ONCLGIND ='ONCOLOGY INDICATOR'
        RADDGIND ='RADIOLOGY-DIAGNOSTIC INDICATOR'
        RADTHIND ='RADIOLOGY-THERAPEUTIC INDICATOR'
        NUCMDIND ='NUCLEAR MEDICINE INDICATOR'
        CTSCNIND ='CT SCAN INDICATOR'
        OIMSRIND ='OTHER IMAGING SERVICES INDICATOR'
        OUTSRIND ='OUTPATIENT SERVICES INDICATIOR'
        ORGANIND ='ORGAN INDICATOR'
        ESRDSET1 ='ESRD SETTING #1'
        ESRDSET2 ='ESRD SETTING #2'
        ESRDSET3 ='ESRD SETTING #3'
        ESRDSET4 ='ESRD SETTING #4'
        ESRDSET5 ='ESRD SETTING #5'
        NUMDXCDE ='NUMBER OF DIAGNOSIS CODES'
        DIAGCD1  ='DIAGNOSIS CODE #1'
        DIAGCD2  ='DIAGNOSIS CODE #2'
        DIAGCD3  ='DIAGNOSIS CODE #3'
        DIAGCD4  ='DIAGNOSIS CODE #4'
        DIAGCD5  ='DIAGNOSIS CODE #5'
        DIAGCD6  ='DIAGNOSIS CODE #6'
        DIAGCD7  ='DIAGNOSIS CODE #7'
        DIAGCD8  ='DIAGNOSIS CODE #8'
        DIAGCD9  ='DIAGNOSIS CODE #9'
        DIAGCD10 ='DIAGNOSIS CODE #10'
        SURGIND  ='SURGERY INDICATOR'
        NUMSRGCD ='NUMBER OF SURGICAL CODES'
        NUMSRGDT ='NUMBER OF SURGICAL DATES'
        SRGCDE1  ='SURGICAL PROCEDURE CODE #1'
        SRGCDE2  ='SURGICAL PROCEDURE CODE #2'
        SRGCDE3  ='SURGICAL PROCEDURE CODE #3'
        SRGCDE4  ='SURGICAL PROCEDURE CODE #4'
        SRGCDE5  ='SURGICAL PROCEDURE CODE #5'
        SRGCDE6  ='SURGICAL PROCEDURE CODE #6'
        SRGCDE7  ='SURGICAL PROCEDURE CODE #7'
        SRGCDE8  ='SURGICAL PROCEDURE CODE #8'
        SRGCDE9  ='SURGICAL PROCEDURE CODE #9'
        SRGCDE10 ='SURGICAL PROCEDURE CODE #10'
        SG1_M    ='SURGICAL MONTH #1'
        SG1_D    ='SURGICAL DAY #1'
        SG1_Y    ='SURGICAL YEAR #1'
        SG2_M    ='SURGICAL MONTH #2'
        SG2_D    ='SURGICAL DAY #2'
        SG2_Y    ='SURGICAL YEAR #2'
        SG3_M    ='SURGICAL MONTH #3'
        SG3_D    ='SURGICAL DAY #3'
        SG3_Y    ='SURGICAL YEAR #3'
        SG4_M    ='SURGICAL MONTH #4'
        SG4_D    ='SURGICAL DAY #4'
        SG4_Y    ='SURGICAL YEAR #4'
        SG5_M    ='SURGICAL MONTH #5'
        SG5_D    ='SURGICAL DAY #5'
        SG5_Y    ='SURGICAL YEAR #5'
        SG6_M    ='SURGICAL MONTH #6'
        SG6_D    ='SURGICAL DAY #6'
        SG6_Y    ='SURGICAL YEAR #6'
        SG7_M    ='SURGICAL MONTH #7'
        SG7_D    ='SURGICAL DAY #7'
        SG7_Y    ='SURGICAL YEAR #7'
        SG8_M    ='SURGICAL MONTH #8'
        SG8_D    ='SURGICAL DAY #8'
        SG8_Y    ='SURGICAL YEAR #8'
        SG9_M    ='SURGICAL MONTH #9'
        SG9_D    ='SURGICAL DAY #9'
        SG9_Y    ='SURGICAL YEAR #9'
        SG10_M   ='SURGICAL MONTH #10'
        SG10_D   ='SURGICAL DAY #10'
        SG10_Y   ='SURGICAL YEAR #10'
        BLDPINTS ='BLOOD FURNISHED (PINTS)'
        OBIC     ='ORIGINAL BIC'
        DRGCODE  ='DIAGNOSIS RELATED GROUP CODE'
        DISCDEST ='DISCHARGE DESTINATION'
        OUTLRCDE ='OUTLIER CODE/DRG SOURCE'
        PRIMPAYR ='PRIMARY PAYER CODE'
        ESRDCOND ='ESRD CONDITION CODE'
        ADMSRCE  ='SOURCE OF ADMISSION'
        ADMTYPE  ='TYPE OF ADMISSION'
        INTMNMBR ='INTERMEDIARY NUMBER'
        ADMDXCDE ='ADMISSION DIAGNOSIS CODE'
        HMONUMBR ='HMO NUMBER'
        HMOOPCDE ='HMO OPTION CODE'
        DEATHADM ='ADMISSION TO DATE OF DEATH INTERVAL'
        CONVERT  =' CONVERTED FROM 330 TO 797'
        UNIBILL  =' UNIBILL INDICATOR'
        QUERYCD  =' QUERY CODE'
        YRAPPRVD =' YEAR BILL APPROVED'
        IMCABIN  ='MEDPAR INTERNAL USE CODE'
        DATADATE ='DATE OF DATA'
        SAMPSIZE ='SAMPLE SIZE'
        WARNINDC ='WARNING INDICATORS'
        ;

run;

proc contents data=medpar position;
run;