/*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 Prescriber files for 2014-2022.      */
/*                                                                     */
/***********************************************************************/

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

options nocenter validvarname=upcase;

data prescriber;
  infile prscrbin lrecl=346 missover pad;
  input @001   NPI                              $char10.      /*  Encrypted  */
        @011   HCID                             $char10.      /*  Encrypted  */
        @021   PRIMARY_TAXONOMY_CD              $char10.
        @031   PRIMARY_TAXONOMY_DESC            $char250.
        @281   OTHER_TAXONOMY_CLASS01           $char4.
        @285   OTHER_TAXONOMY_CLASS02           $char4.
        @289   OTHER_TAXONOMY_CLASS03           $char4.
        @293   OTHER_TAXONOMY_CLASS04           $char4.
        @297   PRACTICE_LOC_STATE01             $char2.
        @299   PRACTICE_LOC_STATE02             $char2.
        @301   PRACTICE_LOC_STATE03             $char2.
        @303   PRACTICE_LOC_STATE04             $char2.
        @305   PRACTICE_LOC_STATE05             $char2.
        @307   CREDENTIAL01                     $char8.
        @315   CREDENTIAL02                     $char8.
        @323   CREDENTIAL03                     $char8.
        @331   CREDENTIAL04                     $char8.
        @339   CREDENTIAL05                     $char8.
     ;

  label  NPI                              = "National Provider Identifier (NPI) for Prescriber"
         HCID                             = "HCIdea Proprietary Prescriber Identifier"
         PRIMARY_TAXONOMY_CD              = "Primary Taxonomy Code"
         PRIMARY_TAXONOMY_DESC            = "Primary Taxonomy Code Description"
         OTHER_TAXONOMY_CLASS01           = "Other Taxonomy Classification - 1"
         OTHER_TAXONOMY_CLASS02           = "Other Taxonomy Classification - 2"
         OTHER_TAXONOMY_CLASS03           = "Other Taxonomy Classification - 3"
         OTHER_TAXONOMY_CLASS04           = "Other Taxonomy Classification - 4"
         PRACTICE_LOC_STATE01             = "Practice Location State - 1"
         PRACTICE_LOC_STATE02             = "Practice Location State - 2"
         PRACTICE_LOC_STATE03             = "Practice Location State - 3"
         PRACTICE_LOC_STATE04             = "Practice Location State - 4"
         PRACTICE_LOC_STATE05             = "Practice Location State - 5"
         CREDENTIAL01                     = "Academic or Professional Credential - 1"
         CREDENTIAL02                     = "Academic or Professional Credential - 2"
         CREDENTIAL03                     = "Academic or Professional Credential - 3"
         CREDENTIAL04                     = "Academic or Professional Credential - 4"
         CREDENTIAL05                     = "Academic or Professional Credential - 5"
     ;
run;

proc contents data=prescriber position;
run;
