/********************** PLEASE NOTE  **********************************/
/*                                                                    */
/* THIS INPUT STATMENT IS FOR THE MEDPAR FILES IN THE 2008 SEER-      */
/* MEDICARE LINKAGE.  IF YOU HAVE RECEIVED DATA BEFORE JANUARY 2009   */
/* 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.                                                     */
/*                                                                    */
/**********************************************************************/

/***********************************************************************/
/*                                                                                                                                                                                                                                                                               */
/* Please Note: If you are using PC SAS to read in these files you     */
/* will have to un-zip the files first and use the un-zipped filename  */
/* statement, rather than using the zipped files and statement.        */
/*                                                                                                                                                                                                                                                                               */
/***********************************************************************/

*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*/
*filename medpar pipe 'gunzip -c /directory/medpar*.txt.gz';    /*using wildcard to match multiple files */

options nocenter validvarname=upcase;

DATA medpar;
   INFILE medpar lrecl=584 recfm=f MISSOVER PAD;
   INPUT  @01  PATIENT_ID    $char11.
          /*@001  REGCASE    $char10.*/ /*ID for Cancer Patients*/
          /*@001  HICBIC     $char11.*/ /*ID for Non Cancer Patients*/
          @12   AGE         $char3.
          @15   MDCRSTAT    $char2.
          @17   STDSTATE    $char2.
          @19   STD_CNTY    $char3.
          @22   ZIPCODE     $char5.      /**************Special Permission Required************/
          @27   ADMDAY      $char1.
          @28   DSCHGSTA    $char1.
          @29   PPSIND      $char1.
          @30   PROVNUMB    $char6.
          @36   PROVCODE    $char1.
          @37   SNFIND      $char1.
          @38   ben_m       $char2.
          @40   ben_d       $char2.
          @42   ben_y       $char4.
          @46   snf_m       $char2.
          @48   snf_d       $char2.
          @50   snf_y       $char4.
          @54   snt_m       $char2.
          @56   snt_d       $char2.
          @58   snt_y       $char4.
          @62   adm_m       $char2.
          @64   adm_d       $char2.
          @66   adm_y       $char4.
          @70   dis_m       $char2.
          @72   dis_d       $char2.
          @74   dis_y       $char4.
          @78   dod_m       $char2.
          @80   dod_d       $char2.
          @82   dod_y       $char4.
          @86   HIMASIND    $char1.
          @87   LOS         6.
          @93   CVRDDAYS    4.
          @97   COINDAYS    4.
          @101  LIFRESDY    4.
          @105  COINAMT     8.
          @113  INPATDED    8.
          @121  BLOODDED    8.
          @129  PRIPYAMT    8.
          @137  OUTLRAMT    8.
          @145  DISHRAMT    8.
          @153  INDMEDED    8.
          @161  DRGPRICE    8.
          @169  BILTOTPD    8.
          @177  TOTCHRGS    8.
          @185  CVRDCHRG    8.
          @193  REIMBAMT    8.
          @201  TOTACCHR    8.
          @209  TOTDPCHR    8.
          @217  INCRDAYS    4.
          @221  CRCRDAYS    4.
          @225  INCRCHRG    8.
          @233  CRCRCHRG    8.
          @241  PHRMCHRG    8.
          @249  PHYTCHRG    8.
          @257  OCPTCHRG    8.
          @265  SPPTCHRG    8.
          @273  INHTCHRG    8.
          @281  BLDDCHRG    8.
          @289  BLADCHRG    8.
          @297  OPRTCHRG    8.
          @305  LITHCHRG    8.
          @313  CARDCHRG    8.
          @321  ANSTCHRG    8.
          @329  LABRCHRG    8.
          @337  RADICHRG    8.
          @345  MRICHRG     8.
          @353  EMRMCHRG    8.
          @361  AMBLCHRG    8.
          @369  ESRDCHRG    8.
          @377  INCREIND    $char1.
          @378  CRCREIND    $char1.
          @379  PHRMYIND    $char1.
          @380  TRNSPIND    $char1.
          @381  ONCLGIND    $char1.
          @382  RADDGIND    $char1.
          @383  RADTHIND    $char1.
          @384  NUCMDIND    $char1.
          @385  CTSCNIND    $char1.
          @386  OIMSRIND    $char1.
          @387  ORGANIND    $char2.
          @389  ESRDSET1    $char2.
          @391  ESRDSET2    $char2.
          @393  NUMDXCDE    $char2.
          @395  DIAGCD1     $char5.
          @400  DIAGCD2     $char5.
          @405  DIAGCD3     $char5.
          @410  DIAGCD4     $char5.
          @415  DIAGCD5     $char5.
          @420  DIAGCD6     $char5.
          @425  DIAGCD7     $char5.
          @430  DIAGCD8     $char5.
          @435  DIAGCD9     $char5.
          @440  DIAGCD10    $char5.
          @445  SURGIND     $char1.
          @446  NUMSRGCD    $char2.
          @448  NUMSRGDT    $char2.
          @450  SRGCDE1     $char4.
          @454  SRGCDE2     $char4.
          @458  SRGCDE3     $char4.
          @462  SRGCDE4     $char4.
          @466  SRGCDE5     $char4.
          @470  SRGCDE6     $char4.
          @474  SG1_M       $char2.
          @476  SG1_D       $char2.
          @478  SG1_Y       $char4.
          @482  SG2_M       $char2.
          @484  SG2_D       $char2.
          @486  SG2_Y       $char4.
          @490  SG3_M       $char2.
          @492  SG3_D       $char2.
          @494  SG3_Y       $char4.
          @498  SG4_M       $char2.
          @500  SG4_D       $char2.
          @502  SG4_Y       $char4.
          @506  SG5_M       $char2.
          @508  SG5_D       $char2.
          @510  SG5_Y       $char4.
          @514  SG6_M       $char2.
          @516  SG6_D       $char2.
          @518  SG6_Y       $char4.
          @522  BLDPINTS    4.
          @526  OBIC        $char2.
          @528  DRGCODE     $char3.
          @531  DISCDEST    $char2.
          @533  OUTLRCDE    $char1.
          @534  PRIMPAYR    $char1.
          @535  ESRDCOND    $char2.
          @537  ADMSRCE     $char1.
          @538  ADMTYPE     $char1.
          @539  INTMNMBR    $char5.
          @544  ADMDXCDE    $char5.
          @549  DEATHADM    6.
          @555  CONVERT     $char1.
          @556  WARNINDC    18.
           ;

