/* Published: 03/11/2024 */

/**************************   COMMENTS   *******************************/
/* THIS INPUT STATMENT IS FOR THE 2022 SEER-MEDICAID LINKAGE.          */
/* IF YOU RECEIVED MEDICAID FILES BEFORE MAY 2023 THEN YOU WILL        */
/* NEED A DIFFERENT INPUT STATEMENT. PLEASE CONTACT IMS VIA E-MAIL AT  */
/* SEER-MEDICARE@IMSWEB.COM AND AN INPUT STATEMENT WILL BE SENT TO YOU */
/***********************************************************************/

/***************   IMPORTANT PROGRAMING NOTES   ************************/
/* 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 tafprsn '/directory/taf.demog.mny.flw.prsn.2019.txt';                    /* reading in an un-zipped file* /
*filename tafprsn pipe 'gunzip -c /directory/taf.demog.mny.flw.prsn.2019.txt.gz';  /* reading in a zipped file */
*filename tafprsn pipe 'gunzip -c /directory/taf.demog.mny.flw.prsn.*.txt.gz';     /* using wildcard to match multiple files */

options nocenter validvarname=upcase;

data taf_prsn;
  length patient_id                       $15
         MSIS_ID                          $32
         ;

  infile tafprsn lrecl=77 missover;
  input @00001 patient_ID                       $CHAR15.
        @00016 MSIS_ID                          $CHAR32.  /*encrypted*/
        @00048 STATE_CD                         $CHAR2.
        @00050 SUBMTG_STATE_CD                  $CHAR2.
        @00052 MFP_LVS_WTH_FMLY_CD              $CHAR1.
        @00053 MFP_QLFYD_RSDNC_CD               $CHAR2.
        @00055 MFP_QLFYD_INSTN_CD               $CHAR2.
        @00057 MFP_RINSTLZD_RSN_CD              $CHAR2.
        @00059 MFP_PRTCPTN_END_RSN_CD           $CHAR2.
        @00061 MFP_IND_01                       $CHAR1.
        @00062 MFP_IND_02                       $CHAR1.
        @00063 MFP_IND_03                       $CHAR1.
        @00064 MFP_IND_04                       $CHAR1.
        @00065 MFP_IND_05                       $CHAR1.
        @00066 MFP_IND_06                       $CHAR1.
        @00067 MFP_IND_07                       $CHAR1.
        @00068 MFP_IND_08                       $CHAR1.
        @00069 MFP_IND_09                       $CHAR1.
        @00070 MFP_IND_10                       $CHAR1.
        @00071 MFP_IND_11                       $CHAR1.
        @00072 MFP_IND_12                       $CHAR1.
        @00073 MFP_IND_LTST                     $CHAR1.
        @00074 RFRNC_YR                         $CHAR4.
        ;


  label patient_id                       = "Patient ID"
        MSIS_ID                          = "Encrypted State Assigned Beneficiary Unique Identifier"
        STATE_CD                         = "Submitting State Alpha Abbreviation"
        SUBMTG_STATE_CD                  = "Submitting State Entity Code"
        MFP_LVS_WTH_FMLY_CD              = "Money Follows Person (MFP) - Lives with Family or Non-Participant Code"
        MFP_QLFYD_RSDNC_CD               = "Money Follows Person (MFP) - Qualified Residence Code"
        MFP_QLFYD_INSTN_CD               = "Money Follows Person (MFP) - Qualified Institution Code"
        MFP_RINSTLZD_RSN_CD              = "Money Follows Person (MFP) - Reinstitutionalized Reason Code"
        MFP_PRTCPTN_END_RSN_CD           = "Money Follows Person (MFP) -Participation Ended Reason Code"
        MFP_IND_01                       = "Money Follows Person (MFP) Participant - January"
        MFP_IND_02                       = "Money Follows Person (MFP) Participant - February"
        MFP_IND_03                       = "Money Follows Person (MFP) Participant - March"
        MFP_IND_04                       = "Money Follows Person (MFP) Participant - April"
        MFP_IND_05                       = "Money Follows Person (MFP) Participant - May"
        MFP_IND_06                       = "Money Follows Person (MFP) Participant - June"
        MFP_IND_07                       = "Money Follows Person (MFP) Participant - July"
        MFP_IND_08                       = "Money Follows Person (MFP) Participant - August"
        MFP_IND_09                       = "Money Follows Person (MFP) Participant - September"
        MFP_IND_10                       = "Money Follows Person (MFP) Participant - October"
        MFP_IND_11                       = "Money Follows Person (MFP) Participant - November"
        MFP_IND_12                       = "Money Follows Person (MFP) Participant - December"
        MFP_IND_LTST                     = "Money Follows Person (MFP) Participant - Ltst in Yr"
        RFRNC_YR                         = "Reference Yr"
        ;
run;

title 'T-MSIS ANALYTIC FILE DEMOG/ELIG MONEY FOLLOWS PERSON SAS Data Set';
proc contents data=taf_prsn position;
run;
* End of Program *;