*************************************************************************************************;
* 
*           CLIENT:  ModernaTX, Inc.
*         PROTOCOL:  mRNA-1273-P301
*
*          PURPOSE: Create analysis dataset addv
*      
*      INPUT FILES: SDTM domains
*     OUTPUT FILES: ADDV.sas7bdat
*
*      USAGE NOTES: 
*      
*************************************************************************************************;
*  Copyright 2020 Pharmaceutical Product Development, Inc.
*  All Rights Reserved. 
*************************************************************************************************;

options noquotelenmax;
%include "madam.sas";

**Assign global macro variable DSETNAME to reflect the name of the final ADaM dataset**;
%global DSETNAME;
%let dsetname = addv;
/*%let adslvar=tr01sdt tr01sdtm rfxstdtc tr01edt tr01edtm dose2dt dos2dtm eosdt dthdt;*/

**Merge supplemental data onto parent domain**;
%revsupp(libin=trans,libout=work,ds=dv,supp=suppdv,outds=dv_all);

proc sort data=dv_all;by usubjid subjid;run;
proc sort data=adb.adsl out=adsl(keep=usubjid subjid AP02SSDT);by usubjid subjid;run;

data inadsl;
	merge dv_all(in=b) adsl(in=a);
	by usubjid subjid;
	if a and b;
run;


data addv;
	set inadsl(rename=(dvsig=_dvsig));
	length dvsig $20;
	dvsig=_dvsig;

	* Period;
	if lengthn(DVSTDTC)>=10 then ADT = input(substr(DVSTDTC,1,10),yymmdd10.);
	if .<AP02SSDT<=ADT then APERIOD = 2;
  	else APERIOD = 1;
run;

%adam_dataset_update(
	ds=&DSETNAME,
	libin=work,
	libout=output,
	adsllib=adb,
	addcomvar=Y,
	addseq=,
	dropinfmt=Y,
	mapspecfile=&ADAM_SPEC,
	maploc=&ADAM_SPEC_LOC,
	debug=N
	);
	
	
**Generate Value Level Metadata values for the ad<xx> dataset**;
%* dod_vlm(        
	type=ADAM,               
	selmems=&DSETNAME,
	excmems=,
	specloc=&ADAM_SPEC_LOC,
	specname=&ADAM_SPEC,
	debug=N
	);

**Generate Enhanced Controlled Terminology for the ad<xx> dataset**;
%* dod_enhcd_ct(            
	type=ADAM,               
	selmems=&DSETNAME,
	excmems=,
	specloc=&ADAM_SPEC_LOC,
	specname=&ADAM_SPEC,
	map_ct_nm=,
	map_ct_loc=,
	debug=N
	);