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