/*------------------------------------------------------------*
* program:     cdisc45.sas                                    *
* Description: Case #45. Trial Summary Short For TS domains, this identifies records that violate the condition*
*              [LENGTH(Trial Summary Parameter Short Name) less than or equal to 8 chars, *
*              cannot start with a number or contain special chars].*
* By:          Sy Truong, 10/14/2009                          *
*-------------------------------------------------------------*/
 
libname templib '../data';

*** Create some data to be selected ***;
data templib.ts(label="Trial Summary");
attrib STUDYID	label="Study Identifier" length=$100;
attrib DOMAIN	label="Domain Abbreviation" length=$100;
attrib TSSEQ	label="Sequence Number" length=8;
attrib TSGRPID	label="Group ID" length=$100;
attrib TSPARMCD	label="Trial Summary Parameter Short Name" length=$100;
attrib TSPARM	label="Trial Summary Parameter" length=$100;
attrib TSVAL	label="Parameter Value" length=$100;
STUDYID='test';DOMAIN='test';TSSEQ=1;TSGRPID='test';TSPARMCD='test';TSPARM='test';TSVAL='test';
output;
STUDYID='test';DOMAIN='test';TSSEQ=1;TSGRPID='test';TSPARMCD='test';TSPARM='test';TSVAL='test';
output;
STUDYID='test';DOMAIN='test';TSSEQ=1;TSGRPID='test';TSPARMCD='1test';TSPARM='test';TSVAL='test';
output;
STUDYID='test';DOMAIN='test';TSSEQ=1;TSGRPID='test';TSPARMCD='re%';TSPARM='test';TSVAL='test';
output;
STUDYID='test';DOMAIN='test';TSSEQ=1;TSGRPID='test';TSPARMCD='long short name test';TSPARM='test';TSVAL='test';
output;
STUDYID='test';DOMAIN='test';TSSEQ=1;TSGRPID='test';TSPARMCD='test';TSPARM='test';TSVAL='test';
output;
run;
%cdisc(datlib=templib,datname=ts);
