qrp_lookupfiles

****************************************************************************************************

*                                           PROGRAM OVERVIEW

****************************************************************************************************

*

* PROGRAM: createlookupfiles.sas  

* Created (mm/dd/yyyy): 02/11/2019

*

*--------------------------------------------------------------------------------------------------

* PURPOSE: Call macros to compute drugclass

*          Include type 5 levelIDs file generating code

*          Copy other files from inputfiles to msoc

*

*  Program inputs:                                                                                   

*   -

* 

*  Program outputs:                                                                                                                                       

*       - drugclass.sas7bdat           

*       - labcodesmap.sas7bdat

*       - zipfile.sas7bdat

*       - pregnancyduration.sas7bdat

*       - pregnancymeta.sas7bdat

*       - pregnancycodes.sas7bdat

*       - riskscorecodes.sas7bdat

*       - icd10icd9map.sas7bdat

*       - icd10_child_parent.sas7bdat

*       - icd9_child_parent.sas7bdat

*       - mlccs_child_parent.sas7bdat

*

*  PARAMETERS:        

​

*  Programming Notes:                                                                                

*                                                                           

*

*--------------------------------------------------------------------------------------------------

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

***************************************************************************************************;

​

%macro createlookupfiles();

​

    %put =====> MACRO CALLED: createlookupfiles;

​

    /*Today's date*/

    %put &sysdate.;

​

    /*Print log to MSOC folder*/

    proc printto log="&msoc.\qrp_lookupfiles.log" new;

    run;

​

    /*Clean work*/

    proc datasets lib=work kill memtype=DATA nolist nowarn; quit;

​

    /*** Riskscorecodes RX codes update ***/

    %if %upcase(&UpdateRiskscorecodesRX.) eq Y %then %do;

        %riskscorecodes_rx_update();

    %end;

​

    /*** Drug Class File ***/

    %if %upcase(&CREATEDRUGFILE) eq Y %then %do;

        %drugclass_lookup();

    %end;