/*-------------------------------------------------------------------------------------*\
|  PROGRAM NAME:                                                                        |
|     scdm_data_qa_review-level2.sas                                                    |
|                                                                                       |
|---------------------------------------------------------------------------------------|
|  PURPOSE:                                                                             |
|     The purpose of the program is to perform critical level 2 data quality checks     |
|     on all applicable tables.                                                         |
|---------------------------------------------------------------------------------------|
|  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 scdm_data_qa_review-enr_overlap  ;
*------------------------------------------------------------------------------------- ;
%macro enr_overlap;

    %let keyvarlist=;
    %let dupct=0 ;
    %let tabid=enr ;

    proc sql noprint;
      select lowcase(variable)
      into :keyvarlist separated by ' '
      from infolder.lkp_all_l1(where=(lowcase(tabid)="enr"))
      where upcase(keyvar)='K';
    quit;

    /* ds_nodupkey for enr */
    %if %length(&keyvarlist) > 0 %then %do;
      %if &do_partitions %then %do ;
        data t_view / view=t_view ;
          set qadata.&enrtable.:(keep=&keyvarlist) ;
        ;run;
        proc sort data = t_view nodupkey out=dplocal.l2_distinctkey_enr;
          by &keyvarlist;
        run;
        proc sql noprint;
          drop view t_view ;
        ;quit;
      %end;
      %else %do ;
        proc sort data = qadata.&enrtable(keep=&keyvarlist) nodupkey out=dplocal.l2_distinctkey_enr;
          by &keyvarlist;
        run;
      %end;
    %end;

    %l2_ds_enr_overlap;

%mend;
%enr_overlap;


*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-;
*  End scdm_data_qa_review-enr_overlap  ;
*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-;