* PROGRAM:     CIMPORT.SAS;
* DESCRIPTION: IMPORT THE INPUT FILES TO THE OOPC PROCESS;

%LET DATALOC = %STR(c:\oopc_d\input);

OPTIONS MPRINT;

%MACRO IMPTFILE(DL,FN,DSNAME);

LIBNAME OUTPUT "&DL.";

FILENAME INF  "&FN.";

PROC CIMPORT LIBRARY = OUTPUT FILE = INF;
SELECT &DSNAME;
RUN;
%MEND;
RUN;

%IMPTFILE(&DATALOC.,&DATALOC.\PERSON.XPT,PERSON);
RUN;

%IMPTFILE(&DATALOC.,&DATALOC.\RXCUI_REFERENCE.XPT,RXCUI_REFERENCE);
RUN;
  
%IMPTFILE(&DATALOC.,&DATALOC.\BENE_SCRIPT.XPT,BENE_SCRIPT);
RUN;

%IMPTFILE(&DATALOC.,&DATALOC.\FRF_XWALK.XPT,FRF_XWALK);
RUN;

