1 The SAS System 09:38 Wednesday, October 21, 2009 NOTE: Copyright (c) 2002-2003 by SAS Institute Inc., Cary, NC, USA. NOTE: SAS (r) 9.1 (TS1M3) Licensed to SY TRUONG, Site 0051884001. NOTE: This session is executing on the XP_PRO platform. NOTE: (E9BX04) SAS 9.1.3 SP 4 NOTE: SAS initialization used: real time 0.81 seconds cpu time 0.96 seconds NOTE: AUTOEXEC processing beginning; file is C:\apache\htdocs\cdiscbuilder\saspgm\autoexec.sas. NOTE: Libref _CDISC_ was successfully assigned as follows: Engine: V9 Physical Name: C:\apache\htdocs\cdiscbuilder\saspgm NOTE: AUTOEXEC processing completed. 1 /*------------------------------------------------------------* 2 * program: cdisc26.sas * 3 * Description: Case #26. Visit Number Decimal Identifies records where the value * 4 * for Visit Number is formatted to more than two decimal places.* 5 * By: Sy Truong, 10/14/2009 * 6 *-------------------------------------------------------------*/ 7 8 libname templib '../data'; NOTE: Libref TEMPLIB was successfully assigned as follows: Engine: V9 Physical Name: C:\apache\htdocs\cdiscbuilder\data 9 10 *** Create some data to be selected ***; 11 data templib.qs(label="Questionnaires"); 12 attrib STUDYID label="Study Identifier" length=$100; 13 attrib DOMAIN label="Domain Abbreviation" length=$100; 14 attrib USUBJID label="Unique Subject Identifier" length=$100; 15 attrib QSSEQ label="Sequence Number" length=8; 16 attrib QSGRPID label="Group ID" length=$100; 17 attrib QSSPID label="Sponsor-Defined Identifier" length=$100; 18 attrib QSTESTCD label="Question Short Name" length=$100; 19 attrib QSTEST label="Question Name" length=$100; 20 attrib QSCAT label="Category of Question" length=$100; 21 attrib QSSCAT label="Subcategory for Question" length=$100; 22 attrib QSORRES label="Result or Finding in Original Units" length=$100; 23 attrib QSORRESU label="Original Units" length=$100; 24 attrib QSSTRESC label="Character Result/Finding in Std Format" length=$100; 25 attrib QSSTRESN label="Numeric Finding in Standard Units" length=8; 26 attrib QSSTRESU label="Standard Units" length=$100; 27 attrib QSSTAT label="Completion Status" length=$100; 28 attrib QSREASND label="Reason Not Performed" length=$100; 2 The SAS System 09:38 Wednesday, October 21, 2009 29 attrib QSBLFL label="Baseline Flag" length=$100; 30 attrib QSDRVFL label="Derived Flag" length=$100; 31 attrib VISITNUM label="Visit Number" length=8; 32 attrib VISIT label="Visit Name" length=$100; 33 attrib VISITDY label="Planned Study Day of Visit" length=8; 34 attrib QSDTC label="Date/Time of Finding" length=$100; 35 attrib QSDY label="Study Day of Finding" length=8; 36 attrib QSTPT label="Planned Time Point Name" length=$100; 37 attrib QSTPTNUM label="Planned Time Point Number" length=8; 38 attrib QSELTM label="Planned Elapsed Time from Time Point Ref" length=$100; 39 attrib QSTPTREF label="Time Point Reference" length=$100; 40 attrib QSRFTDTC label="Date/Time of Reference Time Point" length=$100; 41 attrib QSEVLINT label="Evaluation Interval" length=$100; 42 STUDYID = 'test';DOMAIN = 'test';USUBJID = '123';QSSEQ = 1;QSGRPID = 'test';QSSPID = 42 ! 'test';QSTESTCD = 'test';QSTEST = 'test';QSCAT = 'test';QSSCAT = 'test';QSORRES = ''; 43 QSORRESU = 'test';QSSTRESC = 'test';QSSTRESU = 'test';QSSTAT = 'test';QSREASND = 43 ! 'test';QSBLFL = 'Y';VISITNUM=1; 44 output; 45 STUDYID = 'test';DOMAIN = 'test';USUBJID = '123';QSSEQ = 1;QSGRPID = 'test';QSSPID = 45 ! 'test';QSTESTCD = 'test';QSTEST = 'test';QSCAT = 'test';QSSCAT = 'test';QSORRES = ''; 46 QSORRESU = 'test';QSSTRESC = 'test';QSSTRESU = 'test';QSSTAT = 'test';QSREASND = 46 ! 'test';QSBLFL = 'Y';VISITNUM=1.234; 47 output; 48 STUDYID = 'test';DOMAIN = 'test';USUBJID = '456';QSSEQ = 1;QSGRPID = 'test';QSSPID = 48 ! 'test';QSTESTCD = 'test';QSTEST = 'test';QSCAT = 'test';QSSCAT = 'test';QSORRES = 48 ! 'test'; 49 QSORRESU = 'test';QSSTRESC = 'test';QSSTRESU = 'test';QSSTAT = '';QSREASND = 'test'; 49 ! QSBLFL = 'N';VISITNUM=1.2; 50 output; 51 STUDYID = 'test';DOMAIN = 'test';USUBJID = '456';QSSEQ = 1;QSGRPID = 'test';QSSPID = 51 ! 'test';QSTESTCD = 'test';QSTEST = 'test';QSCAT = 'test';QSSCAT = 'test';QSORRES = 51 ! 'test'; 52 QSORRESU = 'test';QSSTRESC = 'test';QSSTRESU = 'test';QSSTAT = '';QSREASND = 'test'; 52 ! QSBLFL = 'Y';VISITNUM=1.23; 53 output; 54 STUDYID = 'test';DOMAIN = 'test';USUBJID = '789';QSSEQ = 1;QSGRPID = 'test';QSSPID = 54 ! 'test';QSTESTCD = 'test';QSTEST = 'test';QSCAT = 'test';QSSCAT = 'test';QSORRES = 54 ! 'test'; 55 QSORRESU = 'test';QSSTRESC = 'test';QSSTRESU = 'test';QSSTAT = '';QSREASND = '';QSBLFL 55 ! = 'N';VISITNUM=2; 56 output; 57 STUDYID = 'test';DOMAIN = 'test';USUBJID = '789';QSSEQ = 1;QSGRPID = 'test';QSSPID = 57 ! 'test';QSTESTCD = 'test';QSTEST = 'test';QSCAT = 'test';QSSCAT = 'test';QSORRES = 57 ! 'test'; 58 QSORRESU = 'test';QSSTRESC = 'test';QSSTRESU = 'test';QSSTAT = '';QSREASND = '';QSBLFL 58 ! = 'Y';VISITNUM=1.0123; 59 output; 60 run; NOTE: Variable QSSTRESN is uninitialized. NOTE: Variable QSDRVFL is uninitialized. NOTE: Variable VISIT is uninitialized. NOTE: Variable VISITDY is uninitialized. 3 The SAS System 09:38 Wednesday, October 21, 2009 NOTE: Variable QSDTC is uninitialized. NOTE: Variable QSDY is uninitialized. NOTE: Variable QSTPT is uninitialized. NOTE: Variable QSTPTNUM is uninitialized. NOTE: Variable QSELTM is uninitialized. NOTE: Variable QSTPTREF is uninitialized. NOTE: Variable QSRFTDTC is uninitialized. NOTE: Variable QSEVLINT is uninitialized. NOTE: The data set TEMPLIB.QS has 6 observations and 30 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 61 %cdisc(datlib=templib,datname=qs); 62 data misobs(keep=obsnum); 63 retain obsnum 0; 64 set templib.qs(keep=STUDYID); 65 obsnum=obsnum+1; 66 if missing(STUDYID) then 67 output; 68 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 69 data misobs(keep=obsnum); 70 retain obsnum 0; 71 set templib.qs(keep=DOMAIN); 72 obsnum=obsnum+1; 73 if missing(DOMAIN) then 74 output; 75 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 76 data misobs(keep=obsnum); 77 retain obsnum 0; 78 set templib.qs(keep=USUBJID); 79 obsnum=obsnum+1; 80 if missing(USUBJID) then 81 output; 82 run; 4 The SAS System 09:38 Wednesday, October 21, 2009 NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 83 data misobs(keep=obsnum); 84 retain obsnum 0; 85 set templib.qs(keep=QSSEQ); 86 obsnum=obsnum+1; 87 if missing(QSSEQ) then 88 output; 89 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 90 data misobs(keep=obsnum); 91 retain obsnum 0; 92 set templib.qs(keep=QSTESTCD); 93 obsnum=obsnum+1; 94 if missing(QSTESTCD) then 95 output; 96 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 97 data misobs(keep=obsnum); 98 retain obsnum 0; 99 set templib.qs(keep=QSTEST); 100 obsnum=obsnum+1; 101 if missing(QSTEST) then 102 output; 103 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 5 The SAS System 09:38 Wednesday, October 21, 2009 104 data misobs(keep=obsnum); 105 retain obsnum 0; 106 set templib.qs(keep=QSCAT); 107 obsnum=obsnum+1; 108 if missing(QSCAT) then 109 output; 110 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 111 proc sort data=templib.qs out=noflag; 112 by usubjid QSBLFL; 113 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK.NOFLAG has 6 observations and 30 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 114 data noflag; 115 attrib _flag length=$1; 116 set noflag(keep=usubjid QSBLFL); 117 by usubjid QSBLFL; 118 retain _flag; 119 if first.usubjid then _flag=QSBLFL; 120 if last.usubjid and _flag = QSBLFL and _flag = 'N' then output; 121 run; NOTE: There were 6 observations read from the data set WORK.NOFLAG. NOTE: The data set WORK.NOFLAG has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 122 data _25; 123 retain obsnum 0; 124 length value $20; 125 set templib.qs(keep=QSORRES QSSTAT); 126 obsnum = obsnum + 1; 127 if (QSORRES = '' and QSSTAT = '') or (QSORRES ne '' and QSSTAT ne '') then do; 128 if QSORRES = '' then value = 'are null'; 129 if QSORRES ne '' then value = 'have a value'; 130 output; 131 end; 132 run; 6 The SAS System 09:38 Wednesday, October 21, 2009 NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._25 has 0 observations and 4 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 133 data _26; 134 retain obsnum 0; 135 set templib.qs(keep=VISITNUM); 136 obsnum = obsnum + 1; 137 attrib visitnumc length=$50; 138 visitnumc = compress(visitnum); 139 if index(visitnumc,'.') gt 0 then visitnumc = compress(scan(visitnumc,2,'.')); 140 if length(compress(visitnumc))>2 then output; 141 run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 138:22 NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._26 has 2 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 142 data _31; 143 retain obsnum 0; 144 set templib.qs(keep=QSBLFL); 145 obsnum = obsnum + 1; 146 if trim(left(QSBLFL)) not in ('Y','') then output; 147 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._31 has 2 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 148 data _32; 149 retain obsnum 0; 150 set templib.qs(keep=QSDRVFL); 151 obsnum = obsnum + 1; 152 if trim(left(QSDRVFL)) not in ('Y','') then output; 153 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._32 has 0 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds 7 The SAS System 09:38 Wednesday, October 21, 2009 cpu time 0.03 seconds 154 data _36; 155 retain obsnum 0; 156 set templib.qs; 157 obsnum = obsnum + 1; 158 if upcase(QSSTAT) not in ('','NOT DONE') then output; 159 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._36 has 2 observations and 31 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 160 data _40; 161 retain obsnum 0; 162 set templib.qs(keep=QSORRES QSDRVFL); 163 obsnum = obsnum + 1; 164 if QSORRES = '' and QSDRVFL ="Y" then output; 165 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._40 has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 166 data _41; 167 retain obsnum 0; 168 set templib.qs(keep=QSSTRESC QSDRVFL); 169 obsnum = obsnum + 1; 170 if QSSTRESC = '' and QSDRVFL ="Y" then output; 171 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._41 has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 172 data _42; 173 retain obsnum 0; 174 set templib.qs(keep=QSTEST); 175 obsnum = obsnum + 1; 176 if length(trim(left(QSTEST))) > 40 then output; 177 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. 8 The SAS System 09:38 Wednesday, October 21, 2009 NOTE: The data set WORK._42 has 0 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 178 data _43(keep= obsnum QSTESTCD status); 179 retain obsnum 0; 180 set templib.qs(keep=QSTESTCD); 181 obsnum = obsnum + 1; 182 attrib status length=$50; 183 if length(trim(left(QSTESTCD))) > 8 then do; 184 status = 'greater than 8 characters.'; 185 output; 186 end; 187 if substr(QSTESTCD,1,1) in ('1','2','3','4','5','6','7','8','9','0') then do; 188 status = 'starts with a number.'; 189 output; 190 end; 191 spec = '~`@#$%^&*()-+={}|\][:";<>?,./'; 192 if index(QSTESTCD,"'") gt 0 then do; 193 status = 'contains special character(s).'; 194 output; 195 end; 196 else do; 197 do i=1 to length(trim(left(QSTESTCD))); 198 if index(spec,substr(QSTESTCD,i,1)) gt 0 then do; 199 status = 'contains special character(s).'; 200 output; 201 end; 202 end; 203 end; 204 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._43 has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 205 data _49; 206 retain obsnum 0; 207 set templib.qs(keep=QSEVLINT); 208 obsnum = obsnum + 1; 209 if compress(QSEVLINT) ne '' then if substr(QSEVLINT,1,1)='-' then output; 210 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: The data set WORK._49 has 0 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 9 The SAS System 09:38 Wednesday, October 21, 2009 211 proc sort data=templib.qs out=qs nodupkey; 212 by usubjid; 213 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: 3 observations with duplicate key values were deleted. NOTE: The data set WORK.QS has 3 observations and 30 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds NOTE: Table WORK._72 created, with 3 rows and 1 columns. 214 proc sort data=templib.qs out=qs nodupkey; 215 by usubjid visitnum visit; 216 run; NOTE: There were 6 observations read from the data set TEMPLIB.QS. NOTE: 0 observations with duplicate key values were deleted. NOTE: The data set WORK.QS has 6 observations and 30 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 217 data qs; 218 attrib total length=$100; 219 set qs; 220 total = trim(left(usubjid))||'+'||compress(visitnum)||'+'||trim(left(visit)); 221 put total=; 222 keep total; 223 run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 220:44 total=123+1+ total=123+1.234+ total=456+1.2+ total=456+1.23+ total=789+1.0123+ total=789+2+ NOTE: There were 6 observations read from the data set WORK.QS. NOTE: The data set WORK.QS has 6 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 224 data sv; 10 The SAS System 09:38 Wednesday, October 21, 2009 225 attrib total length=$100; 226 set templib.SV; 227 total = trim(left(usubjid))||'+'||compress(visitnum)||'+'||trim(left(visit)); 228 put total=; 229 keep total; 230 run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 227:44 227:70 NOTE: Variable visit is uninitialized. total=+.+. NOTE: There were 1 observations read from the data set TEMPLIB.SV. NOTE: The data set WORK.SV has 1 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds NOTE: Table WORK._73 created, with 6 rows and 1 columns. 231 proc sort data=cdisc nodupkey; 232 by libname datname datlab variable length label type case comment; 233 run; NOTE: There were 25 observations read from the data set WORK.CDISC. NOTE: 0 observations with duplicate key values were deleted. NOTE: The data set WORK.CDISC has 25 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 234 proc sort data = work.cdisc; 235 by libname datname datlab variable case; 236 run; NOTE: There were 25 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 25 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 237 238 proc format; 239 *** Generate the comments for the CDISC evaluation case number ***; 240 value $casefmt 241 '1' = '1' 242 '2' = '2' 243 '3' = '3' 244 '4' = '4' 245 '5' = '5' 11 The SAS System 09:38 Wednesday, October 21, 2009 246 '6' = '6' 247 '7' = '7' 248 '8' = '8' 249 '9' = '9' 250 '10' = '10' 251 '11' = '11' 252 '12' = '12' 253 '13' = '13' 254 '14' = '14' 255 '15' = '15' 256 '16' = '16' 257 '17' = '17' 258 '18' = '18' 259 '19' = '19' 260 '20' = '20' 261 '21' = '21' 262 '22' = '22' 263 '23' = '23' 264 '24' = '24' 265 '25' = '25' 266 '26' = '26' 267 '27' = '27' 268 '28' = '28' 269 '29' = '29' 270 '30' = '30' 271 '31' = '31' 272 '32' = '32' 273 '33' = '33' 274 '34' = '34' 275 '35' = '35' 276 '36' = '36' 277 '37' = '37' 278 '38' = '38' 279 '39' = '39' 280 '40' = '40' 281 '41' = '41' 282 '42' = '42' 283 '43' = '43' 284 '44' = '44' 285 '45' = '45' 286 '46' = '46' 287 '47' = '47' 288 '48' = '48' 289 '49' = '49' 290 '50' = '50' 291 '51' = '51' 292 '52' = '52' 293 '53' = '53' 294 '54' = '54' 295 '55' = '55' 296 '56' = '56' 297 '57' = '57' 298 '58' = '58' 12 The SAS System 09:38 Wednesday, October 21, 2009 299 '59' = '59' 300 '60' = '60' 301 '61' = '61' 302 '62' = '62' 303 '63' = '63' 304 '64' = '64' 305 '65' = '65' 306 '66' = '66' 307 '67' = '67' 308 '68' = '68' 309 '69' = '69' 310 '70' = '70' 311 '71' = '71' 312 '72' = '72' 313 '73' = '73' 314 '74' = '74' 315 '75' = '75' 316 '76' = '76' 317 '77' = '77' 318 '78' = '78' 319 '79' = '79' 320 '80' = '80' 321 '81' = '81' 322 '82' = '82' 323 '83' = '83' 324 '84' = '84' 325 '85' = '85' 326 '86' = '86' 327 '87' = '87' 328 '88' = '88' 329 '89' = '89' 330 '90' = '90' 331 '91' = '91' 332 '92' = '92' 333 '93' = '93' 334 '94' = '94' 335 '95' = '95' 336 '96' = '96' 337 '97' = '97' 338 '98' = '98' 339 '99' = '99' 340 '100' = '100' 341 '101' = '101' 342 '102' = '102' 343 '103' = '103' 344 '104' = '104' 345 '105' = '105' 346 '106' = '106' 347 '107' = '107' 348 '108' = '108' 349 '109' = '109' 350 '110' = '110' 351 '111' = '111' 13 The SAS System 09:38 Wednesday, October 21, 2009 352 '112' = '112' 353 '113' = '113'; NOTE: Format $CASEFMT has been output. 354 355 356 357 *** Generate the format for the bookmark of variables ***; 358 value $bookfmt 359 "qs.studyid" = 'qs.studyid' 360 "qs.domain" = 'qs.domain' 361 "qs.usubjid" = 'qs.usubjid' 362 "qs.qsseq" = 'qs.qsseq' 363 "qs.qsgrpid" = 'qs.qsgrpid' 364 "qs.qsspid" = 'qs.qsspid' 365 "qs.qstestcd" = 'qs.qstestcd' 366 "qs.qstest" = 'qs.qstest' 367 "qs.qscat" = 'qs.qscat' 368 "qs.qsscat" = 'qs.qsscat' 369 "qs.qsorres" = 'qs.qsorres' 370 "qs.qsorresu" = 'qs.qsorresu' 371 "qs.qsstresc" = 'qs.qsstresc' 372 "qs.qsstresn" = 'qs.qsstresn' 373 "qs.qsstresu" = 'qs.qsstresu' 374 "qs.qsstat" = 'qs.qsstat' 375 "qs.qsreasnd" = 'qs.qsreasnd' 376 "qs.qsblfl" = 'qs.qsblfl' 377 "qs.qsdrvfl" = 'qs.qsdrvfl' 378 "qs.visitnum" = 'qs.visitnum' 379 "qs.visit" = 'qs.visit' 380 "qs.visitdy" = 'qs.visitdy' 381 "qs.qsdtc" = 'qs.qsdtc' 382 "qs.qsdy" = 'qs.qsdy' 383 "qs.qstpt" = 'qs.qstpt' 384 "qs.qstptnum" = 'qs.qstptnum' 385 "qs.qseltm" = 'qs.qseltm' 386 "qs.qstptref" = 'qs.qstptref' 387 "qs.qsrftdtc" = 'qs.qsrftdtc' 388 "qs.qsevlint" = 'qs.qsevlint' 389 ; NOTE: Format $BOOKFMT has been output. 390 391 *** Generate the format for dataset linking ***; 392 value $datfmt 393 "ae" = 'ae
' 394 "ae3a" = 'ae3a
' 395 "cdisc10" = 'cdisc10
' 396 "cdisc11" = 'cdisc11
' 397 "cdisc14" = 'cdisc14
' 398 "cdisc15" = 'cdisc15
' 399 "cdisc18" = 'cdisc18
' 400 "cdisc2" = 'cdisc2
' 401 "cdisc21" = 'cdisc21
' 402 "cdisc2b_1" = 'cdisc2b_1
' 14 The SAS System 09:38 Wednesday, October 21, 2009 403 "cdisc2b_2" = 'cdisc2b_2
' 404 "cdisc2b_3" = 'cdisc2b_3
' 405 "cdisc2_b" = 'cdisc2_b
' 406 "cdisc2_c" = 'cdisc2_c
' 407 "cdisc4" = 'cdisc4
' 408 "cdisc5" = 'cdisc5
' 409 "cdisc6" = 'cdisc6
' 410 "cdisc7" = 'cdisc7
' 411 "cdisc8" = 'cdisc8
' 412 "cdisc9" = 'cdisc9
' 413 "ce" = 'ce
' 414 "cm" = 'cm
' 415 "co" = 'co
' 416 "da" = 'da
' 417 "dm" = 'dm
' 418 "ds" = 'ds
' 419 "dv" = 'dv
' 420 "eg" = 'eg
' 421 "ex" = 'ex
' 422 "fa" = 'fa
' 423 "ie" = 'ie
' 424 "lb" = 'lb
' 425 "mb" = 'mb
' 426 "mh" = 'mh
' 427 "ms" = 'ms
' 428 "notdm" = 'notdm
' 429 "pc" = 'pc
' 430 "pe" = 'pe
' 431 "pp" = 'pp
' 432 "qs" = 'qs
' 433 "relrec" = 'relrec
' 434 "sc" = 'sc
' 435 "se" = 'se
' 436 "su" = 'su
' 437 "supmh" = 'supmh
' 438 "suppae" = 'suppae
' 439 "suppp" = 'suppp
' 440 "supte" = 'supte
' 441 "supvs" = 'supvs
' 442 "sv" = 'sv
' 443 "ta" = 'ta
' 444 "te" = 'te
' 445 "ti" = 'ti
' 446 "ts" = 'ts
' 447 "tv" = 'tv
' 448 "vs" = 'vs
' 449 ; NOTE: Format $DATFMT has been output. 450 run; NOTE: PROCEDURE FORMAT used (Total process time): real time 0.06 seconds cpu time 0.01 seconds 15 The SAS System 09:38 Wednesday, October 21, 2009 451 452 data work.cdisc; 453 set work.cdisc; 454 by libname datname datlab variable case; 455 456 attrib datvar label="Dataset and Variable" length=$100 format=$bookfmt.; 457 if variable ne '' then 458 datvar = compress(lowcase(datname) || "." || lowcase(variable)); 459 else datvar = lowcase(datname); 460 /*format case casefmt.;*/ 461 attrib charcase label = "Case Number" length = $10; 462 charcase = trim(left(put(case, best.))); 463 format charcase $casefmt.; 464 *format datname $datfmt.; 465 run; NOTE: There were 25 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 25 observations and 13 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 466 467 *** Remove The Special Characters ******; 468 proc template; 469 define style styles.test/store=work.test; 470 parent=styles.default; 471 style byline from titlesandfooters / 472 protectspecialchars=off; 473 end; NOTE: STYLE 'Styles.Test' has been saved to: WORK.TEST 474 run; NOTE: PROCEDURE TEMPLATE used (Total process time): real time 0.12 seconds cpu time 0.03 seconds 475 476 proc sort data = work.cdisc; 477 by libname datname datlab variable case; 478 run; NOTE: There were 25 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 25 observations and 13 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 479 16 The SAS System 09:38 Wednesday, October 21, 2009 480 ods listing close; 481 ods html file='cdisc26.html' style=styles.mxistyle; NOTE: Writing HTML Body file: cdisc26.html 482 data work.qs (drop=usrname datetime); 483 set work.cdisc; 484 where lowcase(datname)=lowcase("qs"); 485 run; NOTE: There were 25 observations read from the data set WORK.CDISC. WHERE LOWCASE(datname)='qs'; NOTE: The data set WORK.QS has 25 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 486 data qs(drop=xxx); 487 set qs; 488 retain xxx 0; 489 if xxx = 2 then xxx = 1; 490 else xxx = xxx + 1; 491 yyy = compress(put(xxx,best.)); 492 run; NOTE: There were 25 observations read from the data set WORK.QS. NOTE: The data set WORK.QS has 25 observations and 12 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 493 494 %let newlab = %nrbquote(); 495 title1 height=2 ' Findings from CDISC Evaluation'; 496 title2 height=2 "Data Table Name = qs Data Table Label=&newlab"; 497 footnote1 height=2 "Generated on: 10/21/2009, 9:38:49 am, Administrator"; 498 footnote2 height=2 "Located at: C:\apache\htdocs\cdiscbuilder\data"; 499 proc report data = work.qs nowindows; 500 column obs libname datvar label type length charcase comment yyy; 501 define obs/computed 'Obs'; 502 define libname/width=20; 503 define datvar/width=50; 504 define label/width=50; 505 define type/width=20; 506 define length/width=50; 507 define comment/width=50; 508 define charcase/width=50; 509 define yyy/ noprint; 510 511 compute yyy; 512 if yyy = "2" then do; 513 call define (_row_,'style','STYLE=[BACKGROUND=cxFFFFCC]'); 514 end; 17 The SAS System 09:38 Wednesday, October 21, 2009 515 endcompute; 516 517 compute charcase; 518 if charcase='1' then call define 518 ! ('charcase','style','STYLE=[BACKGROUND=CXccffcc JUST=CENTER]'); 519 if charcase='2' then call define 519 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0030 JUST=CENTER]'); 520 if charcase='3' then call define 520 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0094 JUST=CENTER]'); 521 if charcase='4' then call define 521 ! ('charcase','style','STYLE=[BACKGROUND=CXcd00f8 JUST=CENTER]'); 522 if charcase='5' then call define 522 ! ('charcase','style','STYLE=[BACKGROUND=CXcd015c JUST=CENTER]'); 523 if charcase='6' then call define 523 ! ('charcase','style','STYLE=[BACKGROUND=CXcd01c0 JUST=CENTER]'); 524 if charcase='7' then call define 524 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0224 JUST=CENTER]'); 525 if charcase='8' then call define 525 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0288 JUST=CENTER]'); 526 if charcase='9' then call define 526 ! ('charcase','style','STYLE=[BACKGROUND=CXcd02ec JUST=CENTER]'); 527 if charcase='10' then call define 527 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0350 JUST=CENTER]'); 528 if charcase='11' then call define 528 ! ('charcase','style','STYLE=[BACKGROUND=CXcd03b4 JUST=CENTER]'); 529 if charcase='12' then call define 529 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0418 JUST=CENTER]'); 530 if charcase='13' then call define 530 ! ('charcase','style','STYLE=[BACKGROUND=CXcd047c JUST=CENTER]'); 531 if charcase='14' then call define 531 ! ('charcase','style','STYLE=[BACKGROUND=CXcd04e0 JUST=CENTER]'); 532 if charcase='15' then call define 532 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0544 JUST=CENTER]'); 533 if charcase='16' then call define 533 ! ('charcase','style','STYLE=[BACKGROUND=CXcd05a8 JUST=CENTER]'); 534 if charcase='17' then call define 534 ! ('charcase','style','STYLE=[BACKGROUND=CXcd060c JUST=CENTER]'); 535 if charcase='18' then call define 535 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0670 JUST=CENTER]'); 536 if charcase='19' then call define 536 ! ('charcase','style','STYLE=[BACKGROUND=CXcd06d4 JUST=CENTER]'); 537 if charcase='20' then call define 537 ! ('charcase','style','STYLE=[BACKGROUND=CXffffcc JUST=CENTER]'); 538 if charcase='21' then call define 538 ! ('charcase','style','STYLE=[BACKGROUND=CX398C54 JUST=CENTER]'); 539 if charcase='22' then call define 539 ! ('charcase','style','STYLE=[BACKGROUND=CX398d1c JUST=CENTER]'); 540 if charcase='23' then call define 540 ! ('charcase','style','STYLE=[BACKGROUND=CX398d80 JUST=CENTER]'); 541 if charcase='24' then call define 541 ! ('charcase','style','STYLE=[BACKGROUND=CX398de4 JUST=CENTER]'); 542 if charcase='25' then call define 542 ! ('charcase','style','STYLE=[BACKGROUND=CX398e48 JUST=CENTER]'); 18 The SAS System 09:38 Wednesday, October 21, 2009 543 if charcase='26' then call define 543 ! ('charcase','style','STYLE=[BACKGROUND=CX398eac JUST=CENTER]'); 544 if charcase='27' then call define 544 ! ('charcase','style','STYLE=[BACKGROUND=CX398f10 JUST=CENTER]'); 545 if charcase='28' then call define 545 ! ('charcase','style','STYLE=[BACKGROUND=CX398f74 JUST=CENTER]'); 546 if charcase='29' then call define 546 ! ('charcase','style','STYLE=[BACKGROUND=CX398fd8 JUST=CENTER]'); 547 if charcase='30' then call define 547 ! ('charcase','style','STYLE=[BACKGROUND=CX39903c JUST=CENTER]'); 548 if charcase='31' then call define 548 ! ('charcase','style','STYLE=[BACKGROUND=CX3990a0 JUST=CENTER]'); 549 if charcase='32' then call define 549 ! ('charcase','style','STYLE=[BACKGROUND=CX399104 JUST=CENTER]'); 550 if charcase='33' then call define 550 ! ('charcase','style','STYLE=[BACKGROUND=CX399168 JUST=CENTER]'); 551 if charcase='34' then call define 551 ! ('charcase','style','STYLE=[BACKGROUND=CX3991cc JUST=CENTER]'); 552 if charcase='35' then call define 552 ! ('charcase','style','STYLE=[BACKGROUND=CX399230 JUST=CENTER]'); 553 if charcase='36' then call define 553 ! ('charcase','style','STYLE=[BACKGROUND=CX399294 JUST=CENTER]'); 554 if charcase='37' then call define 554 ! ('charcase','style','STYLE=[BACKGROUND=CX3992f8 JUST=CENTER]'); 555 if charcase='38' then call define 555 ! ('charcase','style','STYLE=[BACKGROUND=CX39935c JUST=CENTER]'); 556 if charcase='39' then call define 556 ! ('charcase','style','STYLE=[BACKGROUND=CXffcccc JUST=CENTER]'); 557 if charcase='40' then call define 557 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd30 JUST=CENTER]'); 558 if charcase='41' then call define 558 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd94 JUST=CENTER]'); 559 if charcase='42' then call define 559 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdf8 JUST=CENTER]'); 560 if charcase='43' then call define 560 ! ('charcase','style','STYLE=[BACKGROUND=CXffce5c JUST=CENTER]'); 561 if charcase='44' then call define 561 ! ('charcase','style','STYLE=[BACKGROUND=CXffcec0 JUST=CENTER]'); 562 if charcase='45' then call define 562 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf24 JUST=CENTER]'); 563 if charcase='46' then call define 563 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf88 JUST=CENTER]'); 564 if charcase='47' then call define 564 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfec JUST=CENTER]'); 565 if charcase='48' then call define 565 ! ('charcase','style','STYLE=[BACKGROUND=CXffd050 JUST=CENTER]'); 566 if charcase='49' then call define 566 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0b4 JUST=CENTER]'); 567 if charcase='50' then call define 567 ! ('charcase','style','STYLE=[BACKGROUND=CXffd118 JUST=CENTER]'); 568 if charcase='51' then call define 568 ! ('charcase','style','STYLE=[BACKGROUND=CXffd17c JUST=CENTER]'); 569 if charcase='52' then call define 19 The SAS System 09:38 Wednesday, October 21, 2009 569 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1e0 JUST=CENTER]'); 570 if charcase='53' then call define 570 ! ('charcase','style','STYLE=[BACKGROUND=CXffd244 JUST=CENTER]'); 571 if charcase='54' then call define 571 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2a8 JUST=CENTER]'); 572 if charcase='55' then call define 572 ! ('charcase','style','STYLE=[BACKGROUND=CXffd30c JUST=CENTER]'); 573 if charcase='56' then call define 573 ! ('charcase','style','STYLE=[BACKGROUND=CXffd370 JUST=CENTER]'); 574 if charcase='57' then call define 574 ! ('charcase','style','STYLE=[BACKGROUND=CXffd3d4 JUST=CENTER]'); 575 if charcase='58' then call define 575 ! ('charcase','style','STYLE=[BACKGROUND=CXccccff JUST=CENTER]'); 576 if charcase='59' then call define 576 ! ('charcase','style','STYLE=[BACKGROUND=CXcccd63 JUST=CENTER]'); 577 if charcase='60' then call define 577 ! ('charcase','style','STYLE=[BACKGROUND=CXcccdc7 JUST=CENTER]'); 578 if charcase='61' then call define 578 ! ('charcase','style','STYLE=[BACKGROUND=CXccce2b JUST=CENTER]'); 579 if charcase='62' then call define 579 ! ('charcase','style','STYLE=[BACKGROUND=CXccce8f JUST=CENTER]'); 580 if charcase='63' then call define 580 ! ('charcase','style','STYLE=[BACKGROUND=CXcccef3 JUST=CENTER]'); 581 if charcase='64' then call define 581 ! ('charcase','style','STYLE=[BACKGROUND=CXcccf57 JUST=CENTER]'); 582 if charcase='65' then call define 582 ! ('charcase','style','STYLE=[BACKGROUND=CXcccfbb JUST=CENTER]'); 583 if charcase='66' then call define 583 ! ('charcase','style','STYLE=[BACKGROUND=CXccd01f JUST=CENTER]'); 584 if charcase='67' then call define 584 ! ('charcase','style','STYLE=[BACKGROUND=CXccd083 JUST=CENTER]'); 585 if charcase='68' then call define 585 ! ('charcase','style','STYLE=[BACKGROUND=CXccd0e7 JUST=CENTER]'); 586 if charcase='69' then call define 586 ! ('charcase','style','STYLE=[BACKGROUND=CXccd14b JUST=CENTER]'); 587 if charcase='70' then call define 587 ! ('charcase','style','STYLE=[BACKGROUND=CXccd1af JUST=CENTER]'); 588 if charcase='71' then call define 588 ! ('charcase','style','STYLE=[BACKGROUND=CXccd213 JUST=CENTER]'); 589 if charcase='72' then call define 589 ! ('charcase','style','STYLE=[BACKGROUND=CXccd277 JUST=CENTER]'); 590 if charcase='73' then call define 590 ! ('charcase','style','STYLE=[BACKGROUND=CXccd2db JUST=CENTER]'); 591 if charcase='74' then call define 591 ! ('charcase','style','STYLE=[BACKGROUND=CXccd33f JUST=CENTER]'); 592 if charcase='75' then call define 592 ! ('charcase','style','STYLE=[BACKGROUND=CXccd3a3 JUST=CENTER]'); 593 if charcase='76' then call define 593 ! ('charcase','style','STYLE=[BACKGROUND=CXccd407 JUST=CENTER]'); 594 if charcase='77' then call define 594 ! ('charcase','style','STYLE=[BACKGROUND=CX99ccff JUST=CENTER]'); 595 if charcase='78' then call define 595 ! ('charcase','style','STYLE=[BACKGROUND=CX99cd63 JUST=CENTER]'); 20 The SAS System 09:38 Wednesday, October 21, 2009 596 if charcase='79' then call define 596 ! ('charcase','style','STYLE=[BACKGROUND=CX99cdc7 JUST=CENTER]'); 597 if charcase='80' then call define 597 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce2b JUST=CENTER]'); 598 if charcase='81' then call define 598 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce8f JUST=CENTER]'); 599 if charcase='82' then call define 599 ! ('charcase','style','STYLE=[BACKGROUND=CX99cef3 JUST=CENTER]'); 600 if charcase='83' then call define 600 ! ('charcase','style','STYLE=[BACKGROUND=CX99cf57 JUST=CENTER]'); 601 if charcase='84' then call define 601 ! ('charcase','style','STYLE=[BACKGROUND=CX99cfbb JUST=CENTER]'); 602 if charcase='85' then call define 602 ! ('charcase','style','STYLE=[BACKGROUND=CX99d01f JUST=CENTER]'); 603 if charcase='86' then call define 603 ! ('charcase','style','STYLE=[BACKGROUND=CX99d083 JUST=CENTER]'); 604 if charcase='87' then call define 604 ! ('charcase','style','STYLE=[BACKGROUND=CX99d0e7 JUST=CENTER]'); 605 if charcase='88' then call define 605 ! ('charcase','style','STYLE=[BACKGROUND=CX99d14b JUST=CENTER]'); 606 if charcase='89' then call define 606 ! ('charcase','style','STYLE=[BACKGROUND=CX99d1af JUST=CENTER]'); 607 if charcase='90' then call define 607 ! ('charcase','style','STYLE=[BACKGROUND=CX99d213 JUST=CENTER]'); 608 if charcase='91' then call define 608 ! ('charcase','style','STYLE=[BACKGROUND=CX99d277 JUST=CENTER]'); 609 if charcase='92' then call define 609 ! ('charcase','style','STYLE=[BACKGROUND=CX99d2db JUST=CENTER]'); 610 if charcase='93' then call define 610 ! ('charcase','style','STYLE=[BACKGROUND=CX99d33f JUST=CENTER]'); 611 if charcase='94' then call define 611 ! ('charcase','style','STYLE=[BACKGROUND=CX99d3a3 JUST=CENTER]'); 612 if charcase='95' then call define 612 ! ('charcase','style','STYLE=[BACKGROUND=CX99d407 JUST=CENTER]'); 613 if charcase='96' then call define 613 ! ('charcase','style','STYLE=[BACKGROUND=CXffcc99 JUST=CENTER]'); 614 if charcase='97' then call define 614 ! ('charcase','style','STYLE=[BACKGROUND=CXffccfd JUST=CENTER]'); 615 if charcase='98' then call define 615 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd61 JUST=CENTER]'); 616 if charcase='99' then call define 616 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdc5 JUST=CENTER]'); 617 if charcase='100' then call define 617 ! ('charcase','style','STYLE=[BACKGROUND=CXffce29 JUST=CENTER]'); 618 if charcase='101' then call define 618 ! ('charcase','style','STYLE=[BACKGROUND=CXffce8d JUST=CENTER]'); 619 if charcase='102' then call define 619 ! ('charcase','style','STYLE=[BACKGROUND=CXffcef1 JUST=CENTER]'); 620 if charcase='103' then call define 620 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf55 JUST=CENTER]'); 621 if charcase='104' then call define 621 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfb9 JUST=CENTER]'); 622 if charcase='105' then call define 21 The SAS System 09:38 Wednesday, October 21, 2009 622 ! ('charcase','style','STYLE=[BACKGROUND=CXffd01d JUST=CENTER]'); 623 if charcase='106' then call define 623 ! ('charcase','style','STYLE=[BACKGROUND=CXffd081 JUST=CENTER]'); 624 if charcase='107' then call define 624 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0e5 JUST=CENTER]'); 625 if charcase='108' then call define 625 ! ('charcase','style','STYLE=[BACKGROUND=CXffd149 JUST=CENTER]'); 626 if charcase='109' then call define 626 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1ad JUST=CENTER]'); 627 if charcase='110' then call define 627 ! ('charcase','style','STYLE=[BACKGROUND=CXffd211 JUST=CENTER]'); 628 if charcase='111' then call define 628 ! ('charcase','style','STYLE=[BACKGROUND=CXffd275 JUST=CENTER]'); 629 if charcase='112' then call define 629 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2d9 JUST=CENTER]'); 630 if charcase='113' then call define 630 ! ('charcase','style','STYLE=[BACKGROUND=CXffd33d JUST=CENTER]'); 631 endcomp; 632 633 compute obs; 634 dobs + 1; 635 obs = dobs; 636 endcompute; 637 run; NOTE: There were 25 observations read from the data set WORK.QS. NOTE: PROCEDURE REPORT used (Total process time): real time 0.25 seconds cpu time 0.04 seconds 638 run; 639 ods html close; 640 ods listing; NOTE: PROCEDURE DISPLAY used (Total process time): real time 3.82 seconds cpu time 3.18 seconds NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414 NOTE: The SAS System used: real time 4.76 seconds cpu time 4.23 seconds