/*------------------------------------------------------------*
* program:     cdisc17.sas                                    *
* Description: Verify Required Values of case #15             *
* By:          Nhi Nguyen, 10/14/2009                         *
*-------------------------------------------------------------*/
 
libname templib '../data';
options nofmterr;
*** Create some data to be selected ***;
data templib.dm (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
SUBJID='';
SITEID='';
SEX='';
ARMCD='';
ARM='';
COUNTRY='';
ouput;
run;

data templib.co (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
COSEQ=.;
COVAL='';
output;
run;

data templib.se (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
SESEQ=.;
ETCD='';
SESTDTC='';
output;
run;

data templib.sv (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
VISITNUM=.;
ouput;
run;

data templib.cm (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
CMSEQ=.;
CMTRT='';
ouput;
run;

data templib.ex (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
EXSEQ=.;
EXTRT='';
ouput;
run;

data templib.su (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
SUSEQ=.;
SUTRT='';
ouput;
run;

data templib.ae (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
AESEQ=.;
AETERM='';
AEDECOD='';
ouput;
run;

data templib.ds (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
DSSEQ=.;
DSTERM='';
DSDECOD='';
ouput;
run;

data templib.mh (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
MHSEQ=.;
MHTERM='';
ouput;
run;

data templib.dv (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
DVSEQ=.;
DVTERM='';
ouput;
run;

data templib.ce (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
CESEQ=.;
CETERM='';
ouput;
run;

data templib.eg (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
EGSEQ=.;
EGTESTCD='';
EGTEST='';
ouput;
run;

data templib.ie (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
IESEQ=.;
IETESTCD='';
IETEST='';
IECAT='';
IEORRES='';
IESTRESC='';
ouput;
run;

data templib.lb (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
LBSEQ=.;
LBTESTCD='';
LBTEST='';
ouput;
run;

data templib.pe (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
PESEQ=.;
PETESTCD='';
PETEST='';
ouput;
run;

data templib.qs (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
QSSEQ=.;
QSTESTCD='';
QSTEST='';
QSCAT='';
ouput;
run;

data templib.sc (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
SCSEQ=.;
SCTESTCD='';
SCTEST='';
ouput;
run;

data templib.vs (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
VSSEQ=.;
VSTESTCD='';
VSTEST='';
ouput;
run;

data templib.da (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
DASEQ=.;
DATESTCD='';
DATEST='';
ouput;
run;

data templib.mb (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
MBSEQ=.;
MBTESTCD='';
MBTEST='';
ouput;
run;


data templib.ms (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
MSSEQ=.;
MSGRPID='';
MSTESTCD='';
MSTEST='';
MSCAT='';
ouput;
run;


data templib.pc (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
PCSEQ=.;
PCTESTCD='';
PCTEST='';
PCSPEC='';
ouput;
run;


data templib.pp (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
PPSEQ=.;
PPTESTCD='';
PPTEST='';
ouput;
run;


data templib.fa (label="Does Not Match");
STUDYID='';
DOMAIN='';
USUBJID='';
FASEQ=.;
FATESTCD='';
FATEST='';
FAOBJ='';
ouput;
run;


data templib.ta (label="Does Not Match");
STUDYID='';
DOMAIN='';
ARMCD='';
ARM='';
TAETORD=.;
ETCD='';
EPOCH='';
ouput;
run;


data templib.te (label="Does Not Match");
STUDYID='';
DOMAIN='';
ETCD='';
ELEMENT='';
TESTRL='';
ouput;
run;


data templib.tv (label="Does Not Match");
STUDYID='';
DOMAIN='';
VISITNUM=.;
TVSTRL='';
ouput;
run;


data templib.ti (label="Does Not Match");
STUDYID='';
DOMAIN='';
IETESTCD='';
IETEST='';
IECAT='';
ouput;
run;


data templib.ts (label="Does Not Match");
STUDYID='';
DOMAIN='';
TSSEQ=.;
TSPARMCD='';
TSPARM='';
TSVAL='';
ouput;
run;


/*
   usubjid ='12';
   studyid='test';
   dfseq=1;
   seqnum='test';
   output;

   usubjid ='12';
   studyid='test';
   dfseq=1;
   seqnum='1';
   aeterm='test';
   AEDECOD ='test';
   output;
   usubjid ='';
   studyid='';
   dfseq=.;
	seqnum='1';
   output;
   usubjid ='22';
   studyid='';
   dfseq=.;
   seqnum='';
   aeterm='test';
   AEDECOD ='test';
   output;
*/

%cdisc(datlib=templib,datname=dm co se sv cm ex su ae ds mh dv ce eg ie lb pe qs sc vs da mb ms pc pp fa ta te tv ti ts);
