qa_package_pd

/*-------------------------------------------------------------------------------------*\

|  PROGRAM NAME:                                                                        |

|     scdm_data_qa_review-enrollment.sas                                                |

|                                                                                       |

|---------------------------------------------------------------------------------------|

|  PURPOSE:                                                                             |

|     The purpose of this program is to perform data quality checks on the Enrollment   |

|     table.                                                                            |

|---------------------------------------------------------------------------------------|

|  PROGRAM INPUT:                                                                       |

|     see 00.0_scdm_data_qa_review_master_file.sas                                      |

|                                                                                       |

|  PROGRAM OUTPUT:                                                                      |

|     see Workplan PDF                                                                  |

|---------------------------------------------------------------------------------------|

|  CONTACT:                                                                             |

|     Sentinel Coordinating Center                                                      |

|     info@sentinelsystem.org                                                           |

\*-------------------------------------------------------------------------------------*/

​

*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-;

*  PLEASE DO NOT EDIT BELOW WITHOUT CONTACTING THE SENTINEL OPERATIONS CENTER           ;

*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-;

​

/*-------------------------------------------------------------------------------------*/

/*  START Level 2                                                                      */

/*-------------------------------------------------------------------------------------*/

%level2;

​

/*-------------------------------------------------------------------------------------*/

/*  START Level 2 Data                                                                 */

/*-------------------------------------------------------------------------------------*/

​

/* aggregate patient counts by age in days cat at enrollment start                     */

%let qa_table= ;

%macro get_qa_table ;

  %if &do_partitions and not %eval(&module in &tabid_exc) %then %do ;

    data t_view /view=t_view ;

      set qadata.&DEMTABLE.: (keep = patid birth_date) ;

    run;

    %let qa_table = t_view ;

  %end ;

  %else %do;

    %let qa_table = qadata.&DEMTABLE. (keep = patid birth_date) ;

  %end;

%mend;

%get_qa_table ;

proc sql noprint;

​

    /* pull earliest enr_start per patient */

    create table dplocal._enr_start1 as

        select   patid

               , min(enr_start) as _min_enr_start

        from dplocal.l2_nodup_enr (keep = patid enr_start medcov where=(upcase(medcov)='Y'))

    group by patid;

​

    /* join to demographics to calculate and group age in days at enrollment start */

    create table dplocal._agedays_enr_start1 as

         select   a.patid

                , a._min_enr_start

                , b.birth_date

                , a._min_enr_start - b.birth_date as _ageDays

                , put(calculated _agedays, agecat_days.) as agedays_group

         from   dplocal._enr_start1 as a

              , &qa_table as b

         where a.patid = b.patid;

​

    /* aggregate and save as final version */

    create table msoc.&module._l2_enrstart_agedayscat as

        select   put(_min_enr_start,year4.) as Year

               , agedays_group

               , count(distinct patid) as count

        from dplocal._agedays_enr_start1

        group by calculated year, agedays_group

        order by calculated year, agedays_group;

​

    /* clean work directory of temp files */

    drop table dplocal._enr_start1;

    drop table dplocal._agedays_enr_start1;

​

quit;

​

​

/*-------------------------------------------------------------------------------------*/

/*  START Level 3                                                                      */

/*-------------------------------------------------------------------------------------*/

%let level=3;

​

proc sql noprint;

  create table dplocal.&module._temp_enr_start as

  select *