1 The SAS System 09:45 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.65 seconds cpu time 0.57 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: cdisc74.sas * 3 * Description: Case #74. Arm Code TA For DM domains, this identifies records* 4 * where the value for Arm Code is not found in the TA domain.* 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.dm(label="Demographics"); 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 SUBJID label="Subject Identifier for the Study" length=$100; 16 attrib RFSTDTC label="Subject Reference Start Date/Time" length=$100; 17 attrib RFENDTC label="Subject Reference End Date/Time" length=$100; 18 attrib SITEID label="Study Site Identifier" length=$100; 19 attrib INVID label="Investigator Identifier" length=$100; 20 attrib INVNAM label="Investigator Name" length=$100; 21 attrib BRTHDTC label="Date/Time of Birth" length=$100; 22 attrib AGE label="Age" length=8; 23 attrib AGEU label="Age Units" length=$100; 24 attrib SEX label="Sex" length=$100; 25 attrib RACE label="Race" length=$100; 26 attrib ETHNIC label="Ethnicity" length=$100; 27 attrib ARMCD label="Planned Arm Code" length=$100; 28 attrib ARM label="Description of Planned Arm" length=$100; 2 The SAS System 09:45 Wednesday, October 21, 2009 29 attrib COUNTRY label="Country" length=$100; 30 attrib DMDTC label="Date/Time of Collection" length=$100; 31 attrib DMDY label="Study Day of Collection" length=8; 32 STUDYID ='test'; 33 DOMAIN='test';USUBJID='test'; SUBJID ='test';RFSTDTC ='test';RFENDTC ='test'; 33 ! SITEID ='test';INVID ='test';INVNAM ='test';BRTHDTC ='test';AGE =50; 34 AGEU ='test';SEX ='test';RACE ='test';ETHNIC ='test';ARMCD ='P';ARM ='Placebo'; 34 ! COUNTRY ='test';DMDTC ='test';DMDY =123; 35 output; 36 STUDYID ='test'; 37 DOMAIN='test';USUBJID='test'; SUBJID ='test';RFSTDTC ='test';RFENDTC ='test'; 37 ! SITEID ='test';INVID ='test';INVNAM ='test';BRTHDTC ='test';AGE =50; 38 AGEU ='test';SEX ='test';RACE ='test';ETHNIC ='test';ARMCD ='';ARM ='';COUNTRY 38 ! ='test';DMDTC ='test';DMDY =123; 39 output; 40 STUDYID ='test'; 41 DOMAIN='test';USUBJID='test'; SUBJID ='test';RFSTDTC ='test';RFENDTC ='test'; 41 ! SITEID ='test';INVID ='test';INVNAM ='test';BRTHDTC ='test';AGE =50; 42 AGEU ='test';SEX ='test';RACE ='test';ETHNIC ='test';ARMCD ='test';ARM ='test'; 42 ! COUNTRY ='test';DMDTC ='test';DMDY =123; 43 output; 44 STUDYID ='test'; 45 DOMAIN='test';USUBJID='test'; SUBJID ='test';RFSTDTC ='test';RFENDTC ='test'; 45 ! SITEID ='test';INVID ='test';INVNAM ='test';BRTHDTC ='test';AGE =50; 46 AGEU ='test';SEX ='test';RACE ='test';ETHNIC ='test';ARMCD ='P';ARM ='Placebo'; 46 ! COUNTRY ='test';DMDTC ='test';DMDY =123; 47 output; 48 STUDYID ='test'; 49 DOMAIN='test';USUBJID='test'; SUBJID ='test';RFSTDTC ='test';RFENDTC ='test'; 49 ! SITEID ='test';INVID ='test';INVNAM ='test';BRTHDTC ='test';AGE =50; 50 AGEU ='test';SEX ='test';RACE ='test';ETHNIC ='test';ARMCD ='B';ARM ='B';COUNTRY 50 ! ='test';DMDTC ='test';DMDY =123; 51 output; 52 STUDYID ='test'; 53 DOMAIN='test';USUBJID='test'; SUBJID ='test';RFSTDTC ='test';RFENDTC ='test'; 53 ! SITEID ='test';INVID ='test';INVNAM ='test';BRTHDTC ='test';AGE =50; 54 AGEU ='test';SEX ='test';RACE ='test';ETHNIC ='test';ARMCD ='A';ARM ='A';COUNTRY 54 ! ='test';DMDTC ='test';DMDY =123; 55 output; 56 run; NOTE: The data set TEMPLIB.DM has 6 observations and 20 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.01 seconds 57 58 data templib.ta(label="Trial Arms"); 59 attrib STUDYID label="Study Identifier" length=$100; 60 attrib DOMAIN label="Domain Abbreviation" length=$100; 61 attrib ARMCD label="Planned Arm Code" length=$100; 62 attrib ARM label="Description of Planned Arm" length=$100; 3 The SAS System 09:45 Wednesday, October 21, 2009 63 attrib TAETORD label="Order of Element within Arm" length=8; 64 attrib ETCD label="Element Code" length=$100; 65 attrib ELEMENT label="Description of Element" length=$100; 66 attrib TABRANCH label="Branch" length=$100; 67 attrib TATRANS label="Transition Rule" length=$100; 68 attrib EPOCH label="Epoch" length=$100; 69 STUDYID='test';DOMAIN='test';ARMCD='P';ARM='Placebo';TAETORD=1;ETCD='test'; 69 ! ELEMENT='test';TABRANCH='test';TATRANS='test';EPOCH='test'; 70 output; 71 STUDYID='test';DOMAIN='test';ARMCD='A';ARM='A';TAETORD=.;ETCD='test';ELEMENT='test'; 71 ! TABRANCH='test';TATRANS='test';EPOCH='test'; 72 output; 73 STUDYID='test';DOMAIN='test';ARMCD='B';ARM='B';TAETORD=2;ETCD='test';ELEMENT='test'; 73 ! TABRANCH='test';TATRANS='test';EPOCH='test'; 74 output; 75 STUDYID='test';DOMAIN='test';ARMCD='C';ARM='C';TAETORD=2;ETCD='test';ELEMENT='test'; 75 ! TABRANCH='test';TATRANS='test';EPOCH='test'; 76 output; 77 run; NOTE: The data set TEMPLIB.TA has 4 observations and 10 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 78 79 %cdisc(datlib=templib,datname=dm); 80 data misobs(keep=obsnum); 81 retain obsnum 0; 82 set templib.dm(keep=STUDYID); 83 obsnum=obsnum+1; 84 if missing(STUDYID) then 85 output; 86 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. 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 87 data misobs(keep=obsnum); 88 retain obsnum 0; 89 set templib.dm(keep=DOMAIN); 90 obsnum=obsnum+1; 91 if missing(DOMAIN) then 92 output; 93 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. 4 The SAS System 09:45 Wednesday, October 21, 2009 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 94 data misobs(keep=obsnum); 95 retain obsnum 0; 96 set templib.dm(keep=USUBJID); 97 obsnum=obsnum+1; 98 if missing(USUBJID) then 99 output; 100 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. 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 101 data misobs(keep=obsnum); 102 retain obsnum 0; 103 set templib.dm(keep=SUBJID); 104 obsnum=obsnum+1; 105 if missing(SUBJID) then 106 output; 107 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. 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 108 data misobs(keep=obsnum); 109 retain obsnum 0; 110 set templib.dm(keep=SITEID); 111 obsnum=obsnum+1; 112 if missing(SITEID) then 113 output; 114 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds cpu time 0.00 seconds 115 data misobs(keep=obsnum); 116 retain obsnum 0; 5 The SAS System 09:45 Wednesday, October 21, 2009 117 set templib.dm(keep=SEX); 118 obsnum=obsnum+1; 119 if missing(SEX) then 120 output; 121 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. 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 122 data misobs(keep=obsnum); 123 retain obsnum 0; 124 set templib.dm(keep=ARMCD); 125 obsnum=obsnum+1; 126 if missing(ARMCD) then 127 output; 128 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.MISOBS has 1 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.dm(keep=ARM); 132 obsnum=obsnum+1; 133 if missing(ARM) then 134 output; 135 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.MISOBS has 1 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.dm(keep=COUNTRY); 139 obsnum=obsnum+1; 140 if missing(COUNTRY) then 141 output; 142 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. 6 The SAS System 09:45 Wednesday, October 21, 2009 NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.01 seconds 143 data _27; 144 retain obsnum 0; 145 set templib.dm(keep=ARMCD ARM); 146 obsnum = obsnum + 1; 147 if (trim(left(upcase(ARMCD))) = 'SCRNFAIL' and trim(left(upcase(ARM))) ne 'SCREEN 147 ! FAILURE') or (trim(left(upcase(ARMCD))) ne 'SCRNFAIL' and trim(left(upcase(ARM))) = 147 ! 'SCREEN FAILURE') then output; 148 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK._27 has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 149 proc sort data=templib.dm out=dm nodupkey; 150 by usubjid; 151 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: 5 observations with duplicate key values were deleted. NOTE: The data set WORK.DM has 1 observations and 20 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.07 seconds cpu time 0.06 seconds NOTE: Table WORK._72 created, with 0 rows and 1 columns. 152 proc sort data=templib.dm out=dm nodupkey; 153 by ARMCD; 154 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: 1 observations with duplicate key values were deleted. NOTE: The data set WORK.DM has 5 observations and 20 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.01 seconds 155 proc sort data=templib.TA out=ta nodupkey; 156 by ARMCD; 157 run; NOTE: There were 4 observations read from the data set TEMPLIB.TA. NOTE: 0 observations with duplicate key values were deleted. 7 The SAS System 09:45 Wednesday, October 21, 2009 NOTE: The data set WORK.TA has 4 observations and 10 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds NOTE: Table WORK._74 created, with 2 rows and 1 columns. 158 proc sort data=templib.dm out=dm; 159 by USUBJID; 160 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.DM has 6 observations and 20 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 161 data ds; 162 retain obsnum 0; 163 set templib.ds; 164 obsnum = obsnum + 1; 165 run; NOTE: There were 1 observations read from the data set TEMPLIB.DS. NOTE: The data set WORK.DS has 1 observations and 7 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 166 proc sort data=DS; 167 by USUBJID DSSEQ; 168 run; NOTE: There were 1 observations read from the data set WORK.DS. NOTE: The data set WORK.DS has 1 observations and 7 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds NOTE: Table WORK._77 created, with 1 rows and 3 columns. 169 proc sort data=templib.dm out=dm; 170 by USUBJID; 171 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.DM has 6 observations and 20 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds 8 The SAS System 09:45 Wednesday, October 21, 2009 cpu time 0.04 seconds 172 data ex; 173 retain obsnum 0; 174 set templib.ex; 175 obsnum = obsnum + 1; 176 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK.EX has 6 observations and 12 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 177 proc sort data=ex; 178 by USUBJID EXSEQ; 179 run; NOTE: There were 6 observations read from the data set WORK.EX. NOTE: The data set WORK.EX has 6 observations and 12 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds NOTE: Table WORK._78 created, with 0 rows and 3 columns. 180 data dm; 181 retain obsnum 0; 182 set templib.dm(keep=ARMCD ARM); 183 attrib total length=$1000; 184 total = trim(left(ARMCD))||'+'||trim(left(ARM)); 185 obsnum = obsnum + 1; 186 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK.DM has 6 observations and 4 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 187 data ta; 188 set templib.ta(keep= ARMCD ARM); 189 attrib total length=$1000; 190 total = trim(left(ARMCD))||'+'||trim(left(ARM)); 191 run; NOTE: There were 4 observations read from the data set TEMPLIB.TA. NOTE: The data set WORK.TA has 4 observations and 3 variables. NOTE: DATA statement used (Total process time): 9 The SAS System 09:45 Wednesday, October 21, 2009 real time 0.01 seconds cpu time 0.01 seconds NOTE: Table WORK._79 created, with 2 rows and 4 columns. 192 data work._87; 193 retain obsnum 0; 194 set templib.dm; 195 obsnum = obsnum + 1; 196 if USUBJID ne "" then do; 197 output; 198 end; 199 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK._87 has 6 observations and 21 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 200 proc sort data=work._87 out=work.__87 nodupkey; 201 by USUBJID; 202 run; NOTE: There were 6 observations read from the data set WORK._87. NOTE: 5 observations with duplicate key values were deleted. NOTE: The data set WORK.__87 has 1 observations and 21 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.07 seconds cpu time 0.06 seconds 203 data work._87_; 204 merge work._87 (in=a) work.__87 (in=b); 205 by obsnum; 206 if a and not b; 207 run; NOTE: There were 6 observations read from the data set WORK._87. NOTE: There were 1 observations read from the data set WORK.__87. NOTE: The data set WORK._87_ has 5 observations and 21 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds cpu time 0.03 seconds 208 data _88; 209 retain obsnum 0; 210 set templib.dm; 211 obsnum = obsnum + 1; 212 if AGE ne "" and AGE < 0 then do; 10 The SAS System 09:45 Wednesday, October 21, 2009 213 output; 214 end; 215 run; NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 212:11 NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK._88 has 0 observations and 21 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 216 data _106; 217 retain obsnum 0; 218 set templib.dm; 219 obsnum = obsnum + 1; 220 if RFSTDTC = '' and ARMCD ne 'SCRNFAIL' then do; 221 output; 222 end; 223 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK._106 has 0 observations and 21 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 224 data _107; 225 retain obsnum 0; 226 set templib.dm; 227 obsnum = obsnum + 1; 228 if RFENDTC = '' and ARMCD ne 'SCRNFAIL' then do; 229 output; 230 end; 231 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK._107 has 0 observations and 21 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 232 data _113; 233 retain obsnum 0; 234 set templib.dm; 235 obsnum = obsnum + 1; 236 if AGEU ='' and AGE ne . then do; 237 output; 238 end; 11 The SAS System 09:45 Wednesday, October 21, 2009 239 run; NOTE: There were 6 observations read from the data set TEMPLIB.DM. NOTE: The data set WORK._113 has 0 observations and 21 variables. NOTE: DATA statement used (Total process time): real time 0.06 seconds cpu time 0.00 seconds 240 proc sort data=cdisc nodupkey; 241 by libname datname datlab variable length label type case comment; 242 run; NOTE: There were 12 observations read from the data set WORK.CDISC. NOTE: 0 observations with duplicate key values were deleted. NOTE: The data set WORK.CDISC has 12 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 243 proc sort data = work.cdisc; 244 by libname datname datlab variable case; 245 run; NOTE: There were 12 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 12 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 246 247 proc format; 248 *** Generate the comments for the CDISC evaluation case number ***; 249 value $casefmt 250 '1' = '1' 251 '2' = '2' 252 '3' = '3' 253 '4' = '4' 254 '5' = '5' 255 '6' = '6' 256 '7' = '7' 257 '8' = '8' 258 '9' = '9' 259 '10' = '10' 260 '11' = '11' 261 '12' = '12' 262 '13' = '13' 263 '14' = '14' 264 '15' = '15' 265 '16' = '16' 266 '17' = '17' 12 The SAS System 09:45 Wednesday, October 21, 2009 267 '18' = '18' 268 '19' = '19' 269 '20' = '20' 270 '21' = '21' 271 '22' = '22' 272 '23' = '23' 273 '24' = '24' 274 '25' = '25' 275 '26' = '26' 276 '27' = '27' 277 '28' = '28' 278 '29' = '29' 279 '30' = '30' 280 '31' = '31' 281 '32' = '32' 282 '33' = '33' 283 '34' = '34' 284 '35' = '35' 285 '36' = '36' 286 '37' = '37' 287 '38' = '38' 288 '39' = '39' 289 '40' = '40' 290 '41' = '41' 291 '42' = '42' 292 '43' = '43' 293 '44' = '44' 294 '45' = '45' 295 '46' = '46' 296 '47' = '47' 297 '48' = '48' 298 '49' = '49' 299 '50' = '50' 300 '51' = '51' 301 '52' = '52' 302 '53' = '53' 303 '54' = '54' 304 '55' = '55' 305 '56' = '56' 306 '57' = '57' 307 '58' = '58' 308 '59' = '59' 309 '60' = '60' 310 '61' = '61' 311 '62' = '62' 312 '63' = '63' 313 '64' = '64' 314 '65' = '65' 315 '66' = '66' 316 '67' = '67' 317 '68' = '68' 318 '69' = '69' 319 '70' = '70' 13 The SAS System 09:45 Wednesday, October 21, 2009 320 '71' = '71' 321 '72' = '72' 322 '73' = '73' 323 '74' = '74' 324 '75' = '75' 325 '76' = '76' 326 '77' = '77' 327 '78' = '78' 328 '79' = '79' 329 '80' = '80' 330 '81' = '81' 331 '82' = '82' 332 '83' = '83' 333 '84' = '84' 334 '85' = '85' 335 '86' = '86' 336 '87' = '87' 337 '88' = '88' 338 '89' = '89' 339 '90' = '90' 340 '91' = '91' 341 '92' = '92' 342 '93' = '93' 343 '94' = '94' 344 '95' = '95' 345 '96' = '96' 346 '97' = '97' 347 '98' = '98' 348 '99' = '99' 349 '100' = '100' 350 '101' = '101' 351 '102' = '102' 352 '103' = '103' 353 '104' = '104' 354 '105' = '105' 355 '106' = '106' 356 '107' = '107' 357 '108' = '108' 358 '109' = '109' 359 '110' = '110' 360 '111' = '111' 361 '112' = '112' 362 '113' = '113'; NOTE: Format $CASEFMT has been output. 363 364 365 366 *** Generate the format for the bookmark of variables ***; 367 value $bookfmt 368 "dm.studyid" = 'dm.studyid' 369 "dm.domain" = 'dm.domain' 370 "dm.usubjid" = 'dm.usubjid' 371 "dm.subjid" = 'dm.subjid' 14 The SAS System 09:45 Wednesday, October 21, 2009 372 "dm.rfstdtc" = 'dm.rfstdtc' 373 "dm.rfendtc" = 'dm.rfendtc' 374 "dm.siteid" = 'dm.siteid' 375 "dm.invid" = 'dm.invid' 376 "dm.invnam" = 'dm.invnam' 377 "dm.brthdtc" = 'dm.brthdtc' 378 "dm.age" = 'dm.age' 379 "dm.ageu" = 'dm.ageu' 380 "dm.sex" = 'dm.sex' 381 "dm.race" = 'dm.race' 382 "dm.ethnic" = 'dm.ethnic' 383 "dm.armcd" = 'dm.armcd' 384 "dm.arm" = 'dm.arm' 385 "dm.country" = 'dm.country' 386 "dm.dmdtc" = 'dm.dmdtc' 387 "dm.dmdy" = 'dm.dmdy' 388 ; NOTE: Format $BOOKFMT has been output. 389 390 *** Generate the format for dataset linking ***; 391 value $datfmt 392 "ae" = 'ae
' 393 "ae3a" = 'ae3a
' 394 "cdisc10" = 'cdisc10
' 395 "cdisc11" = 'cdisc11
' 396 "cdisc14" = 'cdisc14
' 397 "cdisc15" = 'cdisc15
' 398 "cdisc18" = 'cdisc18
' 399 "cdisc2" = 'cdisc2
' 400 "cdisc21" = 'cdisc21
' 401 "cdisc2b_1" = 'cdisc2b_1
' 402 "cdisc2b_2" = 'cdisc2b_2
' 403 "cdisc2b_3" = 'cdisc2b_3
' 404 "cdisc2_b" = 'cdisc2_b
' 405 "cdisc2_c" = 'cdisc2_c
' 406 "cdisc4" = 'cdisc4
' 407 "cdisc5" = 'cdisc5
' 408 "cdisc6" = 'cdisc6
' 409 "cdisc7" = 'cdisc7
' 410 "cdisc8" = 'cdisc8
' 411 "cdisc9" = 'cdisc9
' 412 "ce" = 'ce
' 413 "cm" = 'cm
' 414 "co" = 'co
' 415 "da" = 'da
' 416 "dm" = 'dm
' 417 "ds" = 'ds
' 418 "dv" = 'dv
' 419 "eg" = 'eg
' 420 "ex" = 'ex
' 421 "fa" = 'fa
' 422 "ie" = 'ie
' 423 "lb" = 'lb
' 15 The SAS System 09:45 Wednesday, October 21, 2009 424 "mb" = 'mb
' 425 "mh" = 'mh
' 426 "ms" = 'ms
' 427 "notdm" = 'notdm
' 428 "pc" = 'pc
' 429 "pe" = 'pe
' 430 "pp" = 'pp
' 431 "qs" = 'qs
' 432 "relrec" = 'relrec
' 433 "sc" = 'sc
' 434 "se" = 'se
' 435 "su" = 'su
' 436 "supmh" = 'supmh
' 437 "suppae" = 'suppae
' 438 "suppp" = 'suppp
' 439 "supte" = 'supte
' 440 "supvs" = 'supvs
' 441 "sv" = 'sv
' 442 "ta" = 'ta
' 443 "te" = 'te
' 444 "ti" = 'ti
' 445 "ts" = 'ts
' 446 "tv" = 'tv
' 447 "vs" = 'vs
' 448 ; NOTE: Format $DATFMT has been output. 449 run; NOTE: PROCEDURE FORMAT used (Total process time): real time 0.17 seconds cpu time 0.03 seconds 450 451 data work.cdisc; 452 set work.cdisc; 453 by libname datname datlab variable case; 454 455 attrib datvar label="Dataset and Variable" length=$100 format=$bookfmt.; 456 if variable ne '' then 457 datvar = compress(lowcase(datname) || "." || lowcase(variable)); 458 else datvar = lowcase(datname); 459 /*format case casefmt.;*/ 460 attrib charcase label = "Case Number" length = $10; 461 charcase = trim(left(put(case, best.))); 462 format charcase $casefmt.; 463 *format datname $datfmt.; 464 run; NOTE: There were 12 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 12 observations and 13 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds 16 The SAS System 09:45 Wednesday, October 21, 2009 cpu time 0.04 seconds 465 466 *** Remove The Special Characters ******; 467 proc template; 468 define style styles.test/store=work.test; 469 parent=styles.default; 470 style byline from titlesandfooters / 471 protectspecialchars=off; 472 end; NOTE: STYLE 'Styles.Test' has been saved to: WORK.TEST 473 run; NOTE: PROCEDURE TEMPLATE used (Total process time): real time 0.11 seconds cpu time 0.03 seconds 474 475 proc sort data = work.cdisc; 476 by libname datname datlab variable case; 477 run; NOTE: There were 12 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 12 observations and 13 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 478 479 ods listing close; 480 ods html file='cdisc74.html' style=styles.mxistyle; NOTE: Writing HTML Body file: cdisc74.html 481 data work.dm (drop=usrname datetime); 482 set work.cdisc; 483 where lowcase(datname)=lowcase("dm"); 484 run; NOTE: There were 12 observations read from the data set WORK.CDISC. WHERE LOWCASE(datname)='dm'; NOTE: The data set WORK.DM has 12 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 485 data dm(drop=xxx); 486 set dm; 487 retain xxx 0; 488 if xxx = 2 then xxx = 1; 489 else xxx = xxx + 1; 490 yyy = compress(put(xxx,best.)); 17 The SAS System 09:45 Wednesday, October 21, 2009 491 run; NOTE: There were 12 observations read from the data set WORK.DM. NOTE: The data set WORK.DM has 12 observations and 12 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.01 seconds 492 493 %let newlab = %nrbquote(Demographics); 494 title1 height=2 ' Findings from CDISC Evaluation'; 495 title2 height=2 "Data Table Name = dm Data Table Label=&newlab"; 496 footnote1 height=2 "Generated on: 10/21/2009, 9:45:34 am, Administrator"; 497 footnote2 height=2 "Located at: C:\apache\htdocs\cdiscbuilder\data"; 498 proc report data = work.dm nowindows; 499 column obs libname datvar label type length charcase comment yyy; 500 define obs/computed 'Obs'; 501 define libname/width=20; 502 define datvar/width=50; 503 define label/width=50; 504 define type/width=20; 505 define length/width=50; 506 define comment/width=50; 507 define charcase/width=50; 508 define yyy/ noprint; 509 510 compute yyy; 511 if yyy = "2" then do; 512 call define (_row_,'style','STYLE=[BACKGROUND=cxFFFFCC]'); 513 end; 514 endcompute; 515 516 compute charcase; 517 if charcase='1' then call define 517 ! ('charcase','style','STYLE=[BACKGROUND=CXccffcc JUST=CENTER]'); 518 if charcase='2' then call define 518 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0030 JUST=CENTER]'); 519 if charcase='3' then call define 519 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0094 JUST=CENTER]'); 520 if charcase='4' then call define 520 ! ('charcase','style','STYLE=[BACKGROUND=CXcd00f8 JUST=CENTER]'); 521 if charcase='5' then call define 521 ! ('charcase','style','STYLE=[BACKGROUND=CXcd015c JUST=CENTER]'); 522 if charcase='6' then call define 522 ! ('charcase','style','STYLE=[BACKGROUND=CXcd01c0 JUST=CENTER]'); 523 if charcase='7' then call define 523 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0224 JUST=CENTER]'); 524 if charcase='8' then call define 524 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0288 JUST=CENTER]'); 525 if charcase='9' then call define 525 ! ('charcase','style','STYLE=[BACKGROUND=CXcd02ec JUST=CENTER]'); 526 if charcase='10' then call define 18 The SAS System 09:45 Wednesday, October 21, 2009 526 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0350 JUST=CENTER]'); 527 if charcase='11' then call define 527 ! ('charcase','style','STYLE=[BACKGROUND=CXcd03b4 JUST=CENTER]'); 528 if charcase='12' then call define 528 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0418 JUST=CENTER]'); 529 if charcase='13' then call define 529 ! ('charcase','style','STYLE=[BACKGROUND=CXcd047c JUST=CENTER]'); 530 if charcase='14' then call define 530 ! ('charcase','style','STYLE=[BACKGROUND=CXcd04e0 JUST=CENTER]'); 531 if charcase='15' then call define 531 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0544 JUST=CENTER]'); 532 if charcase='16' then call define 532 ! ('charcase','style','STYLE=[BACKGROUND=CXcd05a8 JUST=CENTER]'); 533 if charcase='17' then call define 533 ! ('charcase','style','STYLE=[BACKGROUND=CXcd060c JUST=CENTER]'); 534 if charcase='18' then call define 534 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0670 JUST=CENTER]'); 535 if charcase='19' then call define 535 ! ('charcase','style','STYLE=[BACKGROUND=CXcd06d4 JUST=CENTER]'); 536 if charcase='20' then call define 536 ! ('charcase','style','STYLE=[BACKGROUND=CXffffcc JUST=CENTER]'); 537 if charcase='21' then call define 537 ! ('charcase','style','STYLE=[BACKGROUND=CX398C54 JUST=CENTER]'); 538 if charcase='22' then call define 538 ! ('charcase','style','STYLE=[BACKGROUND=CX398d1c JUST=CENTER]'); 539 if charcase='23' then call define 539 ! ('charcase','style','STYLE=[BACKGROUND=CX398d80 JUST=CENTER]'); 540 if charcase='24' then call define 540 ! ('charcase','style','STYLE=[BACKGROUND=CX398de4 JUST=CENTER]'); 541 if charcase='25' then call define 541 ! ('charcase','style','STYLE=[BACKGROUND=CX398e48 JUST=CENTER]'); 542 if charcase='26' then call define 542 ! ('charcase','style','STYLE=[BACKGROUND=CX398eac JUST=CENTER]'); 543 if charcase='27' then call define 543 ! ('charcase','style','STYLE=[BACKGROUND=CX398f10 JUST=CENTER]'); 544 if charcase='28' then call define 544 ! ('charcase','style','STYLE=[BACKGROUND=CX398f74 JUST=CENTER]'); 545 if charcase='29' then call define 545 ! ('charcase','style','STYLE=[BACKGROUND=CX398fd8 JUST=CENTER]'); 546 if charcase='30' then call define 546 ! ('charcase','style','STYLE=[BACKGROUND=CX39903c JUST=CENTER]'); 547 if charcase='31' then call define 547 ! ('charcase','style','STYLE=[BACKGROUND=CX3990a0 JUST=CENTER]'); 548 if charcase='32' then call define 548 ! ('charcase','style','STYLE=[BACKGROUND=CX399104 JUST=CENTER]'); 549 if charcase='33' then call define 549 ! ('charcase','style','STYLE=[BACKGROUND=CX399168 JUST=CENTER]'); 550 if charcase='34' then call define 550 ! ('charcase','style','STYLE=[BACKGROUND=CX3991cc JUST=CENTER]'); 551 if charcase='35' then call define 551 ! ('charcase','style','STYLE=[BACKGROUND=CX399230 JUST=CENTER]'); 552 if charcase='36' then call define 552 ! ('charcase','style','STYLE=[BACKGROUND=CX399294 JUST=CENTER]'); 19 The SAS System 09:45 Wednesday, October 21, 2009 553 if charcase='37' then call define 553 ! ('charcase','style','STYLE=[BACKGROUND=CX3992f8 JUST=CENTER]'); 554 if charcase='38' then call define 554 ! ('charcase','style','STYLE=[BACKGROUND=CX39935c JUST=CENTER]'); 555 if charcase='39' then call define 555 ! ('charcase','style','STYLE=[BACKGROUND=CXffcccc JUST=CENTER]'); 556 if charcase='40' then call define 556 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd30 JUST=CENTER]'); 557 if charcase='41' then call define 557 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd94 JUST=CENTER]'); 558 if charcase='42' then call define 558 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdf8 JUST=CENTER]'); 559 if charcase='43' then call define 559 ! ('charcase','style','STYLE=[BACKGROUND=CXffce5c JUST=CENTER]'); 560 if charcase='44' then call define 560 ! ('charcase','style','STYLE=[BACKGROUND=CXffcec0 JUST=CENTER]'); 561 if charcase='45' then call define 561 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf24 JUST=CENTER]'); 562 if charcase='46' then call define 562 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf88 JUST=CENTER]'); 563 if charcase='47' then call define 563 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfec JUST=CENTER]'); 564 if charcase='48' then call define 564 ! ('charcase','style','STYLE=[BACKGROUND=CXffd050 JUST=CENTER]'); 565 if charcase='49' then call define 565 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0b4 JUST=CENTER]'); 566 if charcase='50' then call define 566 ! ('charcase','style','STYLE=[BACKGROUND=CXffd118 JUST=CENTER]'); 567 if charcase='51' then call define 567 ! ('charcase','style','STYLE=[BACKGROUND=CXffd17c JUST=CENTER]'); 568 if charcase='52' then call define 568 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1e0 JUST=CENTER]'); 569 if charcase='53' then call define 569 ! ('charcase','style','STYLE=[BACKGROUND=CXffd244 JUST=CENTER]'); 570 if charcase='54' then call define 570 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2a8 JUST=CENTER]'); 571 if charcase='55' then call define 571 ! ('charcase','style','STYLE=[BACKGROUND=CXffd30c JUST=CENTER]'); 572 if charcase='56' then call define 572 ! ('charcase','style','STYLE=[BACKGROUND=CXffd370 JUST=CENTER]'); 573 if charcase='57' then call define 573 ! ('charcase','style','STYLE=[BACKGROUND=CXffd3d4 JUST=CENTER]'); 574 if charcase='58' then call define 574 ! ('charcase','style','STYLE=[BACKGROUND=CXccccff JUST=CENTER]'); 575 if charcase='59' then call define 575 ! ('charcase','style','STYLE=[BACKGROUND=CXcccd63 JUST=CENTER]'); 576 if charcase='60' then call define 576 ! ('charcase','style','STYLE=[BACKGROUND=CXcccdc7 JUST=CENTER]'); 577 if charcase='61' then call define 577 ! ('charcase','style','STYLE=[BACKGROUND=CXccce2b JUST=CENTER]'); 578 if charcase='62' then call define 578 ! ('charcase','style','STYLE=[BACKGROUND=CXccce8f JUST=CENTER]'); 579 if charcase='63' then call define 20 The SAS System 09:45 Wednesday, October 21, 2009 579 ! ('charcase','style','STYLE=[BACKGROUND=CXcccef3 JUST=CENTER]'); 580 if charcase='64' then call define 580 ! ('charcase','style','STYLE=[BACKGROUND=CXcccf57 JUST=CENTER]'); 581 if charcase='65' then call define 581 ! ('charcase','style','STYLE=[BACKGROUND=CXcccfbb JUST=CENTER]'); 582 if charcase='66' then call define 582 ! ('charcase','style','STYLE=[BACKGROUND=CXccd01f JUST=CENTER]'); 583 if charcase='67' then call define 583 ! ('charcase','style','STYLE=[BACKGROUND=CXccd083 JUST=CENTER]'); 584 if charcase='68' then call define 584 ! ('charcase','style','STYLE=[BACKGROUND=CXccd0e7 JUST=CENTER]'); 585 if charcase='69' then call define 585 ! ('charcase','style','STYLE=[BACKGROUND=CXccd14b JUST=CENTER]'); 586 if charcase='70' then call define 586 ! ('charcase','style','STYLE=[BACKGROUND=CXccd1af JUST=CENTER]'); 587 if charcase='71' then call define 587 ! ('charcase','style','STYLE=[BACKGROUND=CXccd213 JUST=CENTER]'); 588 if charcase='72' then call define 588 ! ('charcase','style','STYLE=[BACKGROUND=CXccd277 JUST=CENTER]'); 589 if charcase='73' then call define 589 ! ('charcase','style','STYLE=[BACKGROUND=CXccd2db JUST=CENTER]'); 590 if charcase='74' then call define 590 ! ('charcase','style','STYLE=[BACKGROUND=CXccd33f JUST=CENTER]'); 591 if charcase='75' then call define 591 ! ('charcase','style','STYLE=[BACKGROUND=CXccd3a3 JUST=CENTER]'); 592 if charcase='76' then call define 592 ! ('charcase','style','STYLE=[BACKGROUND=CXccd407 JUST=CENTER]'); 593 if charcase='77' then call define 593 ! ('charcase','style','STYLE=[BACKGROUND=CX99ccff JUST=CENTER]'); 594 if charcase='78' then call define 594 ! ('charcase','style','STYLE=[BACKGROUND=CX99cd63 JUST=CENTER]'); 595 if charcase='79' then call define 595 ! ('charcase','style','STYLE=[BACKGROUND=CX99cdc7 JUST=CENTER]'); 596 if charcase='80' then call define 596 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce2b JUST=CENTER]'); 597 if charcase='81' then call define 597 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce8f JUST=CENTER]'); 598 if charcase='82' then call define 598 ! ('charcase','style','STYLE=[BACKGROUND=CX99cef3 JUST=CENTER]'); 599 if charcase='83' then call define 599 ! ('charcase','style','STYLE=[BACKGROUND=CX99cf57 JUST=CENTER]'); 600 if charcase='84' then call define 600 ! ('charcase','style','STYLE=[BACKGROUND=CX99cfbb JUST=CENTER]'); 601 if charcase='85' then call define 601 ! ('charcase','style','STYLE=[BACKGROUND=CX99d01f JUST=CENTER]'); 602 if charcase='86' then call define 602 ! ('charcase','style','STYLE=[BACKGROUND=CX99d083 JUST=CENTER]'); 603 if charcase='87' then call define 603 ! ('charcase','style','STYLE=[BACKGROUND=CX99d0e7 JUST=CENTER]'); 604 if charcase='88' then call define 604 ! ('charcase','style','STYLE=[BACKGROUND=CX99d14b JUST=CENTER]'); 605 if charcase='89' then call define 605 ! ('charcase','style','STYLE=[BACKGROUND=CX99d1af JUST=CENTER]'); 21 The SAS System 09:45 Wednesday, October 21, 2009 606 if charcase='90' then call define 606 ! ('charcase','style','STYLE=[BACKGROUND=CX99d213 JUST=CENTER]'); 607 if charcase='91' then call define 607 ! ('charcase','style','STYLE=[BACKGROUND=CX99d277 JUST=CENTER]'); 608 if charcase='92' then call define 608 ! ('charcase','style','STYLE=[BACKGROUND=CX99d2db JUST=CENTER]'); 609 if charcase='93' then call define 609 ! ('charcase','style','STYLE=[BACKGROUND=CX99d33f JUST=CENTER]'); 610 if charcase='94' then call define 610 ! ('charcase','style','STYLE=[BACKGROUND=CX99d3a3 JUST=CENTER]'); 611 if charcase='95' then call define 611 ! ('charcase','style','STYLE=[BACKGROUND=CX99d407 JUST=CENTER]'); 612 if charcase='96' then call define 612 ! ('charcase','style','STYLE=[BACKGROUND=CXffcc99 JUST=CENTER]'); 613 if charcase='97' then call define 613 ! ('charcase','style','STYLE=[BACKGROUND=CXffccfd JUST=CENTER]'); 614 if charcase='98' then call define 614 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd61 JUST=CENTER]'); 615 if charcase='99' then call define 615 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdc5 JUST=CENTER]'); 616 if charcase='100' then call define 616 ! ('charcase','style','STYLE=[BACKGROUND=CXffce29 JUST=CENTER]'); 617 if charcase='101' then call define 617 ! ('charcase','style','STYLE=[BACKGROUND=CXffce8d JUST=CENTER]'); 618 if charcase='102' then call define 618 ! ('charcase','style','STYLE=[BACKGROUND=CXffcef1 JUST=CENTER]'); 619 if charcase='103' then call define 619 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf55 JUST=CENTER]'); 620 if charcase='104' then call define 620 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfb9 JUST=CENTER]'); 621 if charcase='105' then call define 621 ! ('charcase','style','STYLE=[BACKGROUND=CXffd01d JUST=CENTER]'); 622 if charcase='106' then call define 622 ! ('charcase','style','STYLE=[BACKGROUND=CXffd081 JUST=CENTER]'); 623 if charcase='107' then call define 623 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0e5 JUST=CENTER]'); 624 if charcase='108' then call define 624 ! ('charcase','style','STYLE=[BACKGROUND=CXffd149 JUST=CENTER]'); 625 if charcase='109' then call define 625 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1ad JUST=CENTER]'); 626 if charcase='110' then call define 626 ! ('charcase','style','STYLE=[BACKGROUND=CXffd211 JUST=CENTER]'); 627 if charcase='111' then call define 627 ! ('charcase','style','STYLE=[BACKGROUND=CXffd275 JUST=CENTER]'); 628 if charcase='112' then call define 628 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2d9 JUST=CENTER]'); 629 if charcase='113' then call define 629 ! ('charcase','style','STYLE=[BACKGROUND=CXffd33d JUST=CENTER]'); 630 endcomp; 631 632 compute obs; 633 dobs + 1; 634 obs = dobs; 22 The SAS System 09:45 Wednesday, October 21, 2009 635 endcompute; 636 run; NOTE: There were 12 observations read from the data set WORK.DM. NOTE: PROCEDURE REPORT used (Total process time): real time 0.18 seconds cpu time 0.04 seconds 637 run; 638 ods html close; 639 ods listing; NOTE: PROCEDURE DISPLAY used (Total process time): real time 4.60 seconds cpu time 3.48 seconds NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414 NOTE: The SAS System used: real time 5.39 seconds cpu time 4.13 seconds