/*------------------------------------------------------------* 
* program:     cdisc70.sas                                    * 
* Description: Case #70. SUPPQUAL USBJID For Supplemental Qualifiers domains, *
*              this identifies a domain that appears to contain supplemental qualifier*
*              data but does not contain the Unique Subject Identifier variable.* 
* By:          Sy Truong, 10/14/2009                          *
*-------------------------------------------------------------*/
libname templib '../data';
data templib.suppae;
attrib STUDYID length=$7 label="Study Identifier";
attrib RDOMAIN length=$2 label="Related Domain Abbreviation";
attrib USUBJID length=$14 label="Unique Subject Identifier";
attrib IDVAR length=$5 label="Identifying Variable";
attrib IDVARVAL length=$1 label="Identifying Variable Value";
attrib QNAM length=$7 label="Qualifier Variable Name";
attrib QLABEL length=$30 label="Qualifier Variable Label";
attrib QVAL length=$60 label="Data Value";
attrib QORIG length=$7 label="Origin";
attrib QEVAL length=$7 label="Evaluator";
STUDYID="CDISC01";
RDOMAIN="AE";
USUBJID="CDISC01.100008";
IDVAR="AESEQ";
IDVARVAL="1";
QNAM="AETRTEM";
QLABEL="Treatment Emergent";
QVAL="Y";
QORIG="DERIVED";
QEVAL="SPONSOR";
output;
STUDYID="CDISC01";
RDOMAIN="AE";
USUBJID="CDISC01.100008";
IDVAR="AESEQ";
IDVARVAL="1";
QNAM="HLGT";
QLABEL="Higher Level Group Term";
QVAL="Anxiety disorders and symptoms";
QORIG="DERIVED";
QEVAL="SPONSOR";
output;
STUDYID="CDISC01";
RDOMAIN="AE";
USUBJID="";
IDVAR="AESEQ";
IDVARVAL="1";
QNAM="HLT";
QLABEL="Higher Level Term";
QVAL="Anxiety symptoms";
QORIG="DERIVED";
QEVAL="SPONSOR";
output;
STUDYID="CDISC01";
RDOMAIN="AE";
USUBJID="CDISC01.100008";
IDVAR="AESEQ";
IDVARVAL="1";
QNAM="LLT";
QLABEL="Lowest Level Term";
QVAL="Agitation";
QORIG="DERIVED";
QEVAL="SPONSOR";
output;
run;
%cdisc(datlib=templib,datname=suppae);
