/*Published: 12/1/2020*/
/*                                                                     */
/**********************   COMMENTS   ***********************************/
/*                                                                     */
/* 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.        */
/*                                                                     */
/* This version is for the Part D Pharmacy files for 2007-2011.        */
/*                                                                     */
/***********************************************************************/

*filename pharmin '/directory/pharmacy2011.txt';                      /*reading in an un-zipped file*/
*filename pharmin pipe 'gunzip -c /directory/pharmacy2011.txt.gz';     /*reading in a zipped file*/
filename pharmin pipe 'gunzip -c /directory/pharmacy*.txt.gz';     /*using wildcard to match multiple files */

options nocenter validvarname=upcase;

data pharmacy;
  infile pharmin lrecl=97 missover pad;
  input @01 CCW_PHARMACY_ID              12.       /*  Encrypted  */
        @13 PHYSICAL_LOCATION_STATE_CODE $char2.
        @15 PHYSICAL_LOCATION_OPEN_DATE  $char10.  /*  MMDDYY10  */
        @25 PHYSICAL_LOCATION_CLOSE_DATE $char10.  /*  MMDDYY10  */
        @35 DISPENSER_CLASS              $char2.
        @37 PRIMARY_DISPENSER_TYPE       $char2.
        @39 PRIMARY_TAXONOMY_CODE        $char10.
        @49 SECONDARY_DISPENSER_TYPE     $char2.
        @51 SECONDARY_TAXONOMY_CODE      $char10.
        @61 TERTIARY_DISPENSER_TYPE      $char2.
        @63 TERTIARY_TAXONOMY_CODE       $char10.
        @73 RELATIONSHIP_ID              $char3.
        @76 RELATIONSHIP_FROM_DT         $char10.  /*  MMDDYY10  */
        @86 RELATIONSHIP_THRU_DT         $char10.  /*  MMDDYY10  */
        @96 RELATIONSHIP_TYPE            $char2.
     ;

  label  CCW_PHARMACY_ID              = 'CCW Pharmacy ID'
         PHYSICAL_LOCATION_STATE_CODE = 'Physical Location State Code'
         PHYSICAL_LOCATION_OPEN_DATE  = 'Physical Location Store Open Date'
         PHYSICAL_LOCATION_CLOSE_DATE = 'Physical Location Store Closure Date'
         DISPENSER_CLASS              = 'Dispenser Class Code'
         PRIMARY_DISPENSER_TYPE       = 'Primary Dispenser Type Code'
         PRIMARY_TAXONOMY_CODE        = 'Taxonomy Code Mapped to Primary Dispenser Type Code'
         SECONDARY_DISPENSER_TYPE     = 'Secondary Dispenser Type Code'
         SECONDARY_TAXONOMY_CODE      = 'Taxonomy Code Mapped to Secondary Dispenser Type Code'
         TERTIARY_DISPENSER_TYPE      = 'Tertiary Dispenser Type Code'
         TERTIARY_TAXONOMY_CODE       = 'Taxonomy Code Mapped to Tertiary Dispenser Type Code'
         RELATIONSHIP_ID              = 'Encrypted Relationship ID'
         RELATIONSHIP_FROM_DT         = 'Relationship From Date'
         RELATIONSHIP_THRU_DT         = 'Relationship Through Date'
         RELATIONSHIP_TYPE            = 'Relationship Type'
     ;
run;

proc contents data=pharmacy position;
run;
