qa_package_pd

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

|  PROGRAM NAME:                                                                        |

|     scdm_data_qa_review-vitalsigns.sas                                                |

|                                                                                       |

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

|  PURPOSE:                                                                             |

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

|     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           ;

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

​

%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.&&&module.table.: (keep=measure_date ht wt diastolic systolic BP_Type Position Tobacco Tobacco_Type) ;

    run;

    %let qa_table = t_view ;

  %end ;

  %else %do;

    %let qa_table = qadata.&&&module.table (keep=measure_date ht wt diastolic systolic BP_Type Position Tobacco Tobacco_Type);

  %end;

%mend;

%get_qa_table ;

proc sql noprint;

  create table dplocal.&module._temp as

  select measure_date

       , ht

       , wt

       , diastolic

       , systolic

       , BP_Type

       , Position

       , Tobacco

       , Tobacco_Type

       , count(*) as n

  from &qa_table

  group by 1,2,3,4,5,6,7,8,9

  ;

quit;

%remove_labels(dplocal, &module._temp);

​

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

/*  START Level 2 Data                                                                 */

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

%let level=2;

​

proc sql noprint;

  create table msoc.&module._l2_bp_catvar_ym as

  select put(measure_date,yymmd.) as YearMonth