LABEL
        PATIENT_ID= 'Patient ID'
        /*REGCASE = 'SEER Registry Case Number'*/
        /*HICBIC  = 'Non Cancer Patient ID'*/
        AGE      ='AGE 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'
        PPSIND   ='PPS INDICATOR'
        PROVNUMB ='MEDICARE PROVIDER NUMBER'
        PROVCODE ='PROVIDER CODE (SPECIAL UNIT CODE)'
        SNFIND   ='FACILITY TYPE'
        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'
        DOD_M    ='MONTH OF DEATH'
        DOD_D    ='DAY OF DEATH'
        DOD_Y    ='YEAR OF DEATH'
        HIMASIND ='DATE OF DEATH INDICATOR'
        LOS      ='LENGTH OF STAY'
        CVRDDAYS ='COVERED DAYS'
        COINDAYS ='COINSURANCE DAYS'
        LIFRESDY ='LIFETIME RESERVE DAYS USED'
        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'
        TOTCHRGS ='TOTAL CHARGES'
        CVRDCHRG ='COVERED CHARGES'
        REIMBAMT ='AMOUNT REIMBURSED'
        TOTACCHR ='TOTAL ACCOMMODATION CHARGES'
        TOTDPCHR ='TOTAL DEPARTMENTAL CHARGES'
        INCRDAYS ='INTENSIVE CARE DAYS'
        CRCRDAYS ='CORONARY CARE DAYS'
        INCRCHRG ='INTENSIVE CARE CHARGES'
        CRCRCHRG ='CORONARY CARE CHARGES'
        PHRMCHRG ='PHARMACY CHARGES'
        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'
        EMRMCHRG ='EMERGENCY ROOM CHARGES'
        AMBLCHRG ='AMBULANCE CHARGES'
        ESRDCHRG ='ESRD REVENUE SETTING 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'
        ORGANIND ='ORGAN INDICATOR'
        ESRDSET1 ='ESRD SETTING #1'
        ESRDSET2 ='ESRD SETTING #2'
        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'
        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'
        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'
        DEATHADM ='ADMISSION TO DATE OF DEATH INTERVAL'
        CONVERT  =' CONVERTED FROM 330 TO 584'
        WARNINDC = 'Warning Indicator Code'
              ;
run;

proc contents data=medpar position;
run;