qa_package_pd

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

|  PROGRAM NAME:                                                                        |

|     scdm_data_qa_review_inpatientpharmacy.sas                                         |

|                                                                                       |

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

|  PURPOSE:                                                                             |

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

|     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 Flags                                                                */

/*-------------------------------------------------------------------------------------*/;

* All IRX L2 flags are coded within the lkp_all_flags lookup table and 

  do not require additional program code;

%let level=2;

​

%level2;

​

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

/*  START Level 3 Data                                                                 */

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

%let level = 3;

​

%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=RxADate RxATime RxRoute RxDose) ;

    run;

    %let qa_table = t_view ;

  %end ;

  %else %do;

    %let qa_table = qadata.&&&module.table (keep=RxADate RxATime RxRoute RxDose) ;

  %end;

%mend;

%get_qa_table ;

proc sql noprint;

  create table dplocal.&module._temp as 

  select *

       , count(*) as n

  from &qa_table

  group by 1,2,3,4

  ;

quit;

%remove_labels(dplocal, &module._temp)

​

proc sql noprint;

  create table dplocal.&module._temp_ym as